CompToDouble
Moduł: System
function CompToDouble(Value: Comp): Double; cdecl;
Konwertuje wartość typu Comp na liczbę typu Double:
var
Foo : Comp;
Bar : Double;
begin
Foo := 100;
Bar := CompToDouble(Foo);
Writeln(Bar);
end.
Zobacz też: