Здравствуйте, уважаемые форумчане.
Опишу задачу:
есть несколько массивов разных типов, например, массив строк и массив целых чисел
Код:
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
В общем, если массивов не два а двадцать, код растягивается неимоверно. Обратите внимание, что операции с массивом однотипные и повторяются копипастом...
т.е. Вопрос такой:
как обратиться к массиву, зная его имя... например, передать имя массива в функцию, в которой можно будет делать однотипные операции...
возможно, есть и альтернативные подходы... Надеюсь на помощь.
