Anasayfa > Kodlar > Delphi ile büyük küçük harf çevirmek

Delphi ile büyük küçük harf çevirmek

Delphi'de yazdığım bu fonksiyon (Bharf(Kar:string;mod:char):string;) değeri ile belirtilen string'i  'B' modu ile büyük harfe  'K' modu ile küçük Harfe  'I' modu ile de ilk harfi büyük diğerleri küçük olacak şekilde cevirim yapar.  Bence en büyük  avantajı Tükçe karakterleri desteklemesi ör: diğer çevirim fonksiyonlarında
'i' harfi büyüğe çevrildiğinde 'I' olarak çevirmekte ama bu fonksiyon 'İ' olarak çevir. vb.


function Bharf( Kar,BK:string):string;
var
Uz:integer;
K:integer;
Durum:char;
begin
Kar:=trimleft(Kar);
Uz:=length(Kar);
Durum:=BK[1];
Bharf:=";
{***} if Uz>0 then begin

for k:=1 to uz do begin
if (upcase(Durum)='K')or (upcase(Durum)='I')  then   begin

if Kar[k]=#65 then Kar[k]:=#97;  { a } if Kar[k]=#66 then Kar[k]:=#98;   { b }
if Kar[k]=#67 then Kar[k]:=#99;  { c } if Kar[k]=#199 then Kar[k]:=#231; { ç }
if Kar[k]=#68 then Kar[k]:=#100; { d } if Kar[k]=#69 then Kar[k]:=#101;  { e }
if Kar[k]=#70 then Kar[k]:=#102; { f } if Kar[k]=#71 then Kar[k]:=#103;  { g }
if Kar[k]=#208 then Kar[k]:=#240;{ ğ } if Kar[k]=#72 then Kar[k]:=#104;  { h }
if Kar[k]=#73 then Kar[k]:=#253; { ı } if Kar[k]=#221 then Kar[k]:=#105; { i }
if Kar[k]=#74 then Kar[k]:=#106; { j } if Kar[k]=#75 then Kar[k]:=#107;  { k }
if Kar[k]=#76 then Kar[k]:=#108; { l } if Kar[k]=#77 then Kar[k]:=#109;  { m }
if Kar[k]=#78 then Kar[k]:=#110; { n } if Kar[k]=#79 then Kar[k]:=#111;  { o }
if Kar[k]=#214 then Kar[k]:=#246;{ ö } if Kar[k]=#80 then Kar[k]:=#112;  { p }
if Kar[k]=#82 then Kar[k]:=#114; { r } if Kar[k]=#83 then Kar[k]:=#115;  { s }
if Kar[k]=#222 then Kar[k]:=#254;{ ş } if Kar[k]=#84 then Kar[k]:=#116;  { t }
if Kar[k]=#85 then Kar[k]:=#117; { u } if Kar[k]=#220 then Kar[k]:=#252; { ü }
if Kar[k]=#86 then Kar[k]:=#118; { v } if Kar[k]=#89 then Kar[k]:=#121;  { y }
if Kar[k]=#90 then Kar[k]:=#122; { z } if Kar[k]=#88 then Kar[k]:=#120;  { x }
if Kar[k]=#87 then Kar[k]:=#119; { w } if Kar[k]=#81 then Kar[k]:=#113;  { q }

if k=1 then begin
if (upcase(Durum)='I') then begin
if Kar[1]=#105 then Kar[1]:=#221; { İ }
if Kar[1]=#231 then Kar[1]:=#199; { Ç } if Kar[1]=#254 then Kar[1]:=#222; { Ş }
if Kar[1]=#253 then Kar[1]:=#73;  { I } if Kar[1]=#246 then Kar[1]:=#214; { Ö }
if Kar[1]=#240 then Kar[1]:=#208; { Ğ } if Kar[1]=#252 then Kar[1]:=#220; { Ü }
Kar[1]:=upcase(Kar[1]);
end;
end;

end;

if (upcase(durum)='B') then
begin
if Kar[k]=#105 then Kar[k]:=#221; { İ }
if Kar[k]=#231 then Kar[k]:=#199;{ Ç }  if Kar[k]=#254 then Kar[k]:=#222; { Ş }
if Kar[k]=#253 then Kar[k]:=#73; { I }  if Kar[k]=#246 then Kar[k]:=#214; { Ö }
if Kar[k]=#240 then Kar[k]:=#208;{ Ğ }  if Kar[k]=#252 then Kar[k]:=#220; { Ü }
Kar[k]:=upcase(Kar[k]);
end;

Bharf:=trimleft(kar);

end;
{***} end;

end;

Hasan şahin


TD Software


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

Bir Cevap Yazı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: