Discussion :

[jojo86]

Bonjour,
Est-il possible de retrouver une variable avec son nom sous forme de string.
Exemple :

Code :

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

1
2
3
4
5
Var test:string;
Begin
Test:='Une valeur'
 
Showmessage(RetrouveVar('Test'));//afficherais Une valeur...

Le but etant d'optimiser un code qui se repete.
J'ai plusieurs variable (array) qui commencent toutes par MULTIPLE puis un nom de champs deriere. Genre :

MULTIPLEMonChamps

Je voudrais créer une fonction qui recevrait le nom du champs et agirait sur la variable en question, mais pour ca il faut pouvoir concatener les deux valeur et atteindre la variable...

Merci de votre aide.

Jojo!

[Paul TOTH]

non, mais il est probablement possible de modifier la déclaration de ces variables

Code :

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

1
2
3
4
5
6
7
 
var
 multiple1: ...
 multiple2: ...
 
var
  multiple:array[1..2] of ...

[jojo86]

Je ne comprends pas...

Actuellement, mes variables sont dynamiqueS et de type array.

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
17
Var
MULTIPLEChamps1: Array of string;//taille definie dans une autre procedure
MULTIPLEChamps2: Array of string;//avec SetLength
MULTIPLEChamps3: Array of string;
 
Procedure TForm1.demo(Nom as string);
Begin
  If Nom=Champs1 then
  Begin
    MULTIPLEChamps[0].....
  End;
 
  If Nom = Champs2 then
  Begin
    MULTIPLEChamps2[1]...
  End;
End;

Si tu avais bien compris ma demande tu as donc repondu, mais je ne comprends pas...

Peux tu m'expliquer?

Merci!

[jojo86]

Tiens une idée... Si je passe en parametre ma variable tableau ? Genre:

Code :

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

Procedure TForm1.demo(Nom as string, TabARRAY as Array);

On peut ameliorer ca?

Ou bien, une variable tableau TEMP public, dans laquelle je viens copier la variable correspondant au champs qui doit etre traité dans ma procedure??? Et a ce moment la, dans ma procedure, je traite la variable tableau TEMP et une fois sorti de la procedure, je recupere le contenu de TEMP vers ma variable d'origine...

Qu'en pensez vous?

Merci!

[jojo86]

J'ai trouvé la solution !

Je vais donc déclarer la variable tableau dans la procedure !!!

Merci quand même de ton aide !

[Paul TOTH]

Je ne comprends pas...

Actuellement, mes variables sont dynamiqueS et de type array.

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
17
Var
MULTIPLEChamps1: Array of string;//taille definie dans une autre procedure
MULTIPLEChamps2: Array of string;//avec SetLength
MULTIPLEChamps3: Array of string;
 
Procedure TForm1.demo(Nom as string);
Begin
  If Nom=Champs1 then
  Begin
    MULTIPLEChamps[0].....
  End;
 
  If Nom = Champs2 then
  Begin
    MULTIPLEChamps2[1]...
  End;
End;

Si tu avais bien compris ma demande tu as donc repondu, mais je ne comprends pas...

Peux tu m'expliquer?

Merci!

Code :

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

1
2
3
4
5
6
7
Var
MULTIPLE: array[1..3] of Array of string;
 
Procedure TForm1.demo(Index: Integer);
Begin
   MULTIPLE[Index].....
End;

avec au pire un StringList contenant 'champs1', 'champs2' pour convertir "Nom" en "Index".

[Andnotor]

Avec les génériques, il y aurait le TDictionary:

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
uses Generics.Collections;
 
type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    IntList   :TDictionary<string, integer>;
    StrList   :TDictionary<string, string>;
    FloatList :TDictionary<string, double>;
  end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  IntList   := TDictionary<string, integer>.Create;
  StrList   := TDictionary<string, string>.Create;
  FloatList := TDictionary<string, double>.Create;
 
  //Initialisation
  IntList.Add('MyValue', 0);
  StrList.Add('MyText', '');
  FloatList.Add('MyFloat', 0.0);
 
  //Utilisation
  IntList['MyValue'] := 11;
  ShowMessage(IntToStr(IntList['MyValue']));
 
  StrList['MyText'] := 'Hello world';
  ShowMessage(StrList['MyText']);
 
  FloatList['MyFloat'] := 123.456;
  ShowMessage(FloatToStr(FloatList['MyFloat']));
end;
 
procedure TForm1.FormDestroy(Sender: TObject);
begin
  IntList.Free;
  StrList.Free;
  FloatList.Free;
end;