Rechenprogramm

[dtos]

Da ich noch ein absoluter anfänger in Delphi bin habe ich auch so eine Frage:

Ich will halt ein Rechenprogramm erstellen halt so was wie es den unter Windows schon installiert ist.

Ich wollte erstmal mit etwas einfachen anfangen also wollt ich erstmal zwei eingabefelder erstellen und einen Label wo das Ergebnis zu sehen ist. Achja und einen Button halt der das ergebnis anzeigt auf dem Label.
So alles wunderbar hab es gemacht so wie es in einen Turorial stand mit dem Code damit das Programm auch die beiden Eingaben Addiert.

Sieht bei mir so aus:

Delphi-Quellcode:

 Label3.Caption := Edit1.Text + Edit2.Text;

ich habe es auch mit Variabel versucht aber das Programm rechnet das nicht aus sonder gibt mir auf dem Label die beiden Zahlen hintereinanderweg geschrieben.

Also wenn ich in Feld 1 eingebe: 10
Und in Feld 2 eingebe: 10

Dann rechnet er nicht 10 + 10 und zeigt 20 an sonder er zeigt 1010 an.

Achja ich benutze Delphi 2007.

Ich hoffe jemand kennt die Antwort.

[Klaus01]

Hallo,

zum Rechnen solltest Du die Strings in Edit1.Text und Edit2.Text erst einmal
in Zahlen umwandeln. Das kannst Du mit StrToInt machen.
Das Ergebnis solltest Du dann wieder in einen String wandeln z.B. mit IntToStr.

Grüße
Klaus

[Aurelius]

Das ist ganz einfach:

Edit1.Text ist ein String, also eine Zeichenkette. Das heißt dass Delphi das Geschriebene nichta ls "echte" Zahlen, sondern nur als Zeichen behandelt und somit die beiden Strings der Edit-Felder aneinander packt.

Um zu rechnen musst du den text in einen Zahlenwert umwandeln, z.b. in eine Ganzzahl (integer)

Delphi-Quellcode:

Zahl1 := StrToInt(Edit1.Text);

Wenn du es ausgeben möchtest musst du es genau umgekehrt machen, z.b.

Delphi-Quellcode:

Edit3.Text := InttoStr(Ergebnis);

[dtos]

Sieht bei mir jetzt so aus funktioniert aber trotzdem nicht:

Delphi-Quellcode:

 procedure TForm1.Button1Click(Sender: TObject);

var zahl1, zahl2, ergebnis : integer;

begin

Zahl1 := StrToInt(Edit1.Text);
Zahl2 := StrToInt(Edit2.Text);

ergebnis := Zahl1+Zahl2;

Label3.Caption := Inttostr(ergebnis);


end;

[DeddyH]

Was heißt "funktioniert nicht"? Der Code ist schonmal OK (von fehlenden Fehlerprüfungen abgesehen).

[lbccaleb]

gibt er dir ne fehlermeldung oder was genau funktioniert nicht sollte nämlich eigentlich so laufen..

[dtos]

Ja der gibt trotzdem noch z.B. (10+10) = 1010 aus anstatt 20.

[DeddyH]

Hast Du auch neu kompiliert?

[dtos]

Ja kompilieren ist ja Programm Starten oder nicht. Also F9 bei delphi 2007

[Aurelius]

Lösch einfach mal die ".dcu"-Dateien aus dem ProjektOrdner.

[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:

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: