Les unités de Pure Pascal (langage Pascal pour les ordinateurs de la gamme Atari ST), compatible Turbo Pascal.
Unité TOS : Fonction FsfirstFonction Gemdos 78Déclarationfunction Fsfirst( fspec : String; attribs : Integer ) : IntegerDescriptionLa fonction Fsfirst recherche la première occurrence d'un répertoire ou d'un fichier.Le modèle de recherche, qui peut contenir également les quantificateurs * et ? est passé dans les paramètres fspec. attribs spécifie le type de fichier à rechercher. Si un fichier ou un répertoire peut être trouvé, la fonction renvoie 0. Sinon, vous obtenez un code d'erreur négatif. Après avoir appelé Fsfirst, le tampon de transfert sur disquette contient des informations supplémentaires sur le fichier ou le répertoire trouvé. Attention Si vous souhaitez rechercher des dossiers à titre d'exemple, faites-le en utilisant l'appel de fonction Cependant, comme il n'existe pas d'attribut distinct pour les fichiers normaux, ceux-ci sont également trouvés.if Fsfirst( '*.*', FA_DIREC ) = 0 then ... Par conséquent, vous devez également vérifier l'attribut du fichier trouvé pour vous assurer qu'il s'agit bien du type de fichier souhaité (ici, dossier) : myDTA := Fgetdta; if myDTA^.d_attrib = FA_DIREC then Writeln( 'Directory found' ); Références croisées Fgetdta Fsetdta Fsnext DTA Exempleuses Tos; var myDTA : DTAPtr; begin myDTA := Fgetdta; if Fsfirst( '*.PAS', FA_ATTRIB ) = 0 then begin repeat Writeln( myDTA^.d_fname ); until Fsnext <> 0; end; Readln; end. |
Vous trouverez dans cette zone la liste de toutes les Unités (équivalent des "Librairies" en C) de Pure Pascal. Les Unités indiqués comme standards existent dans la majorité des compilateurs Pascal existant sur ordinateurs 16 bits et au dela (dont Turbo Pascal 3 mini). Les unités indiqués comme Atari sont spécifiques aux systèmes d'exploitation des Atari ST (TOS n.n).
Accès aux unités
Les menus déroulants de chaque unité sont des accès directs aux procédures et fonctions, classés alphabétiquement (sans tenir compte de la casse, puisque le langage Pascal ne tient pas compte de la casse!)Cette page Unités est issu du fichier UNIT.HLP de la documentation de Pure Pascal (d'Application Systems Heidelberg), qui a été convertie en format TXT puis traduite de l'Allemand grâce à Google Translator : des milliers de copier/coller de et vers Google translator ont été nécessaires, ne connaissant pas un mot d'Allemand!