Проблема с Uppercase

[Unconnected]

Недавно заметил, что стандартный Uppercase в D7 не реагирует на русские символы. Написал свою функцию:

Function upppercase(s:string):string;
var i:integer;
begin
  for i:=1 to length(s) do begin
    if (s[i] in ['a'..'z']) or (s[i] in ['à'..'ÿ']) then s[i]:=chr(ord(s[i])-32);
  end;
  result:=s;
end;

, вопрос, будет ли она работать на всех машинах?

[Leo08]

По идее - да, должна работать везде, т.к. таблица ASCII везде одна и та же, а значит и коды символов те же!

[Serge_Bliznykov]

используйте AnsiUpperCase()

  ShowMessage(AnsiUpperCase('This is good! эта строчка будет прописными буквами!'));

[Unconnected]

Но AnsiUpperCase не будет работать для английских, да?) Мне надо смешанный вариант.

[Пепел Феникса]

Но AnsiUpperCase не будет работать для английских, да?

1)будет.
2)а самому сначало было не проверить?

[Unconnected]

Да, работает.. всем спасибо