Remplir un TStringGrid de façon automatique à partir d'un fichier CSV
Bonjour,
Je viens vers vous car je ne sais pas comment remplir un TStringGrid de façon automatique à partir d'un fichier CSV.
Le format d'un fichier CSV est du genre :
Citation:
Editeur;Auteur;Titre
Eyrolles;Marc Ferranti;Lazarus devient indispensable
Magellan;Jack Corbis;La mer source de vie.
(Cherchez pas les titres ils n'existent pas hein^^)
J'ai un code Lazarus sur un bouton "ouvrir un fichier" :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
| procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
begin
fichier := OpenDialog1.Filename;
SdfDataSet1.FileName:=fichier;
SdfDataSet1.Active:=true;
i:=0;
with SdfDataSet1 do
begin
//if DBGrid1.RowCount<RecordCount then DBgrid1.RowCount:=RecordCount;
While not eof do
begin
// C'est là que je ne sais pas quoi mettre pour remplir les titres de colonnes de ma grille et les cases de ma grille :/
end;
end;
end;
end; |
J'ai parcouru le lien de tutorial pour TStringGrid mais il n'explique pas comment charger à partir d'un fichier CSV.
