Delphi

Разработка сайтов

Наши проекты

Главная » Статьи по Delphi » Текст и строки » Универсальная функция верхнего регистра

Универсальная функция верхнего регистра

Автор: Валерий Ходоунский

Функция, которая предложена Borland'ом, для преобразования всех символов в верхний регистр, работает лишь с латиницей. Мы же создадим функцию, которая будет переводить в верхний регистр как латиницу, так и кириллицу.

function UpperChar(S: string): string;
var I: Cardinal;
begin
  Result:=S;
  for I:=1 to Length(Result) do
    case Result[I] of
      'а': Result[I]:='А';
      'б': Result[I]:='Б';
      'в': Result[I]:='В';
      'г': Result[I]:='Г';
      'д': Result[I]:='Д';
      'е': Result[I]:='Е';
      'ё': Result[I]:='Ё';
      'ж': Result[I]:='Ж';
      'з': Result[I]:='З';
      'и': Result[I]:='И';
      'й': Result[I]:='Й';
      'к': Result[I]:='К';
      'л': Result[I]:='Л';
      'м': Result[I]:='М';
      'н': Result[I]:='Н';
      'о': Result[I]:='О';
      'п': Result[I]:='П';
      'р': Result[I]:='Р';
      'с': Result[I]:='С';
      'т': Result[I]:='Т';
      'у': Result[I]:='У';
      'ф': Result[I]:='Ф';
      'х': Result[I]:='Х';
      'ц': Result[I]:='Ц';
      'ч': Result[I]:='Ч';
      'ш': Result[I]:='Ш';
      'щ': Result[I]:='Щ';
      'ъ': Result[I]:='Ъ';
      'ы': Result[I]:='Ы';
      'ь': Result[I]:='Ь';
      'э': Result[I]:='Э';
      'ю': Result[I]:='Ю';
      'я': Result[I]:='Я';
      'a': Result[I]:='A';
      'b': Result[I]:='B';
      'c': Result[I]:='C';
      'd': Result[I]:='D';
      'e': Result[I]:='E';
      'f': Result[I]:='F';
      'g': Result[I]:='G';
      'h': Result[I]:='H';
      'i': Result[I]:='I';
      'j': Result[I]:='J';
      'k': Result[I]:='K';
      'l': Result[I]:='L';
      'm': Result[I]:='M';
      'n': Result[I]:='N';
      'o': Result[I]:='O';
      'p': Result[I]:='P';
      'q': Result[I]:='Q';
      'r': Result[I]:='R';
      's': Result[I]:='S';
      't': Result[I]:='T';
      'u': Result[I]:='U';
      'v': Result[I]:='V';
      'w': Result[I]:='W';
      'x': Result[I]:='X';
      'y': Result[I]:='Y';
      'z': Result[I]:='Z';
    end;
end;