Discussion :

[heart100]

salut tout le monde , j'ai vraiment un problème que j'ai lui cherché la solution depuis pas mal du temps mais , j'arrive pas a trouver encore la solution , je pense que ce problème nécessite beaucoup plus de compétence dans la programmation Delphi .S'il vous plait n'hésiter pas de m'aider .
Mon problème concerne l'exportation d'un table Delphi a un fichier texte.

Comme vous voyez un simple table delphi .
ce que je veux , c'est de exporter ces données vers un fichier text.voila mon code:

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
 
procedure TForm1.Button7Click(Sender: TObject);
var
   DataSetText:TSTrings;
  ALine:string;
  begin
  DataSetText:=TStringList.Create;
   IBTABLE1.First;
 
  With ibtable1 do
      begin
      while not eof  do begin
      Aline:=FieldbyName('compte').value+
      FieldbyName('nom').value+ FieldbyName('prenom').value+
      (floattostrf(fieldbyname('salaire').value, ffFixed, 10, 2))+'                   '
      +(floattostrf(fieldbyname('salaire2').value, ffFixed, 10, 2));
 
      DataSetText.add(Aline);
 
     ibtable1.Next;
     end;
 
    end;
  DataSetText.SaveTofile('c:\AT\ss.text');
  showmessage(' Données exportées '+#10#13+'avec succés');
end;

le resultat:

Comme vous visez , j'ai réussi d'avoir un résultat donc maintenant je vais expliquer mon souci K si vous regarder bien le fichier texte les champ varchar () sont bien organisé parce que j'ai fait" true" a la propriété du champs fixedchar , mais le probleme reste dans les champ float parce que ya pas de propriété fixed char donc donnez moi une idée pour avoir comme ceci :

[Andnotor]

Remplace tous ces FLoatToStrf par un seul Format.

Code :

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

Format('%20f%20f', [fieldbyname('salaire').value, fieldbyname('salaire2').value]);

[heart100]

Remplace tous ces FLoatToStrf par un seul Format.

Code :

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

Format('%20f%20f', [fieldbyname('salaire').value, fieldbyname('salaire2').value]);

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
 
procedure TForm1.Button7Click(Sender: TObject);
var
   DataSetText:TSTrings;
  ALine:string;
  begin
  DataSetText:=TStringList.Create;
   IBTABLE1.First;
 
  With ibtable1 do
      begin
      while not eof  do begin
      Aline:=FieldbyName('compte').value+
      FieldbyName('nom').value+ FieldbyName('prenom').value+
      Format( '%20f%20f' ,[fieldbyname('salaire').value, fieldbyname('salaire2').value]);
 
      DataSetText.add(Aline);
 
     ibtable1.Next;
     end;
 
    end;
  DataSetText.SaveTofile('c:\AT\ss.text');
  showmessage(' Données exportées '+#10#13+'avec succés');
end;

[Andnotor]

AsFloat à la place de Value.

[heart100]

AsFloat à la place de Value.

Un très grand merci mon ami. Enfin c'est résolu.