Discussion :

[boon31]

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

[ero-sennin]

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 :

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

[boon31]

pour bien faire il me faudrait quelque chose de ce genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ero-sennin]

Re,

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

Voici un exemple banal ...

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

[boon31]

merci beaucoup, j'y voit plus claire

[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';