Wie kann ich Schreibweise im Filestream optimieren ?

[Redeemer]

Also das Programm, das diese Datei dann liest, kann kein UTF-16LE? Nicht mal mit BOM #$FFFE?

[Gandimann]

Thanks Friends,
ich habe hin gegriegt :

Delphi-Quellcode:

procedure TForm1.btn2Click(Sender: TObject);
 var
  buf: array[0..10] of Byte;
   fs: TFileStream;
begin
    fs := TFileStream.Create('C:\Test1.file',
                 fmCreate or fmOpenWrite or fmShareDenyWrite);
  buf[0] := $4b;
  buf[1] := $4f;
  buf[2] := $52;
  buf[3] := $46;
     try
    fs.Position := 23;
    fs.WriteBuffer(buf, 4);
    fs.Position := 0;
    buf[0] := $01;
    buf[1] := $00;
    buf[2] := $01;
    buf[3] := $14;
    fs.WriteBuffer(buf, 4);
    fs.Position := 4;
     buf[0] := $00;
    buf[1] := $00;
    buf[2] := $29;
    buf[3] := $64;
    fs.WriteBuffer(buf, 4);

  finally
    fs.Free;
    ;
  end;
end;

[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.