Valeur in TList ? prob pointeur

Question

Je voudrais déterminer si une string est contenue dans un obje TList mais le problème des pointeurs se posent. Voici mon code.
Les objets TList ne me plaisent pas trop si quequ'un dispose d'une autre façon d'avoir une liste dont on ne sait pas le nombre de valeur pouvant être contenue alors je suis preneur.

function ValueInListe(value:string; Liste:TList):Boolean;overload;
var Cpt:Word;
begin
     result := False;

     Cpt := 0;
     while(Cpt < Liste.Count)do
     begin
          if (Liste.Items[Cpt] = value) then
          begin
               result := True;
               Cpt := Liste.Count;
          end
          else Inc(Cpt);
     end;
end;

Merci d'avance
 ;)  Bruto --- Le p'tit belge --- pour vous servir

cs_Delphiprog · Answer

Pourquoi ne pas utiliser un TStringList et sa méthode IndexOf ?

May Delphi be with you

Valeur in TList ? prob pointeur

1 réponse

Votre réponse

Discussions similaires