Ecrire un fichier textes sous bloc-notes
Résolu
Utilisateur anonyme
-
18 août 2005 à 17:16
cs_jeje2 Messages postés 72 Date d'inscription lundi 29 juillet 2002 Statut Membre Dernière intervention 27 décembre 2012 - 19 août 2005 à 09:52
cs_jeje2 Messages postés 72 Date d'inscription lundi 29 juillet 2002 Statut Membre Dernière intervention 27 décembre 2012 - 19 août 2005 à 09:52
1 réponse
cs_jeje2
Messages postés
72
Date d'inscription
lundi 29 juillet 2002
Statut
Membre
Dernière intervention
27 décembre 2012
19 août 2005 à 09:52
19 août 2005 à 09:52
Dans ton programme, crée un fichier ou tu écrit "SALUT A TOUS" puis enregistre le sous coucou.txt
Après ouvre ton fichier avec le bloc-note.
procedure TForm1.Button1Click(Sender: TObject);
var
laFichierSave : TextFile;
lsLigneDeTexte : String;
begin
AssignFile(laFichierSave,'C:\coucou.txt');
Rewrite(laFichierSave);
Writeln(laFichierSave,'SALUT A TOUS');
CloseFile(laFichierSave);
ShellExecute(Handle,'OPEN','C:\coucou.txt',Nil,Nil,SW_SHOWNORMAL);
end;
jéjé
Après ouvre ton fichier avec le bloc-note.
procedure TForm1.Button1Click(Sender: TObject);
var
laFichierSave : TextFile;
lsLigneDeTexte : String;
begin
AssignFile(laFichierSave,'C:\coucou.txt');
Rewrite(laFichierSave);
Writeln(laFichierSave,'SALUT A TOUS');
CloseFile(laFichierSave);
ShellExecute(Handle,'OPEN','C:\coucou.txt',Nil,Nil,SW_SHOWNORMAL);
end;
jéjé
