ich nochmal
Code:
procedure TForm1.sumbuttonClick(Sender: TObject);
var
i: integer;
puff: Currency;
begin
puff:=0;
for i:= 1 to 34 do
begin
puff:=puff+StrToFloat(TEdit(FindComponent('Edit'+IntToStr(i))).text);
sumedit.text:= [color=#ff0000]FloatToStrF(puff; Format: currency;2;digits:2);[/color]end;
end;
irgendwie gehts net...die Umstellung ..Fehler nich wirklich genügend Parameter.Leider ist die
OH nicht richtig dokumentiert.
[edit=Sakura]CODE in PRE Tags geändert[/edit]