поиск и выципление строк из txt файла

[D_e_n_n]

Прошу помощи в решении задачи, сам только начал писать на Делфи
есть txt файл 1.txt в котором в каждой строке есть текст (в данном примере их всего две):
ИВАНОВ РОМАН ВАСИЛЬЕВИЧ,
ЧУЧЕНАШЕВА АГАФЬЯ ИВАНОВНА,

и есть файл 2.txt в котором есть этиже строки,
мне необходимо встать на строки с тем же ФИО и вычипить из этой строки ЧЕРГА,НАГОРНАЯ,12, и 914.64 у ИВАНОВ РОМАН ВАСИЛЬЕВИЧ
а у ЧУЧЕНАШЕВА АГАФЬЯ ИВАНОВНА - ШЕБАЛИНО,МОЛОДЕЖНАЯ,12, и 222.00

и вывести всё это в MEMO в виде
ИВАНОВ РОМАН ВАСИЛЬЕВИЧ, ЧЕРГА,НАГОРНАЯ,12, 914.64
ЧУЧЕНАШЕВА АГАФЬЯ ИВАНОВНА, ШЕБАЛИНО,МОЛОДЕЖНАЯ,12, 222.00


сделал я вот что:

procedure TForm1.Button2Click(Sender: TObject);
var
TS:TStringList;
i,j:integer;
Str: String;
Str2: String;
Str3: String;
Str4: String;
P,p2: Integer;

begin
opendialog1.Execute;
edit1.Text:=opendialog1.FileName;
TS:=TStringList.Create;
TS.LoadFromFile(edit1.Text);
str:='pname=';
str4:=',dat_opl';
for i:=0 to TS.Count-1 do
 begin
   P:=Pos(Str,TS[i]);
   P2:= Pos(Str4,TS[i]);
   Str2:=Copy(TS[i], P, 6);
   if str2=str then
     str3:=Copy(TS[i],p+6,(p2-p)-6);
     Memo1.Lines.Add(UTF8Decode(str3));
 end;

end;

procedure TForm1.Button1Click(Sender: TObject);
var
TS2:TStringList;
j:integer;
begin
opendialog1.Execute;
edit2.Text:=opendialog2.FileName;//файл 2.txt
TS2:=TStringList.Create;
TS2.LoadFromFile(edit2.Text);
for j:=0 to TS2.Count-1 do
 begin
помогите здесь выцепить ФИО, адрес, сумму
 end;
end;

[D_e_n_n]

выцепил ФИО из 1.txt, запихнул их в мемо

procedure TForm1.Button2Click(Sender: TObject);
var
TS:TStringList;
i,j:integer;
Str: String;
Str2: String;
Str3: String;
Str4: String;
P,p2: Integer;
a,b:integer;
con:boolean;

begin
opendialog1.Execute;
edit1.Text:=opendialog1.FileName;
TS:=TStringList.Create;
TS.LoadFromFile(edit1.Text);
str:='pname=';
str4:=',dat_opl';
for i:=0 to TS.Count-1 do
 begin
   P:=Pos(Str,TS[i]);
   P2:= Pos(Str4,TS[i]);
   Str2:=Copy(TS[i], P, 6);
   if str2=str then
     str3:=Copy(TS[i],p+6,(p2-p)-6);
     Memo1.Lines.add(UTF8Decode(str3));
 end;
 //убрать дубликаты из мемо1
 for a:=0 to memo1.Lines.Count-1 do
begin
con:=false;
for b:=0 to memo2.lines.count-1 do
 begin
 if memo1.lines.Strings[a]=memo2.Lines.Strings[b] then con:=true;
 end;
if not con then memo2.Lines.Add(memo1.lines.Strings[a]);
end;
end;

procedure TForm1.Button3Click(Sender: TObject);
var
i:integer;
begin
for i := 0 to memo1.Lines.Count - 1 do
ShowMessage(memo1.Lines[i]);
//здесь осталось только найти похожую ФИО и разобрать строку
end;

procedure TForm1.Button1Click(Sender: TObject);

begin
opendialog2.Execute;
edit2.Text:=opendialog2.FileName;

ListBox1.Items.LoadFromFile(edit2.Text);//данные из 2.txt загрузил в ListBox1
end;

осталось только найти похожую ФИО и разобрать строку

[D_e_n_n]

procedure TForm1.Button2Click(Sender: TObject);
var
TS:TStringList;
i,j:integer;
Str: String;
Str2: String;
Str3: String;
Str4: String;
P,p2: Integer;
a,b:integer;
con:boolean;

