[anton_]

Подскажите, пожалуйста, как в Delphi обратится к переменной, имя которой содержится в значении другой переменной. Возможно ли вообще такое?

Например, эта проблема в PHP решается очень просто:
$string_2 = "hello";
$string_1 = "string_2";

При записи $$ перед именем переменной:
$temp = $$string_1;
мы переменной temp присваиваем значение переменной $string_2, т.е. hello

Как в Delphi сделать тоже самое?

[lmikle]

В дельфи напрямую такое невозможно.
Зато можно использовать указатели.
Еще можно с помощью RTTI находить экземпляры классов и, соотв., обращаться к ним. Т.е. если у тебя в переменной написано имя экземпляра класса, то через RTTI ты можешьполучить ссылку на него, ну и далеее работать с соотв. переменной. Для этого надо класс скомпилить со специальной директивой (кажется $M+, но не уверен - смотри в доке. большинство классов VCL скомпилированны именно так).

[anton_]

С помощью указателей можно обратиться к адресу переменной или ее значению, а к самой переменной - нет, особенно если переменная - массив.

пример:

Код:

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

// описание const   Name_Risk : array [0..4] of string = ('Fire', 'Disasters', 'Water', 'Malicious', 'Impact'); var   Fire_Value_1, Fire_Value_2, ... :array of real;   temp, temp_1: string;   i, j: integer;   p: ^string;   ... begin   ...   for i:= 0 to 4 do   begin     if Name_Risk[i]=temp then     begin        // допустим в переменной temp_1 содержится имя массива Fire_Value_1,<b><i> как теперь взять какой либо элемент этого массива?</i></b>        temp_1:=Name_Risk[i]+'Value_'+j;        // p:=@temp_1; в указатель записывается адрес переменной temp_1        // p^ - данная операция возвращает значение переменной temp_1, <b>а как обратиться к массиву?</b>       end;     end;   ... end;

Все-равно, спасибо за ответ. Все-таки характерная особенность Object Pascal - четкая типизированность данных не всегда бывает удобной при работе.

[lmikle]

Да нет, нормально. Просто надо уметь работать с указателями и тогда четкая типизация тебе мешать не будет. Сам долго разбирался, но когда пришлось использовать WinAPI, тогда начал понимать как это все работает.

[oleg_at]

Да нет, нормально. Просто надо уметь работать с указателями и тогда четкая типизация тебе мешать не будет.

Поделись!
В PHP, VB "склейки" имен переменных делаются.
Получаем красивый программный продукт.
Delphi - не Си.
Вот на Delphi и "споткнулся"!
Как частный случай, для отладки:

Код:

1 2 3 4 5 6 7 8 9

procedure Form.edKeyPress(Sender: TObject; var Key: Char); var   str, str1: String;   istr: ^String; // переменная-указатель begin  // #13 -> Chr(VK_RETURN)   str := 'Key'; // 'TEdit(Sender).' + 'Text';   istr := @str; // инициализируем переменную istr   str1 := istr^;   ShowMessage(str + #13#10 + str1 + #13#10 + PChar(istr));

изночально ясно что str === str1 = 'Key', и PChar(istr) - бред,
а как получить значение Key, через str ?
P.S. Вообще нравиться интелектуальные ответы, типа:
"Спасибо, разобрался!"
Если разобрался, то зачем другим голову морочил до этого.
А если разобрался, то изложи решение!
В электронике - обратная связь!!!! Уважать других надо!

[lmikle]

Ну бред ты получаешь совершенно закономерно, т.к. в конце PCHAR у тебя не нулевой символ, вот она небось и выводит кучу мусора. Кстати, более правильно писать так:

Код:

1	istr := PChar(str);

Хотя, честно говоря, не помню - копирует она при этом строку или нет.

А вообще, если очень хочется работать с перемеными по их именам, используй классы и RTTI.