Delphi

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

Наши проекты

Главная » Статьи по Delphi » Текст и строки » Перевести строку в нижний регистр (LowerCase)

Перевести строку в нижний регистр (LowerCase)

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

Используем функцию из SysUtils.pas:

function LowerCase(const S: string): string;

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

procedure TForm1.Button1Click(Sender: TObject);
var s:string;
begin
 s := LowerCase('DEMO TEXT');
 ShowMessage(s);
end;

Единственный минус этой функции это то, что она не переводит в нижний регистр русские символы

Купить справку

Контатная информация. Портал о получении водительских прав.

cpravki.ru
Компания Formyangel: наша roan marita фото на formyangel.ru

formyangel.ru

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

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

(26.02.2011)

2. Deys

Функция перевода и русских и англ строк в нижний регистр:

function LowCase(ch: CHAR): CHAR;
begin
case ch of
'A'..'Z': LowCase := CHR(ORD(ch) + 32);
'А'..'Я': LowCase := CHR(ORD(ch) + 32);
else
LowCase := ch;
end;
end;