Ergebnis der Suchanfrage

• Forum: Programmieren allgemein

  AW: Wieder TextDatei diesmal binär

   
    by jfheins, 13. Apr 2011
  // Datei schreiben
  f := TFileStream.Create(MidiFile, fmOpenReadWrite); // Datei wird geöffnet, neue Inhalte werden hinten angehängt
  
  for IntA := 1 to CurrentByte do
  f.Write(Bytes, CurrentByte); // Wenn in dem Array tatsächlich Bytes drin sind muss als 2. Parameter sizeof(Byte) stehen!
  
  f.Free;