Forum: Object-Pascal / Delphi-Language
by Tytomik,
2. Mär 2011
danke es geht. Ich hatte den If satz zu spend mit end beendet.
Forum: Object-Pascal / Delphi-Language
by Tytomik,
2. Mär 2011
Aphton wenn ich das mache wie du geht das mit dem rest aber das geteilt nicht mehr reagiert der button garnicht??
Forum: Object-Pascal / Delphi-Language
by Tytomik,
2. Mär 2011
aber wenn man das ohne round macht also auch mit integer zaheln geht das nicht warum??
Forum: Object-Pascal / Delphi-Language
by Tytomik,
2. Mär 2011
ach so ich habe da ja vergessen woher der String kommt aber irr-wie zeigt er mir immer noch ne fehlermeldung an:
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);
Forum: Object-Pascal / Delphi-Language
by Tytomik,
2. Mär 2011
Danke aber wie müsste das den dann heißen?
a:=round(strtofloat);