Var
M,N:TStringList;
I:Integer;
begin
If Not opendialog1.execute then
Exit;
M:TStringList.create;
N:TStringList.create;
for I:=0 To opendialog1.Files.count-1 do
begin
M.LoadFromFile(opendialog1.Files);
N.addStrings(M);
end;
If Not Savedialog1.excute then
Exit;
N.savetoFile( Savedialog1.FileName);
M.free;
N.Free;
end;
看看行吗。