Problème avec StringGrid

Version imprimable

12/09/2006, 17h25
fermat

Problème avec StringGrid

Bonjour,

Je suis débutant en delphi.
Je veux mettre dans une StringGrid un fichier texte [20 nombres par ligne].
Après création de la StringGrid, lorsque je compile le prog , chaque ligne du fichier texte, s'affiche uniquement dans la 1ere colonne de la StringGrid.

Comment résoudre ce problème.

Merci
12/09/2006, 20h14
Philippe Gormand

Bonsoir.

Sépare chaque nombres de ton texte par un point virgule, et tu auras un fichier CSV.

Ensuite, tu peux utiliser les fonction qui chargent automatiquement un fichier CSV dans une stringGrid.
http://philippe.gormand.free.fr/Delphi/Utilitaires.zip

A+

Salut!

Que veux-tu faire exactement ?
Mettre une ligne dans chaque cellule ? :koi:

Si tu possèdes un séparateur dans ton texte, utilise la fonction suivante pour la découper :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Procedure StrExplode(Const src, sep: String; list: TStrings); Var x, l: Integer; st: String; Begin l := Length(src); If (l <= 0) Then Exit; x := 1; st := ''; Repeat If (src[x] = sep) Then Begin list.Add(st); st := ''; End Else st := st + src[x]; inc(x); Until (x > l); End;
Ensuite, utilise l'évènement OnDrawCell pour remplir chaque cellule.
Note bien que plus tes questions seront explicites, plus nos réponses seront précises.
à+

13/09/2006, 06h51
fermat

Problème avec une StringGrid

Bonjour,

A partir d'un fichier texte comportant des valeurs numériques.
Date + 17 nombres.
Exemple:
[13/09/2006;125;14;985;3;...74].

Je veux attribuer à chaque colonne de la StringGrid une valeur.

actuellement , tout s'inscrit dans les cellules de la 1ere colonne, le reste de la StringGrid est vide.

Merci
13/09/2006, 09h32
Philippe Gormand

Salut.

Tu as tout ce qu'il faut dans l'unité que je t'ai proposé.

a+

Je procède comme ceci en utilisant la fonction StrExplode que j'ai donné ci-dessus. Ce code fonctionne aussi avec des fichiers CSV dont les enregistrements possèdent un nombre d'élément différent. La grille se dimensionne automatiquement en fonction du contenu du fichier CSV :
Code:

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.Button1Click(Sender: TObject); Var Datas: Array Of TStrings; x, y: Integer; Begin SetLength(Datas, 1); Datas[0] := TStringList.Create; Datas[0].LoadFromFile('exemple.csv'); StringGrid1.ColCount := 0; StringGrid1.RowCount := Datas[0].Count; If (Datas[0].Count > 0) Then Begin SetLength(Datas, Datas[0].Count + 1); For y := 1 To Datas[0].Count Do Begin Datas[y] := TStringList.Create; StrExplode(Datas[0].Strings[y - 1], ';', Datas[y]); If (StringGrid1.ColCount <= Datas[y].Count) Then StringGrid1.ColCount := Datas[y].Count; If (Datas[y].Count > 0) Then For x := 0 To Datas[y].Count - 1 Do StringGrid1.Cells[x, y - 1] := Datas[y].Strings[x]; Datas[y].Free; End; Datas[0].Free; End; StringGrid1.Refresh; End;
L'unité donnée par Philippe Gormand est très complète.
Elle te permettra de faire beaucoups plus de choses...

[EDIT]
Si tu es intérressé par la fonction de sauvegarde, demande-moi, à+

13/09/2006, 22h51
fermat

Problème de StringGrid

Bonsoir,

Je vous remercie pour vos réponses.
je vais appliquer cela.

Merci

un petit modif dans le code de sub0

Code:

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
Procedure TForm1.Button1Click(Sender: TObject);
Var
  Datas,s: TStrings;
  x, y: Integer;
Begin
  Datas := TStringList.Create;
  try
    s := TStringList.Create;
    try
      Datas.LoadFromFile('exemple.csv');
      StringGrid1.ColCount := 0;
      StringGrid1.RowCount := 1;//pour accélérer
      If (Datas[0].Count > 0) Then
        For y := 0 To Datas.Count-1 Do 
         Begin
          s.clear;
          StrExplode(Datas.Strings[y], ';',s);
          If (Datas[y].Count > 0) Then
            begin
              If (StringGrid1.ColCount <= s.Count) Then
                StringGrid1.ColCount := s.Count+1;
              For x := 1 To s.Count Do
                 StringGrid1.Cells[x, y+1] := s.Strings[x+1];
            end;
         End;
    except
      s.Free;
    End;
    StringGrid1.rowcount:=datas.count+1;
  finally
    datas.free;
  end;
End;

15/09/2006, 13h23
Sub0

Ok, la en fait, tu ne crées qu'une seule liste que tu réutilises pour chaque ligne au lieu de créer une liste par ligne.
Oui, c'est pas plus mal, j'aurais du y penser... ;)
à+

Suite à un MP, je corrige le code de la fonction StrExplode afin que le dernier mot de la ligne soit qu'en même pris en compte même si il n'ya pas de séparateur en fin de ligne (il devait manquer une colonne à la fin du tableau). En rouge, le code ajouté :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 Procedure StrExplode(Const src, sep: String; list: TStrings); Var x, l: Integer; st: String; Begin l := Length(src); If (l <= 0) Then Exit; x := 1; st := ''; Repeat If (src[x] = sep) Then Begin list.Add(st); st := ''; End Else st := st + src[x]; inc(x); Until (x > l); If (st <> '') Then list.Add(st); End;