-4

私の問題の解決策があると思いますが、見つけられませんでした。助けてもらえますか?

私はこのようなことをしたい:

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;
4

1 に答える 1

8
var
  Total: Integer;
  I: Integer;
begin
  Total := 0;
  for I := 1 to 3 do
    Inc(Total, StrToInt(StringGrid1.Cells[I, 1]));
  StringGrid1.Cells[4, 1] := IntToStr(Total);
end;
于 2013-09-11T15:26:51.387 に答える