Скачать: CL | DM;

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

← →
dracula ©   (2004-12-19 11:36) [0]

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) [1]

Приводить строки к одному регистру, например, AnsiLowerCase

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.025 c