Btgunluk.com

Delphi'de Cümlenin İlk Harfini Büyütme(Türkçe Destekli)

Delphi'de harf büyütmek iin UpperCase adında bir fonksiyon var. Ancak eski Delphi sürümlerinde bu fonksiyon Türkçe karakterlerde(ş ü ö İ ğ ı ç) sorun çıkarıyor.

O yüzden Delphi 7'de harf büyütme işlemleri için burada bulup bir miktar değiştirdiğim aşağıdaki fonksiyonu kullanıyorum:

Function BuyukKucukHarfDegistir(kelime: string; tip: integer): string;
var
  buyuk, kucuk: string;
  j, i: integer;
Begin
  {
  0 tümü küçük
  1 TÜMÜ BÜYÜK
  2 Sadece İlk harf büyük
  3 Her Kelimenin İlk Harfi Büyük
  }
  buyuk:='ABCÇDEFGĞHIİJKLMNOÖPRSŞTUÜVYZQWX';
  kucuk:='abcçdefgğhıijklmnoöprsştuüvyzqwx';
  for i:=length(Kelime) downto 1 do
    for j:=32 downto 1 do
      if (kelime[i]=buyuk[j]) or (kelime[i]=kucuk[j]) then
        case tip of
          0: kelime[i]:=kucuk[j];
          1: kelime[i]:=buyuk[j];
          2: if i=1 then
              kelime[i]:=buyuk[j];
            //else
            //  kelime[i]:=kucuk[j];
          3: if i=1 then
              kelime[i]:=buyuk[j]
            else if (kelime[i - 1]=' ') or (kelime[i - 1]='.') then
              kelime[i]:=buyuk[j]
            else
              kelime[i]:=kucuk[j];
        end;
  Result:=kelime;
end;

Fonksiyonun kullanımı:

edit1.Text:=BuyukKucukHarfDegistir(edit1.text,2);

14.01.2017 10:59:26

Yorumlar