Discussion :

[delphino7]

bonjour

j'ai ecris un program pour affiché chaque ligne (enregistrement) d'une table dans un fichier text mais il maffiche seulement le premier champ meme pas le premier enregistrement !!!

par exemple : je veux afficher l'enregistrement Nom et Prenom de la table il m'affiche seulement le Nom et moi je veux ce resultat que voici :

Nom prenom
nom prenom

voila le source

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TForm1.Button11Click(Sender: TObject);
 
var ligne : tstrings;
begin
while table_employ.eof do
begin
ligne := tstringlist.create;
ligne.add(table_employ.FieldByName('Nom_employ').AsString);
ligne.add(table_employ.FieldByName('Prenom_employ').AsString);
ligne.savetofile('D:\table\template\test.txt');
ligne.free;
table_employ.Next;
end;
end;

quelqu'un peu m'aider !!!?

merci

[Andnotor]

Forcement si à chaque ligne tu recrées une nouvelle liste et écrase l'ancien fichier.

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
procedure TForm1.Button11Click(Sender: TObject);
var ligne : tstrings;
 
begin
  ligne := tstringlist.create;
 
  try
    table_employ.First;
 
    while table_employ.eof do
    begin
      ligne.add(table_employ.FieldByName('Nom_employ').AsString +' '
               +table_employ.FieldByName('Prenom_employ').AsString);
 
      table_employ.Next;
    end;
 
    ligne.savetofile('D:\table\template\test.txt');
  finally
    ligne.free;
  end;
end

[alheuredudejeuner]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
var ligne : tstrings;
begin
ligne := tstringlist.create;
while table_employ.eof do
begin
ligne.add(table_employ.FieldByName('Nom_employ').AsString) +','+
            table_employ.FieldByName('Prenom_employ').AsString;
table_employ.Next;
ligne.savetofile('D:\table\template\test.txt');
ligne.free;
end;
end;

après tu récupères avec le memory datset de la jvcl, voir même le Tclientdataset, mais une recherche sur Delphi et CVS devrait te donner des renseignement plus précis

André

[delphino7]

avec ce source

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
procedure TForm1.Button11Click(Sender: TObject);
var ligne : tstrings;
 
begin
  ligne := tstringlist.create;
 
  try
    table_employ.First;
 
    while table_employ.eof do
    begin
      ligne.add(table_employ.FieldByName('Nom_employ').AsString +' '
               +table_employ.FieldByName('Prenom_employ').AsString);
 
      table_employ.Next;
    end;
 
    ligne.savetofile('D:\table\template\test.txt');
  finally
    ligne.free;
  end;
end

le fichier text reste vide !!!!!!!!!!!!!!!!!!!!!!!!!! ça marche pas

avec ça aussi ça marche pas le fichier text reste vide!!!:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
var ligne : tstrings;
begin
ligne := tstringlist.create;
while table_employ.eof do
begin
ligne.add(table_employ.FieldByName('Nom_employ').AsString) +','+
            table_employ.FieldByName('Prenom_employ').AsString;
table_employ.Next;
ligne.savetofile('D:\table\template\test.txt');
ligne.free;
end;
end;

[Andnotor]

Alors, c'est que ta table ne contient aucun enregistrement

[delphino7]

si elle contient 5 enregistrement je vous l'ai dit en haut elle m'affiche avec mon premier code source seulement le non du premier enregistrement

[Andnotor]

Bien sûr que la boucle doit être:

Code :

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

while not table_employ.eof do

Ahh copier/coller