Liste adresse internet

Commenter

Contenu du snippet

Extrait les adresses de site dans les fichiers URL de Favoris. Et les met dans un TStringList.
Elle n'est pas récursive, il faut la modifier pour cela.
La fonction 'litChemRepRegist('Favorites')' se trouve déjà sur le site dans Systéme.

Source / Exemple : 


Function ListeAdrFavoris: TStringList;
var
  sltFavoris: TStringList;
  sChemFavoris, sCh: string;
  srR: TSearchRec;
  IniRac: TIniFile;
begin
    sltFavoris:= TStringList.create;
    sChemFavoris:= litChemRepRegist('Favorites');
    if FindFirst(sChemFavoris + '\*.url', faAnyFile , srR) = 0 then
    begin
       Repeat
        try
         IniRac:= TIniFile.create(sChemFavoris + '\' + srR.Name);
         sCh:= IniRac.ReadString('DEFAULT', 'BASEURL','');
         if sCh <> '' then
          sltFavoris.add(sCh);
        finally
          IniRac.free;
        end;
       Until FindNext(srR) <> 0;
    end;
    result:= sltFavoris;
end;

Conclusion :


Il ne faut pas oublier de libéré le TStringList dans la fonction appelante

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_Amadeus)