Ich habs mit beiden Signaturen ausprobiert und jetzt ist zu viel des guten passiert: Die ganze Datei (geöffnet im TextEditor) besteht nur noch aus chinesischen Zeichen und kann dementsprechend auch nicht mehr eingelesen werden...
Hab dann mal versucht manuell in die Datei zu schreiben (unterer Teil), aber auch das produziert die chinesischen Zeichen... Wie kann das denn passieren?!
Hier mein Code:
Delphi-Quellcode:
var
f: file;
ftxt: TextFile;
fsig: array [0..2] of byte;
begin
fsig[0]:=$FF;
fsig[1]:=$FE;
try
AssignFile(f, 'text.txt');
ReWrite(f, 1);
BlockWrite(f, fsig, sizeof(fsig));
finally
CloseFile(f);
end;
//zu Testzwecken hier das manuelle Schreiben
try
AssignFile(ftxt, 'text.txt');
Append(ftxt);
Writeln('blabla');
finally
CloseFIle(ftxt);
end;
end;