[kemerovo_man]

Здравствуйте, уважаемые форумчане.
Опишу задачу:
есть несколько массивов разных типов, например, массив строк и массив целых чисел

Код:

var 
 integerArray: array of integer;
 stringArray: array of string;

есть общие функции для работы с ними: задать размер массива, добавить новый элемент в массив, удалить элемент массива, отобразить все элементы массива и т.д.

сейчас я это делаю очень тупо:

Код:

procedure setLengthArray(arrayName:string, len:integer);
begin
 if arrayName='integerArray' then setlength(integerArray,len);
 if arrayName='stringArray' then setlength(stringArray,len);
end;

procedure deleteFirst(arrayName:string);
begin
 if arrayName='integerArray' then delete(integerArray[0]);
 if arrayName='stringArray' then delete(stringArray[0]));
end

В общем, если массивов не два а двадцать, код растягивается неимоверно. Обратите внимание, что операции с массивом однотипные и повторяются копипастом...

т.е. Вопрос такой:
как обратиться к массиву, зная его имя... например, передать имя массива в функцию, в которой можно будет делать однотипные операции...

возможно, есть и альтернативные подходы... Надеюсь на помощь.

[M.A.D.M.A.N.]

Используй array of variant. Тогда можноо вообще только один массив иметь, анализировать через VarType.
А лучше коллекции использовать.

[NumLock]

а зачем вообще так делать (про setLengthArray и deleteFirst)?

[kemerovo_man]

2 NumLock так делать незачем, это абстрактные примеры, иллюстрирующие мое незнание...

2 M.A.D.M.A.N. поподробнее, пожалуйста, лучше с кодом...

[kemerovo_man]

по поводу varType он только стандартные типы определяет?

Функция VarType возвращает целое число, представляющее текущий тип данных для Variant переменной VariantVariable.

Этот 16 битный тип данных, разбитый на биты старшего разряда (4 бита) и младшего разряда (12 бит). Биты старшего разряда дают тип мета данных:

varArray: Если Variant содержит массив данных
varByRef: Если Variant косвенно обращается к данным

Биты младшего разряда содержат одно из следующих значений:

varEmpty
varNull
varSmallint
varInteger
varSingle
varDouble
varCurrency
varDate
varOleStr
varDispatch
varError
varBoolean
varVariant
varUnknown
varShortInt
varByte
varWord
varLongWord
varInt64
varStrArg
varString
varAny

Это не совсем то, что нужно...
В примерах я говорил о типах целое и строка для простоты, на самом деле у меня описаны классы объектов. Массивы типа: массив стульев, массив столов и т.д. массивы объектов... такой подход с variant прокатит?

[M.A.D.M.A.N.]

У тебя там будут экземпляры классов? В принципе array of TObject пойдет.
А вообще, для хранения классов есть листики спецовые, TObjectList называется.

[kemerovo_man]

2 M.A.D.M.A.N. TObjectList кажется то, что нужно...
можно все экземпляры классов засунуть в один список, через свойство
list.Items[i].ClassType.ClassName определять их тип... буду много думать... спасибо.

[M.A.D.M.A.N.]

ClassName - это класс функция, она может быть вызвана как с объекта, так и с класса, не обязательно делать так: "ClassType.ClassName".