Объединить 2 файла
Материал из DRKB
procedure ConCatFiles(const TargetName: string;
const SourceNames: array of string);
var
i: Integer;
target, source: TFileStream;
begin
target := TFileStream.Create(TargetName, fmCreate);
try
for i := Low(Sourcenames) to High(Sourcenames) do
begin
source := TFileStream.Create(SourceNames[i], fmOpenread or fmShareDenyNone);
try
target.CopyFrom(source, 0);
finally
source.Free;
end;
end;
finally
target.Free;
end;
end;
Использование:
chDir(ExtractFileDir(Application.Exename));
ConcatFiles('sum.txt', ['project1.dpr', 'unit1.pas', 'unit2.pas']);
ID: 03178