salut je voudrais bien afficher un tableau dynamique dans un TSTRING mais j'y arrive pas alors de l'aide serais la bien venue![]()
salut je voudrais bien afficher un tableau dynamique dans un TSTRING mais j'y arrive pas alors de l'aide serais la bien venue![]()
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;
merci NONO![]()
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager