[Hamsi]

Вот что мне надо

[v1s2222]

Я только что взял текст, который ты хочешь разбить и у меня все хорошо разделяется...

[Hamsi]

Я ж говорю что код тот же но в мемо он слитый и роздельний квадратами!
Хорошо,мне просто надо теперь доставать код но такой как в браузере а не слитый,как это можно зделать?
Вот весь исходный код
http://depositfiles.com/files/76rmallz4

[v1s2222]

Все работает даже с твоими "квадратиками". Только что взял твой файл, мне вывело все, что было не обходимо. Вот весь код:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var s: string;
i: Integer;
begin
s:='';
for i:=0 to memo1.Lines.Count-1 do
  if(pos('read="0"', memo1.Lines.Strings[i]) > 0) then begin
    s:=s+Memo1.Lines.Strings[i]+ #13;
  end;
  s:=trim(s);

ShowMessage(s);
end;

[Hamsi]

read="0"
read="0"
read="0"

[v1s2222]

Создаешь проект, кидаешь на форму кнопку и мемо, в обработчике он клик кнопки пишешь код, что я дал. После запуска программы копируешь содержимое файла в мемо, нажимаешь кнопку... и Выдаст 3 строчки, в которых и есть твои "read=0".

[Hamsi]

Ппц...При копированию ясное дело что будет,квадраты заменяються на новые строки

[v1s2222]

Напиши Memo1.Lines.LoadFromFile('C:\1.txt'); и потом
мой код и все будет работать. Если что-то работает не так, то просто разберись что и по чему.... вот и все... сам то алгоритм правильный.

[Bargest]

Не понял... Квадраты на месте перевода строк? Тогда попробуй не #13 а #13#10