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.