,, de volgende functies zal het dossier niet Read - only, functie terug. Isreadonly (totaal naam: string): Bull. Var, de SR:tsearchrec;,, (* * * * * * * * * * * * * * de resultaten van dat niet -): = vals; als FindFirst (bestandsnaam, faanyfile, SR) = 0 en het begin van de resultaten:, = (sr.attr en fareadonly) < > 0;, findclose (SR); aan het einde van het,,,,,,