Discussion :

[spyk]

Bonjour (encore) a tous !
Voici mon probleme, j'ai une fonction, qui recupere des donné, et qui les rentre dans un tableau de string.

Ensuite, cette fonction doit retourne sont tableau, de facons a ce que je puisse le recuperer comme ca :
Tableau := Mafonction();
Pas de probleme a la compilation, mais quand j'utilise le programme, il plante, en mettant des showmessage un peu partout, j'ai pu etre sur qu'il plante a :
Result[i] := link;

(Link etant le texte a rentrer dans le tableau.)
Je fais suivre la fonction en question :

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
 
function Donnecequisuis_multi(URL : string; debut:string;fin:string;maxinstance:integer):Tstringarray;
var HTTP : TIdHTTP;
    Content, Link : string;
    Positiondeb : integer;
    Positionfin : integer;
    longueur : integer;
    i:integer ;//Pour le compteur dans la boucle qui trouve les planetes
    double_i : integer;
begin
  HTTP := TIdHTTP.Create(nil);
  try
 
    //On recupere la page
    Content := HTTP.Get(URL);
 
  //On cherche les instances ;)
      Positiondeb := 0;
      Positionfin := 0;
      i:=1;
     while true do
     begin
 
          //On trouve le debut du truc
          Positiondeb := PosEx(debut, Content, Positiondeb+length(debut));
 
          //Si on trouve pas le mot,  on laisse tombé
          if Positiondeb = 0 then break;
 
          //On cherche la fin de la chaine
          PositionFin := PosEx(fin, Content, Positiondeb++length(debut));
 
          longueur := PositionFin - (PositionDeb+length(debut));
 
          //On copy le mot cherché dans la variable link
 
          link := copy(Content, PositionDeb+length(debut), longueur);
 
          //On renvoie le resultat
          showmessage('Sav'+link);
          Result[i] := link;
          showmessage('Verif');
          if maxinstance > i then break;
          i := i +1 ;
 
 
     end;
 
 
  finally
    HTTP.Free;
  end;
end;

PS : J'ai aussi essayer de faire sortir le tableau, avec des pointeurs, ca ne marche pas aussi Ca plante quand j'assigne l'adresse du tableau a mon pointeur ...

Merci!

[portu]

Je pense que tu devrais redimmensionner ton tableau à chaque enreigistrement de la valeur link.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
....
SetLength(Result, Length(Result+1));
Result[High(Result)] := Link;
....

[spyk]

Quand je le fait, ca fait operateur non applicable a ce type d'opperante
sur la ligne
SetLength(Result, Length(Result+1));

T'a une idée?

Merci!

[rbh]

Salut
SetLength(Result, Length(Result) + 1);