APPEND |
Apposez |
---|---|
Free Pascal | System |
Syntaxe
Procedure Append(var t:Text); |
Paramètres
Nom | Description |
---|---|
t | Ce paramètre permet d'indiquer l'identificateur de fichier |
Description
Cette procédure permet d'effectuer l'initialisation d'un fichier texte en mode d'ajout.
Remarques
- Si le fichier n'existe pas au moment de l'ajout, une erreur d'exécution est déclenché. Ce comportement a changé dans les plateformes Windows et Linux où à partir de la version 1.0.6 de Free Pascal, le fichier doit être créé dans le mode d'ajout.
- La procédure Append ouvre un fichier existant en mode ajouter. Toutes les données écrites sur t seront ajoutées au fichier. Seuls les fichiers Text peuvent être ouverts en mode ajout. Après un appel à Append, le fichier t devient en écriture seulement. Le partage de fichiers n'est pas pris en compte lors de l'appel de la procédure Append.
Exemple
Voici un exemple de générer les 160 premier nombre de π dans un fichier :
Essayer maintenant !
- 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
Gladir.com - Langage de programmation - Free Pascal - Référence de procédures et fonctions - «CLOSE»
Gladir.com - Langage de programmation - Free Pascal - Référence de procédures et fonctions - «RESET»
Gladir.com - Langage de programmation - Free Pascal - Référence de procédures et fonctions - «REWRITE»
Dernière mise à jour : Samedi, le 18 juillet 2015