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;