Скачать: CL | DM;

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

← →
Антон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)

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

---

← →
Игорь Шевченко ©   (2005-12-09 15:39) [3]

> AddArrayValue(ColumnArray, 6);


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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.041 c