Est-ce possible en Delphi !

bon soir a tt le monde :)
voisi un petite program avec un autre langage de programation (clipper)

A = 5 // je declare une variable numerique A et sa valeur 5
B = 'A' //je declare une variable alphanurerique B qui a la valeur 'A'
juste pour l'instant tt est posible en delphil

la commande suivante est
C = &B
en appel '&' un macro en clipper il signifie que C recoit la valeur d'une variable , le nom de cette variable se trouve dans une autre variable qui est B dans notre cas, c'est a dire C recoit 5
la question est: ést ce que ça est posible en delphi..!

pour faire simple, non...de façon moins directe c'est envisageable.

le langage Pascal est compilé en binaire à un niveau ou le nom des variables n'a plus d'existence. A devient une position en mémoire qui n'a qu'une adresse et aucun nom.

par contre les classes objets avec leurs propriétés bénéficient des Run Time Type Informations (RTTI) qui permettent de retrouver la propriété "A" d'un objet. C'est ce que fait l'IDE Delphi quand on défini la propriété "Caption" d'un objet par exemple, c'est bien le nom "Caption" qui est stocké dans le DFM et GetProperty permet de la retrouver.

Hello,
si je puis me permettre, n'ayant pas les connaissances de Paul Toth, juste une petite remarque, je crois que dans ton cas, tarekk73, c'est possible mais il suffit que B soit déclaré comme un simple pointeur.
Ensuite tu affecte à B l'adresse de la variable A.
Pour finir, tu pourras affecter à C la valeur contenue à l'adresse stockée dans B.
Il faudra surement aussi "caster" ce que tu récupèreras du pointeur B (afin que Delphi te retourne le format attendu (integer ou byte ici, au choix)).
J'espère que c'est assez clair... :?

Citation:

---

Envoyé par peter27x

Hello,
si je puis me permettre, n'ayant pas les connaissances de Paul Toth, juste une petite remarque, je crois que dans ton cas, tarekk73, c'est possible mais il suffit que B soit déclaré comme un simple pointeur.
Ensuite tu affecte à B l'adresse de la variable A.
Pour finir, tu pourras affecter à C la valeur contenue à l'adresse stockée dans B.
Il faudra surement aussi "caster" ce que tu récupèreras du pointeur B (afin que Delphi te retourne le format attendu (integer ou byte ici, au choix)).
J'espère que c'est assez clair... :?

---

oui mais non :)

tu parles de ceci:

Code:

---

1 2 3 4 5 6 7 8 9 10

var a: Integer; b: ^Integer; c: Integer; begin a := 5; b :=@a; // adresse de a c := b^; // récupère le 5 dans a end;

---

mais ça ne fonctionne pas avec le nom 'a'

Citation:

---

Envoyé par Paul TOTH

oui mais non :)

tu parles de ceci:

Code:

---

1 2 3 4 5 6 7 8 9 10

var a: Integer; b: ^Integer; c: Integer; begin a := 5; b :=@a; // adresse de a c := b^; // récupère le 5 dans a end;

---

mais ça ne fonctionne pas avec le nom 'a'

---

Oui c'est exactement ce que je voulais dire. Ensuite effectivement ce n'est plus le nom 'a', mais son adresse, je suis bien d'accord, mais je voyais que ça pour approcher au plus près de ce qu'il cherche à faire (ou à reproduire).

ceci dit, après il est toujours possible d'ajouter des rustines

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

var noms: TStringList; a: Integer; b: string; i : Integer; c: Integer; begin noms := TStringList.Create; noms.AddObject('a', TInteger(@a)); b := 'a'; i := noms.IndexOf(b); c := PInteger(noms.Objects[i])^; end;

---

et on pourra dériver TStringList pour lui ajouter des méthodes AddInteger(nom:string; Addr: PInteger); GetInteger(nom:string):Integer;

Avis perso : les constructions exotiques de ces vieux langages de programmation n'ont en général pas beaucoup d'intérêt. Il vaut mieux comprendre l'intention du code et tenter de la traduire en exploitant au mieux les possibilités du langage.

@+

