Büyük - Küçük Harf

[onur301]

Kod: Tümünü seç

Function BuyukHarf(Harf: Char): Char; 
begin 
     case Harf of 
          'ı': Result:='I'; 
          'ğ': Result:='Ğ'; 
          'ü': Result:='Ü'; 
          'ş': Result:='Ş'; 
          'i': Result:='İ'; 
          'ö': Result:='Ö'; 
          'ç': Result:='Ç'; 
     else 
         Result:=UpCase(Harf); 
     end; 
end;

arkadaşlar forum da arama sonucunda yukarıdaki çözümü buldum...
bu yöntem çok güzel, ama bu yöntemi tek formda değilde bütün formlarda kullanmalıyım... bunu ApplicationEvent bileşeni ile yapabilirmiyim???
veya nasıl yaparım

[t-hex]

Merhaba,
Bu fonksiyonu bir unit içine koyup kullanmak istediğin her formun unitnin uses kısmına adını ekle, o zaman kullanabilirsin.

[mkysoft]

function bkmetin(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 İ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:= 29 downto 1 do
if (kelime = buyuk[j]) or (kelime = kucuk[j]) then
case tip of
0: kelime := kucuk[j];
1: kelime := buyuk[j];
2: if i = 1 then
kelime := buyuk[j]
else
kelime := kucuk[j];
3: if i = 1 then
kelime := buyuk[j]
else
if (kelime[i-1]=' ') or (kelime[i-1]='.') then
kelime := buyuk[j]
else
kelime := kucuk[j];
end;
Result := kelime;
end;

umarım işinize yarar.