私の問題の解決策があると思いますが、見つけられませんでした。助けてもらえますか?
私はこのようなことをしたい:
var
a, b, c: string;
d: integer;
begin
a := StringGrid1.Cells[1,1];
b := StringGrid1.Cells[2,1];
c := StringGrid1.Cells[3,1];
d := StrToInt(a) + StrToInt(b) + StrToInt(c);
StringGrid1.Cells[4,1] := IntToStr(d);
end;
しかし、この例のように 200 個の文字列変数を宣言する必要があります。とにかくこれのための「ショートカット」はありますか?
これは私が試したループです:
var
x: integer;
begin
for x := 1 to 200 do
begin
Form2.StringGrid1.Cells[3,209] := IntToStr(x);
end;
end;