Warum zeigt ihm niemand den Fehler in seinem Code?
Sein Ansatz würde genauso funktionieren, wenn er dereferenziert:
Delphi-Quellcode:
AssignFile(F, FileName);
Reset(F, 1);
// Seek(F, 0); // unnötig, dort steht man nach dem Öffnen...
s := PChar(Header);
BlockWrite(F, s^, Length(Header));
CloseFile(F);
Und ohne PChar Cast gehts auch:
Delphi-Quellcode:
AssignFile(F, FileName);
Reset(F, 1);
// Seek(F, 0); // unnötig, dort steht man nach dem Öffnen...
BlockWrite(F, Header[1], Length(Header));
CloseFile(F);