Wir basteln uns eine Binärdatei (eindeutig keine Textdatei, da $FFFE kein
Unicode-Zeichen ist):
Delphi-Quellcode:
Type
TData = Packed Record
SpielerNummer,
HighScore,
LevelCode,
TaschenInhalt : Byte;
end;
const
data :TData = (SpielerNummer:255;
HighScore:254;
LevelCode:255;
TaschenInhalt:254
);
Var
dataFile : File Of TData;
begin
AssignFile(dataFile,'c:\Spielstand.Dat');
Rewrite(dataFile);
Write(dataFile,data);
CloseFile(dataFile);
end;
Was macht dein Code? Ich habe es nicht ausprobiert, aber er dürfte meinen, das es sich um eine Textdatei handelt, da Du ja nicht prüfst, ob es eine Textdatei ist, sondern nur, ob es so einigermaßen danach aussieht. Na ja. Wenn es Dir reicht..