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

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

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

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

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-2016 Программирование на Delphi для начинающих и не только

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

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

Хостинг от uCoz

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

e-mail: save-x@yandex.ru

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