Türkçe karakterlerde uppercase - lowercase işlemi

Başlatan z, 27 Eylül 2019, 22:36:35

z

Bir string Türkçe karakterler içeriyorsa stringde uppercase - lowercase işlemi nasıl yapılıyor?

Delphi editoru icinde program yazarken kod icinde  Turkce karakter yazamadigim icin elim kolum baglandi.


Bana e^st de diyebilirsiniz.   www.cncdesigner.com

z

function Upper(sstring) : string;
var
  
Asc Byte;
  
Integer;
begin
  
for := 1 to length(s) do
    
begin
       Asc 
:= Ord(s[i]);
       if 
ASC=240 then S[i]:=char(208);
       if 
ASC=252 then S[i]:=char(220);
       if 
ASC=254 then S[i]:=char(222);
       if 
ASC=253 then S[i]:=char(73);
       if 
ASC=105 then S[i]:=char(221);
       if 
ASC=246 then S[i]:=char(214);
       if 
ASC=231 then S[i]:=char(199);
    
end;
  
Result:= uppercase(s);
end;

Böyle çözdüm
Bana e^st de diyebilirsiniz.   www.cncdesigner.com

Yasal Uyarı: Picproje.org sitemizde 5651 sayılı kanunun 8. maddesine ve T.C.Knın 125. maddesine göre tüm üyelerimiz yaptıkları paylaşımlardan kendileri sorumludur. Picproje.org hakkında yapılacak tüm hukuksal şikayetleri İletişim sayfamızdan bize bildirdikten en geç 3 (üç) iş günü içerisinde ilgili kanunlar ve yönetmelikler çerçevesinde tarafımızca incelenerek gereken işlemler yapılacak ve site yöneticilerimiz tarafından bilgi verilecektir.