Delphi-Quellcode:
// Datei schreiben
f := TFileStream.Create(MidiFile, fmOpenReadWrite);
for IntA := 1 to CurrentByte do
f.Write(Bytes[IntA], CurrentByte);
f.Free;
Allerdings hab ich hier ein verständnis problem
Meine Datei wird 25KB groß dürfte aber nur etwa max 1 KB sein.
Wenn ich in die Datei schaue fällt mir auf das die Datei abhängig von IntA jedesmal
komplett neu eingefügt wird.
Was ist da falsch bei mir ?
CurrentByte sind 164.
PS:
Geht damit auch nicht
So wie es aussieht kann ich damit nur Dateien editieren die Existieren.
Oder aber ich verwende ein falsches Flag.
gruss