Liste adresse internet

Soyez le premier à donner votre avis sur cette source.

Snippet vu 3 889 fois - Téléchargée 122 fois

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

Ajouter un commentaire Commentaires
Messages postés
123
Date d'inscription
mercredi 2 janvier 2002
Statut
Membre
Dernière intervention
15 mars 2004
2
Qu'est-ce que tu n'as pas compris tchesy ?
Messages postés
1
Date d'inscription
lundi 28 octobre 2002
Statut
Membre
Dernière intervention
16 novembre 2002

je n'ais rien compris à tous ça
Messages postés
123
Date d'inscription
mercredi 2 janvier 2002
Statut
Membre
Dernière intervention
15 mars 2004
2
Tu as raison, c'est à la fonction appelante de libéré le TStringList. Je l'ai corrigé.
Messages postés
1
Date d'inscription
lundi 13 mai 2002
Statut
Membre
Dernière intervention
13 mai 2002

Petit bug: il faut remplacer le dernier finally par except sinon la récupération est impossible.
Messages postés
4297
Date d'inscription
samedi 19 janvier 2002
Statut
Modérateur
Dernière intervention
9 janvier 2013
31
Intéressant...
Afficher les 7 commentaires

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.