Einzelnen Beitrag anzeigen

Benutzerbild von jaenicke
jaenicke

Registriert seit: 10. Jun 2003
Ort: Berlin
9.288 Beiträge
 
Delphi 11 Alexandria
 
#8

AW: Wie kann ich Schreibweise im Filestream optimieren ?

  Alt 9. Dez 2020, 22:16
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.
Sebastian Jänicke
Alle eigenen Projekte sind eingestellt, ebenso meine Homepage, Downloadlinks usw. im Forum bleiben aktiv!
  Mit Zitat antworten Zitat