CompToCurrency
Moduł: System
function CompToCurrency(Value: Comp): Currency; cdecl;Konwertuje liczbę w postaci Comp do liczby rzeczywistej typu Currency:
var
Foo : Comp;
Bar : Currency;
begin
Foo := 100;
Bar := CompToCurrency(Foo);
Writeln(Bar);
end.Zobacz też: