Classe le Result

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é 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.

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

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

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

je viens d'essayer