Discussion :

[rock-lee]

Bonjour à tous,

Je suis vraiment débutant en programmation langage delphi.

J'ai créer un petit programme qui lit un fichier texte et qui l'affiche dans un memo.

Cependant j'aimerait pouvoir le lancer depuis la ligne de commande avec comme argument le fichier texte. quelque chose du style

mon_fichier.exe toto.txt

Est-ce que cela est possible , si oui auriez-vous une piste???

Merci d'avance

[Fabrice ROUXEL 1]

ParamCount et ParamStr() + traitement du fichier (vérif extension, chargement dans le memo) dans le MainForm.Create.

[rock-lee]

donc dans ce code la , je devrais placé ou cette fonction?? :

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
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
 
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  Tfrm_main = class(TForm)
    Memo1: TMemo;
    btn_ok: TButton;
    procedure FormCreate(Sender: TObject);
    procedure btn_okClick(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  frm_main: Tfrm_main;
 
implementation
 
{$R *.dfm}
 
 
procedure Tfrm_main.btn_okClick(Sender: TObject);
Var F: TextFile;
Stg:String;
begin
//Lire le contenu du fichier
Memo1.Clear; //Efface le contenu de Memo1
AssignFile(F,ExtractFilePath(Application.ExeName)+'test.txt');
Reset(F);
repeat //Repeter...
Readln(F,Stg); //Lit une ligne du fichier texte jusqu'au prochain sut de ligne
Memo1.Lines.Add(Stg); //Affiche dans Memo1 le contenu de la variable
until EOF(F);// ...jusqu'à ce que la position en cours du pointeur se trouve en fin de fichier
CloseFile(F);
 
end;
 
procedure Tfrm_main.FormCreate(Sender: TObject);
begin
 
end;
end.

[Cl@udius]

Salut

Tu peux faire quelque chose de ce genre:

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
21
22
23
24
25
26
27
28
29
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  if ParamCount = 1 then
  begin
    // Effectuer test d'usage sur le paramètre (extension, ...)
    LoadFileIntoMemo(ParamStr(1));
  end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  LoadFileIntoMemo(ExtractFilePath(Application.ExeName) + 'test.txt');
end;
 
procedure TForm1.LoadFileIntoMemo(F: TFilename);
begin
  with Memo1 do
  begin
    Clear;
    Lines.LoadFromFile(F);
  end;
end;
 
end.

@+ Claudius

[rock-lee]

Il me dit que " LoadFileIntoMemo " n'est pas déclaré

Je suis désolé je pose surement des questions basique , mais je n'y connais vraiment rien.

[Cl@udius]

Il faut bien sûr que tu déclares la fonction dans la partie interface.

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
interface

uses Forms, ...;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Déclarations privées }
    procedure LoadFileIntoMemo(F: TFilename);
  public
    { Déclarations publiques }
  end;

@+

[rock-lee]

Désolé je suis un boulay, mais dans cette procédure :

Code :

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

1
2
3
4
5
6
7
8
9
 
procedure Tfrm_main.btn_okClick(Sender: TObject);
Var F: TextFile;
Stg:String;
begin
//Lire le contenu du fichier
Memo1.Clear; //Efface le contenu de Memo1
//AssignFile(F,ExtractFilePath(Application.ExeName)+'test.txt');
 LoadFileIntoMemo(ExtractFilePath(Application.ExeName) + 'test.txt');

Si je mets le test.txt , il va pas allé chercher le fichier texte que je mets en argument dans ma ligne de commande...Je suis pas sur de comprendre.

et dans cette procédure :

Code :

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

1
2
3
4
5
6
7
8
9
 
procedure Tfrm_main.FormCreate(Sender: TObject);
begin
  if ParamCount = 1 then
  begin
     //Effectuer test d'usage sur le paramètre (extension, ...)
   LoadFileIntoMemo(ParamStr(1));
  end;
end;

Il me dit que FormCreate n'est pas un membre associé de Tfrm_main, c'est peut etre du a Delphi 2005 que j'utilise...

je ne sais pas

[Cl@udius]

Montre-nous ton code partie interface et implémentation, l'unité donc.

@+ Claudius

[rock-lee]

