Bonjour, je souhaiterais enregistrer un TStringGrid en un fichier CSV ou bien XML.
J'ai essayé un SaveToFile('nom du fichier.csv') : il me donne un fichier texte ordinaire. Pouvez-vous m'aider s'il vous plaît ?
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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64 unit Unit1; {$mode objfpc}{$H+} interface uses Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Grids, StdCtrls; type { TFormMonFormulaire } TFormMonFormulaire = class(TForm) btnSauvegarderXML: TButton; btnSauvegarderCSV: TButton; Button1: TButton; btnFermer: TButton; StringGrid1: TStringGrid; procedure btnFermerClick(Sender: TObject); procedure btnSauvegarderCSVClick(Sender: TObject); procedure btnSauvegarderXMLClick(Sender: TObject); procedure StringGrid1Click(Sender: TObject); private { private declarations } public { public declarations } end; var FormMonFormulaire: TFormMonFormulaire; implementation {$R *.lfm} { TFormMonFormulaire } procedure TFormMonFormulaire.StringGrid1Click(Sender: TObject); var i : Integer; begin With StringGrid1 do For i:=1 To ColCount-1 do Cells[i,0]:='Col '+IntToStr(i); end; procedure TFormMonFormulaire.btnSauvegarderXMLClick(Sender: TObject); begin StringGrid1.SaveToFile('Grille.XML'); end; procedure TFormMonFormulaire.btnFermerClick(Sender: TObject); begin Close; end; procedure TFormMonFormulaire.btnSauvegarderCSVClick(Sender: TObject); begin end; end.
Partager