[virmaker]

Сообщение от Aristarh Dark

Как-то так

Код:

f[i]=f1[j]

получилось вот так

Код:

procedure TForm1.btn2Click(Sender: TObject);         var
f:tstringlist;
f1:tstringlist; i:Integer;        j:Integer;
begin
 f:=tstringlist.create;
f1:=tstringlist.create;

f.LoadFromFile('noun.txt');
f1.LoadFromFile('2.txt');

for i:=0 to f.count-1 do
    for j:=0 to f1.count-1 do
           begin
       if f.strings[i]= f1.strings[j] then form1.mmo1.lines.add(f.strings[i]);

           end;
 
end;

end.

Bargest: не забываем оформлять код!

А как теперь сохранить три строки после совпавшего слова?