[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".

[kemerovo_man]

да, действительно можно короче писать
list[i].ClassName
спасибо

[kemerovo_man]

В продолжение темы возник вопрос...

Допустим, у меня есть класс TParent с какими-то общими свойствами и методами и есть куча классов потомков типа TChild1,TChild2,..,TChild20

Код:

type
 TParent = class 
 parentProperty:string;
 procedure initParent;
end;

type
 TChild1 = class(TParent) 
 child1Property:string;
 procedure initChild;
end;

type
 TChild2 = class(TParent) 
 child2Property:string;
 procedure initChild;
end;

//.....

type
 TChild20 = class(TParent) 
 child20Property:string;
 procedure initChild;
end;

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

теперь я обращаюсь к i-му элементу ObjectList

Код:

var Obj:TParent;
//...
Obj:=ObjectList[i];
//я могу легко вызвать метод parentInit;
Obj.parentInit;
//но, чтобы вызвать метод childInit, мне уже приходиться делать тупо
if Obj.className='TChild1' then (Obj as TChild1).initChild;
if Obj.className='TChild2' then (Obj as TChild2).initChild;
//...
if Obj.className='TChild20' then (Obj as TChild20).initChild;

Вопрос: как это делать красивее?

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

Код:

if Obj.InheritsFrom(TChild) then TChild(Obj).initChild;

Если конечно они с общего предка и initChild предковый (абстрактный).

[kemerovo_man]

все TChild1, TChild2... TChild20 являются потомками TParent.
Метод TParent.parentInit является для них общим, с ним проблем нет.
а вот методы TChild1.childInit, TChild2.childInit, ...
являются методами инициализации потомков и описаны в них, причем у каждого потомка своя реализация этого метода, они только называются одинаково...

вот и вопрос, я вытащил непонятно что из ObjectList,
как мне вызвать метод childInit, от любого потомка... чтобы не перебирать
TChild1(Obj).initChild
TChild2(Obj).initChild
...
TChild20(Obj).initChild

как-нибудь так (любой потомок TParent).initChild;

может я много хочу

[PhoeniX]

Читай про методы, объявленные как virtual и abstract. То, что тебе нужно.

[kemerovo_man]

Спасибо похоже, то что нужно.