if...then...else

[Jarie]

Ja, das hab ich jetzt mittlerweile so vor.
Dann fiel mri aber grade noch ein Problem auf:
Zahl kommt ins 1. Label
+ drücken und zahlen sollen ins Zweite
= drücken und Computer soll addieren, woher soll der Com aber wissen, wenn man nachher noch mehrere Rechenoperatoren hat, was er jetzt rechnen muss? Ob Plus oder Minus oder geteilt?
Also mittlerweile sieht's bei mir so aus:

Delphi-Quellcode:

var
  Form1: TForm1;
  CurrentLabel: TLabel;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
  begin
    CurrentLabel.Caption:= Form1.Label5.Caption + '1';
end;

procedure TForm1.Button2Click(Sender: TObject);
  begin
    CurrentLabel.Caption:= Form1.Label5.Caption + '2';
end;

procedure TForm1.Button3Click(Sender: TObject);
  begin
    CurrentLabel.Caption:= Form1.Label5.Caption + '3';
end;

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

procedure TForm1.Button5Click(Sender: TObject);
  begin
    CurrentLabel.Caption:= Form1.Label5.Caption + '5';
end;

procedure TForm1.Button6Click(Sender: TObject);
  begin
    CurrentLabel.Caption:= Form1.Label5.Caption + '6';
end;

procedure TForm1.Button7Click(Sender: TObject);
  begin
    CurrentLabel.Caption:= Form1.Label5.Caption + '7';
end;

procedure TForm1.Button8Click(Sender: TObject);
  begin
    CurrentLabel.Caption:= Form1.Label5.Caption + '8';
end;

procedure TForm1.Button9Click(Sender: TObject);
  begin
    CurrentLabel.Caption:= Form1.Label5.Caption + '9';
end;

procedure TForm1.Button10Click(Sender: TObject);
  begin
    CurrentLabel.Caption:= Form1.Label5.Caption + '0';
end;

procedure TForm1.Button11Click(Sender: TObject);
  begin
    Form1.Label5.Caption:= CurrentLabel.Caption;
end;

procedure TForm1.Beenden1Click(Sender: TObject);
  begin
    Close;
end;

procedure TForm1.FormCreate(Sender: TObject);
  begin
    CurrentLabel:=Form1.Label5;
end;

end.