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;

@+