Discussion :

[A0080]

Bonjour à vous. Voilà mon petit problème. J'ai une procédure qui m'enregistre des résulats dans un fichier texte :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Assignfile(f, 'jeux.txt');
    rewrite(f);
    n:='Le nombre de bonnes reponses est :'+ inttostr(resultat) +'et le nombre de mauvaises reponses est :'+ inttostr(resultat2);
    write(f,n);
    closefile(f);

La procédure est associé à un bouton.

Ensuite mon but serait de créer une autre procédure associé à un bouton qui m'ouvrirait une boite de dialogue dans laquelle je pourrais récupérer ce fameux fichier .txt et le lire mais je n'y arrive pas :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
if not Opendialog1.Execute then exit;
Assignfile(f,Opendialog1.FileName);
If Opendialog1.Execute then.....

Après je sais pas quoi mettre j'ai essayé de l'afficher à travers un Label mais j'ai pas réussi. Je veux juste arriver à le lire quoi en fait.

Merci d'avance de vos réponses.++

[Jipété]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
if Opendialog1.Execute then 
  Memo1.Lines.LoadFromFile(Opendialog1.FileName);

devrait suffire.

Mes 2 cts,
--
jp

[qi130]

Remplace write par writeln, et pour lire c'est Readln...

[A0080]

Vous êtes toujours autant au top rien à dire vos deux solutions sont impeccables. Merci à toi Jipété (je pense que je vais prendre la tienne et merci à toi qi130.

Merci tout le monde résolu ++.