Pour des besoins dans mes logiciels personnels, j'avais besoin d'une fonction qui puisse remplacer dans un fichier quelconque, dans un seul appel, plusieurs critères par d'autres, et ce indifféremment en format texte ou binaire.
La difficulté (pour moi, en tout cas...) était de pouvoir passer à la fonction des tableaux de strings ou de "array of array of byte" et de les traiter indifféremment dans ma fonction. Voici ma solution que je propose de partager (et pour laquelle des comentaires ou améliorations sont les bienvenus).
J'ai créé une unité ArrayObject.pas qui contient mon implémentation d'un objet capable d'encapsuler aussi bien des "array of string" que des "array of array of byte" et de les traiter en faisant abstraction de leur contenu réel. Et j'ai fait une unité RBS qui contient ma fonction utilisant ces nouveaux objets.
Tout est dans le fichoer ZIP en pièce jointe avec le projet complet d'un programme de démo permettant de sélectionner un fichier et de le traiter, en forçant un suffixe "_converted" à la fin du nom de fichier. Un petit fichier demo1.txt est joint également.
J'ai failli oublier: tout cela est réalisé en Delphi 6 Personal Edition.
Partager