UpperCaseTr,LowerCaseTr

Yazdığınız makaleleri ve üyelerimizin işine yarayacağını düşündüğünüz kodlarınızı gönderebilirsiniz. Bu foruma soru sormayın!
Cevapla
Kullanıcı avatarı
ayhanarican
Üye
Mesajlar: 37
Kayıt: 03 Tem 2003 01:24
Konum: İzmir
İletişim:

UpperCaseTr,LowerCaseTr

Mesaj gönderen ayhanarican »

Basit ama kullanışlı olan bu iki fonksiyonun size yararlı olacağını umarım.

Kod: Tümünü seç

function UpperCaseTr(Str:String) : String;
Const
  buyukharf:String='ÇĞIİÖŞÜ';
  kucukharf:String='çğıiöşü';
Var
  I :Integer;
  NewStr:String;
Begin
  NewStr:='';
  For I:=1 To Length(Str) Do
   if Pos(Str[I],kucukharf)>0 Then
      NewStr:=NewStr+buyukharf[Pos(Str[I],kucukharf)]
   Else
      NewStr:=NewStr+UpperCase(Str[I]);
  Result:=NewStr;
End;
________________________________________

Kod: Tümünü seç

function LowerCaseTr(Str:String) : String;
Const
  buyukharf:String='ÇĞIİÖŞÜ';
  kucukharf:String='çğıiöşü';
Var
  I :Integer;
  NewStr:String;
Begin
  NewStr:='';
  For I:=1 To Length(Str) Do
   if Pos(Str[I],buyukharf)>0 Then
      NewStr:=NewStr+kucukharf[Pos(Str[I],buyukharf)]
   Else
      NewStr:=NewStr+LowerCase(Str[I]);
  Result:=NewStr;
End;
sair
Kıdemli Üye
Mesajlar: 288
Kayıt: 16 Haz 2003 04:41
Konum: Kastamonu
İletişim:

Mesaj gönderen sair »

AnsiUpperCase ve AnsiLowerCase bu işlemi yapıyor zaten :) Ama yinede teşekkürler
Geçip gideriz bizde ağızsız,dilsiz ve sorgusuz
İstanbul gibi düşeriz iki kıtaya birden...
En aşağılık düş, en büyük sevdadan belki
Erkek ölümler; bir uzun iç çekişle büyür göğsümüz
Cevapla