[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

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

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

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