TStringList и перевод символов в нижний регистр

@Pcrepair · Регистрация: 06.01.2011

Author24 — интернет-сервис помощи студентам

Добрый день. В программе для хранения и обработки текстов используется ПЕРЕМ типа TStringList
Для сравнения текстов необходимо все символы привести к нижнему регистру.
Вопрос:
1. небходимо ли приводить символы к нижнему регистру при использовании Pos
2. если необходимо, то как это сделать применительно к TStringList,
T2 := AnsiLowerCase(T2); для Т2:TStringList не работает.
Всем ответившим - спасибо

Добавлено через 11 минут
добавлю:
РАД2010 и преобразовать нужно сразу все строки в ПЕРЕМ

@Alex_pac · 24.03.2012, 15:36

Delphi

1
2
3

//var T2: TStringList;
 
T2.Text := AnsiLowerCase(T2.Text); // весь лист в нужном регистре

@Markus_13 · 24.03.2012, 16:06

Сообщение от Pcrepair

Для сравнения текстов необходимо все символы привести к нижнему регистру.

Сообщение от Pcrepair

преобразовать нужно сразу все строки в ПЕРЕМ

Если все сразу, то как сказано выше, единственное, что чаще я использую winapi: "CharLowerBuff", а вообще чтобы не зависеть от локальных настроек, еще чаще использую свою собственную функцию (для русских/англ. символов в ansi кодировке):

Delphi

function strcUP(s:string):string;
var k:byte;
begin
 for k:=1 to length(s)do
  if(s[k]in['a'..'z','а'..'я'])then s[k]:=chr(ord(s[k])-32)
   else if(s[k]='ё')then s[k]:=chr(ord(s[k])-16);
 result:=s;
end;

@Pcrepair 0 / 0 / 3 Регистрация: 06.01.2011 Сообщений: 183
		1
	TStringList и перевод символов в нижний регистр 24.03.2012, 12:44. Показов 5220. Ответов 2 Метки нет (Все метки) Добрый день. В программе для хранения и обработки текстов используется ПЕРЕМ типа TStringList Для сравнения текстов необходимо все символы привести к нижнему регистру. Вопрос: 1. небходимо ли приводить символы к нижнему регистру при использовании Pos 2. если необходимо, то как это сделать применительно к TStringList, T2 := AnsiLowerCase(T2); для Т2:TStringList не работает. Всем ответившим - спасибо Добавлено через 11 минут добавлю: РАД2010 и преобразовать нужно сразу все строки в ПЕРЕМ 0

	24.03.2012, 16:06

TStringList и перевод символов в нижний регистр

Решение