Discussion :

[salimo79]

salut,comment ouvrir un fichier *.txt (par exemple:etat.txt) par defaut sans determiner le chemin sous delphi?

[ero-sennin]

Salut,

Ton fichier texte en question se trouve t-il dans le même répertoire que l'application ?
Le crées tu avec ton application ?

[salimo79]

oui dans le mème repertoire de m'application

[ero-sennin]

Ce fichier doit être affiché dans un composant (TMemo, TRichEdit) ?
Si oui, tu peux utiliser la méthode LoadFromFile.

Code :

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

1
2
3
4
procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Lines.LoadFromFile('monFichier');
end;

A+

[Dr.Who]

si le fichier est dans le même répertoire que ton application :

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
16
17
18
19
20
 
type
  TForm1 = class(TForm)
    Memo1 : TMemo
    procedure Form1Create(Sender: TObject);
  private
    fPath : string;
  public
  end;
 
var
  Form1 : TForm1;
 
implementation
 
procedure TForm1.Form1Create(Sender: TObject);
begin
  fPath := ExtractFilePath(ParamStr(0));
  Memo1.LoadFromFile(fPath+'etat.txt');
end;

[mick605]

Il faut préciser que ParamStr(0) est la meme chose que Application.ExeName, peut etre un peu plus compréhensible

[Montor]

Ce fichier doit être affiché dans un composant (TMemo, TRichEdit) ?
Si oui, tu peux utiliser la méthode LoadFromFile.

Code :

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

1
2
3
4
procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Lines.LoadFromFile('monFichier');
end;

A+

attention par défaut l'appli va faire référence a la dernière ouverture de opendialog

[Droïde Système7]

Si ce thread est considéré comme résolu, merci de cliquer sur le bouton situé tout au bas, affecté à cet effet.

Les développeurs qui prennent gentiment de temps de répondre, le méritent bien non ?

Mais tu as peut-être oublié de lire les règles de ce club, alors tu es pardonné.