Je précise "les constructions exotiques de ces vieux langages de programmation n'ont en général plus beaucoup d'intérêt. Il vaut mieux comprendre l'intention du code et tenter de la traduire au mieux avec les possibilités du nouveau langage, comme Delphi.

Citation:

---

la commande suivante est
C = &B

---

Ce qu'il voulait je pense c'est mettre dans C la valeur contenue à l'adresse de B.
Comme vous l'avez constaté.
Mais pourquoi ne fait-il pas juste C=B ?

Ou alors je ne comprend rien à cette heure-ci^^

Tout a fait d'accord avec Eric :

Citation:

---

Avis perso : les constructions exotiques de ces vieux langages de programmation n'ont en général pas beaucoup d'intérêt. Il vaut mieux comprendre l'intention du code et tenter de la traduire en exploitant au mieux les possibilités du langage.

---

C'est ce qu'il essaie de faire en choisissant Delphi non ?

Citation:

---

Envoyé par dragonno

Ce qu'il voulait je pense c'est mettre dans C la valeur contenue à l'adresse de B.
Comme vous l'avez constaté.
Mais pourquoi ne fait-il pas juste C=B ?

Ou alors je ne comprend rien à cette heure-ci^^

Tout a fait d'accord avec Eric :

C'est ce qu'il essaie de faire en choisissant Delphi non ?

---

Sauf que tu n'as pas compris. ce n'est pas C=B mais C=A donc C = 5 qu'il veut.
B contient le nom d'une variable (dans ce cas c'est A) et quand il fait appel à C=&B cela doit lui retourner C = A donc C = 5.

Citation:

---

Envoyé par Paul TOTH

ceci dit, après il est toujours possible d'ajouter des rustines

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

var noms: TStringList; a: Integer; b: string; i : Integer; c: Integer; begin noms := TStringList.Create; noms.AddObject('a', TInteger(@a)); b := 'a'; i := noms.IndexOf(b); c := PInteger(noms.Objects[i])^; end;

---

---

Bonjour Paul !

J'ai regardé avec intérêt ton exemple mais je n'ai pas pu le compiler.

Citation:

---

Identificateur non déclaré : 'TInteger'

---

Qu'est-ce que c'est que ce TInteger ? :roll:

Le TInteger est mentionné comme type personnalisé dans E2020: Type object ou class requis (Delphi)

TInteger est peut-être un type de Paul dans ses lib perso car AddObject n'accepte pas un pointer non typé mais un TObject

Code:

---

noms.AddObject('a', TObject(@a));

---

Avez-vous remarqué que tarekk73 a posé la question le 02/01/2013 et n'est pas revenu depuis 4 mois pour nous lire !

Citation:

---

Sauf que tu n'as pas compris.

---

Ok, merci, je m'en doutais un peu ;)
D'où ma question...

bon jour

Citation:

---

Avez-vous remarqué que tarekk73 a posé la question le 02/01/2013 et n'est pas revenu depuis 4 mois pour nous lire !

---

non, j'ai tous lu, et j'ai pas trouver la bonne réponse ou bien c'est impossible de faire ça en Delphi.:cry::?:(

c'est juste une petite question qui ma passer dans la tête quant j'ai fait une petite comparaison entre deux langage de programmation et pour connaitre les capacités de mon langage de programmation préfére Delphi

merci mes amies pour tout vos réponses

Citation:

---

Envoyé par Roland Chastain

Qu'est-ce que c'est que ce TInteger ? :roll:

---

c'est très probablement une erreur de saisie :)

AddObject attend un TObject, c'est donc TObject qu'il faut lire et non TInteger ;)

@ est un pointeur non typé si le contrôle de type est désactivé {$T-} et dans ce cas, AddObject('a', @a) fonctionne puisqu'un pointeur non typé est compatible avec tous les types de pointeurs ;)

En fait, j'ai introduit "pointeur non type" mais j'aurais du plutôt dire 'pointeur non objet"

Car AddObject n'accepte que du TObject, donc que ce soit 'pointer non type' ou 'pointeur typé int', ils seront refusés peu importe l'option ! non ?

Avec {$T-}, peu importe ce qui se cache derrière. A partir du moment où c'est un pointeur, le compilateur est content ;)