(Moderator)
Registriert seit: 9. Dez 2005
Ort: Heilbronn
39.874 Beiträge
Delphi 11 Alexandria
|
Re: Addieren von Edits. Gehts auch kürzer?
18. Mär 2009, 15:25
Delphi-Quellcode:
procedure TKostenaufstellung.EditExit(Sender: TObject);
var
Zahl1, Zahl2, Zahl3, ...: Real;
Ergebnis: Real;
begin
Zahl1 := StrToFloatDef(Edit1.Text,0);
Zahl2 := StrToFloatDef(Edit2.Text,0);
Zahl3 := StrToFloatDef(Edit3.Text,0);
...
Ergebnis := Zahl1+Zahl2+Zahl3+...;
DbEdit13.Text := FloatToStrF (Ergebnis, ffFixed,8,2);
end;
Markus Kinzler
|
|
Zitat
|