Delphi

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

Наши проекты

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

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

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

function LowerChar(const 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;