Datei lesen klappt nicht

[zeras]

Zitat von EMS:

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
var
s:integer;

begin
  ASSIGNFILE(DATEI,'versteckt.dat');
  Rewrite(datei);
  Read(datei,s); //was soll das? Erst mit Rewrite eine neue Datei erzeugen und dann lesen wollen?
  showmessage(inttostr(s));
  Closefile(datei);
end;

Welches ist denn Zeile 98? Ich habe mal einen Kommentar geschrieben im Quelltext.