| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Скажите как правильнее написать процедуру добавления значения к м [D7, WinXP]
Антон1209 © (2005-12-09 15:14:00)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:39:00) [1]
> AddArrayValue(ColumnArray, 6);
AddArrayElement вообще-то логичнее
Alexander Panov (2005-12-09 15:31:00) [2]Антон1209 (09.12.05 15:14)
Второй вариант выглядит приятнее. Зачем лишняя работа с указателями?
Владислав (2005-12-09 15:29:00) [3]Посмотри в сторону класса TList из модуля Classes.
| |
