Discussion :

[Draner]

Bonjour,
J’aurais besoin d’une autre indication
Au démarrage de mon application j’aurais besoin d’ouvrir un fichier txt qui se situe dans un répertoire à la racine de l’exécutable.

-Application.exe (Application)
-Informations (Répertoire)
--Informations.txt (Fichier txt)

Je sait par expérience qu’il faut faire quelque chose comme :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
 
If(fileexists->destination)
  {
              Ouverture dans un RichEdit…
  }
  else
  {
              Message d’erreur dans le RichEdit…
  }

Mais le hic c’est que je ne me rappel pas du tout de la syntaxe ni de comment faire pour que le texte apparaisse comme dans le fichier txt alors que nous sommes dans un RichEdit…

Je vous remercie pour vos indications.

Cordialement.

[ero-sennin]

Salut,

Pour ma part, je ferai ceci:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  AnsiString Destination;
 
  Destination="C:\\test.txt"; // Le chemin de ton fichier
  if (FileExists(Destination))
  {
    RichEdit1->Lines->LoadFromFile(Destination); // Chargement du fichier dans le RichEdit
  }
  else
  {
    RichEdit1->Lines->Add("Erreur! Fichier inexistant");
    ShowMessage("Erreur! Fichier inexistant"); // Message d'erreur
  }
}

J'ai mis 2 messages d'erreurs, l'un dans le RichEdit et l'autre en faisant un ShowMessage ...

J'espère que c'est bon pour toi ...
A+

[Draner]

Actuellement mon fichier est dans un répertoire à la racine de l'exé et le tout est sur "d:". Du coup le fichier est introuvable

Quelqu'un pourrais me donné une indication pour retourné l'emplacement de l'exé ?

Merci beaucoup.
Cordialement.

[ero-sennin]

Re-Bonjour,

Pour te placer dans le répertoire l'application, il faut utiliser la fonction ExtractFilePath ... voici le code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  AnsiString Destination;
 
  Destination=ExtractFilePath(Application->ExeName)+"\\MonDossier\\test.txt"; // Le chemin de ton fichier
  if (FileExists(Destination))
  {
    RichEdit1->Lines->LoadFromFile(Destination); // Chargement du fichier dans le RichEdit
  }
  else
  {
    RichEdit1->Lines->Add("Erreur! Fichier inexistant");
    ShowMessage("Erreur! Fichier inexistant"); // Message d'erreur
  }
}

ExtractFilePath() : Extrait le lecteur et le répertoire d'un nom de fichier.
Application->ExeName : Donne le nom de ton application (ou peut aussi utiliser ParamStr(0)).

Voilà, bon courage

Le reste n'a pas changé.
Si tu veux plus de renseignement, utilise la touche F1 ...

[Draner]

Et bien ca ne marche pas mieux
Peut être demain je trouverais une solution
Merci quand même

[ero-sennin]

Post ton code afin que l'on puisse regarder où ca coince ...