MaxValue: Currency;
Свойство MaxValue возвращает максимальное значение типа Currency.
Sub UserProc;
Var
c: Currency;
Begin
c := Currency.MaxValue;
End Sub UserProc;
После выполнения примера в переменной «c» будет содержаться максимальное значение типа Currency, т.е. значение 922337203685477,5807.
См. также: