opendialog et fichiers texte Résolu

Question

Lorsque j'appel un opendialog, je ne peut plus ouvrir de fichier texte, apr&#232;s.

>L'ouverture de l'opendialog: 
opendialog1.InitialDir:='';
     opendialog1.Execute;
     if opendialog1.filename='' then showmessage('Red&#233;finissez le chemin du fichier')
     else edit1.Text:=opendialog1.FileName;

>L'ouverture de fichier:
ouverture_fichier_F;

     i:=0;
     form1.combobox3.clear;
     //affichage de la liste de matricules d'individus
     while not eof(F) do
     begin
     seek(F,i);
     read(F,individu);
     form1.combobox3.Items.Add(individu.matricule);

     
     i:=i+1;
     end;

:Les donn&#233;es de F ne sont plus lues!

jlen100 · Accepted Answer

opendialog modifie le chemin par defaut de l'application donc ton
assignfile redemarre du chemin choisi  pour ouvrir le fichier de
l'opendialog il faut faire:

assignfile(f,opendialog1.filename).

si tu veux repartir du repertoire precedent il faut le memoriser avant l'appel a opendialog.execute:

chemin_actuel: GetCurrentDir;

 et le restaurer apres. SetCurrentdir(chemin_actuel);

bonne prog

jlen100 · Answer

il y a plus simple pour charger un fichier texte dans un combobox:

form1.combobox3.Items.loadfromfile(opendialog1.FileName).

ensuite 

comment ouvres-tu ton fichier dans ouverture_fichier_F?;

comment as-tu declar&#233; ton fichier F?

si ton fichier est un fichier texte tu ne peux pas le charger dans une variable record.

bonne prog

Tiekula · Answer

L'opendialog me permet de connaitre le nom d'un fichier autre que celui que je veux ouvrir avec "ouverture_fichier_F"

"ouverture_fichier_F" marche sauf apr&#232;s l'ouverture de l'opendialog.

Pour l'ouverture de F:

procedure ouverture_fichier_F;
begin
        //Attribution d'un nom et d'un emplacement au fichier f
        assignfile(F,'\individu.dat');

        {$I-}reset(F);{$I+}
        if ioresult<>0 then //rewrite(f) else reset(f);
        begin
        if  not FileExists('/individu.dat') then
        begin
        rewrite(f)
        end
        else
        begin
         {$I-}closefile(F);
          reset(F);
        end;
        end;

        

        //mise en place du curseur au d&#233;but du fichier
        seek(F,0);
end;

Tiekula · Answer

Merci beaucoup, &#231;a marche.

Ca donne: 
dossier_courant:=GetCurrentDir;
     opendialog1.InitialDir:='';
     opendialog1.Execute;
     if opendialog1.filename='' then showmessage('Red&#233;finissez le chemin du fichier')
     else edit1.Text:=opendialog1.FileName;
     SetCurrentdir(dossier_courant);

f0xi · Answer

cherche l'erreur :



dossier_courant:=GetCurrentDir;

opendialog1.InitialDir:='';

opendialog1.Execute;

if opendialog1.filename='' then showmessage('Red&#233;finissez le chemin du fichier')

else edit1.Text:=opendialog1.FileName;






A modifier par :



if opendialog1.execute then 

   edit1.text := opendialog1.filename;



tout simplement



TOpenDialog.Execute renvois True si l'utilisateur click sur le boutton OK de opendialog et qu'un fichier est selectionn&#233;.

Renvois False dans tout les autre cas (fichier non selectionn&#233;, appuis sur Annuler ou Fermer).

Opendialog et fichiers texte

5 réponses

Votre réponse

Discussions similaires