tableau dynamique à deux dimensions dans une classeRésolu

Question

Salut &#224; tous!
Je suis d&#233;butante en delphi et je voudrai cr&#233;er une classe qui ai comme attribut un tableau dynamique &#224; deux dimentions de TCellule.
je l'ai d&#233;clar&#233; comme ca : (car il ne veux pas de "array of array of ...")

type
  TTableau = class(TObject)
  private
    function GetGrilleVal(X, Y: Integer): TCellule;
    procedure SetGrilleVal(X, Y: Integer; const Value: TCellule);
    property GrilleVal[X, Y: Integer]: TCellule read GetGrilleVal write SetGrilleVal;

mais je ne sais pas comment ni quand d&#233;finir la taille de mon tableau : si je lui met "  SetLength(GrilleVal, nbLig, nbCol);" dans une m&#233;thode, il me dit qu'il attend '[' juste apr&#232;s GrilleVal.

Est ce que quelqu'un peu m'aider? 
merci d'avance!

florenth · Accepted Answer

Hello, Elle est où ta déclaration de GrilleVal ?? Sinon, je ferais comme cela (je me substitue à ton code):

type TCellule = record { J'imagine que c'est un record. Evidemment je ne l'ai pas complété. } end; TTableCellule = array of array of TCellule. // Déclaration d'un type tableau. TTableau = class (TObject) private FTableau: TTableCellule; // La délcaration du talbeau dans ta cellule. FTableauXCount, FTableauYCount: Integer // Pour avoir la taille du tableau dans ses deux dimantions. function GetGrilleVal(X, Y: Integer): TCellule; procedure SetGrilleVal(X, Y: Integer; const Value: TCellule); public // Met tes déclarations de propriétés dans "public" et non "private" { Je te rajoute ici les constrcuteur et destructeur pour la suite. } constructor Create; destructor Destroy; override; property GrilleVal[X, Y: Integer]: TCellule read GetGrilleVal write SetGrilleVal; end; // of class TTableau

et pour la partie implémentation :

constructor TTableau.Create; begin inherited; { Au début, rien } FTableauXCount: =0; FTableauYCount:= 0; end; destructor TTableau.Destroy; begin Finalize(FTableau); // Destruction du tableau. Inherited; end; function TTableau.GetGrilleVal(X, Y: Integer): TCellule; begin { Vérification d'étendue. } if (X > = 0) and (Y >= 0) and (X < FTableauXCount) and (Y < FTableauXCount) then Result: =FTableau[X,Y] // Renvoi du résultat. else raise Exception.CreateFmt('Index de cellule hors-limites (%d - %d)',[X,Y]); end; procedure TTableau.SetGrilleVal(X, Y: Integer; const Value: TCellule); begin { Vérification d'étendue. } if (X >0) and (Y > 0) and (X < FTableauXCount) and (Y < FTableauXCount) then FTableau[X,Y]:= Value else raise Exception.CreateFmt('Index de cellule hors-limites (%d - %d)',[X,Y]); end;

Avec tout cela, tu devrais t'en sortir. Au passage pour redimentionner le tableau:

SetLength(FTableau,NewTailleX,NewTailleY);

Bonne prog' Florent Si tu ne te plantes pas ...... tu ne poussera jamais

florenth · Answer

Eh ben, &#231;a fait presque un tuto tout &#231;a !!!

J'avais une mont&#233;e d'ad&#233;naline d'un coup, je ne pouvais plus m'arreter.



Au passage, j'ai laiss&#233; quelques petites fautes (dont une qui rend le code incompr&#233;hensible):

- Il faut lire "// La d&#233;lcaration du  dans ta classe(et non pas du talbeau dans ta cellule).

- J'ai &#233;crit "and (Y < FTableauXCount) then" dans les deux m&#233;thodes Get et Set du tableau. Il faut lire FTableauYCount &#233;videmment.



Ouf, j'y serais arriv&#233;.



@ ++

Florent

Si tu ne te plantes pas ......
tu ne poussera jamais

Koraluv · Answer

Merci beaucoup !!
Tu m'as bien aid&#233;, c'est exactement ca que je voulais ! 
Au passage, j'esp&#232;re que ca en aidera d'autres.

a+
Koraluv

cs_Delphiprog · Answer

Bravo Florenth.
Juste une petite suggestion : pourquoi ne pas ajouter une m&#233;thode de port&#233;e publique qui se nommerait SetLength et dont la signature serait :
procedure SetLength(SizeX, SizeY: integer);

Et l'impl&#233;mentation serait simplement :
procedure SetLength(SizeX, SizeY : integer);
begin
   System.SetLength(FTableau, SizeX, SizeY);
  FTableauXCount:= SizeX;
  FTableauYCount:= SizeY;
end;


Utiliser directement la proc&#233;dure SetLength contenue dans l'unit&#233; system n'est pas possible puisque le membre FTableau est de port&#233;e Private (et j'ajouterai : heureusement). 
<HR color=#008000>



Pensez &#224; cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient.
<

florenth · Answer

Mais &#233;videmment qu'il faut le redimentionner le tableau avant de l'utiliser !!

Commet ai-je pu oublier cela ??

(non, non, cela ne m'arrive pas dans mes programmes heureusement)



Par contre, je suis un peu contre l'appelation de SetLength() qui porte
confusion &#224; la procedure de l'unit&#233; System. (m&#234;me s'ily y a aucune
confusion au niveau de la compilation)



Dans ces cas l&#224;, moi je met des noms fran&#231;ais comme procedure DefinirTaille(TailleX, TailleY: Integer);

Cela sert d&#234;tre french ! ;-)



@ ++

Florent

Tableau dynamique à deux dimensions dans une classe

5 réponses

Votre réponse

Discussions similaires