دخول

cargem · 23-08-2012, 12:26 PM

كود :
Example code : General display of numbers
 var
   amount1 : Extended;
 begin
   amount1 := 1234.567;

  // Display in Fixed format
   ShowMessage('Fixed formatting :');
   ShowMessage('');
   ShowMessage('Using 8,4 = '+FloatToStrF(amount1, ffFixed, 8, 4));
   ShowMessage('Using 4,4 = '+FloatToStrF(amount1, ffFixed, 4, 4));
   ShowMessage('Using 4,2 = '+FloatToStrF(amount1, ffFixed, 4, 2));
   ShowMessage('Using 2,4 = '+FloatToStrF(amount1, ffFixed, 2, 4));

  // Display in General format
   ShowMessage('');
   ShowMessage('General formatting :');
   ShowMessage('');
   ShowMessage('Using 8,4 = '+FloatToStrF(amount1, ffGeneral, 8, 4));
   ShowMessage('Using 4,4 = '+FloatToStrF(amount1, ffgeneral, 4, 4));
   ShowMessage('Using 4,2 = '+FloatToStrF(amount1, ffGeneral, 4, 2));
   ShowMessage('Using 2,4 = '+FloatToStrF(amount1, ffGeneral, 2, 4));

  // Display in Number format
   ShowMessage('');
   ShowMessage('Number formatting :');
   ShowMessage('');
   ShowMessage('Using 8,4 = '+FloatToStrF(amount1, ffNumber, 8, 4));
   ShowMessage('Using 4,4 = '+FloatToStrF(amount1, ffNumber, 4, 4));
   ShowMessage('Using 4,2 = '+FloatToStrF(amount1, ffNumber, 4, 2));
   ShowMessage('Using 2,4 = '+FloatToStrF(amount1, ffNumber, 2, 4));
 end;

result///

كود :
Fixed formatting :
   
   Using 8,4 = 1234.5670
   Using 4,4 = 1235.0000
   Using 4,2 = 1235.00
   Using 2,4 = 1.2E0003
   
   General formatting :
   
   Using 8,4 = 1234.567
   Using 4,4 = 1235
   Using 4,2 = 1235
   Using 2,4 = 1.2E0003
   
   Number formatting :
   
   Using 8,4 = 1,234.5670
   Using 4,4 = 1,235.0000
   Using 4,2 = 1,235.00
   Using 2,4 = 1.2E0003

دخول
اسم المستخدم/البريد الالكتروني :
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة