Объединить 2 файла
Falk0ner, вс, 06/07/2008 - 15:34.
Объединить 2 файла
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;
Использование:
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']);
ConcatFiles('sum.txt', ['project1.dpr','unit1.pas','unit2.pas']);
Отправить комментарий