Delphi Taschenrechner

Guten Abend!
Hab heute angefangen Delphi zu lernen und habe auch gleich einen Taschenrechner programmiert,doch meine Frage, wie kann ich eine Geteiltaufgabe einbringen?
Mein bisheriger Code sieht so aus:

Code:

procedure TForm1.Button1Click(Sender: TObject);
var zahl1, zahl2, summe : Integer;
begin
  zahl1 := StrToInt(edit1.text);
  zahl2 := StrToInt(edit2.text);
  summe := zahl1+zahl2;
  label1.caption := IntToStr(summe);
end;

procedure TForm1.Button2Click(Sender: TObject);
var zahl1, zahl2, summe : Integer;
begin
  zahl1 := StrToInt(edit1.text);
  zahl2 := StrToInt(edit2.text);
  summe := zahl1-zahl2;
  label1.caption := IntToStr(summe);
end;

procedure TForm1.Button3Click(Sender: TObject);
var zahl1, zahl2, summe : Integer;
begin
  zahl1 := StrToInt(edit1.text);
  zahl2 := StrToInt(edit2.text);
  summe := zahl1*zahl2;
  label1.caption := IntToStr(summe);
end;

end.

Wenn ich es so versuche:
summe := zahl1/zahl2;
dann gehts nich....
Jemand eine Idee wie es funktioniert?

Gruß kruemel

 

So

Label1.Caption := FormatFloat('#,##0.00',Zahl1/Zahl2);

oder so

FmtStr(FormatiertStr,'%10.0n',[Zahl1/Zahl2]);
Label1.Caption := FormatiertStr;

 

Moin
Das es nicht geht liegt daran, dass du mit Integern arbeitest.
Nimm stattdessen Float!
Übrigens: Für's Rumrechnen bietet Math mehrere Funktionen.
Einfach oben bei Uses hinzufügen.

 

Danke für die Antworten,werde es mal mit Math versuchen

Gruß kruemel

 

schreib einfach mal die Label1.Caption vor der Summe zuweisung, denn du kannst summe nicht ausgeben wenn du ihr davor nichts nicht einen ausgabeort zugewiesen hast. Probier mal bitte, dürfte aber funktionieren...
MFG Mr._Bacon

 

@ Mr._Bacon

Der TO wird nach einem halben Jahr wohl eine Lösung gefunden haben...