Description...
Exemple...
Note...
Voir aussi...
Traduction...
Procedure Habilitation DebuterExportation(Ecrire : Procedure(B : Binaire))
Pour exporter un objet et toute sa descendance, il suffit d'appeler la procédure Exporter du type Objet.
Variable
F:Fichier;
Procedure EcrireFichier(B : Binaire)
/* Realise l'exportation dans un fichier. */
Debut
F.Lire(B);
Fin Procedure
Principal
Variable
A:Caractere;
B:Entier;
C:Reel;
D:Booleen;
Debut
A="Bonjour le monde";
B=10;
C=3.1416;
D=Vrai;
F=Fichier("c:/tmp/export.dmp", EcritureBinaire);
DebuterExportation(EcrireFichier);
A.Exporter();
ExporterEntier(B);
ExporterReel(C);
ExporterEnumere(D);
TerminerExportation();
Fin Principal
ExportAnfangen | BeginExportation | 开始出口 | ComenzarExportacion | - | - | - | - |