APPEND |
Apposez |
|---|---|
| Delphi/Kylix/Lazarus | System |
Syntaxe
| Procedure Append(varfich:Text); |
| Procedure Append(varfich:TextFile); |
Paramètres
| Nom | Description |
|---|---|
| varfich | Ce paramètre permet d'indiquer l'identificateur de fichier. |
Description
Cette procédure permet d'effectuer l'initialiser un fichier texte en mode d'ajout.
Remarques
- La procédure Append ouvre un fichier texte existant pour l'écriture. La position initiale du fichier est la fin du fichier, donc les futures écritures s'ajoutent à la fin du fichier.
- La procédure Append est intégrée au compilateur.
- Si vous avez appelé AssignFile avant la procédure Append, le Delphi signale l'erreur d'entrée/sortie 102.
- Si le fichier ne peut pas être ouvert pour une raison quelconque, la procédure Append signale le code d'erreur de Windows comme une erreur d'entrée/sortie.
- Notez que vous ne pouvez pas ouvrir un fichier binaire typé ou non pour ajouter des fichiers texte uniquement. Pour ajouter à un fichier binaire, appelez Reset et Seek à la fin du fichier.
Exemple
Voici un exemple de générer les 160 premier nombre de π dans un fichier :
- Program PiSamples;
-
- {$APPTYPE CONSOLE}
- Uses SysUtils;
-
- 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;
- b := 0;
- c := 8400;
- e := 0;
- 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 - Delphi/Kylix/Lazarus - Référence de procédures et fonctions - AssignFile
Langage de programmation - Delphi/Kylix/Lazarus - Type de données élémentaires - TextFile
Langage de programmation - Delphi/Kylix/Lazarus - Référence de procédures et fonctions - Write
Langage de programmation - Delphi/Kylix/Lazarus - Référence de procédures et fonctions - WriteLn
Dernière mise à jour : Mercredi, le 18 février 2015