Turkçe UpperCase&LowerCase

Yazdığınız makaleleri ve üyelerimizin işine yarayacağını düşündüğünüz kodlarınızı gönderebilirsiniz. Bu foruma soru sormayın!
Cevapla
Kullanıcı avatarı
Lost Soul
Üye
Mesajlar: 1064
Kayıt: 01 Nis 2007 02:55
Konum: mekan ANKARA toprak ELAZIĞ
İletişim:

Turkçe UpperCase&LowerCase

Mesaj gönderen Lost Soul »

Bilindiği üzere uppercase&lowercase fonksiyonları türkçe karakteri desteklemiyor.
bunun yerine ansiuppercase ve ansilowercase fonksiyonları var
ancak onlarda 'i','ı' harflerinde işe yaramıyor.

Bunun Yerine aşağıdaki fonksiyonu kullanabilirsiniz.

Kod: Tümünü seç

Function UpperCaseTr(S:String):String;
Begin
  Result:=AnsiUpperCase(StringReplace(StringReplace(S,'ı','I',[rfReplaceAll]),'i','İ',[rfReplaceAll]));
End;

Function LowerCaseTr(S:String):String;
Begin
  Result:=AnsiLowerCase(StringReplace(StringReplace(S,'I','ı',[rfReplaceAll]),'İ','i',[rfReplaceAll]));
End;
Cevapla