Discussion :

[FullSpeed]

Voila dans une procédure j'utilise une variable qui se trouve dans une table, elle même dans un record..
A l'issue la variable a un nom de 50 caractères
Je voudrais juste localement l"appelé A ce qui est plus facile
Je précise que je ne modifie pas le contenu et que les with ne correspondent pas à mon besoin.

Boris

[popo]

Il suffit de faire ceci

Code :

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

A := MaVariableQuiEstBeaucoupTropLongue;

[peter27x]

D'accord avec Popo, en fait y'a aucune difficulté réelle dans ta problématique, par contre je vois pas du tout le rapport avec le terme "detypage"...

[FullSpeed]

C'est étrange j'ai repondu a Popo mais je ne trouve pas le message

En realite ta solution RECOPIE la variable danns un autre emplacement memoire avec le nouveau nom

Mon problème est de donner un autre nom a la memoire utilisée par ma variable et en fait ensute de changer son type comme dans un record case..
Mais deja le premier point m'aiderait.
Boris

[peter27x]

C'est étrange j'ai repondu a Popo mais je ne trouve pas le message

En realite ta solution RECOPIE la variable danns un autre emplacement memoire avec le nouveau nom

Mon problème est de donner un autre nom a la memoire utilisée par ma variable et en fait ensute de changer son type comme dans un record case..
Mais deja le premier point m'aiderait.
Boris

Ok, mais tu veux aller de quel type vers quel autre type alors ?

[Andnotor]

Avec absolute (Si la déclaration est statique bien sûr):

Code :

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

1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.FormCreate(Sender: TObject);
var
  s1 :string;
  s2 :string absolute s1;
begin
  s1 := 'Hello';
  ShowMessage(s2);
 
  s2 := 'Dave';
  ShowMessage(s1);
end;

[Paul TOTH]

C'est étrange j'ai repondu a Popo mais je ne trouve pas le message

En realite ta solution RECOPIE la variable danns un autre emplacement memoire avec le nouveau nom

Mon problème est de donner un autre nom a la memoire utilisée par ma variable et en fait ensute de changer son type comme dans un record case..
Mais deja le premier point m'aiderait.
Boris

au lieu de déclarer une variable de ce type, il suffit de déclarer un pointer vers ce type, qui pointera sur ta variable.

si cela s'applique à ton problème tu peux aussi "détyper" ta variable en la passant à une procédure qui déclare un paramètre sans type

Code :

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

1
2
3
4
5
6
 
procedure traitement(const Data); // ou (var Data);
var
  value: MonType absolute Data; // retypage
begin
end;

[peter27x]

Avec absolute (Si la déclaration est statique bien sûr):

Code :

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

1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.FormCreate(Sender: TObject);
var
  s1 :string;
  s2 :string absolute s1;
begin
  s1 := 'Hello';
  ShowMessage(s2);
 
  s2 := 'Dave';
  ShowMessage(s1);
end;

Je ne connaissais pas du tout ce "absolute"...

Du coup je me demandais, comment Delphi gère t'il ça ?

Mon petit cerveau a déduit qu'il devait créer implicitement une variable s3, et faire pointer s1 et s2 sur s3, et que chaque affectation à s1 ou à s2 était convertie en une affectation à s3... ai je vu juste ?

[Andnotor]

Il n'y a pas de S3 . S1 et S2 ne sont effectivement que des pointures sur une adresse mémoire contenant les données de la chaîne. Regarde l'aide sur les chaînes, c'est assez bien expliqué.

Dans notre cas, par analogie, absolute serait @s2 := @s1. Les deux adresses des pointeurs se chevauchent.

[FullSpeed]

Je decouvre aussi. Cela m'a l'air de correspondre a mes besoins


L'idée est d'accéder a une table de byrte 4 par quatre pour les recopier comme un copyStr mais par 32 bits

Merci
Boris