Dateirechte ermittlen

[p80286]

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