Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > UpperCase Для Буквы "Ё"

Автор: unNet 4.3.2004, 19:25

Вот мой аналог для русского алфавита:

Код



function UpperCase2(const S: string): string;
var I : Integer;
begin
  Result := S;
  for I := 1 to Length( S ) do
     if Result[ I ] in [ 'а'..'я'  , 'a'..'z' ] then
       Dec( Result[ I ], 32 );
end;

Почемуто все буквы кроме "ё" переводятся в верхний регистр .

WazzzzzUP ?

Автор: z-END 4.3.2004, 19:42

а AnsiUperCase Не пробывал?

Автор: December 4.3.2004, 23:30

unNet попробуй вывести табличку ASCII и всё поймёшь.