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:

01Function BuyukKucukHarfDegistir(kelime: string; tip: integer): string;
02var
03  buyuk, kucuk: string;
04  j, i: integer;
05Begin
06  {
07  0 tümü küçük
08  1 TÜMÜ BÜYÜK
09  2 Sadece İlk harf büyük
10  3 Her Kelimenin İlk Harfi Büyük
11  }
12  buyuk:='ABCÇDEFGĞHIİJKLMNOÖPRSŞTUÜVYZQWX';
13  kucuk:='abcçdefgğhıijklmnoöprsştuüvyzqwx';
14  for i:=length(Kelime) downto 1 do
15    for j:=32 downto 1 do
16      if (kelime[i]=buyuk[j]) or (kelime[i]=kucuk[j]) then
17        case tip of
18          0: kelime[i]:=kucuk[j];
19          1: kelime[i]:=buyuk[j];
20          2: if i=1 then
21              kelime[i]:=buyuk[j];
22            //else
23            //  kelime[i]:=kucuk[j];
24          3: if i=1 then
25              kelime[i]:=buyuk[j]
26            else if (kelime[i - 1]=' ') or (kelime[i - 1]='.') then
27              kelime[i]:=buyuk[j]
28            else
29              kelime[i]:=kucuk[j];
30        end;
31  Result:=kelime;
32end;