Anzahl von Bytes aus Datei ausschneiden/löschen

[bitsetter]

Moin,

hier ist ein kleiner Lösungsansatz von mir:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var fs: tfilestream;
    buffer, Pfad, WVerarbeitung: AnsiString;
    l, Anfang, Ende: integer;
begin
  Pfad:= 'c:\Test.csa';
  if FileExists(Pfad) then
  begin
    fs := TFileStream.Create(Pfad, fmOpenRead);
    try
      SetLength(Buffer, fs.Size);
      fs.Seek(0, soFromBeginning);
      l := fs.Read(buffer[1], length(buffer));
      Anfang:= pos('@@DOCUWARE_', buffer);
        for Ende:= length(buffer) downto Anfang+ 10 do
        begin
          if (buffer[Ende]= '@') and (buffer[Ende- 1]= '@') then
            break;
        end;
      WVerarbeitung:= copy(buffer, Anfang, Ende- Anfang);
      //...
      //fs.Seek(0, soFromBeginning);
      //fs.Write(buffer[1], length(buffer));
    finally
      fs.free;
    end;
  end;
end;

Ob der Ausschnitt nun der Richtige ist weis ich nicht, aber vom Prinzip her müsste es gehen. Ich habe anstatt array of byte einfach String genommen.