Registriert seit: 30. Apr 2004
Ort: Saarland, Europe
43 Beiträge
Delphi 7 Enterprise
|
Re: Hilfe zum Programmieren eines Taschenrechners!
6. Jul 2004, 21:04
dies hier geschieht bei einem doppelklick auf deinen "rechnen"-knopf
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
vzahl1, vzahl2, vzahlergebnis : integer; //variablen anlegen vom typ ganzzahlen
vStr : string; //variable vom typ text anlegen
begin
vzahl1 := strtoint(edit1.Text); //text vom ersten edit-feld in eine zahl umwandeln
vzahl2 := strtoint(edit2.Text); // text vom 2.ten edit-feld in eine zahl umwandeln
vzahlergebnis := vzahl1 + vzahl2; // es werden beide zahlen addiert, geht auch dein - oder * oder div (für geteilt)
vstr := inttostr(vzahlergebnis); // zahlen wieder in text umwandeln und der string(text)variable vstr zuordnen
Edit3.Text := vstr; // dein ergebnis in edit3 feld ausgeben
end;
|