Einzelnen Beitrag anzeigen

Dejan Vu
(Gast)

n/a Beiträge
 
#42

AW: Datei auf Indikatoren für Binärdatei testen?

  Alt 11. Mai 2015, 22:13
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..
  Mit Zitat antworten Zitat