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

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

Автор:

Tweet

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

function LowerCase(const S: string): string;

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

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

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

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

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

0   Спам
(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;


0   Спам
(22.02.2010)
1. wofs
для русских используй AnsiLowerCase


Имя *:
Email:


Код *:

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

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

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