Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

как сделать символы верхнего и нижнего регистра одинаковыми

dracula © (2004-12-19 11:36:00)
htmlfile := TStringList.Create;
htmlfile.LoadFromFile(FileName);
i1 := Pos('<title>', htmlfile.Text) + Length('<title>');
i2 := Pos('</title>',htmlfile.Text);
e1 := Copy(htmlfile.Text, i1, i2 - i1);
htmlfile.Free;
htmlfile2 := TStringList.Create;
htmlfile2.LoadFromFile(FileName);
i3 := Pos('<TITLE>', htmlfile2.Text) + Length('<title>');
i4 := Pos('</TITLE>',htmlfile2.Text);
e2 := Copy(htmlfile2.Text, i3, i4 - i3);
htmlfile2.Free;

Вот приходится делать так, может есть что то для того чтобы все символы сделать для поиска одинаковыми?

MBo (2004-12-19 11:57:00) [1]
Приводить строки к одному регистру, например, AnsiLowerCase

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »