Wieder TextDatei diesmal binär

[Namenloser]

Geht auch einfacher:

Delphi-Quellcode:

  f := TFileStream.Create(MidiFile, fmOpenReadWrite);
  f.Write(Bytes[1], CurrentByte{*SizeOf(Byte)});
  f.Free;

Zitat:

Aber leider funktioniert es nicht kann nur vorhandene Dateien öffnen.

Dann musst du fmCreate angeben statt fmReadWrite.