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.
function Upper(s: string) : string;
var
Asc : Byte;
i : Integer;
begin
for i := 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