Edit-Ínhalte kumulieren

[sakura]

Code:

procedure TForm1.sumbuttonClick(Sender: TObject); 
var 
i: integer; 
puff: Real; 
begin 
puff:=0; 
for i:= 1 to 34 do 
begin 
puff:=puff+StrToFloat([color=#f60000]TEdit([/color]FindComponent('Edit'+IntToStr(i))[color=#ff0000]).Text[/color]); 
end; 
end;

Das sollte Dir weiterhelfen.