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