gleitkommaoperation ???

[thomas2009]

Hallo

kann jemand mir sagen wo des Problem ist ?
Ich erhalte diese Fehler-Meldung: gleitkommaoperation
Edit2.Text := IntToStr(Round( (StrToInt(Edit1.Text)*25.4) /(GetDeviceCaps(DC,LOGPIXELSX))));

[fkerber]

Hi!

Du versuchst einen Float (Kommazahl) mit einer Funktion umzuwandeln, die einen Integer (Ganzzahl) erwartet.

Versuche es mal mit FloatToStr

Wenn man ein round überliest, sollte man besser nicht antworten



Ciao, Frederic

[jaenicke]

Zitat von thomas2009:

Ich erhalte diese Fehler-Meldung: gleitkommaoperation

Ungültige Gleitkommaoperation?

Ich vermute, dass GetDeviceCaps 0 zurückgibt, vielleicht weil der DC ungültig ist. Hast du einmal die einzelnen Bestandteile debuggt? Also was GetDeviceCaps zurückgibt z.B.?
Oder steht im Editfeld kein Integer?

Der Code an sich ist ansonsten korrekt.

[thomas2009]

Aber warum der Code hier funktioniert ?

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var pixel_cm : Single;
begin
  pixel_cm :=(GetDeviceCaps(DC,LOGPIXELSX)/2.54);
 Edit1.Text:=FloatToStr(pixel_cm); 
Edit2.Text:=IntToStr(Round(Form1.Width/pixel_cm));
 
end;

Edit:
der Code oben funktioniert aber nicht wenn ich ihn in mein Projekt lege
sondern in ein neues Projekt getestet
Waran kann das liegen ?
warum funktioniert der Code in ein Projekt und in das andere nicht ?

[nuclearping]

[entfernt]

Tante Edith kam rein und meinte "Egal, ich geh erstmal 'n Tee trinken."

[jaenicke]

Zitat von thomas2009:

der Code oben funktioniert aber nicht wenn ich ihn in mein Projekt lege
sondern in ein neues Projekt getestet
Waran kann das liegen ?
warum funktioniert der Code in ein Projekt und in das andere nicht ?

Was ist DC denn bei dir? Wozu die globale Variable und wo wird dieser ein Wert zugewiesen?

Wie gesagt: hast du einmal debuggt was bei den einzelnen Werten herauskommt?