Discussion :

[MiJack]

Bonjour,

J'ai un petit problème : j'ai créé un Array of Array of OleVariant, et à un moment donné je dois agrandir certains Array (de la 2e dimension). Ensuite, je parcours mon tableau pour chercher les cases vides afin de les remplir.

Durant le débuggage, si je passe la souris sur ma variable du tableau, je peux voir ces cases vides qui sont des "unassigned".

J'aimerais donc faire qqch dans le genre :

Code :

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

if tab[i][j] is unassigned then ...

Mais je ne suis pas parvenu à trouver la manière de faire ce test. Qqn peut-il m'aider ?

[anapurna]

salut

oleCheck devrais te permettre de verifier si ta variable est assigne

@+ Phil

[Bruno13]

Suite à ce message, je suis dans le même cas, voici mon code :
Mais hélas celui-ci me dit : indice hors limite :'(

un peu d'aide serait la bienvenue !
Amitiés,
Bruno

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
procedure TMain.WebBrowser1BeforeNavigate2(ASender: TObject;
  const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
  Headers: OleVariant; var Cancel: WordBool);
Var
   Tab : Array of Array of OleVariant;
   i, j : integer;
begin
  Tab:=PostData;
  For i:=0 to Length(Tab)-1 do
    for j:=0 to Length(Tab[i])-1 do
    Begin
        showmessage(Tab[i][j]);
 
    End;
end;

[MiJack]

Merci pour ton aide. J'avoue que ça n'a pas marché avec le OleCheck ("not applicable to this variant type"), mais j'ai réussi à modifier un peu mon appli pour avoir un tableau de double que j'arrive à traiter. Mon problème a donc disparu. Merci quand même.

[anapurna]

salut

pour te deplacer dans le tableau utilise
les methode low et high afin de ne j'amais depasé les borne de tes array

@+ Phil

[Bruno13]

Salut,

j'ai essayé :

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
procedure TMain.WebBrowser1BeforeNavigate2(ASender: TObject;
  const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
  Headers: OleVariant; var Cancel: WordBool);
Var
   Tab : Array of Array of OleVariant;
   i, j : integer;
begin
  Tab:=PostData;
  For i:=Low(Tab) to High(Tab)-1 do
    for j:=Low(Tab[i]) to high(Tab[i])-1 do
    Begin
        showmessage(Tab[i][j]);
 
    End;
end;

mais hélas là aussi ça plante, indice hors limite

tu n'aurais la solution ?

merci bcp
Bruno

[anapurna]

salut
ah j'avait pas regardé ton code

essai plutot un truc du genre

Code :

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

1
2
3
4
5
6
7
8
9
procedure TMain.WebBrowser1BeforeNavigate2(ASender: TObject;
  const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
  Headers: OleVariant; var Cancel: WordBool);
Var
   Tab : string;
begin
  Tab:=PostData;
  showmessage(Tab);
end;

@+ Phil