Discussion :

[tarekk73]

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

[Paul TOTH]

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.

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

[Paul TOTH]

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 :

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

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'

[peter27x]

oui mais non

tu parles de ceci:

Code :

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

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

[Paul TOTH]

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

Code :

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

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;