Подписаться на RSS рассылку
Главная » Статьи по 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;

Функция возвратит строку, заменив все символы верхнего регистра символами нижнего.

Пример использования:

ShowMessage(LowerChar('TEST'));

Просмотров: 2441

Обсудить на форуме


Имя *:
Email:


Код *:

Copyright © 2008-2016 Программирование на Delphi для начинающих и не только

Полнота авторских прав на все материалы, опубликованные на сервере DelphiDevelop.ru принадлежит их авторам

Перепечатка материалов разрешается с указанием авторства и гиперссылки на первоисточник информации

Хостинг от uCoz

Автор проекта: Борисов Сергей

e-mail: save-x@yandex.ru

Связь с администрацией сайта