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

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
dr_ebuzer
Üye
Mesajlar: 30
Kayıt: 29 Eki 2005 08:26

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

Mesaj gönderen 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
Kullanıcı avatarı
conari
Üye
Mesajlar: 2102
Kayıt: 27 Nis 2006 03:10
Konum: İstanbul & Gebze Karışık

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

Mesaj gönderen conari »

şuraya bakın ama soru sormadan ilk önce :ara yapınız.
viewtopic.php?f=19&t=18362
Bir kelimenin anlamını öğretsen bile yeter..
ResimResim
dr_ebuzer
Üye
Mesajlar: 30
Kayıt: 29 Eki 2005 08:26

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

Mesaj gönderen 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
Üye
Mesajlar: 226
Kayıt: 01 Eki 2007 04:39
Konum: İzmir
İletişim:

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

Mesaj gönderen 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
Üye
Mesajlar: 30
Kayıt: 29 Eki 2005 08:26

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

Mesaj gönderen 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
Üye
Mesajlar: 226
Kayıt: 01 Eki 2007 04:39
Konum: İzmir
İletişim:

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

Mesaj gönderen 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
Üye
Mesajlar: 30
Kayıt: 29 Eki 2005 08:26

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

Mesaj gönderen dr_ebuzer »

khanco yazdı: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
Cevapla