Taschenrechner mit Rest (6/5= 1 rest 1)

[rollstuhlfahrer]

Und gib bitte den Komponenten aussagekräftige Namen. Button1-Button6 sagen NICHTS aus.

Bernhard

[Tytomik]

Danke aber wie müsste das den dann heißen?
a:=round(strtofloat);

[Tytomik]

ach so ich habe da ja vergessen woher der String kommt aber irr-wie zeigt er mir immer noch ne fehlermeldung an:

Delphi-Quellcode:

procedure TForm1.Button6Click(Sender: TObject);
begin
a:=round(strtofloat(Edit1.Text));
b:=round(strtofloat(Edit2.Text));
c:=a div b;
Label1.caption:=floattostr(c);
d:=a mod b;
Label2.Caption:=floattostr(d);
end;
end.

[Spanky]

Wie lautet denn die Fehlermeldung?

[Aphton]

Ja, weil a und b Fließkommawerte sind und "div" nur bei Ganzzahlen (Integer) funktioniert.
Dafür einfach die Variablen lokal vom Typ Integer deklarieren!

[Aphton]

Also so...

Delphi-Quellcode:

procedure TForm1.Button6Click(Sender: TObject);
var
  neuA, neuB, neuC, neuD: Integer;
begin
neuA:=round(strtofloat(Edit1.Text));
neuB:=round(strtofloat(Edit2.Text));
neuC:=neuA div neuB;
Label1.caption:=inttostr(neuC);
neuD:=neuA mod neuB;
Label2.Caption:=inttostr(neuD);
end;

[Tytomik]

aber wenn man das ohne round macht also auch mit integer zaheln geht das nicht warum??

[Tytomik]

Aphton wenn ich das mache wie du geht das mit dem rest aber das geteilt nicht mehr reagiert der button garnicht??

[Aphton]

Zitat von Tytomik:

(...) aber das geteilt nicht mehr reagiert der button garnicht??

Häh?

[xdboyking]

4:5