Structure d'un tableau dynamique

Version imprimable

04/11/2007, 13h36
boon31

Structure d'un tableau dynamique

bonjour,

je viens de me mettre a delphi et je cherche a stocker les données d'un fichier XML dans un tableau.
je parvient a lire correctement le fichier xml mais je ne sais pas comment le stocker en memoire dans un tableau.
je voudrais un tableau du type : array(nom_cat : url1, url2, url3 ...)

merdi d'avance

Salut,

Ton tableau contiendra des chaines de caractères si je ne me trompe pas ?!

Voici un exemple d'utilisation pour déclarer un tableau, l'agrandir de façon dynamique et le remplir ...

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
var
  Form1: TForm1;
  MonTableau:array of string; // on défini le tableau qui va contenir des caractères
 
implementation
 
{$R *.dfm}
 
procedure TForm1.BtnRemplirClick(Sender: TObject);
var
i:integer;
begin
  for i:=0 to 10 do
  begin
   SetLength(MonTableau,i+1); // On redéfini la taille du tableau
   MonTableau[i]:=IntToStr(i); // Ajout d'une chaine de caractères
  end;
end;
 
procedure TForm1.BtnAfficherClick(Sender: TObject);
var
i:integer;
begin
  for i:=0 to high(MonTableau) do // high = jusqu'au dernier enregistrement
  begin
    ShowMessage(MonTableau[i]); // Affichage
  end;
end;

En espérant t'avoir aidé
A++ ;)

04/11/2007, 14h38
boon31
pour bien faire il me faudrait quelque chose de ce genre :
Code:

1 2 3 4 5 6 7 type structCat=record cat:string; urlArray:array[0..9] of string; end; var tabCat:array of structCat;
le probleme c'est que je m'embrouille pour remplir ce tableau de structure :(

merci pour cette reponse tres explicite ;)

Re,

C'est plus un soucis d'affectation et d'utilisation alors ...

Voici un exemple banal ...

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
34
35
36
37
38
39
40
41
type structCat=record
  cat:string;
  urlArray:array[0..9] of string;
end;
 
var
  Form1: TForm1;
  tabCat:array of structCat;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.BtnRemplirClick(Sender: TObject);
var
i,j:integer;
begin
  for i:=0 to 10 do
  begin
    SetLength(tabCat,i+1);
    tabCat[i].cat:='toto'+IntToStr(i);
    for j:=0 to 9 do
    begin
      tabCat[i].urlArray[j]:='tata'+IntToStr(j);
    end;
  end;
end;
 
procedure TForm1.BtnAfficherClick(Sender: TObject);
var
i,j:integer;
begin
  for i:=0 to high(tabCat) do
  begin
   ShowMessage(tabCat[i].cat);
    for j:=0 to 9 do
    begin
      ShowMessage(tabCat[i].urlArray[j]);
    end;
  end;
end;

J'espère que ca ira :mrgreen:

04/11/2007, 19h06
boon31

merci beaucoup, j'y voit plus claire :king:
04/11/2007, 19h16
boon31

et au fait, comment et où declarer une constante accessible dans toute mon appli, ca serait pour definir le chemin de travail ou je copie mes fichiers?

genre : const workDirectory = 'c:/tralala';
04/11/2007, 20h17
Jipété

Dans la partie "interface", mais ça sera mieux comme ça :

Code:

const workDirectory = 'c:\tralala';

:mouarf:
--
jp
04/11/2007, 20h24
boon31

its sounds good, merci :aie: