Изменить значение переменной через указатель

[Adult_Master]

Здравствуйте !
Есть у меня рекорд

type
 TParamsItem = record
  Caption: UTF8String;
  Value  : Pointer;
  ....//Ещё записи
 end;

и есть функция с открытым массивом на входе

function ChangeValue (Values: array of const);

Внутри этой функции надо поменять значение ParamsItem.Value на одно из значений из входного массива. Вопрос: как это сделать не передавая функции тип переменной ?
Пока на ум пришла только идея проверить тип первой переменной из массива и разименовать указатель полагая что все переменные в массиве данного типа, но может есть более красивое решение ?

ParamsItem.Value - укатель на данные из другого рекорда, но дело в том, что это может быть что угодно (string, integer, double).

[Аватар]

ParamsItem.Value указатель на другой рекорд наверно. А данные в таком массиве и так почти все как указатели передаются. Вопрос не понял, но смотри как примерно можно обрабатывать (пример для Д7 если что)

procedure ChangeValue (Values: array of const);
var i: Integer;
    b: Byte;
begin
  for i:=0 to High(Values) do begin
    b:=TVarRec(Values[i]).VType;
    case b of
    vtInteger: Form1.Memo1.Lines.Add(IntToStr(TVarRec(Values[i]).VInteger));
    vtExtended: Form1.Memo1.Lines.Add(FloatToStr(TVarRec(Values[i]).VExtended^));
    vtAnsiString: Form1.Memo1.Lines.Add(String(TVarRec(Values[i]).VAnsiString));
    end;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ChangeValue (['QWEиии',2,0.345]);
end;

[Adult_Master]

Я не это имел ввиду, прочитать данные из массива я знаю как, наверное не правильно объяснил, вот подробнее:
Есть некий рекорд объявленный где то в недрах программы, допустим:

TParams = record
 A: String[3];
 B: Integer;
 C: Double;
end;

Далее в другом модуле, в другом классе есть ещё один рекорд

TParamsItem = record
  Caption: UTF8String;
  Value  : Pointer;
  ....//Ещё записи
 end;

Затем в классе есть массив этих TParamsItem, так вот, в каждом элементе массива просходит примерно следующее:

ParamsItem.Value := @Params.A , но может быть и @Params.B или @Params.C ! т.е. я не знаю на какого типа данные будет указывать этот указатель.

Теперь мне нужно написать функцию

procedure ChangeValue (Values: array of const);

в которой надо сделать вот что:
ParamsItem.Value^ := Values[X] , т.е. изменить таким образом значение Params.A на Values[X] через указатель ParamsItem.Value ! Что бы это сделать надо знать какого типа данные лежат по этому указателю ! но вот как это определить ...

[Аватар]

То есть узнать по Pointer тип данных, на которые он указывает? Полагаю ни как. Если они все наследники TObject то варианты есть, но это другая история