Bonjour;
j'utilise une liste (PlayList) de fichier (TFichier), et apres l'ajout d'elements, cest toujours le meme qui est present lors d'une consultation. Voyez donc ces extrait de codes pour voir s'ils sont bons :
Declarations : TFichier = class(TObject)
public
Nom : string;
Dossier : string;
Complet : string;
Info : FicMP3;
Tag : UnTag;
constructor init(enom: string ; echemin : string ; ecomplet : string);
end;
PlayList=class(TList)
public
nb_elem : integer;
nb_sel : integer;
procedure init();
procedure compiler();
function obtenir_elem_sel():TFichier;
function charger_chemin() : string;
procedure sauver_chemin(ad : string);
end;
Ajout:
procedure PlayList.compiler();
var
i,nb : integer;
Fich : TFichier;
begin
Media:=Media_Play.create();
nb:=0;
For i := 0 to Form1.Liste.items.Count-1 do begin
Fich.Nom := Form1.Liste.Items[i].Caption;
Fich.Dossier := Form1.Liste.Items[i].SubItems.Strings[0];
Fich.Complet:=Fich.Dossier + '\' + Fich.Nom;
nb:=nb+1;
LaList.add(Fich); //ou "add(Fich)";
end;
LaList.nb_elem := nb;
end;
Lecture for i := 0 to nb_elem-1 do begin
fich := LaList.items[i];
x := fich.Nom; //==> Toujours le meme element!
end;