VPF::как работать с динамическими массивами в записи?

zvyagaaa

Дата 9.5.2009, 13:46 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 30
Регистрация: 13.1.2008

Репутация: нет
Всего: нет

Здравствуйте, уважаемые. Для хранения в памяти данных о линиях на канве использую записи

Код


type
TLine =record
  Points:array of TPoint;  //ее точки
  Startpanel:Integer; //начальная панелька
  Endpanel:Integer;  //конечная панелька
  StartPoint:TPoint; //начальная точка
  EndPoint:TPoint; //конечная точка
  Level:integer;  // уровень вертикальной линии
//  row: Integer; //кабельный ряд
end;

...
var
...
  Lines : array of TLine;

Т.е. получается двумерный динамический массив.
В требуемом месте программы я увеличиваю массив Lines

Код


  SetLength(Lines,Length(Lines)+1);

Пытаюсь вот таким образом увеличить количество точек в текущей (последней) линии

Код


for n:=0 to ... do
with Lines[High(Lines)] do
     begin
     SetLength(Points,Length(Points)+1);
     Points[n]:=   FPointArray;
     end;

Почему-то работает только в первый раз, во второй раз не увеличивает количество точек, а очищает массив (судя по дебаггеру).
Помогите, пожалуйста smile

Демо

Дата 9.5.2009, 16:45 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1278
Регистрация: 3.11.2005

Репутация: 7
Всего: 50

Цитата(zvyagaaa @ 9.5.2009, 13:46

)

Points[n]:= FPointArray;

Почему Points[n], а не Points[High(Points)]?

И что такое FPointArray?

--------------------

zvyagaaa

Дата 9.5.2009, 19:40 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 30
Регистрация: 13.1.2008

Репутация: нет
Всего: нет

Похоже, что это дебаггер гнал что-то - перезапустил студию - все встало на свои места.
А на вопросы ответы -
потому что у меня не получалось следующее
with Lines[High(Lines)] do Points := FPointArray; (сейчас заработало), и я думал по одной точке загрузить в массив.

Christoph

Дата 9.5.2009, 22:34 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 667
Регистрация: 23.1.2008
Где: Харьков

Репутация: 5
Всего: 11

мне кажется будет лучше не выделять память под новую запись, а использовать TList

Это сообщение отредактировал(а) Christoph - 9.5.2009, 22:42

--------------------

MetalFan

Дата 10.5.2009, 08:57 (ссылка)

(нет голосов)

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 22
Всего: 128

Цитата(zvyagaaa @ 9.5.2009, 19:40

)

with Lines[High(Lines)] do Points

под отладкой значение Points в такой конструкции можно и не увидеть, или увидеть, но не то...

--------------------

There are always someone smarter than you...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »