J'utilise le code suivant pour copier le contenu d'un fichier texte dans une liste box (une ligne de list box pour chaque ligne du fichier) :

procedure TForm1.FormCreate(Sender: TObject);
var
F1: TextFile;
Ch: Char;
i:integer;
begin
AssignFile(F1, '.\plug2.xpl');
Reset(F1);
while not Eof(F1) do
begin
Readln(F1, Ch);
ListBox1.AddItem(Ch, ListBox1);
end;
CloseFile(F1);
end;

Mais la fonction Readln me retourne à chaque fois le premier caractère de la ligne au lieu de la ligne complète. Comment résoudre ce pb ?

Ecusez moi pour le dérangement ;-) J'avais juste oublié de remplacer Ch:Char part Ch: String ...
Voilà ce qui arrive quand on fait des copier-coller avec le fichier d'aide de Delpi ;-)



-------------------------------
Réponse au message :
-------------------------------

J'utilise le code suivant pour copier le contenu d'un fichier texte dans une liste box (une ligne de list box pour chaque ligne du fichier) :

procedure TForm1.FormCreate(Sender: TObject);
var
F1: TextFile;
Ch: Char;
i:integer;
begin
AssignFile(F1, '.\plug2.xpl');
Reset(F1);
while not Eof(F1) do
begin
Readln(F1, Ch);
ListBox1.AddItem(Ch, ListBox1);
end;
CloseFile(F1);
end;

Mais la fonction Readln me retourne à chaque fois le premier caractère de la ligne au lieu de la ligne complète. Comment résoudre ce pb ?

Petit rappel : Un type Char , c'est un seul caractère.
Pour lire un certain nombre de carctères, il faut uitilser un ensemblr de caractère.
Remplace Ch :Char par Chn : String et cela marchera.
Salut A+.
http://philippe.gormand.free.fr/



-------------------------------
Réponse au message :
-------------------------------

Ecusez moi pour le dérangement ;-) J'avais juste oublié de remplacer Ch:Char part Ch: String ...
Voilà ce qui arrive quand on fait des copier-coller avec le fichier d'aide de Delpi ;-)



-------------------------------
Réponse au message :
-------------------------------

J'utilise le code suivant pour copier le contenu d'un fichier texte dans une liste box (une ligne de list box pour chaque ligne du fichier) :

procedure TForm1.FormCreate(Sender: TObject);
var
F1: TextFile;
Ch: Char;
i:integer;
begin
AssignFile(F1, '.\plug2.xpl');
Reset(F1);
while not Eof(F1) do
begin
Readln(F1, Ch);
ListBox1.AddItem(Ch, ListBox1);
end;
CloseFile(F1);
end;

Mais la fonction Readln me retourne à chaque fois le premier caractère de la ligne au lieu de la ligne complète. Comment résoudre ce pb ?

Premier point : remplacer la déclaration ch : Char par ch : String;
Ainsi vous lirez toute la ligne.

Second point : trappez l'erreur en cas d'absence du fichier
{i-} reset(F1) { i+}
if ioresult <> 0 then ...

Troisième point
Je vous conseille d'indenter en décalant le code entre le begin et le End.

Bon courage.



-------------------------------
Réponse au message :
-------------------------------

J'utilise le code suivant pour copier le contenu d'un fichier texte dans une liste box (une ligne de list box pour chaque ligne du fichier) :

procedure TForm1.FormCreate(Sender: TObject);
var
F1: TextFile;
Ch: Char;
i:integer;
begin
AssignFile(F1, '.\plug2.xpl');
Reset(F1);
while not Eof(F1) do
begin
Readln(F1, Ch);
ListBox1.AddItem(Ch, ListBox1);
end;
CloseFile(F1);
end;

Mais la fonction Readln me retourne à chaque fois le premier caractère de la ligne au lieu de la ligne complète. Comment résoudre ce pb ?

Merci pour votre réponse, mais entre temps, j'ai trouvé une solution beaucoup plus simple :

ListBox1.Items.LoadFromFile(filename);

@+, Matt



-------------------------------
Réponse au message :
-------------------------------

Premier point : remplacer la déclaration ch : Char par ch : String;
Ainsi vous lirez toute la ligne.

Second point : trappez l'erreur en cas d'absence du fichier
{i-} reset(F1) { i+}
if ioresult <> 0 then ...

Troisième point
Je vous conseille d'indenter en décalant le code entre le begin et le End.

Bon courage.



-------------------------------
Réponse au message :
-------------------------------

J'utilise le code suivant pour copier le contenu d'un fichier texte dans une liste box (une ligne de list box pour chaque ligne du fichier) :

procedure TForm1.FormCreate(Sender: TObject);
var
F1: TextFile;
Ch: Char;
i:integer;
begin
AssignFile(F1, '.\plug2.xpl');
Reset(F1);
while not Eof(F1) do
begin
Readln(F1, Ch);
ListBox1.AddItem(Ch, ListBox1);
end;
CloseFile(F1);
end;

Mais la fonction Readln me retourne à chaque fois le premier caractère de la ligne au lieu de la ligne complète. Comment résoudre ce pb ?