Delphi-Quellcode:
while not eof(Datei) do
...
CloseFile(Datei);
Application.Terminate;
end;
end;
end;
CloseFile(Datei);
fällt dir was auf?
( zweimal
CloseFile(Datei) )
wobei da zuerst
eof(Datei) aufgerufen wird ... so oder so ergibt das eine
Exception, da die datei schon geschlossen ist.
versuch mal
Delphi-Quellcode:
end else if strCommand = 'exit' then
begin
CloseFile(Datei);
Application.Terminate;
Exit;
end;
oder besser noch
Delphi-Quellcode:
end else if strCommand = 'exit' then
begin
Application.Terminate;
Break;
end;
Application.Terminate; sagt dem Programm nur, daß es beendet werden soll, aber die aktuelle Prozedur wird dadurch nicht beendet.