Как по указателю на массив узнать массив чего это(array of string/integer/int64...)

[WhiskasTM]

С рождеством.

Сабж.
Есть функция, которая принимает указатель на массив, теперь нужно определить массив чего это.Просто хочется от оберток избавиться, если возможно. Реально?

type
PStrArray = array of string;
PIntArray = array of Integer;

var
StrA:^PStrArray;
IntA:^PIntArray;

const data : array [0..4] of string = ('1','2','3','4','5');

procedure FillUp(const P:Pointer);
var
i:integer;
begin
case DynArrayTypeInfo(P^).byte of //вот тут вот я не знаю как, это абстрактно
varString:
 begin
  StrA:=P;
  SetLength(StrA^,5);
  for i:=0 to 4 do StrA^[i]:=data[i];
 end;
varInteger:
 begin
  IntA:=P;
  SetLength(IntA^,5);
  for i:=0 to 4 do IntA^[i]:=StrToInt(data[i]);
 end;
end;

procedure BtnClick.OnClick(Sender:TObject);
var
s:array of string;
i:array of integer;
begin
FillUp(@s);
FillUp(@i);
end;

[Человек_Борща]

Используйте тип Variant.
По указателю может быть что угодно, абсолютно все.

[WhiskasTM]

Сообщение от Человек_Борща

Используйте тип Variant.
По указателю может быть что угодно, абсолютно все.

Т.е. вместе @s/@i посылать varString/varInteger? Или сразу array of Variant всегда юзать? Первое как-то проще.

Хотя я думал где-то данные о массиве все же хранятся, выходит все эти "array of" просто массив указателей на куски данных где-то в памяти?

[Stilet]

Первое как-то проще.

Первое тебя не спасет. Второе бери однозначно.

[Человек_Борща]

Хотя я думал где-то данные о массиве все же хранятся, выходит все эти "array of" просто массив указателей на куски данных где-то в памяти?

Не где-то а там куда указывает указатель, и там просто кусок памяти.

Variant специально создан чтобы безопасно и удобно передавать любые типы данных с помощью OLE технологии, а на приемнике безопасно принимать и определять тип данных.