Versuch hinter dem Dateiende zu lesen

[p80286]

Ich denke dies ist nicht ganz unproblematisch;

Delphi-Quellcode:

procedure TForm1.Button5Click(Sender: TObject);
var key:String[25];
i:integer;
h:integer;
begin
Assignfile(woert,'Wörterbuch.dat');
reset(woert);
.....
for i := 1 to filesize(woert) do begin
  read(woert,Woerterbuch);
  if key=Woerterbuch[i].Englisch then begin
    ...
    löschen(h);
    exit;
  end
   else
    ...  end;
closefile(woert);
end;


Procedure löschen(h:integer);
...
begin
assignfile(woert,'Wörterbuch.dat');
reset(woert);
..
closefile(woert);

LÖSCHEN wir auf eine geöffnete Datei ausgeführt (übrigens ein Hoch auf globale Variablen).

Wenn schon global, dann aber reset und closefile auch global!

Gruß
K-H