Addieren von Edits. Gehts auch kürzer?

[Phoenix]

Eher so:

Delphi-Quellcode:

procedure TKostenaufstellung.EditExit(Sender: TObject);
var
  ergebnis: Real;
  i: integer;
begin
  ergebnis := 0;

  for i := 1 to 13 do
  begin
    ergebnis := ergebnis + StrToFloatDef(TEdit(FindControl('Edit' + IntToStr(i))).Text, 0);
  end;

  DbEdit13.Text := FloatToStrF(ergebnis, ffFixed, 8, 2);
end;

Und dieses eine Event dann eben allen Edits zuweisen.

Edit nachtrag:
Er meint, dass Du nur ein Event benutzt anstelle von 13 einzelnen Methoden.
Und klicke bitte noch ganz schnell bei Deinem letzten beitrag rechts oben auf 'EDIT' und lege noch [ Delphi ]...[/ Delphi ] Tags um den Code in Deinem Beitrag, damit wir Mods das nicht immer machen müssen.