Einzelnen Beitrag anzeigen

NeRoFiX

Registriert seit: 30. Apr 2004
Ort: Saarland, Europe
43 Beiträge
 
Delphi 7 Enterprise
 
#22

Re: Hilfe zum Programmieren eines Taschenrechners!

  Alt 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;
  Mit Zitat antworten Zitat