Array of const et const

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:

---

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 ?

Les variables non types, pas facile

mais je dirais plutot procedure Toto(const Valeur);

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:

---

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

Citation:

---

Envoyé par ShaiLeTroll

Les variables non types, pas facile

mais je dirais plutot procedure Toto(const Valeur);

---

Code:

---

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 :(

@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.

Citation:

---

Envoyé par Papy214

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:

---

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;

---

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.

Citation:

---

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 :)