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.