[virmaker]

имеется код

Код:

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]

Как-то так

Код:

f[i]=f1[j]

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

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

[Kailon]

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