Объединить 2 файла

Previous  Top  Next

    
 

 

 

Code:

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;

 

Использование:

 

Code:

chDir(ExtractFileDir(Application.Exename));

ConcatFiles('sum.txt', ['project1.dpr','unit1.pas','unit2.pas']);

 

©Drkb::03178