Discussion :

[dragonno]

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 :

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 :

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
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.

[tintinux]

Bonjour

C'est un TDbGrid et non un TStringGrid que tu peux remplir en l'associant à une DataSource, elle-même connectée à un TSdfDataSet.

C'est plus simple que tu ne l'imagines : enlève tout à partir de i:=0 !

Les données du fichier csv devraient être visibles dans le DbGrid dès que la DataSource devient active. C'est d'ailleurs aussi possible en mode conception dans l'EDI, avec un nom de fichier constant, pour faire quelques réglages.

Attention à RecordCount. Dans un Sdf qui contient une ligne d'entête avec des noms de champs, il compte cette ligne.

[dragonno]

Je te remercie, je vais tester ça
Ah merci pour le conseil sur RecordCount !!!

[SergioMaster]

Bien qu'un peu tard , bien que Delphi et dans la langue de "chatquirespire" je ne saurais que trop recommandé de regarder cette
vidéo édifiante sur les possibilités des stringgrid avec les CSV .