Rechenprogramm

[dtos]

Geht trotzdem nicht...

[DeddyH]

Mach mal in der Entwurfsansicht einen Doppelklick auf den Button. Springt Delphi dann auf den geposteten Code?

[dtos]

Ahh auf einmal geht es weiß auch nicht warum aber es geht.

Danke an alle

[dtos]

Kann mir jemand ein Tutorial geben wie ich das hier verwirklichen kann ? (Bild)

[Tarry]

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

[dtos]

Bei mir gibt er mir hier schon eine Fehlermeldung:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
begin
Edit2.Text := Edit2.Text + '1';
end;

[Tarry]

welchen denn ? (Screen)
Bei mir funktioniert der Einwandfrei...

[dtos]

Diese Meldung: