Скажите как правильнее написать процедуру добавления значения к м

← →
Антон1209 (2005-12-09 15:14) [0]

procedure addArray(v_dim: pmy_dim; val: integer);
begin
SetLength(v_dim^, Length(v_dim^)+1);
v_dim^[High(v_dim^)]:=val;
end;

где
my_dim = array of integer;
pmy_dim = ^my_dim;

а вызов
addArray(@aa, 1);

или

procedure TForm1.AddArrayValue(var vvv: myArray; xx: integer);
begin
SetLength(vvv, Length(vvv)+1);
vvv[Length(vvv)-1]:=xx;
end;

где
myArray = array of integer;

вызов
AddArrayValue(ColumnArray, 6);

← →
Владислав © (2005-12-09 15:29) [1]

Посмотри в сторону класса TList из модуля Classes.

← →
Alexander Panov © (2005-12-09 15:31) [2]

Антон1209 (09.12.05 15:14)

Второй вариант выглядит приятнее. Зачем лишняя работа с указателями?

> AddArrayValue(ColumnArray, 6);

AddArrayElement вообще-то логичнее

Скажите как правильнее написать процедуру добавления значения к м Найти похожие ветки