Мне нужно собрать уникальные строки из двух файлов и записать их в файл Rezults.txt.
procedure TForm1.Button1Click(Sender: TObject);
var
FName: array of string;
F:TextFile;
st:string;
s:TStringList;
I:Integer;
begin
SetLength(FName, 2);
FName[0] := Edit1.Text;
FName[1] := Edit2.Text;
s := TStringList.Create;
s.Sorted := true;
s.Duplicates := dupIgnore;
for I := Low(FName) to High(FName) do
begin
AssignFile(F, FName[I]);
reset(f);
While not EOF(f) do
begin
readln(F,st);
s.Add(st);
end;
CloseFile(f);
end;
s.SaveToFile('Rezults.txt');
s.Free;
end;