Classe le Result

Question

Bonjour tout le monde, alors j'ai fait une classe pour rechercher les
mot dans un dictionaire, avec un mask, mais le problemme c que je veux
retourn&#233; un TSTRINGLINST et sa ne marche pas ,c pas possible de passer
en retour un tsring , voila le code il es pas compliquer3
 


unit CLRecherche;



interface



uses Classes,Masks;



  Type

    RechercheMot = class

  Private

    p_dictionaire   : Tstrings ;

    p_NombreMot     : Longint ;

    p_resultaTrouve : Longint ;

  Public

    constructor LectureDico(chemin : string);

    destructor Destroy; override;

    function RechercheAvecMask(valeur : string) : TStrings;

  End;





implementation



{ RechercheMot }



destructor RechercheMot.Destroy;

begin

  p_dictionaire.Free;

  inherited;

end;



constructor RechercheMot.LectureDico(chemin: string);



begin

 p_dictionaire := tstringlist.Create;

 p_dictionaire.LoadFromFile(chemin);

 p_NombreMot := p_dictionaire.Count;

end;



function RechercheMot.RechercheAvecMask(valeur : string): TStrings;

var

  i   : integer;

  tmp : TStrings;

begin

 tmp := Tstringlist.create;

 try

   for i := 0 to p_NombreMot - 1 do

     if MatchesMask(p_dictionaire[i], valeur) then

        tmp[i] := p_dictionaire[i];

 finally

 end;

 p_resultaTrouve := tmp.Count;

 result := tmp;



end;



end.

cs_MHI · Answer

Pouquoi tu ne travail pas qu'avec des tstringlist ou des TStrings, a chaque fois tu d&#233;clare un TStrings et tu fait un cr&#233;ate avec TStringList tous cela pour renvoyer un TStrings.

cs_nuns · Answer

oui ok mais meme si je fais sa sa ne marche pas j'ai toujours un return avec une erreur pourquoi

cs_MHI · Answer

Dans ta fonction RechercheAvecMask tu devrait remplacer tmp[i] := p_dictionaire[i];

par :
tmp.Add(p_dictionaire[i]);

je viens d'essayer

Classe le Result

3 réponses

Votre réponse

Discussions similaires