[goshaua]

Здравствуйте! Как можна занести имена переменных в массив, чтоби сделать, например так:

Код:

1 2 3 4 5 6 7 8 9

procedure New(); const   ArrV : array [0..1] of <type> = (GlobalVarName1, GlobalVarName2); begin   ArrV[0] := 'FFFFFF';   //GlobalVarName1 = 'FFFFFF'; end;

Спассибо !

[Rokuell]

А никак. Нечто подобное можешь сделать через указатели.
для String:

Код:

1 2 3 4 5 6 7 8 9

var GlobalVar1,GlobalVar2:string;   procedure New(); const   ArrV : array [0..1] of Pointer = (@GlobalVar1, @GlobalVar2); begin  PString(ArrV[0])^ := 'FFFFFF';  PString(ArrV[1])^ := 'qwerty'; end;

или общий вариант:

Код:

1 2 3 4 5 6 7 8 9 10

var GlobalVar1,GlobalVar2:<type>;   procedure New(); const   ArrV : array [0..1] of Pointer = (@GlobalVar1, @GlobalVar2); type Mtype = ^<type>; begin  Mtype(ArrV[0])^ := <value>;  Mtype(ArrV[1])^ := <value>; end;