Zitat von
dtos:
Kann mir jemand ein Tutorial geben wie ich das hier verwirklichen kann ? (Bild)
Ja, ...
Das ist im Grunde das selbe, wenn du auf die Buttons klickst, dann musst du die Zahl einfach an den "Text" in dem Editfeld "dranhängen":
Delphi-Quellcode:
procedure TForm1.bt3Click(Sender: TObject);
begin
edZahl.Text := edZahl.Text + '3'
end;
beim klicken auf einen "Rechenbutton" musst du die erste Zahl in einer Variablen speichern, die Rechenart und das Feld leeren:
Delphi-Quellcode:
MeineIntegerVariable := StrToInt(edZahl.Text);
MeineAndereIntegerVariable := 1; // z.B 1 für +, 2 für -, 3 für + und 4 für /
edZahl.Text := '';
Dann gibt der Nutzer die zweite Zahl ein und wenn er dann auf "=" klickt musst du nur die erste, gespeicherte Zahl mit der anderen zusammenrechnen, je nach dem worauf er vorher geklickt hat.
Delphi-Quellcode:
case of
1: IntToStr(MeineIntegerVariable + StrToInt(edZahl.Text));
2: ...
3: ...
4: ... // bei Geteilt ("/") darfst du das Round() nicht vergessen, wenn du nur ganze Zahlen haben möchtest
else ShowMessage('Sie müssen erst auf ein Rechenzeichen klicken'); // Der Benutzer hat auf kein Zeichen vorher geklickt
end;
MeineIntegerVariable := 0;
MeineIAndereIntegerVariable := -1;
Gruß
Tarry