APPEND |
Apposez |
|---|---|
| Turbo Pascal 3+ | System |
Syntaxe
| Procedure Append(varfich:Text); |
Paramètres
| Nom | Description |
|---|---|
| varfich | Ce paramètre permet d'indiquer l'identificateur de fichier |
Description
Cette procédure permet d'effectuer l'initialisation d'une fichier texte en mode ajouter.
Remarques
- Le paramètre varfich est une variable de fichier texte devant avoir été associée à un fichier externe à l'aide de la procédure Assign.
- La procédure Append ouvre le fichier externe existant avec le nom attribué à varfich. Une erreur se produira s'il n'y a pas de fichier externe existant du nom spécifié. Si varfich était déjà ouvert, il est d'abord fermé puis rouvert. La position actuelle du fichier est définie à la fin du fichier.
- Si un Ctrl+Z (ASCII 26) est présent dans le dernier bloc de 128 octets du fichier, la position actuelle du fichier est définie pour remplacer le premier Ctrl+Z du bloc. De cette façon, le texte peut être ajouté à un fichier qui se termine par un Ctrl+I.
- Si varfich a reçu un nom vide, tel que «Assign(varfich,'')», alors, après l'appel à la procédure Append, varfich fera référence au fichier de sortie standard (numéro de descripteur standard 1).
- Après un appel à la procédure Append, varfich devient en écriture seule et le pointeur de fichier se trouve à la fin du fichier.
- Avec {$I-}, la fonction IOResult renvoie 0 si l'opération a réussi. sinon, il retourne un code d'erreur différent de zéro.
Exemples
L'exemple suivant permet de créer un fichier, d'insérer un «Texte original», de le fermer et d'ouvrir a nouveau le même fichier et d'y insérer le texte «Texte ajouter» :
Voici un exemple de générer les 160 premier nombre de π dans un fichier :
- Program PiSamples;
-
- Var
- Handle:Text;
- I:Integer;
- a,b,c,d,e,g:LongInt;
- f:Array[0..8401]of LongInt;
- X:String;
-
- Function Right(Const S:String;L:Byte):String;Begin
- Right:=Copy(S,Length(S)-L+1,L);
- End;
-
- BEGIN
- Assign(Handle, 'NUMPI.TXT');
- Rewrite(Handle);
- WriteLn(Handle,'Génération du nombre PI :');
- Close(Handle);
- Append(Handle);
- a := 10000;
- c := 8400;
- I := 0;
- While b <> c do Begin
- f[b] := a div 5;
- Inc(b);
- End;
- While c > 0 do Begin
- g := 2 * c;
- d := 0;
- b := c;
- While b > 0 do Begin
- Inc(d,f[b] * a);
- Dec(g);
- f[b] := d mod g;
- d := d div g;
- Dec(g);
- Dec(b);
- If b <> 0 Then d := d * b;
- End;
- Dec(c,14);
- Str(e + (d div a),X);
- Write(Handle,Copy('0000',1, 5 - Length(X) - 1));
- Write(Handle,Right(X,Length(X)));
- e := d mod a;
- Inc(I);
- If I> 39 Then Break;
- End;
- Close(Handle);
- END.
on obtiendra le résultat suivant dans le fichier «NUMPI.TXT» :
Génération du nombre PI :3141592653589793238462643383279502884197169399375105820974944592307816406286208998628034825342117067982148086513282306647093844609550582231725359408128481117450
Voir également
Langage de programmation - Turbo Pascal - Référence de procédures et fonctions - ASSIGN
Langage de programmation - Turbo Pascal - Référence de procédures et fonctions - CLOSE
Langage de programmation - Turbo Pascal - Référence de procédures et fonctions - RESET
Langage de programmation - Turbo Pascal - Référence de procédures et fonctions - REWRITE
Référence
Aide-mémoire de Turbo Pascal versions de 3 à 6, Edition Marabout, De Groote, Virga, 1992, ISBN: 2-501-01833-8, page 95.
Le grand livre du Turbo & Borland Pascal 7.0, Edition Micro Application, Reiner Scholles, 1993, ISBN: 2-86899-873-9, page 1211.