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