begin
opendialog1.Execute;
edit1.Text:=opendialog1.FileName;
TS:=TStringList.Create;
TS.LoadFromFile(edit1.Text);
str:='pname=';
str4:=',dat_opl';
for i:=0 to TS.Count-1 do
 begin
   P:=Pos(Str,TS[i]);
   P2:= Pos(Str4,TS[i]);
   Str2:=Copy(TS[i], P, 6);
   if str2=str then
     str3:=Copy(TS[i],p+6,(p2-p)-6);
     Memo1.Lines.add(UTF8Decode(str3));
 end;
 //óáðàòü äóáëèêàòû èç ìåìî1
 for a:=0 to memo1.Lines.Count-1 do
begin
con:=false;
for b:=0 to memo2.lines.count-1 do
 begin
 if memo1.lines.Strings[a]=memo2.Lines.Strings[b] then con:=true;
 end;
if not con then memo2.Lines.Add(memo1.lines.Strings[a]);
end;
end;

//===========ðàçáîð txt ôàéëà============= 
procedure TForm1.Button3Click(Sender: TObject);
//FileName - ôàéë ñïèñêà ñòðîê
//FileName2 - ôàéë â êîòîðîì íàäî èñêàòü ñòðîêó
//Edit1.text - ñòðîêà
var i,j:integer;
    f:textFile;
    buf, str:string;
begin
for j:= 0 to Memo2.Lines.Count - 1 do

for i := 0 to ListBox1.Items.Count - 1 do
 Str := ListBox1.items.Strings[i];
 ListBox1.ItemIndex := i; // Âûäåëÿåì íàéäåííóþ ñòðîêó â LB
 // Äàëåå
 assignFile(f,edit2.Text); // Îòêðûâàåì ôàéë FileName2
 reset(f); // îòêðûâàåì ñóùåñòâóþùèé ôàéë
 while not SeekEof(f) do begin
  Readln(f, buf); // ÷òåíèå èç ôàéëà ñòðîêè
  if pos(Str,buf)>0 then begin
   // íà¸äåíà ñòðîêà Str â ôàéëå
   Memo3.Lines.Append(buf); // выводим найденную строку в Memo
  end;
 end;

 closeFIle(f);
end;
//=======================================

procedure TForm1.Button1Click(Sender: TObject);

begin
opendialog2.Execute;
edit2.Text:=opendialog2.FileName;

ListBox1.Items.LoadFromFile(edit2.Text);
end;

end.

помогите почемуто в мемо3 попадает только последняя строка?


___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[SERG1980]

procedure TForm1.Button1Click(Sender: TObject);
var sl1,sl2:TStringList;
    s1,s2,s3:string;
    i,j:integer;
begin
 sl1:=TStringList.Create;
 sl2:=TStringList.Create;
 sl1.LoadFromFile('d:\11.txt');
 sl2.LoadFromFile('d:\22.txt');
 for i := 0 to sl1.Count - 1 do
  begin
   s1:=UTF8Decode(sl1[i]);
   if Pos('ФИО',s1)<>0 then
    begin
     Delete(s1,1,Pos('ФИО',s1)+3);
     s1:=Copy(s1,1,Pos(',',s1)-1);
     for j := 0 to sl2.Count - 1 do
     if Pos(s1,sl2[j])<>0 then
     begin
      s2:=sl2[j];
      Delete(s2,1,Pos(';',s2));
      s3:=s2;
      s2:=Copy(s2,1,Pos(';',s2)-1);
      Delete(s3,1,Pos(';',s3));
      s3:=Copy(s3,Pos(';',s3)+1,Pos(';;;;',s3)-Pos(';',s3)-1);
      memo1.Lines.Add(s1 + ' ' + s2+' '+s3);
     end;
    end;
  end;
 sl1.Free;
 sl2.Free
end;

[mss]

//убрать дубликаты из мемо1

Это ты конечно гениально придумал - вместо того чтобы НЕ добавлять дубликаты (что делается до смешного просто) ты их сначала понасандалил туда и теперь выковыриваешь оттуда
Придумываеи себе проблемы, чтобы потом их героически преодолевать в режиме подвига)

[D_e_n_n]

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

//убрать дубликаты из мемо1

Это ты конечно гениально придумал - вместо того чтобы НЕ добавлять дубликаты (что делается до смешного просто) ты их сначала понасандалил туда и теперь выковыриваешь оттуда
Придумываеи себе проблемы, чтобы потом их героически преодолевать в режиме подвига)

новичек как ни как

[NiCola999]

и есть файл 2.txt в котором есть этиже строки,
мне необходимо встать на строки с тем же ФИО и вычипить из этой строки ЧЕРГА,НАГОРНАЯ,12, и 914.64 у ИВАНОВ РОМАН ВАСИЛЬЕВИЧ
а у ЧУЧЕНАШЕВА АГАФЬЯ ИВАНОВНА - ШЕБАЛИНО,МОЛОДЕЖНАЯ,12, и 222.00

пиши грамотно постановку задачи

[D_e_n_n]

Всем огромное спасибо, вот я нагородил то, а тут у SERG1980 всё красиво