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ż: