var SourceF : File; DestF : File; Ch : Char; begin // ouverture du fichier source try AssignFile(SourceF,'FichierSource.txt'); Reset(SourceF, 1); except ... end; // Creation du fichier Dest ...ReWrite(DestF); // Lecture repeat if condition-d'insertion then insertion else Write(DestF,Ch); ecriture du caractère; until ; // ferme les fichiers CloseFile( SourceF ); CloseFile( DestF ); end;.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question