Sauvegarder un tableau dans un fichier

lundi 24 décembre 2007, par bluegyn_spip

1

Gérer les Flux

CREATION D’UN FICHIER TEXTE EN ECRITURE

Soit le Tableau A (Array) :

var a : Array of String ;

Qui contient un nombre indéterminé de lignes.

Je veux l’enregistrer sur le disque dans le Fichier SAUVE_A.TXT

Je déclare un fichier texte en mémoire (handle)

var F : TextFile ;

J’ouvre un Flux de données entre le disque et la mémoire réservée :

AssignFile( F , ’SAUVE_A.TXT’ ) ;

Je désactive les erreurs de Flux d’entrée et de sortie (INPUT)

{$I-}

Je définis l’accès au Fichier Disque en écriture (WRITE)

Rewrite( F ) ;

Je rétablis la gestion des erreurs d’Input.

{$I+}

Si la manip s’est effectuée sans aucune erreur (CODE = 0)

if (IOresult=0) then

Alors je peux écrire mon tableau ligne par ligne dans mon fichier

...

WriteLN ( F , Ligne ) ;

...

En cas d’erreur de flux (Exemple d’un fichier pré-existant protégé)

else

ShowMessage( ’ERREUR : dans la sauvegarde du fichier’) ;

A la fin de l’écriture, je restitue au système le handle réservé (je referme mon fichier)

Close ( F ) ;

2 ECRITURE DU TABLEAU DANS LE FICHIER

Cette partie de code est à intégrer dans la rubrique

Placer le Tableau ligne par ligne dans el Fichier texte :

Je lis mon tableau de lignes, ligne par ligne du début à la fin.

for i := Low ( A ) to High ( A ) do WriteLN ( F , A [ i ] ) ;

3 CODE COMPLET

Procedure SaveArrayToFile;



var 

  A: Array of String;

  i: Integer;

  F: TextFile;



Begin



AssignFile ( F , 'SAUVE_A.TXT' );



{$I-}

Rewrite ( F );

{$I+}



if (IOresult=0) then 

  for i := Low ( A ) to High ( A ) do 

    WriteLN ( F , A [ i ] )

else 

  ShowMessage( 'ERREUR: dans la sauvegarde du fichier' );



Close ( F );



End;

Sauvegarder un tableau dans un fichier

1

CREATION D’UN FICHIER TEXTE EN ECRITURE

2

ECRITURE DU TABLEAU DANS LE FICHIER

3

CODE COMPLET

Manip’s

Dans la même rubrique

Mots-clés