hum hum ....

Question

Bonjour à tous,

alours voila mon probleme est le suivant:
Dans le cadre d'un projet delphi contenant des fenêtres très répétitives, j'aimerais faire une classe qui stocke toutes les fonctions récursivent qui vont etre exploité dans mon projet.
A savoir j'aimerais faire une classe qui ait uen fonction qui grace à un tableau permette d'afficher ou non une liste de bouton.
Pour cela voici la partie de ma classe qui va pas :

// mes types
type
    T_array_edit =  array[0..10] of TButton;

    TOperationsForms = class
     private 
        PTab_TEdit : T_array_edit;
        procedure WriteTab_TButton(index : integer; valeur : string);
        function ReadTab_TButton() : T_array_edit;
    published 
        property Tab_TButton[index : integer] : T_array_edit read ReadTab_TButton write WriteTab_TButton;
end;

// les fonctions

procedure TOperationsForms.WriteTab_TButton(index : integer; valeur : TButton);
begin
        PTab_TButton[index] : = valeur;
end;

function TOperationsForms.ReadTab_TButton : T_array_TButton;
begin
        Result := PTab_TButton;
end;

l'erreur retournée est Published property 'Tab_TButton' cannot be of type ARRAY.
J'avous être un peu dépassé par le code et merci à ceux qui me répondrons :)

nethacker · Answer

salut,
et bienvenue sur delphifr apparemment c'est ton premier message !
j'ai pas vraiment tres bien compris ta question
"A savoir j'aimerais faire une classe qui ait uen fonction qui grace à un tableau permette d'afficher ou non une liste de bouton."
merci de preciser plus ! et ecrit le sujet au lieu de "hum hum ..."

**************************************************************
nethacker
hacking is not just an art it's a lifestyle
***************************************************************

WhiteHippo · Answer

Bonsoir,

Tout simplement tu ne peux pas déclarer des tableaux dans la section published d'une classe. Soit tu mets la déclaration dans la partie public, soit tu crées 11 propriétés TButton, c'est au choix.

Cordialement. 
<hr />"L'imagination est plus importante que le savoir." Albert Einstein

fbalien · Answer

Bonjour

peut etre faudrait il oriete vos recherche sur les listes d'objet (TObjectList)
ou les collections

f0xi · Answer

uses stdctrls;

type
  TButtonList = class
  private
    fList : TList;
    procedure SetButton(index : integer; val : TButton);
    function GetButton(index : integer) : TButton;
  public
    constructor Create;
    destructor Destroy; override;
    property Buttons[index : integer] : TButton read GetButton write SetButton;
    function Add(Button : TButton) : integer;
    procedure Delete(index : integer);
    function IndexOf(Button : TButton) : integer;
    function Count : integer;
  end;
  
  
constructor TButtonList.Create;
begin
  fList := TList.Create;
end;

destructor TButtonList.Destroy;
var N : integer;
begin
  for N := fList.Count-1 downto 0 do
    Delete(N);
  fList.Free;
  Inherited Destroy;
end;

procedure TButtonList.SetButton(index : integer; val : TButton);
begin
  TButton(fList.Items[index]).Assign(Val);
end;

function TButtonList.GetButton(index : integer) : TButton;
begin
  result := TButton(fList.Items[index]);
end;

function TButtonList.Add(Button : TButton) : integer;
begin
  result := fList.Add(Button);
end;

procedure TButtonList.Delete(index : integer);
begin
  TButton(fList.Items[index]).Free;
  fList.Delete(index);
end;

function TButtonList.IndexOf(Button : TButton) : integer;
begin
  result := fList.IndexOf(Button);
end;

function TButtonList.Count : integer;
begin
  result := fList.Count;
end;

f0xi · Answer

exemple d'utilisation :

var BTL : TButtonList;

procedure TForm1.FormCreate(Sender: TObject);
begin
  BTL := TButtonList.Create;
  with BTL do 
  begin
    Add(TButton.Create(Self));
    Add(TButton.Create(Self));
    Add(TButton.Create(Self));

    Buttons[0].Parent := Self;
    Buttons[0].Left   := 15;
    Buttons[0].Top    := 10;

    Buttons[1].Parent := Self;
    Buttons[1].Left   := 15;
    Buttons[1].Top    := 40;

    Buttons[2].Parent := Self;
    Buttons[2].Left   := 15;
    Buttons[2].Top    := 70;
  end;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  BTL.Free;
end;

florenth · Answer

@f0xi: avec le TObjectList ou le TComponentList, pas besoin de s'occuper de la libération des conposants.... plus pratique donc !

StiriX · Answer

impecable c'est sque j'attendais !!! Un grand merci pour la rapidité et surtout la qualité des réponses !
merci !!!

f0xi · Answer

je sais flo, tu as deja du voir que j'aimais beaucoup deriver TObjectList pour ce genre de choses :)
c'est juste que la, j'ai fait l'exemple avec TList :)

Hum hum ....

8 réponses

Votre réponse

Discussions similaires