Delphi Tableau taille dynamique

bonjour, apres avoir feuilleté la FAQ je n'ai pas réussi à comprendre la gestion des tableaux dynamique. Je possede une fonction et j'aimerais qu'elle me renvoies un tableau de type 'Planification' (objet que j'ai moi même crée). Voici l'intitulé de ma fonction :

Code:

---

class function getPlanifsJour(jour : TDATE) : array of Planification;

---

et le corps (vide pour l'instant) :

Code:

---

1 2 3 4 5 6 7 8 9 10

class function Planification.getPlanifsJour(jour: TDate) : array of Planification ; var monTab : array of Planification; plan : Planification; begin plan.Create; plan.setMatricule(1); monTab[0] := plan; result := monTab; end;

---

mon probleme c'est un message d'erreur :

Citation:

---

[DCC Erreur] cPlanification.pas(63): E2029 Identificateur attendu(e) mais 'ARRAY' trouvé(e)
[DCC Erreur] cPlanification.pas(215): E2029 Identificateur attendu(e) mais 'ARRAY' trouvé(e)
[DCC Erreur] cPlanification.pas(223): E2010 Types incompatibles : 'Planification' et 'dynamic array'
[DCC Erreur] ProjVisiMed.dpr(26): F2063 Impossible de compiler l'unité utilisée 'cPlanification.pas'

---

qu'en pensez vous ?

Citation:

---

Envoyé par Valus25

bonjour, apres avoir feuilleté la FAQ je n'ai pas réussi à comprendre la gestion des tableaux dynamique. Je possede une fonction et j'aimerais qu'elle me renvoies un tableau de type 'Planification' (objet que j'ai moi même crée). Voici l'intitulé de ma fonction :

Code:

---

class function getPlanifsJour(jour : TDATE) : array of Planification;

---

et le corps (vide pour l'instant) :
[CODE]class function Planification.getPlanifsJour(jour: TDate) : array of Planification ;
var
monTab : array of Planification;
plan : Planification;
begin
plan.Create;
plan.setMatricule(1);
monTab[0] := plan;
result := monTab;
end;CODE]

mon probleme c'est un message d'erreur :



qu'en pensez vous ?

---

pour ce type de déclaration tu dois passer par une déclaration de type :aie:

Code:

---

1 2 3 4 5

type TPlanificationDuJour = array of Planification;   class function Planification.getPlanifsJour(jour: TDate) : TPlanificationDuJour ;

---

merci pour cette réponse mais comment le déclarer dans ma classe Planification, et ou le déclarer ? :oops:

Citation:

---

Envoyé par Valus25

merci pour cette réponse mais comment le déclarer dans ma classe Planification, et ou le déclarer ? :oops:

---

ouille :aie:

bon alors, je ne pense pas que ce soit forcément une bonne idée de travailler avec un tableau dynamique mais bon...

Code:

---

1 2 3 4 5 6 7 8 9

type TPlanification = class; // déclaration "forward" pour résoudre le problème de l'oeuf et la poule   TPlanificationDuJour = array of TPlanification;   TPlanification = class class function getPlanifsJour(jour: TDate) : TPlanificationDuJour; end;

---

Par ailleurs, tu vas avoir un problème là :

Code:

---

plan.Create;

---

Il faut écrire :

Code:

---

plan := Planification.Create;

---

disons que je dois retourner un tableau d'objets planification obtenue par requete sur une BDD donc le nombre d'objets m'est inconnu :mouarf:

Ne cherche pas à allouer un ensemble d'objet dès que tu as reçu le DataSet de ton SQL, cela sera très lent, ... mieux vaut parcourir le DataSet avec les bon vieux while not EOF ... Next(); et avoir un constructeur d'objet qui aspire le DataSet ...

Sinon, une fois la requête exécutée, tu en connais le nombre via RecordCount ...

Comme je l'ai déjà dit dans le sujet "creer objets à partir d'une table", le mieux est de construire une TCollection qui utilise en interne un TDataSet et instancie les objets selon le principe du LazyLoading, tu as des libs comme InstantObjects (qui ne gère pas le LazyLoading à l'époque où je l'avais essayé, ce qui était finalement rédhibitoire, ou celle écrite par PHPLive (as-tu lu ce sujet qui correspond à ta demande, mais dépasse le niveau débutant par contre) ... j'en ai écrit une aussi mais largement trop dépendante de lib ... sinon, je te l'aurais volontier passé ...

Bon voici un exemple de code (non fonctionnel), c'est juste un exemple des idées que l'on peut avoir pour un mécanisme de LazyLoading ... et sur la necessité de comprendre l'objet ...

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 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74

type TPlanification = class; // déclaration "forward" pour résoudre le problème de l'oeuf et la poule   TPlanificationDuJour = class // soit à la main à base de TObject soit une TCollection gérant du LazyLoading private IDList: TIntegerList; // Disons une TList bidouillé ou un générique pour ceux qui ont ça ... ObjList: TPlanificationList; // une THashStringList par exemple ... public property Items[Index: Integer]: TPlanification read GetItems; end;   TPlanification = class ID: Integer; Jour: TDate; Heure: TTime; Lieu: string;   constructeur Create(ID: Integer);   class function getPlanifsJour(jour: TDate) : TPlanificationDuJour; end;         constructeur TPlanification.Create(PlanningID: Integer); begin with TDBProvider.GetQuery('SELECT * FROM planning WHERE id_planning = :ID') do // une fonction qui instancie un objet Query et le configure pour qu'il fonctionne avec le minimum d'instruction ensuite, comme la Connexion\ConnexionString ... try ParamByName('ID').AsInteger := PlanningID; Open; if not IsEmpty then begin ID := FieldByName('ID_PLANNING').AsInteger; Jour := FieldByName('JOUR').AsDateTime; Heure := FieldByName('HEURE').AsDateTime; Lieu := FieldByName('LIEU').AsString; end else raise EPlanificationException ... finally Free(); end; end;   class function TPlanification.getPlanifsJour(jour: TDate) : TPlanificationDuJour; begin with TDBProvider.GetQuery('SELECT id_planning FROM planning WHERE jour = :ParamJour') do // une fonction qui instancie un objet Query et le configure pour qu'il fonctionne avec le minimum d'instruction ensuite, comme la Connexion\ConnexionString ... try ParamByName('ParamJour').AsDate := Jour; Open; while not EOF do begin Result.Add(FieldByName('ID_PLANNING').AsInteger);   Next(); end; finally Free(); end; end;   function TPlanificationDuJour.GetItems(Index: Integer): TPlanification; begin if Index < ObjList.Count then begin Result := ObjList.Items[Index]; end else begin Result := TPlanification.Create(IDList[Index]); ObjList.Add(Index, Result); // un système qui gère un tableau avec un index personnel et non un index dans un tableau ... une sorte de tableau Associatif end end;

---

merci Shai de t'être donné la peine de me tapper du code :love2:je vais analyser ça et essayer de le comprendre par moi même