[virmaker]

имеется код

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

var f:tstringlist; f1:tstringlist;    i:integer; begin f:=tstringlist.create; f1:=tstringlist.create;    f.LoadFromFile('filename'); f1.LoadFromFile('filename');    for i:=0 to f.count-1 do     for j:=0 to f1.count-1 do            begin        if f.string[i]= f1.string[j] then form1.memo1.line.add(f.string[i]);                       end;           end;

но он выдаёт ошибку
if f.string[i]= f1.string[j] then form1.memo1.line.add(f.string[i]);
identifier expected bat 'STRING' found
Что я не правильно сделал?

[Aristarh Dark]

Как-то так

Код:

1	f[i]=f1[j]

[virmaker]

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

Как-то так

Код:

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

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: не забываем оформлять код!

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

[Kailon]

А что мешает сделать еще один TStringList, добавить в него 3 строки и выполнить SaveToFile()?