3
{ This program demonstrates the FloatToStrF function }
7
Const Fmt : Array [TFloatFormat] of string[10] =
8
('general','exponent','fixed','number','Currency');
10
Procedure Testit (Value : Extended);
19
For FF:=ffgeneral to ffcurrency do
21
Write (Value,'(Prec: ',I:2,', Dig: ',J,', fmt : ',Fmt[ff],') : ');
22
SetLength(S,FloatToText (@S[1],Value,FF,I,J));
24
Write (-Value,'(Prec: ',I:2,', Dig: ',J,', fmt : ',Fmt[ff],') : ');
25
SetLength(S,FloatToText (@S[1],-Value,FF,I,J));
b'\\ No newline at end of file'