Classe le Result

cs_nuns Messages postés 87 Date d'inscription mardi 7 janvier 2003 Statut Membre Dernière intervention 23 juillet 2009 - 11 févr. 2005 à 00:19
cs_MHI Messages postés 110 Date d'inscription jeudi 7 octobre 2004 Statut Membre Dernière intervention 19 février 2009 - 14 févr. 2005 à 09:31
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.

3 réponses

cs_MHI Messages postés 110 Date d'inscription jeudi 7 octobre 2004 Statut Membre Dernière intervention 19 février 2009 1
11 févr. 2005 à 15:29
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.
cs_nuns Messages postés 87 Date d'inscription mardi 7 janvier 2003 Statut Membre Dernière intervention 23 juillet 2009
13 févr. 2005 à 10:43
oui ok mais meme si je fais sa sa ne marche pas j'ai toujours un return avec une erreur pourquoi
cs_MHI Messages postés 110 Date d'inscription jeudi 7 octobre 2004 Statut Membre Dernière intervention 19 février 2009 1
14 févr. 2005 à 09:31
Dans ta fonction RechercheAvecMask tu devrait remplacer tmp[i] := p_dictionaire[i];

par :
tmp.Add(p_dictionaire[i]);

je viens d'essayer
Rejoignez-nous