Edit-Ínhalte kumulieren

[Chewie]

Wenn du die Editfelder dynamisch erzeugst, kannst du sie in ein Array packen und dann in einer Schleife die Werte addieren:

Delphi-Quellcode:

var
  Edits: Array[1..24] of TEdit;
  a: Integer;
  wert: Real;
begin
  //[..Editfelder erzeugen..]
  wert := 0;
  for a := 1 to Length(Edits) do
  begin
    wert := wert + StrtoInt(Edits[a]);
  end;
end;

Falls du sie in der IDE erzeugst und sie Edit1..24 durchnumerierst, kannst du so die Werte addieren:

Delphi-Quellcode:

var
  a: Integer;
  wert: Real;
begin
  wert := 0;  
  for a := 1 to 24 do
  begin
    wert := wert + Strtoint(FindComponent('Edit' + InttoStr(a)));
  end;
end;