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

← →
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

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