|
(Co-Admin)
Registriert seit: 29. Mai 2002
Ort: Hamburg
11.117 Beiträge
Delphi 11 Alexandria
|
Re: Extended / integer
2. Okt 2004, 21:43
Moin Homer,
[EDIT]
Mist, zu spät 
[/EDIT]
So funktioniert's bei mir
Delphi-Quellcode:
var
iVar : integer;
eExt : extended;
iRes : integer;
eRes : extended;
begin
eExt := 1.001;
iVar := 1000;
iRes := trunc(eExt / iVar);
eRes := eExt / iVar;
ShowMessage(IntToStr(iRes)+#13#10+FloatToStr(eRes));
end;
Tschüss Chris
Die drei Feinde des Programmierers: Sonne, Frischluft und dieses unerträgliche Gebrüll der Vögel.
Der Klügere gibt solange nach bis er der Dumme ist
|