so jetzt sitzt ich endlich vor einem Computer wo Delphi installiert ist.
Da ich nicht weiß, wie deine Editfelder heißen, nenne ich die fünf Eingabefelder einfach mal Edit1 bis Edit5 und das Ausgabefeld Edit6.
Nun zum Problem:
In Delphi ist in einem Editfeld u.a. das Ereignis OnChange definiert. Dieses Ereignis wird immer dann ausgelöst, wenn sich der Inhalt des Editfeldes ändert. Dies kann sowohl durch eine direkte Benutzereingabe (Tastatur) oder durch Programmcode (z.B. die "+" "-" Schaltflächen) geschehen. Um bei diesem Ereignis Code auszuführen, muss eine Ereignisbehandlungsroutine geschrieben und dem Ereignis zugewiesen werden.
In diesem Fall also im Designer das erste Editfeld markieren, im Objektinspektor die Karteikarte Events auswählen und dopplet auf den Eintrag OnChange klicken. Delphi erstellt nun automatisch die Behandlungsroutine und weist sie dem Ereignis zu.
Hier brauch jetzt nur noch der Code zum Addieren hinzugefügt zu werden (siehe vorh. Post):
Code:
procedure TForm1.Edit1Change(Sender: TObject);
begin
Edit6.Text := IntToStr(StrToInt(Edit1.Text) + StrToInt(Edit2.Text) + StrToInt(Edit3.Text) + StrToInt(Edit4.Text) + StrToInt(Edit5.Text));
end;
Ab sofort wird nun das Ergebnisfeld aktualisiert, sobald sich der Inhalt von Edit1 ändert. Damit dies auch bei den restlichen Editfeldern funktioniert, muss die eben geschriebene Behandlungsroutine noch den restlichen Editfeldern zugewiesen werden.
Dazu jeweils ein Editfeld markieren, im Objektinspektor wieder zu Events wechslen und neben dem Eintrag OnChange aus der Listbox die eben geschriebene Routine auswählen.
Grüße Thomas