Delphi gleitkommaoperation ???

Thema durchsuchen

Ansicht

Themen-Optionen

gleitkommaoperation ???

Ein Thema von thomas2009 · begonnen am 5. Feb 2009 · letzter Beitrag vom 6. Feb 2009

Antwort

thomas2009

(Gast)

n/a Beiträge

Re: gleitkommaoperation ???

6. Feb 2009, 00:01

Aber warum der Code hier funktioniert ?

markieren

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 ?