D'accord

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
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
 
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  Tfrm_main = class(TForm)
    Memo1: TMemo;
    btn_ok: TButton;
    procedure btn_okClick(Sender: TObject);
  private
    { Déclarations privées }
 
  public
    { Déclarations publiques }
    procedure LoadFileIntoMemo(F: TFilename);
  end;
 
var
  frm_main: Tfrm_main;
 
 
implementation
 
{$R *.dfm}
 
procedure Tfrm_main.FormCreate(Sender: TObject);
begin
  if ParamCount = 1 then
  begin
     //Effectuer test d'usage sur le paramètre (extension, ...)
   LoadFileIntoMemo(ParamStr(1));
  end;
end;
 
 
procedure Tfrm_main.LoadFileIntoMemo(F: TFilename);
begin
  with Memo1 do
  begin
    Clear;
    Lines.LoadFromFile(F);
  end;
end;
 
 
 
procedure Tfrm_main.btn_okClick(Sender: TObject);
Var F: TextFile;
Stg:String;
begin
//Lire le contenu du fichier
Memo1.Clear; //Efface le contenu de Memo1
//AssignFile(F,ExtractFilePath(Application.ExeName)+'test.txt');
 LoadFileIntoMemo(ExtractFilePath(Application.ExeName) + 'test.txt');
Reset(F);
repeat //Repeter...
Readln(F,Stg); //Lit une ligne du fichier texte jusqu'au prochain sut de ligne
Memo1.Lines.Add(Stg); //Affiche dans Memo1 le contenu de la variable
until EOF(F);// ...jusqu'à ce que la position en cours du pointeur se trouve en fin de fichier
CloseFile(F);
 
end;
 
end.

la il y a tout.

[Cl@udius]

Comme tout à l'heure l'èvenement Create de la forme doit être déclarée dans la partie interface.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
type
  Tfrm_main = class(TForm)
    Memo1: TMemo;
    btn_ok: TButton;
    procedure FormCreate(Sender: TObject);
    procedure btn_okClick(Sender: TObject);
  private
    { Déclarations privées }
 
  public
    { Déclarations publiques }
    procedure LoadFileIntoMemo(F: TFilename);
  end;

Tu te retrouves dans cette situation car tu n'utilises les fonctionnalités de l'EDI.
Par exemple, tu poses un bouton sur ta fiche, il va se nommer 'Bouton1'. Pour implémenter son évènement OnClick, tu sélectionnes ce bouton, tu vas sur l'inspecteur d'objets et tu double-clic sur OnClick. Delphi qui est sympa va déclarer l'évènement automatiquement dans la partie interface et également d'ouvrir un 'squelette' dans la partie implémenation.

Voilà pour l'astuce.

@+ Claudius

[Rayek]

Je me permet au passage de préciser que la réponse sur le passage de paramètres était dans la

http://delphi.developpez.com/faq/?pa...tion#paramprog

[rock-lee]

Merci beaucoup claudius, et désolé si j'ai fait appel à vous malgrès qu'il y ait de la doc dans la FAQ. Mais bon le delphi je connais depuis ce matin 8h. Jamais vu ni appliqué auparavant, alors pour l'implémenter comme ca , même pour un programme basique , j'avais besoin d'un certain accompagnement.

[Fabrice ROUXEL 1]

Et dans Delphi menu executer-> parametre tu peux transmettre les parametres à l'application avant de l'executer.

[CapJack]

Juste un détail : TMemo.LoadFromFile écrase le contenu du mémo. Pas besoin d'écrire une fonction LoadFileIntoMemo.

[Fabrice ROUXEL 1]

non

[CapJack]

Euh.. "non" quoi ? "Non, t'as raison, pas besoin", ou "non, t'as tort et le tort tue" ?

[Fabrice ROUXEL 1]

Non, pas besoin d'écrire une fonction LoadFileIntoMemo.

Penses à mettre

[Cl@udius]

pas besoin d'écrire une fonction LoadFileIntoMemo.

Effectivement dans la mesure où LoadFromFile ecrase le contenu du mémo, cette fonction n'a que peu d'intérêt. L'exemple se voulait plus didactique pour notre ami qui débute avec Delphi.

@+ Claudius