передача имени массива в переменную процедуры

[KORT]

столкнулся с интересной задачей: есть 5 одномерных массивов (с разной длиной), например:

var
  tochka: array [1..2] of string = ('name1','value1');
  otrezok: array [1..4] of string = ('name1','name2',value1','value2');
  treugolnik: array [1..6] of string = ('name1','name2','name3',value1','value2','value3');
  kvadrat: array [1..8] of string = ('name1','name2','name3','name4',value1','value2','value3','value4');
  zvezda: array [1..10] of string = ('name1','name2','name3','name4','name5',value1','value2','value3','value4','value5');

На форме есть RadioGroup, с Item'ами: точка, отрезок, треугольник, квадрат, звезда - соответственно. Есть функция транслитерации - KirToLat. Обработчик RadioGroup.Onclick:

  begin
    MassivInfo(KirToLat(RadioGroup.Items[RadioGroup.ItemIndex]));      
  end;

Теперь опишем процедуру MassivInfo, в которой и возникла трудность в передающем параметре:

MassivInfo(masname: {какой тип должен быть?});
  type 
    tmas = array of string;
  var
    i,j,hm: integer;
  begin
    hm:=high(masname);
    setlength(tmas,hm);
    for i:=1 to hm do
      tmas[i]:=masname[i];
    stringgroup.rowcount:=hm;
    for i:=1 to hm/2 do
        stringgrid.cell[0,i-1]:=tmas[i];
    for i:=hm/2+1 to hm do
        stringgrid.cell[1,i-hm/2-1]:=tmas[i];
  end;

[evg_m]

Open array parameters allow arrays of different sizes to be passed to the same procedure or function. To define a routine with an open array parameter, use the syntax array of type (rather than array[X..Y] of type) in the parameter declaration. For example,

function Find(A: array of Char): Integer;

declares a function called Find that takes a character array of any size and returns an integer.

procedure MassivInfo(masname: array of string);
var
   j: integer;
begin
  for j:=low(masname) to high(masname) do begin
  end;
end;

[Johnson]

Есть ещё вариант с передачей нетипизированной переменной...

MassivInfo(var masname; len:integer);

А ещё лучше реорганизовать свои массивы...
Первое что пришло на ум - использовать TObjectList.

TFigureType = (ftPset,ftLine,ftCircle,ftRect,ftTriangle,ftStar);

TPset = class
	Value:integer;
	Name:string;
end;

TFigure = class (TObjectList)
private
	Procedure SetFigure(Index:integer;Value:TPset);
	Function GetFigure(Index:integer):TPset;
public
	FigureType: TFigureType;
	property Figures[Index:integer]:TPset read GetFigure write SetFigure; default;
end;

Конечно, немного громоздко, но если в дальнейшем будет усложняться задача - будет проще переделать. Да и объектное программирование, по моему мнению, лучше процедурного...

[KORT]

Сообщение от evg_m

procedure MassivInfo(masname: array of string);

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

MassivInfo(masname: array of string);
  var
    i,j,lm,hm: integer;
  begin
    lm:=low(masname);
    hm:=high(masname);
    stringgroup.rowcount:=hm;
    for i:=lm to hm/2 do
        stringgrid.cell[0,i-1]:=masname[i];
    for i:=hm/2+1 to hm do
        stringgrid.cell[1,i-hm/2-1]:=masname[i];
  end;

Сообщение от Johnson

Есть ещё вариант с передачей нетипизированной переменной...
..........
А ещё лучше реорганизовать свои массивы...
Первое что пришло на ум - использовать TObjectList.
..........
Конечно, немного громоздко, но если в дальнейшем будет усложняться задача - будет проще переделать. Да и объектное программирование, по моему мнению, лучше процедурного...

Может конечно и правильно, но дело не в объектах, просто стрельнуло что-то в голову как передать массив в процедуру или функцию, а компилятора нет под рукой....вот и накорябал что пришло в голову....