Samstag

Ein Rechner


So, nun schreiben wir einen kleinen Rechner.Er soll nicht besonders gut sein aber einfach darstellen wie das Rechnen in Delphi Funktioniert.

Was wir brauchen:

2 Editfelder für die Zahlen mit denen wir Rechnen
1 Label für das Ergebnis
4 Buttons für + - * /

Hier wie es Funktioniert:

die Zahlen die in den Editfeldern stehen sind Strings, da man mit Strings nicht rechnen kann, sondern nur mit Integer(ganze Zahlen: 1,2,3,4...) und Real(Dezimalzahlen: 1,233535 etc.) müssen wir die Stringförmigen Zahlen erst umwandeln, dies ist ganz einfach.

Zu erst brauchen wir 2 Variablen, diese Deklarieren(Registrieren) wir global, da sie von mehreren Prozeduren benötigt werden einfach unter

Var
tform1: tform;

oder wie ihr euer Formular genannt habt, kommt dann noch

zahl1,zahl2: integer;

oder bei Dezimalzahlen

zahl1,zahl2: real;

Nun können wir den Variablen unsere Zahlen aus den Editfeldern zuweisen:

zahl1:=strtoint(edit1.text);
zahl2:=strtoint(edit2.text);

bei Real hieße es strtofloat.

Mit den Zahlen rechnen wir nun so:

zahl1:=strtoint(edit1.text);
zahl2:=strtoint(edit2.text);
label1.caption:=inttostr(zahl1+zahl2);

Dies wäre nun der Fall, dass wir ganze Zahlen benutzen, das inttostr deswegen weil das Label nur Strings anzeigen kann.
Im Falle von Real Variablen wäre es dann Floattostr.

Viel Spaß beim rumprobieren, und denkt daran dass man beim Dividieren keine Integer Variablen benutzen kann.

2 Kommentare:

Anonym hat gesagt…

Hi!
Eigentlich so ganz nett, aber warum deklarierst du nicht sofort die Variablen zahl1,zahl2 als real? Mit "ganzen Zahlen" rechnet man doch eh selten ;-).
Ich hätte es schön gefunden, wenn du das Programm mit einer "case of" - Auswahl realisiert hättest. Finde diese Methode eleganter. Außerdem spart man sich dadurch Tipparbeit ;-)

Glamr hat gesagt…

weil case of für anfänger unverständlich ist