ja, sakura
genau das ist mein Problem.
Ich kenn leider noch nicht alle Zahlentypen.
Kämpfe mit inkompatiblen Typen.
mon siehts so aus:
Code:
procedure TForm1.sumbuttonClick(Sender: TObject);
var
i: integer;
puff: Real;
begin
puff:=0;
for i:= 1 to 34 do
begin
puff:=puff+StrToFloat(FindComponent('Edit'+IntToStr(i)));
end;
end;
keine Chance