[Hamsi]

Припустим у меня есть мемо и так такие строчки

<blogspot><jjjjj>read=0
<abcd><sda>read=1
<saddas><saa>read=0
<sdaccx><asw>read=0

Нужно вывести все поля с read=0 куда-нибудь

[v1s2222]

Код:

var s: string;
begin
...
s:='';
for i:=0 to memo1.Lines.Count-1 do
  if(pos('read=0', memo1.Lines.Strings[i]) > 0) then
    for k:=i+1 to Memo1.Lines.Count-1 do
      s:=s+Memo1.Lines.Strings[k];

ShowMessage(s);

Как-то так. Наверно можно проще, но что первое в голову пришло.

[Hamsi]

Выводит все мемо только немного местами поменяно

[v1s2222]

А не заметил, там может быть несколько "read=0". Сейчас исправлю.

Пожалуйста:

Код:

var s: string;
b: boolean;
i, k: Integer;
begin
b:=false;
s:='';
for i:=0 to memo1.Lines.Count-1 do
  if(pos('read=0', memo1.Lines.Strings[i]) > 0) and(not(b)) then begin
    b:=true;
    for k:=i+1 to Memo1.Lines.Count-1 do
      s:=s+Memo1.Lines.Strings[k]+ #13;
  end;
  s:=trim(s);

ShowMessage(s);

Разве что можно убрать "+#13", тогда все что после "read=0" выведется в одну строку...

[Hamsi]

Теперь выводятса 3 поля но один их них содержит read=1!

[v1s2222]

Секунду, вопроса не понял. Сейчас переделаю
Скорее всего ты это хотел:

Код:

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);

А если хотел чтоб "read=0" не выводилось, то:

Код:

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+Copy(Memo1.Lines.Strings[i], 1, (length(Memo1.Lines.Strings[i]) - length('read=0')))+ #13;
  end;
  s:=trim(s);

ShowMessage(s);