ReUniteFile - trennen

[himitsu]

Zitat:

und soll ich sie dann splittern?

ähhhhh
ja?

Speichere doch einfach die Dateigrößen mit, dann weißt du beim Auslesen, wieviel der Daten zur aktuellen Datei gehören.
Es sei denn die Dateien haben feste/bekannte Größen und du speicherst die Größen direkt im QuellCode.

Delphi-Quellcode:

procedure ReUniteFile(const Files: TStrings; const FileName: string);
var
  f1, f2: TFileStream;
  i, i2: Integer;
begin
  f1 := TFileStream.Create(Filename, fmCreate or fmShareDenyWrite);
  try
    for i:=0 to Files.Count-1 do
      begin
        f2 := TFileStream.Create(Files[i], fmOpenRead or fmShareDenyNone);
        try
          i2 := f2.Size;
          f1.WriteBuffer(i, SizeOf(i));
          f1.CopyFrom(f2, 0);
        finally
          f2.Free;
        end;
      end;
  finally
    f1.Free;
  end;
end;