Как получить название переменной в виде строки?

Question

[TimCraft]

Pascal, Delphi

На вход функции подается какая либо переменная, как на выходе получить ее название в виде строки?

Пример: подали Var1, на выходе получили string 'Var1'

function fGetNameVar(x:variant): string;
begin
???
end;

Answer 1

[Александр Скуснов]

Не понял задания. Если вы в программе вызываете функцию, напр.,
f(vasya)
то почему вместо этого вы не напишете
'vasya' ?

Comments

[TimCraft]

У меня будет процедура, которая ведет журнал ошибок/проблем в программе.
Она должна сохранять в журнал дату/время, пользователя и текст, в котором будет написано среди прочих отладочных сообщений название переменных и их значения на момент возникновение ошибки.

Я хочу создать функцию в которую я подам только саму переменную (например Var1), а на выходе текст 'Var1 = 1234', этот текст пойдет в журнал ошибок.

Если же сделать как Вы предлагаете, то на вход функции будет подаваться сама переменная и ее строковое название, вот так: fInsertLog(Var1, 'Var1'), это неудобно...

[Александр Скуснов]

Ваш текст можно получить так:
S = 'Var1 = ' + StrToInt(Var1);

Answer 2

[kalapanga]

Невозможно. Имена переменных существуют только в исходном тексте и отсутствуют в скомпилированной программе. Так что если Вам что-то нужно записать в лог/журнал, передавайте в функцию два значения - необходимый текст и собственно значение переменной.