Tableau Dynamique de Record

Version imprimable

Bonjour à tous,

Mon probème est simple (à expliquer) :
Je veux "transformer" une liste l'objet en un tableau dynamique de record (chaque record représentant 1 objet de ma liste).

voila tout bêtement ce que j'ai fait :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 TObjectRecord = record a : integer; b: string; end; procedure TObjectList.ExportAsRecord(var TabObjectRecord : Array of TObjectRecord); var i : integer; begin // Allocation du tableau de record SetLength(TabObjectRecord, Self.Count); // Recopie des données concernant la liste d'objet dans le tableau de record for i:= 0 to Pred(Self.Count) do begin TabObjectRecord[i].a := Self[i].propertyA; TabObjectRecord[i].b := Self[i].propertyb; end; end;
et là il ne veux pas compiler au SetLength, il me met "Types incompatibles" :(

Y aurait-il une méthode qui évite de passer par des Tableaux de Pointers de record ? (quelque peut lourd à utiliser avec les "tab[i]^" )

Merci

salut

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Type 
 TyTabObjectRecord : Array of TObjectRecord;
 
procedure TObjectList.ExportAsRecord(var TabObjectRecord :TyTabObjectRecord);
var
  i : integer;
begin
  // Allocation du tableau de record
  SetLength(TabObjectRecord, Self.Count);
 
  // Recopie des données concernant la liste d'objet dans le tableau de record
  for i:= low(TabObjectRecord) to high(TabObjectRecord) do
  begin
    TabObjectRecord[i].a := Self[i].propertyA;
    TabObjectRecord[i].b := Self[i].propertyb;
  end;
end;

elles sont de quelle type tes propriete

Code:

1
2
  Self[i].propertyA;
              Self[i].propertyb;

@+ Phil

02/04/2007, 13h21
Pierre Castelain
La déclaration d'un tableau sans borne ne correspond pas à un tableau dynamique quand elle est faire directement dans la signature d'une procédure ou d'une fonction. Dans ce cas elle correspond à un tableau "ouvert".
Pour pouvoir compiler ton code, il te suffit de déclarer un type et de modifier la signature de la procédure :
Code:

1 2 3 4 TTabObjectRecord = array of TObjectRecord; ... procedure TObjectList.ExportAsRecord(var TabObjectRecord : TTabObjectRecord);
Un excellent tutoriel de Hdd34 sur les tableaux dynamiques est disponible ici : http://hdd34.developpez.com/articles/artdynarr/

Un petit conseil en plus : il vaudrait mieux éviter de nommer ta classe TObjectList si tu ne veux pas avoir de problèmes le jour où tu utilisera la classe TObjectList de la VCL.
02/04/2007, 13h59
Dry

Exact !
le simple fait de déclarer un type

Code:

TTabObjectRecord = array of TObjectRecord;

a résolu tous mes problèmes !

Merci

PS : la classe TObjectList n'était la que pour illustrer mes propos ;)