Hallo olee,
bevor Du Die Datei öffnest machs Du folgendes:
Delphi-Quellcode:
function ISFILEREADABLE(dateiname:string):boolean;
var
edat textfile;
dummy : string;
amode : byte;
begin
amode:=filemode;
filemode:=0; {readonly}
assgnfile(edat,dateiname);
{$I-}
reset(edat);
{$I+}
if ioresult>0 then begin
result:=false;
exit;
end;
{$I-}
readln(edat,dummy);
cosefile;
{$I+}
if ioresult>0 then result:=false
else result:=true;
end;
mußt Du aber noch testen sollte aber funktionieren.
Mit $I fummelst Du an den Compilerschaltern herum die solltest Du zuerst checken.
Wenn Du den IO-Check bglobal ausschaltest, muß Du nach JEDER I/O-Operation IORESULT abfragen!
Gruß
K-H