Оптимизация парсинга

[Lauri]

Задача:
Пройтись по списку, если строка совпадает с искомой, то скопировать найденую строку и + количество строк ниже искомой, которое задаёт пользователь

Вот то что имею сейчас, но запутался уже очень

procedure TForm1.sBitBtn1Click(Sender: TObject);
var
LinkParsIn,LinkParsOut:tstringlist;
g,gg:integer;
begin
gg:=0;
LinkParsIn:=tstringlist.Create;
LinkParsOut:=tstringlist.Create;
linkparsIn.Text:=memo3.text;
for g:=0 to linkparsIn.Count-1 do begin
 if pos(form1.edit1.Text,linkparsIn.Strings[g])<>0 then
 for gg:=0 to strtoint(sedit5.Text) do
 begin
  linkparsOut.Add(linkparsIn.Strings[g+1]) ;
 end;
end;
memo1.Text:=linkparsOut.Text;
linkparsIn.Free;
linkparsOut.Free;
end;

[Человек_Борща]

1. Прочитайте значение слова "парсинг" т.к. то, что вы делате - не является таковым.
2. для сравнения строк нужно использовать CompareStr или CompareMem
3. Строки нужно привести в одинаковый регистр, предварительно вырезав все пробелы.

[Lauri]

Сообщение от Человек_Борща

1. Прочитайте значение слова "парсинг" т.к. то, что вы делате - не является таковым.
2. для сравнения строк нужно использовать CompareStr или CompareMem
3. Строки нужно привести в одинаковый регистр, предварительно вырезав все пробелы.

Извините, не так выразился.
Второй пункт не подходит, в моём случаи всё же, лучше через pos

[Lauri]

Вроде разобрался

procedure TForm1.sBitBtn1Click(Sender: TObject);
var
LinkParsIn,LinkParsOut:tstringlist;
g,gg,ggg:integer;
begin
 gg:=0;
 LinkParsIn:=tstringlist.Create;
 LinkParsOut:=tstringlist.Create;
 linkparsIn.Text:=memo3.text;
 for g:=0 to linkparsIn.Count-1 do
 begin
  if pos(form1.edit1.Text,linkparsIn.Strings[g])<>0 then
  begin
   ggg:=g;
   linkparsOut.Add(linkparsIn.Strings[ggg]) ;
   for gg:=1 to strtoint(sedit5.Text) do
   begin
    linkparsOut.Add(linkparsIn.Strings[ggg+1]) ;
    ggg:=ggg+1;
   end;
  end;
 end;
 memo1.Text:=linkparsOut.Text;
 linkparsIn.Free;
 linkparsOut.Free;
end;