Anasayfa > Kodlar > Delphi ile Büyük-küçük harf dönüşümü (TR destekli)

Delphi ile Büyük-küçük harf dönüşümü (TR destekli)

Büyük-Küçük, Küçük-Büyük harf dönüşümleri standart fonksiyonlar ile türkçe karakterlerde sorun çıkarıyor. Bu fonksiyon ile pratik ve hılı bir şekilde bu dönüşümleri sağlayabilirsiniz.


function HarfCevir(s: string; M: integer = 0): string;
const
BH = 'ABCÇDEFGĞHIİJKLMNOÖPQRSŞTUÜVWXYZ';
KH = 'abcçdefgğhıijklmnoöpqrsştuüvwxyz';

var
k,b,h : integer;

begin
result:=s;
for h:=1 to length(s) do
begin
k:=pos(s[h],KH);
b:=pos(s[h],BH);

case m of
-1: if k>0 then result[h]:=BH[k]; // Küçükten büyüğe

0: if h=1 then                  // Yalnız başharf büyük
begin
if k>0 then result[h]:=BH[k];
end
else
if b>0 then result[h]:=KH[b];

1: if b>0 then result[h]:=KH[b];  // Büyükten küçüğe
end;
end;
end;


TD Software


Reklamlar
  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Yanıt Bırakın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: