Écrire dans un fichier texte (*.txt)

Commenter

Contenu du snippet

Vous vous demmandez comment écrire dans un fichier Texte sans passer par un memo ou un Richedit ?

La réponse est ici :

Source / Exemple : 


procedure X(Sender: TObject);
var
//on crée une variable Textfile
 fichier: textfile;
begin
assignfile(fichier ,'nom_du_fichier.txt');
Reset(fichier); //Si vous voulez réouvrir un fichier sans effacer le contenu, ou bien 
                           //Rewrite(fichier); si vous voulez ecraser le fichier

Write(fichier,'ce kon veu écrire'); //ajoute un mot dans le fichier
WriteLn(fichier,'ce kon veu encore  écrire'); //ajoute une ligne au fichier

closefile(fichier); //ferme le fichier
end;

Conclusion :


Vous pourrez peut être remarquer un étrange ressemblance avec PHP.
Zicklon,
zicklon@free.fr

A voir également

S'inscrire maintenant

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.