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;