Wie kann ich Schreibweise im Filestream optimieren ?

[jaenicke]

Das sieht mir überhaupt nicht danach aus als ginge es um Strings im eigentlichen Sinn, sondern um Bytewerte. Dann geht es so viel einfacher:

Delphi-Quellcode:

procedure TForm1.btn2Click(Sender: TObject);
var
  Value: Integer;
  fs: TFileStream;
begin
  fs := TFileStream.Create('C:\Test1.file', fmCreate or fmOpenWrite or fmShareDenyWrite);
  try
    fs.Position := 23;
    Value := $46524F4B;
    fs.WriteBuffer(Value, 4);
    fs.Position := 0;
    Value := $14010001;
    fs.WriteBuffer(Value, 4);
    fs.Position := 4;
    Value := $64290000;
    fs.WriteBuffer(Value, 4);
  finally
    fs.Free;
  end;
end;

Da sollte das gleiche herauskommen.