if...then...else

[jfheins]

Also, nochmal in Ausführlich:

- Du machst eine globale Variable vom Typ TLabel

Delphi-Quellcode:

var
Form1: TForm1;
CurrentLabel: TLabel;

Dann ersetzt du in den gazen Prozeduren Label1 durch CurrentLabel also z.B.:

Delphi-Quellcode:

procedure TForm1.Button4Click(Sender: TObject); 
begin 
CurrentLabel.Caption:= CurrentLabel.Caption + '4'; 
end;

Dann musst du in OnFormCreate (Im Designer auf die Form doppelklicken) noch einCurrentLabel := Label1; machen.

In den Knöpfen für Plus, Minus usw. machst du jetzt einCurrentLabel := Label5; // Oder was halt dein zweites Label ist Und fertig