03-03-2009, 05:23 PM
بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله
السلام عليكم ورحمة الله
الإشكال:
يسأل الكثيرون عن كيفية ضبط بعض الإعدادات الإقليمية خاصة تلك المتعلقة بعرض البيانات في برامج قواعد البيانات، كالعملة النقدية ورمز الفاصلة و ...
الحل:
هناك حلول كثيرة وأسهلها...
الطريقة الأولى: ضبك الإعدادات المتعلقة بالبرنامج، وأعتقد أنه الحل المثالي في هذه الحالة.
بضبط الإعدادات بشكل افتراضي وضبط قيمة UpdateFormatSettings على False في كود المشروع الرئيسي، مع إضافة الوحدة SysUtils في الحقل Uses، يصبح كود وحدة المشروع من الشكل:
PHP كود :
program Project1;
uses
Forms, SysUtils,
Unit1 in 'Unit1.pas' {Form1};
{$R *.res}
begin
Application.Initialize;
(*
//للتحقق من تثبيت BDE ويتطلب تعريف الوحدة BDE
if dbiInit(nil) <> DBIERR_NONE then begin
//استعمال Exception يتطلب تعريف الوحدة SysUtils
raise Exception.Create('Borland DataBase Engine is not installed.');
Application.Terminate;
end;
*)
//تعطيل عملية تحديث الإعدادات الإقليمية
Application.UpdateFormatSettings := False;
//Modifier le format monétaire (requis l'unité SysUtils)
DecimalSeparator := ','; //رمز الفاصلة
CurrencyString := 'Dinar';//رمز العملة
CurrencyFormat := 3;
CurrencyDecimals := 2;
ThousandSeparator := ' ';
(*
//فاصل التاريخ
DateSeparator := '/';
ShortDateFormat := 'dd/MM/yyyy';
*)
Application.CreateForm(TForm1, Form1);
Application.Run;
end.
أما إذا أردت تغيير الإعدادات الإقليمية لدى مستعمل البرنامج فالوضع يختلف...
الطريقة الثانية: باستعمال الدالة SetLocaleInfoالمعرفة في الوحدة Windows من kernel32 يمكن التوغل في Local Settings وتمرير أحد القيم المتعلقة بـ TFormatSettings.
لمزيد من المعلومات ألق نظرة على شرح مفصل للدالة:
SetLocaleInfo
ولمعرفة الإعدادات الإقليمية الحالية نستعمل الدالة GetLocaleInfo مع تخزين النتيجة في متغير من النوع TFormatSettings
معلومات حول الدالة: GetLocaleInfo
أعددت مثال صغير أو بريمج يبين باستعمال الدالتين كيفية قراءة وتعديل بعض الإعدادات الإقليمية الشهيرة، اقصرت في هذا المثال على المتغيرات: CurrencyString ، ShortDateFormat، ShortTimeFormat، DecimalSeparator، ويمكن تعديل متغيرات أخرى.
يقوم البرنامج في أول إنشائه بإضافة الإعدادات الحالية في TComboBox، وعند كل تنشيط لإطار النموذج يسترجع الإعدادات الحالية، والأزرار تغير الإعدادات.
ملاحظات:
- تغيير إعدادات إقليمية حالة استثنائية، تستخدم في حالات خاصة، والأولى اللجوء الطريقة الأولى.
- من غير اللائق تغيير أي قيمة في الويندوز من غير تنبيه مسبق لمستعمل البرنامج.
- لا يزال مشكل Unicode يظهر عند قراءة رموز غير مدعمة (الكود كان على Delphi 7)
كود المثال في المرفقات...
كاقتراحات إضافية للمثال يمكن إضافة خيار حفظ الإعدادات الحالية في ملف INI، معاينة شكل البيانات قبل وبعد تعديلها و...و...و... واقتراحاتكم وملاحظاتكم في الانتظار