edit'te bölgesel ayarları değiştirmek

[dr_ebuzer]

selam arkadaşlar şöyle bir sorunum var türkçe arapça bir sözlük programı hazırlıyorum sorunum şu:kullanıcı ister turkce ister arapca arama yapsın diye forma 2 adet edit yerleştirdim 1 editte türkçe arama 2 editte arapça arama yapılacak benim istediğim kullanıcı 1 ci edite girince windowsun bölgesel dil ayarları türkçe olsun,2 ci edite girincede windowsun bölgesel dil ayarları arapça olsun bunu nasıl bir kod kullanarak yapabilirim şimdiden teşekkürler.
not:xp kullanıyorum arapça dil desteği yüklü mause yle istediğim dili seçip kullanabiliyorum

[conari]

şuraya bakın ama soru sormadan ilk önce yapınız.
viewtopic.php?f=19&t=18362

[dr_ebuzer]

selam kardeşim kusura bakma arama yaparken bölgesel diye aramadığımdan bulamadım gönderdiğin cevap için teşekkür ederim.
yalnız ben function kullanmayı pek bilmiyorum bu kodlarıda daha önce kullanmadığımdan bunu biraz açıklıyabilirmisin mantığını anlıyabilmem için
yani şöyle
mesela:
var//değişken tanımlama
begin//başla
yani bu kodlarla ne demek istiyoruz

[khanco]

bunları daha önce tiicari olarak kasa programı yazan birisi ve 5 yıldan fazla programcılıkla uğraşmış birisi olarakmı soruyorsun ?
başka bir amaçlamı???

[dr_ebuzer]

güzel kardeşim khanco bu soruyu tabiki bilgi edinmek için soruyorum kasa programı yaparkende function ve procedur leri tam olarak çözemedim niyetim kimseyi boş yere uğraştırmak değil ne benim buna zamanım var ne de böyle bir şey benim karekterimde var sadece delphi dilini seviyorum özel uğraşlarım arasında ve delphi sitesi olarakta en beğendiğim site burası çünkü soruyu sorar sormaz bu işi bilen arkadaşlar yardım etmek için elinden geleni yapıyorlar

not:birde seni tenkit etmek istiyorum hemen her gelen sorunun altında kötü niyet aramana gerek yok burası delhi bilgi paylaşma formu bende delphiyle ilgili bir soru sordum alakasız bir şey sormadım cevabın için yinede teşekkür ederim.şimdi sana zahmet functionla veya procedurla ilgili faydalanacağım bir bilgin varsa o konuda yardım edersen sevinirim

[khanco]

var//değişken tanımlama
begin//başla
yani bu kodlarla ne demek istiyoruz


5 yıldan fazla program yapmakla ilgileniyorsun
var ne demek
begin end; ne demek diye soruyorsun

delphi helpinde detaylı bilgi var.
türleri kullanımları vb.

[dr_ebuzer]

var//değişken tanımlama
begin//başla
yani bu kodlarla ne demek istiyoruz


5 yıldan fazla program yapmakla ilgileniyorsun
var ne demek
begin end; ne demek diye soruyorsun

delphi helpinde detaylı bilgi var.
türleri kullanımları vb.

-------------------------------------------
sanırım bir yanlış anlaşılma var ben var,begin derken onları kasdetmiyorum yukarıdaki mumsimsek arkadaşımızın verdiği linkten mumsimsek kardeşimiz burda bir functiondan bahsetmis function şu:
function GetLocaleThousandSeparator: string;
var
L: Integer;
Buffer: array[0..255] of Char;
DefaultLCID: LCID;
begin
DefaultLCID := GetThreadLocale;
L := GetLocaleInfo(DefaultLCID, LOCALE_STHOUSAND, Buffer, SizeOf(Buffer));
if L > 0 then
SetString(Result, Buffer, L - 1)
else
Result := ',';
end;

function GetLocaleDecimalSeparator: string;
var
L: Integer;
Buffer: array[0..255] of Char;
DefaultLCID: LCID;
begin
DefaultLCID := GetThreadLocale;
L := GetLocaleInfo(DefaultLCID, LOCALE_SDECIMAL, Buffer, SizeOf(Buffer));
if L > 0 then
SetString(Result, Buffer, L - 1)
else
Result := '.';
end;
benim burda var veya begin deyip karşılığında değişken veya başla dememin sebebi bu functiondaki (mesela GetThreadLocale)nedir burda ne demek istiyoruz bu functionu nasıl kullanacağız onu demek istiyorum yanlış anlaşıldığımdan dolayıda herkesten özür dilerim şu fonksiyonu biliyorsanız karşılığına açıklama yazarsanız bende bu konuyu anlamış olurum teşekkürler