Проблема в кодировке? Делфи

[Serge_Bliznykov]

Использовать невидимые мемо

согласен с Utkin - выкидывайте все эти невидимые мемо и заменяйте их на TStringList. Прирост в скорости будет нешуточный!

[Artsiom]

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

Конечно. Невидимый Мемо это TStringList (на случай, если Вы автор программы).

Автор то я, но код некоторых процедур которые мне понравились, нашел в инете. А там типы данных разные, как совместить хз, придумал через 2 мемо.

[Artsiom]

Спасибо ещё раз!
Жаль отзывы добавлять вам не могу.

[Utkin]

А там типы данных разные, как совместить хз, придумал через 2 мемо.

Что там за типы?
Изобретаете такое?

[Artsiom]

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

Что там за типы?
Изобретаете такое?

Да нет, всего лишь трёхколёсный..

Вот к примеру функция:

function ParseStr(str, sub1, sub2: string): tstrings; //оставить слово находящееся меж тегами, другими словами
var
  st,fin:Integer;
begin
  Result:=TStringList.Create;
  repeat
    st:=Pos(sub1, str);
    if st > 0 then begin
      str:=Copy(str,st+length(sub1),length(str)-1);
      st:=1;
      fin:=Pos(sub2,str);
      Result.Add(Copy(str,st,fin-st));
      str:=Copy(str,fin+length(sub2),length(str)-1);
    end
    else exit;
  until st<=0;
end;

У меня код страницы выгружается в мемо1.

 for i := 1 to StringGrid1.RowCount-1 do
 begin
 url:='http://the-game.ru/frames/playerinfo/on/'+ StringGrid1.Cells[0,i];
 page:=IdHTTP1.get(url);  //скачиваем код страницы
 Memo1.text:=page;

Ну и я не долго думая наколбасил(продолжение предыдущего кода):

 ...
memo2.Lines  := ParseStr(memo1.Lines.Text,'население</td><td align="right">','<');
 StringGrid1.Cells[6,i] := Memo2.Lines[0];
 memo2.Lines.Clear;
...
end;

Пытался переделать функцию, но запутался. Решил оставить всё как есть. Иначе ошибка "несовместимость типов Tstrings и string". Tstrings это класс, string это тип данных класса Tstrings.
Буду пробовать TStringList.