Discussion :

[Papy214]

Bonjour

Dans une procédure je peux définir un paramètre de type "array of const".
Mais si je veux définir un paramètre comme ça mais pas dans un tableau ce n'est pas possible.

Code :

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

1
2
3
procedure Toto(Valeurs: array of const); // << ok
 
procedure Toto(Valeur: const); // << nok

Je peux utiliser un TVarRec comme type de paramètre mais ça oblige à déclarer le TVarRec et à le remplir avant d'appeler la fonction. Du coup ça perd de son intérêt.

Ou alors utiliser un array of const en ne mettant qu'un seul élément dans le tableau mais je trouve ça un peu stupide.

Donc, est-ce que j'ai raté un truc dans tout ça ? Ou n'est-ce vraiment pas possible ?

[ShaiLeTroll]

Les variables non types, pas facile

mais je dirais plutot procedure Toto(const Valeur);

[solilog]

Bonjour
Si tu veux n'utiliser qu'un seul paramètre, de type quelconque, vu que tous les types standards sont convertibles en variant, pourquoi pas utiliser ce type ?

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
 
procedure MyProc(Valeur: Variant);
begin
   ...
end;
 
var i: Integer;
    c: Char;
    r: Double;
    s: String;
begin
  MyProc(i);
  MyProc(c);
  MyProc(r);
  MyProc(s);
end.

solilog

[Papy214]

Les variables non types, pas facile

mais je dirais plutot procedure Toto(const Valeur);

Code :

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

1
2
3
4
procedure Toto(const valeur);
begin
  ShowMessage(TVarRec(Valeur).VType.ToString);
end;

ça compile mais Valeur n'est pas un TVarRec apparemment. Si j'appelle Toto('Bidule') la fonction affiche 99, ce qui ne correspond à rien.
Je ne sais même pas comment Delphi peut renvoyer une valeur dans ce cas

[Papy214]

@solilog Oui je pourrais mais tout d'abord, la question venait de la possibilité d'utiliser un tableau d'un certain type et l'impossibilité d'utiliser ce même type hors tableau.

Ensuite, il y a une différence entre un variant et un TVarRec (array of const est identique à array of TVarRec).
Le variant tient plus de plus de place et donc plus "lourd" à gérer.

[Andnotor]

Je ne sais même pas comment Delphi peut renvoyer une valeur dans ce cas

Il ne peut pas et ce n'est pas le but. En général ce paramètre est suivi d'un autre donnant la taille pour agir sur une zone mémoire brute (copie par exemple).

Par contre array of const est automatiquement traduit en array of TVarRec, le principe n'est pas le même.

Déclare le paramètre TValue, tu auras ainsi le même comportement qu'un TVarRec.

Code :

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

1
2
3
4
5
6
7
8
9
10
uses System.Rtti;
 
procedure Toto(const Valeur :TValue);
begin
  case valeur.Kind of
    tkInteger : ShowMessage(Valeur.AsInteger.ToString);
    tkUString : ShowMessage(Valeur.AsString);
    ...
  end;
end;

[Invité]

TVarRec perd son utilité avec une fonction ayant un seul paramètre car au moment de la compilation on connait le type de l'argument alors on doit écrire le code adéquate directement.

[Papy214]

Déclare le paramètre TValue, tu auras ainsi le même comportement qu'un TVarRec.

Ah ben voilà ... C'est ce que je ne savais pas ... Je me coucherai moins bète

Merci