Picproje Elektronik Sitesi

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;