[Помогите!] Спарсить сроку

[ncdos]

delete/

[VeTaL_UA]

нифига непонял что ты хочешь

[metraz]

данный код уже никак не урежешь

[Tip.the.besT]

Ну для начала, зачем в memo1, когда есть tstringlist? Код:

var
list:tstringlist;
begin
list:=tstringlist.create;

list.add(TextString);

for i:=0 to list.count-1 do begin
if pos('Hi!',list[i])<>0 then begin
memo2.lines.add(list[i]);
break;
end;
end;
list.free;
end;

Но конечно ещё есть один вариант, это найти слово - Hi! - в строке, затем обрезать всё, что после символа переноса строки, далее вычислить, после какого по счёту символа переноса строки слово - Hi! - и обрезать до этого символа. Код получится ещё больше, и неизвестно, на что, будет потрачено больше тактов процессора.

[mad_cat]

можно сразу при получении строки как бы проверять и стрингЛист не нужен

procedure TForm1.FormCreate(Sender: TObject);
begin
.....
//Memo1.Lines.Add(DName);
if pos('Hello',DName)<>0 then begin
memo1.lines.add(DName);
end;

[Tip.the.besT]

Цитата: Сообщение от mad_cat можно сразу при получении строки как бы проверять и стрингЛист не нужен procedure TForm1.FormCreate(Sender: TObject); begin ..... //Memo1.Lines.Add(DName); if pos('Hello',DName)<>0 then begin memo1.lines.add(DName); end;

Ну и, что ты сделал? В переменной 3 строки, ему нужно только ту, в которой есть определённое слово. А ты просто проверил, есть ли там слово.

Твой код бессмыслен, так как заведомо известно, что там есть это слово.