Damit keine System-Fehlermeldung erscheint, habe ich die Abfrage mit einem try-except versehen,
welches aber anscheinend nicht funktioniert, denn ich erhalte die Meldung:
File not open. Press OK ...
und meine Meldung (=aus dem except) dagegen wird nicht angezeigt.
Was habe ich falsch gemacht ?
Code: Alles auswählen
z:='test.dat';
if FileExists(z) then
begin
try
f:=fileopen(z,fmopenread or fmshareexclusive);
except
Showmessage('Datei ist bereits geöffnet');
end;
end
else
begin
f:=filecreate(z);
filewrite(f,'12345',4);
fileclose(f);
f:=fileopen(z,fmopenread or fmshareexclusive);
end;