Append |
Ajouter |
|---|---|
| HighSpeed Pascal | System |
Syntaxe
| Procedure Append(var F:text[;Name:String][;BufSize:LongInt]); |
Paramètres
| Nom | Description |
|---|---|
| F | Ce paramètre permet d'indiquer l'identificateur de fichier |
| Name | Ce paramètre permet d'indiquer le nom du fichier |
| BufSize | Ce paramètre permet d'indiquer la taille du tampon |
Description
Cette procédure permet d'effectuer l'initialisation d'une fichier texte en mode ajouter.
Remarque
- La procédure Append peut être utilisée de 3 manières différentes :
Append(MyFile);Positionne le pointeur de fichier à la fin d'un fichier ayant déjà été ouvert ou auquel un nom de fichier lui a été associé à l'aide de Assign.
Append(MyFile, 'NAME.EXT1');Fait la même chose que réécrire, mais positionne le pointeur de fichier à la fin du fichier, plutôt que de le supprimer en premier.
Append(MyFile,'NAME.EXT',10000);
Fait la même chose que ci-dessus, mais crée également un tampon de 10000 octets.
Exemple
L'exemple suivant permet d'écrire dans un fichier «Bonjour» suivit du message «Dernière ligne du fichier» :
- Program AppendSamples;
- Var
- DataFile:Text;
- X:Byte;
- Begin
- { Cree un fichier temporaire. }
- Assign(DataFile,'temp.data' );
- Rewrite(DataFile);
- For X:=1 to 100 do Writeln(DataFile,'Bonjour');
- Close(DataFile);
- { Ajoutons maintenant quelques données. }
- Append(DataFile);
- Writeln(DataFile,'Dernière ligne du fichier');
- Close(DataFile);
- End.
Dernière mise à jour : Lundi, le 20 avril 2020