24-12-2013, 10:31 PM
بسم الله الرحمن الرحيم
السلام عليكم و رحمة الله و بركاته
![[صورة: attachment.php?attachmentid=4203&stc=1&d=1386951635]](http://www.delphi4arab.net/forum/attachment.php?attachmentid=4203&stc=1&d=1386951635)
في الحقيقة عانيت من هذه المشكلة كثيرا في قواعد البيانات ، حيث المشكلة تكمن في أن تغيير الإعدادات الإقليمية لتتناسب مع برنامجك خاصة الفاصلة و طبعا ان كنت تبرمج برنامج تجاري فهذا الأمر مرهق و متعب ، لذا و يعد تقليب النت
وجدت هذا الكود الذي يقوم بتغيير الفاصلة حيث أنك تجدها في بعض الأحيان " , " و في بعض الأحيان "." و من خلال الكود تقوم أنت بجعلها كما تحب فإما " , " و إما "." كما يفضلها الكثيرون
حيث أننا في الـ OnCreate الخاصة بالنافذة الرئيسية للبرنامج نقوم بجعل الفاصلة الإفتراضية في الويندوز "." .
و لا تنسونا من صالح دعائكم.
السلام عليكم و رحمة الله و بركاته
في الحقيقة عانيت من هذه المشكلة كثيرا في قواعد البيانات ، حيث المشكلة تكمن في أن تغيير الإعدادات الإقليمية لتتناسب مع برنامجك خاصة الفاصلة و طبعا ان كنت تبرمج برنامج تجاري فهذا الأمر مرهق و متعب ، لذا و يعد تقليب النت
وجدت هذا الكود الذي يقوم بتغيير الفاصلة حيث أنك تجدها في بعض الأحيان " , " و في بعض الأحيان "." و من خلال الكود تقوم أنت بجعلها كما تحب فإما " , " و إما "." كما يفضلها الكثيرون كود :
procedure TForm1.FormCreate(Sender: TObject);
var
Locale : LongInt;
begin
Locale := GetUserDefaultLCID();
SetLocaleInfo(Locale, LOCALE_SThousand, '''');
SetLocaleInfo(Locale, LOCALE_SDecimal, '.');
SendMessage(HWND_BROADCAST,WM_WININICHANGE,0,0);
end;
end.و لا تنسونا من صالح دعائكم.
