CurrencyToComp

procedure CurrencyToComp(Value: Currency; var Result: Comp); cdecl;

Konwertuje liczbę typu Currency na wartość Comp. Należy zauwayżyć, że nie jest to funkcja lecz procedura która zwraca rezultat w postaci referencji (parametr Result):

var
  Foo : Comp;
  Bar : Currency;
begin
  Bar := 100;
  CurrencyToComp(Bar, Foo);
  Writeln(Foo);
end.

Zobacz też:

• CompToCurrency
• DoubleToComp
• CompToDouble