Section courante

A propos

Section administrative du site

APPEND

Apposez
Delphi/Kylix/Lazarus 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'initialiser un fichier texte en mode d'ajout.

Exemple

Voici un exemple de générer les 160 premier nombre de π dans un fichier :

  1. Program PiSamples;
  2.  
  3. {$APPTYPE CONSOLE}
  4. Uses SysUtils;
  5.  
  6. Var
  7.  Handle:Text;
  8.  I:Integer;
  9.  a,b,c,d,e,g:LongInt;
  10.  f:Array[0..8401]of LongInt;
  11.  X:String;
  12.  
  13. Function Right(Const S:String;L:Byte):String;Begin
  14.  Right:=Copy(S,Length(S)-L+1,L);
  15. End;
  16.  
  17. BEGIN
  18.  Assign(Handle, 'NUMPI.TXT');
  19.  Rewrite(Handle);
  20.  WriteLn(Handle,'Génération du nombre PI :');
  21.  Close(Handle);
  22.  Append(Handle);
  23.  a := 10000;
  24.  b := 0;
  25.  c := 8400;
  26.  e := 0;
  27.  I := 0;
  28.  While b <> c do Begin
  29.   f[b] := a div 5;
  30.   Inc(b);
  31.  End;
  32.  While c > 0 do Begin
  33.   g := 2 * c;
  34.   d := 0;
  35.   b := c;
  36.   While b > 0 do Begin
  37.    Inc(d,f[b] * a);
  38.    Dec(g);
  39.    f[b] := d mod g;
  40.    d := d div g;
  41.    Dec(g);
  42.    Dec(b);
  43.    If b <> 0 Then d := d * b;
  44.   End;
  45.   Dec(c,14);
  46.   Str(e + (d div a),X);
  47.   Write(Handle,Copy('0000',1, 5 - Length(X) - 1));
  48.   Write(Handle,Right(X,Length(X)));
  49.   e := d mod a;
  50.   Inc(I);
  51.   If I> 39 Then Break;
  52.  End;
  53.  Close(Handle);
  54. 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