Dfm_to_text

Soyez le premier à donner votre avis sur cette source.

Vue 4 111 fois - Téléchargée 397 fois

Description

Cette exemple montre comment convertir un fichier DFM binaire en un fichier texte.
rem:
Depuis Delphi 5 on peut choisir si les sorties dfm sont TXT ou Binaire.
Dans le repertoire \Bin on trouve "convert.exe" qui mieux que ce que j'ai proposé.
Mon but et didactique...
A partir d'un fichier DFM en texte peut'on creer un fichier .pas ?
on peut l'appeller DFM to Pas.
la réponse ...me parait faisable...j'y penserai la prochaine fois.

Conclusion :


DFM to Pas ==> la prochaine semaine.

Codes Sources

Ajouter un commentaire

Commentaire

cs_Delphiprog
Messages postés
4580
Date d'inscription
samedi 19 janvier 2002
Statut
Modérateur
Dernière intervention
9 janvier 2013
25 -
Pour renommer un nom de fichier, il est préférable d'utiliser ChangeFileExt au lieu de :
(copy(dlgOpen.FileName,0,length(dlgOpen.FileName)-4)+'.txt')
car on ne connait pas la longueur de l'extension, ni même si elle existe.
Dès que des opérations d'écriture sur disque sont utilisées, il vaut mieux protéger cette partie de code et s'assurer que le fichier sera refermé dans tous les cas.
AssignFile(ff, ...)
try
Rewrite (FF);
(* le code d'écriture ici *)
finally
CLoseFile(FF);
end;

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.