في إصدارات دلفي الحديث تم تجميع الإعدادات الإقليمية في المتغير FormatSettings بشكل Static:
مثال:
طبعا لا تنسى إضافة الوحدة SysUtils.
بالتوفيق.
كود :
FormatSettings.ShortDateFormat := 'dd.mm.yyyy';
FormatSettings.DecimalSeparator := '.';
FormatSettings.CurrencyString := 'Dinars';مثال:
كود :
procedure TForm1.Button1Click(Sender: TObject);
var
D: Double;
C: Currency;
begin
D := 12000.25;
C := D;
ShowMessage(DateToStr(Date));
ShowMessage(FloatToStr(D) );
ShowMessage(CurrToStrF(C, ffCurrency, 0) );
end;طبعا لا تنسى إضافة الوحدة SysUtils.
بالتوفيق.
اللهم احقن دماء المسلمين، لا تنسوهم بالدعاء...