Bonjour,

Je vérifie si deux chaines de caractères sont égales :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
for i:=0 to Webbrowser1.OleObject.Document.Links.Length-1 do
	begin
		[...]
          present := 'non';
 
          for j := 0 to Memo1.Lines.Count do
            begin
              if (Memo1.Lines[j] = Webbrowser1.OleObject.Document.Links.Item(i)) then
                present := 'oui'
              else
                if (present = 'non') then
                  present := 'non';
            end;
		[...]
    end;
J'obtiens l'erreur suivante :

Project Project1.exe raised exception class EVariantInvalidOpError with message 'Invalid variant operation'.
Le but final est de savoir si les liens trouvés dans le WebBrowser sont déjà répertoriés dans le Memo1.

D'avance merci pour vos réponses.



xenos