Discussion :

[ghassenus]

salut je voudrais bien afficher un tableau dynamique dans un TSTRING mais j'y arrive pas alors de l'aide serais la bien venue

[Nono40]

TString ? Je suppose que tu parles de TStringGrid...

Voici une procédure pour afficher un tableau dynamique à deux dimensions dans un TStringGrid :

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
Type TMatrice=Array Of Array Of Integer;
Var Matrice:TMatrice;
 
procedure TForm1.Button1Click(Sender: TObject);
Var i,j,m:Integer;
begin
  // Il faut que la matrice ne soit pas vide
  If Length(Matrice)=0 Then Exit;
  With StringGrid1 Do
  Begin
    // Recherche de la colonne la plus longue
    // ( TMatrice n'a pas forcement toutes les colonnes de la même taille !!
    m:=0;
    For i:=Low(Matrice) To High(Matrice) Do If Length(Matrice[i])>m Then m:=Length(Matrice[i]);
    If m=0 Then Exit;
    // Ajustement de la taille de la matrice
    ColCount:=Length(Matrice)+1;
    RowCount:=m+1;
    // Remplissage
    For i:=Low(Matrice) To High(Matrice) Do
    Begin
      Cells[i-Low(Matrice)+1,0]:=IntToStr(i);
      For j:=Low(Matrice[i]) To High(Matrice[i]) Do
      Begin
        Cells[i-Low(Matrice)+1,j-Low(Matrice[i])+1]:=IntToStr(Matrice[i,j]);
      End;
    End;
    For j:=1 To m Do Cells[0,j]:=IntToStr(m-1);
  End;
end;

[ghassenus]

merci NONO