Discussion :

[ErPi]

Bonjour

Code :

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

1
2
3
4
5
6
7
 
function MaFonction(const KeyValues: array of const):boolean;
var i:integer;
begin
   for i:=0 to High(keyValue) do begin
 
//etc..

Je n'arrive pas à déceler que le tableau (keyValues) est vide!!!

L'appel de MaFonction(['']) fait planter l'application car
High(keyValues) me retrourne 0



merci

[tourlourou]

utilise Length(KeyValues)

[ErPi]

L'appel de MaFonction(['']) fait planter l'application car

length(keyValues) me retrourne 1;

j'aimerais mieux 0

[Clorish]

normal [''] est un tableau de constante contenant un element : une chaine vide.

Pour detecter les tableaux vides, ecrit plutot :

Code :

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

1
2
 
If KeyValues = [] Then ...;

[ErPi]

Code :

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

If KeyValues = [] Then ...;

Erreur à la compilation
"Incompatible types"

[tourlourou]

pour lui passer un tableau vide, tu dois le faire par variable, pê :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
procedure test;
function bidon(const t : array of const) : boolean;
begin
 Result := False;
end;
var
 vide : array of TVarRec;
begin
 bidon(['']);
 bidon(vide);
end;

[ErPi]

pour lui passer un tableau vide, tu dois le faire par variable, pê :

Je ne veux pas passer un tableau vide. C'est que je ne sais pas si c'est vide ou pas; je peux avoir par exemple

Code :

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

maFonction([s]);

Je me rend compte que la fonction plante lorsque je veux lire la contenue
KeyValue[i]

Code :

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

1
2
3
4
5
6
7
for i:=0 to High(keyValue) do begin
 
            case KeyValue[i].VType of
 
                vtInteger    : ValeurParam:=inttostr(keyValue[i].vinteger);
 
                vtAnsiString :  ValeurParam:=keyValue[i].vPchar;

Si je rajoute ce code, c'est ok

Code :

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

1
2
3
4
5
 
    vtAnsiString : if keyValue[i].vPchar<>nil then 
                            ValeurParam := keyValue[i].vPchar 
                        else 
                            ValeurParam:='';

Ca va aller pour moi!

merci de vos réponses