ДинМас (Delphi)
Есть три динамических массивов, типа
A: array of Integer;
B: array of TLabel;
C: array of TButton;
в цикле я заполняю у каждого массива один элемент, предварительно
уведичиваю кол-во элементов в массиве, путем
If High(X)=-1 Then
SetLength(X,1)
else
SetLength(X,Length(X)+1);
Где в мсето Х надо подставлять всякий раз имена динмассивов.
Возможен и другой способ, но меня пока этот устраивает.
Чего хочу: Вынести все это дело в отдельную ПП, типа
procedure AdAlMas(Y)
Begin
If High(Y)=-1 Then
SetLength(Y,1)
else
SetLength(Y,Length(Y)+1);
End;
НО, я не знаю какого типа должен быть параметр Y, что бы в нутри ПП он
принимал значение динмассиво A,B и C
Если бы я писал на С++, я бы применил шаблоны, а в Дельфи, извините, не знаю(((
Яндекс.Открытки на все случаи жизни http://cards.yandex.ru/