, følgende funktion vil vende tilbage, hvis en fil aflæses., funktion isreadonly (denne filnavn: string): boolean;, var, sr: tsearchrec;, begynder (* påtage sig ikke læser kun *), resultat: = falske, hvis findfirst (filnavn, faanyfile, sr) = 0, begynder, resultat: = (sr.attr og fareadonly) < > 0, findclose (sr),,,,,,,,,,