循環和增加字符串網格中的單元格的字母值

Question

所以這可能很難解釋，但我想做一個for ...：= 1到10做聲明，但我希望它是爲A到N做。這個excersise的主要目的是將數據加載到字符串網格中。所以讓我們把字母A，B，C，D，E加到單元格0,1 0,2 0,3 0,4 0,5 0,6 0,7一直到14。如果有人知道如何做到這一點，我會非常感激！

Answer 1

在這裏，你得到了它，但我不知道這是否是一個很好的方式如何學習編程（我的意思是問問題的請求，這樣你別人寫的代碼）：

procedure TForm1.Button1Click(Sender: TObject); 
var 
    I: Integer; 
begin 
    StringGrid1.FixedCols := 1; 
    StringGrid1.ColCount := 15; 
    for I := 1 to 14 do 
    StringGrid1.Cells[I, 1] := Chr(Ord('A') + I - 1); 
end; 

Answer 2

如果您要同時填補了StringGrid控制一排，你可以做

procedure TForm1.Button1Click(Sender: TObject); 
var 
    i: Integer; 
begin 
    StringGrid1.FixedCols := 1; 
    StringGrid1.FixedRows := 1; 
    for i := 0 to Min(25, (StringGrid1.ColCount-1) * (StringGrid1.RowCount-1)) do 
    StringGrid1.Cells[i mod (StringGrid1.ColCount - 1) + 1, 
     i div (StringGrid1.ColCount - 1) + 1] := Chr(Ord('A') + i); 
end; 

這無論多少行和cols怎麼有工作的。

Answer 3

想融合TLama的回答與「希望做一個爲...：= 1〜10做的語句，但我想這是對於A至N做」

不知道它會是雙關，還是啓發。

var c: char; i: integer; 
    s: string; 
    ... 
    i := 0; s:= EmptyStr; 
    for c := 'A' to 'N' do begin 
     s := s + c + ','; 
     Inc(i); 
    end; 

    SetLength(s, Length(s) - 1); // we do not need last comma there 
    StringGrid1.ColCount := i; 
    StringGrid1.Rows[0].CommaText := s; 

或者使用TStringBuilder相同 - 這比在每個新的字符串修改上重新安排Heap更快。

uses SysUtils; 
    ... 
var c: char; i: integer; 
    s: string; 
    ... 
    i := 0; 
    with TStringBuilder.Create do try 
    for c := 'A' to 'N' do begin 
     Append(c + ','); 
     Inc(i); 
    end; 
    s := ToString; 
    finally 
    Free; 
    end; 

    SetLength(s, Length(s) - 1); // we do not need last comma there 
    StringGrid1.ColCount := i; 
    StringGrid1.Rows[0].CommaText := s;