Discussion :

[BECHE]

Voila, je coice depuis 2 jours sur 'certainement' un rien .
pourtant, pour tester, j'ai pris à la lettre des exemples sur les tutos

Je veux lire plusieurs lignes d'1 fichier text et le remettre dans un Mémo

Déja , je trouve bizarre que je sois obligé d'écrire Form2
devant le memo.lines.add alors que le code est écrit sur l'unit2 donc Form2. Mais ; il a bien voulu compiler:

Maintenant que la compile est faite, rien ne s'écrit dans la mémo, je ne vois vraiment pas pourquoi
Si quelqu'un avait une idée : ci joint le bout de code défaillant

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
procedure LireFichier(Fich:string);
 Var
F: TextFile;
 ligne:string;
begin
if not FileExists(Fich)  then exit;
Assign(F,Fich);
Reset(F);
While not EOF do
begin
Readln(F,ligne);
Form2.Memo.lines.add(ligne);
end;
Closefile(F);
end;
 
procedure TForm2.Button2Click(Sender: TObject);
begin
LireFichier('D:\tutu2.txt');
end;

Pensez aux Balises "Code", NoisetteProd

[bjl]

Bonjour,

il est normal que tu doives écrire form2 puisue ta procédure n'est pas une procédure de TForm2.

Essaies

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
procedure LireFichier(Fich : string; AMemo : TMemo);
Var
 F: TextFile;
 ligne:string;
begin
if not FileExists(Fich) then exit;
Assign(F,Fich);
Reset(F);
While not EOF(F) do
 begin
 Readln(F,ligne);
 AMemo.lines.add(ligne);
end;
Closefile(F);
end; 
 
procedure TForm2.Button2Click(Sender: TObject); 
begin 
LireFichier('D:\tutu2.txt'; Memo); 
end;

j'ai aussi remplacé "EOF" par "EOF(F)" (çà évitera une erreur I/O)

et utilises les balises de code (c'est plus facile à lire)

[Raylemon]

Pense à utiliser les balises code pour que ça soie plus clair

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
 procedure TForm2.LireFichier(Fich:string); //il faut déclarer la procedure
Var
  F: TextFile;
  ligne:string;
begin
  if not FileExists(Fich) then exit;
  AssignFile(F,Fich);
  Reset(F);
  While not EOF(F) do begin
    Readln(F,ligne);
    Memo.lines.add(ligne);
  end;
  Closefile(F);
end;
 
procedure TForm2.Button2Click(Sender: TObject);
begin
LireFichier('D:\tutu2.txt');
end;

J'ai corrigé de tête, mais normallement ça doit être correct

Sinon, un truc qui marche bien, c'est Memo1.Lines.LoadFromFile ...

[BECHE]

OK mais à la compil, Delphi me dit qu'il n'y a pas assez de paramètres originaux pour le code suivant ,????

Code :

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

1
2
3
4
procedure TForm2.Button2Click(Sender: TObject);
begin
LireFichier('D:\tutu2.txt'; Memo);
end;

Coment fait-on pour utiliser les balises ?[/code]

[jmjmjm]

Pour utiliser les balises, tu cliques sur code avant le debut de ton code puis tu recliques sur code a la fin de ton code

[Raylemon]

Si tu prend le code de Bjl, vérifies que la procédure est correctement déclarée. Apparemment, tu as laissé l'ancienne

[pitango]

OK mais à la compil, Delphi me dit qu'il n'y a pas assez de paramètres originaux pour le code suivant ,????
Il faut remplacer

Code :

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

LireFichier('D:\tutu2.txt'; Memo);

par

Code :

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

LireFichier('D:\tutu2.txt', Memo);

A+

[bjl]

OK mais à la compil, Delphi me dit qu'il n'y a pas assez de paramètres originaux pour le code suivant ,????
Il faut remplacer

Code :

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

LireFichier('D:\tutu2.txt'; Memo);

par

Code :

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

LireFichier('D:\tutu2.txt', Memo);

A+

pardon, c'est une erreur de frappe.

[BECHE]

Merci beaucoup à tout le monde pour toutes ces indications.
Mon probléme est réglé mais , une question subsiste.
Car en titillant, j'avais trouvé une parade à mon problème : ne pas mettre le second indicateur de la déclaration de la procédure comme ceci

Code :

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

procedure LireFichier(Fich:string);

ni dans l'instruction

Code :

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

1
2
3
4
procedure TForm1.Button3Click(Sender: TObject);
begin
LireFichier ('D:\tutu2.txt');
end;

Quelle impact cela génere le fait de le metre ou non ?