Classes - Héritage ?Résolu

Question

Bonjour j'aurai aimer inclure cet objet ci :



type TCUEItem =   class (TObject)

  Artiste, Titre : String;

  Index, Duree : TTime;

  Procedure Add(Item:TCUEItem); overload;

  Procedure Add(Artiste,titre:String;Index,Duree:TTime); overload;

  Procedure Delete(Item:integer);

  Procedure Exchange(Index1,Index2:integer);

  Procedure Publish(Item:integer;var artiste,titre:string;var Index,Duree:TTime);

  Function Count : integer;

end;



dans cet objet-ci :



type TCUEFile  = class(TObject)

  fichier, Artiste, Titre : String;

  Pistes : array of TCUEItem; <--- ICI

// ### Procedures & Fonctions ###

 ...

end;



Jusque l&#224; pas de probl&#232;me, ms c dans la suite ...

Je prend l'exemple de la procedure Count car c'est la plus parlante.



function TCUEItem.Count : integer;

begin

Result:=Length(???);

// Cherche la dimension de l'array.

// Comme dans une TListBox on peux savoir ne nombre d'items via :

//     listbox1.items.count

end;



Est-ce que qqn a une suggestion ?

alexis2015 · Accepted Answer

D'acc mais mnt que j'y repense, vu que les proc&#233;dures de TCUEItem
manipule un liste, ne serait-il pas mieux de les mettre dans TCUEFile ?

Mais dans ce cas TCUEItem ne serai plu qu'un enregistrement.



Alexis

cptpingu · Answer

En fait dans la listbox "Count" n'est pas une fonction mais une "Property".

Donc je pense que c'est une simple variable qui est incr&#233;ment&#233;.

Remplace ton  "function count:integer;" par "count: integer;"

Ensuite incr&#233;mente / d&#233;cremente simplement ta variable.



Soit Variable: TCUEItem;

Ajoute un "Inc(Variable.Count);"  quand tu ajoute un &#233;l&#233;ment.

Ajoute un "Dec(Variable.Count);" quand tu retire un &#233;l&#233;ment.

cptpingu · Answer

Oui, je pense que ce serai plus facile &#224; g&#233;rer.

alexis2015 · Answer

Entre temps j'ai eu le tps de finir mon unit&#233;.



http://w-x.no-ip.org/alexis2015/forum/viewtopic.php?p=3#3

cptpingu · Answer

Tu as &#233;crit

i:=length(self.Pistes);


SetLength(self.Pistes,i+1);



Tu pourrai r&#233;utiliser ton "count" directement

SetLength(self.Pistes,self.Count+1);



Ensuite je vois ceci:


s:=String(azInteger);


...


if not l>0 then Result:=string(azInteger);



for i:=1 to l do



 s:='0'+s;



Result:=s;




Or si tu ne rentre pas dans la boucle s vaut toujours String(azInteger).

Donc la ligne 
"if not l>0 then Result:=string(azInteger);" n'est pas utile.(Fait un test)



A la place de


f:=TFileStream.Create(FileName,fmcreate or fmopenreadwrite,fmshareexclusive);




Tu peux directement faire un:


with TFileStream.Create(FileName,fmcreate or fmopenreadwrite,fmshareexclusive) do

begin

...


Write(s[1],length(s));


...

end;



Ca et fait une variable de moins, mais bon la je chipote.

alexis2015 · Answer

Oui je pourrai faire toutes ces corrections ...

1) pour le self.count je suis d'acc mais c'est pour &#234;tre s&#251;r de prendre le bon TCUEFile.

2) pour la boucle je pourrai corrigier comme suis ...

  if not l>0 then Result:= s

 else for i:=1  to  l do s: ='0'+s; 

  Result:=s;

3) pour le TFileStream, Vu que la variable est "f" c'est un peu inutile 



mais merci des corrections

Classes - Héritage ?

6 réponses

Votre réponse

Discussions similaires