VPF::Сохранение списка координат - Форум программистов

Гость05

Дата 27.9.2005, 11:42 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

требуется хранить набор координат (TPoint), предпологал использовать TList, но немогу сохранить:

Код


var
lPoints : TList;
...
begin
...
lPoints.Add(@(Point(x, y)));
...
end;

как грамотно произвести сохранение?

z-END

Дата 27.9.2005, 11:57 (ссылка)

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

Загрузка ...

прафесар™

Профиль
Группа: Комодератор
Сообщений: 3014
Регистрация: 13.3.2003
Где: Венья, Пиетари

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

можно использовать типизированый файл типа TPoint и производить поэлементное чтение/запись

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

Каждый чилавек пасвоему праф...а памоему НЕТ!

Гость05

Дата 27.9.2005, 12:01 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

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

Romikgy

Дата 27.9.2005, 12:25 (ссылка)

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

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

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

Мож сделать так (если точек не сильно много)

Код


var
lPoints : array [0..1000] of point;
...
begin
...
lPoints[0]:=(Point(x, y));
lPoints[1]:=(Point(x, y));
...
end;

конечно легче класс создать свой, наподобии TList , только для хранения точек

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

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

Гость05

Дата 27.9.2005, 12:44 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

спасибо за предложения
задача кратковременная => специально класс городить не хотелось
данных может быть много и к томуже хочется некой универсальности
так что хотелось бы услышать ещё мнений

MBo

Дата 27.9.2005, 12:51 (ссылка)

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

Загрузка ...

Бывалый

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

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

var PP:PPoint;

...
New(PP);
PP^:=Point(X,Y);
List.Add(PP);
...
Pointvar:=PPoint(List[i])^;
....
и не забыть освободить память потом.

Кроме того, если диапазона координат SmallInt хватит, можно воспользоваться типом TSmallPoint - занимает 4 байта, поэтому можно записывать прямо в TList с использованием приведения типов, что позволяет избежать использования динамического выделения памяти.

List.Add(Pointer(SmallPoint));
...
SmallPoint:=TSmallPoint(List[i]);

Гость05

Дата 27.9.2005, 13:38 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

както громозко, на мой взгляд, вариант

Код


lPoints.Add(@(Point(x, y)));

намного удобней и понятней, smile

но к сожалению как я понимаю не жизнеспособен?

Guest

Дата 27.9.2005, 15:11 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

конечно удобнее, только не работает smile

При внесении указателя в список необходимо обеспечить актуальность данных, на которые он указывает, в течение жизни списка. Указатели на локальные переменные и т.п. не подойдут.

p0s0l

Дата 27.9.2005, 21:36 (ссылка)

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

Загрузка ...

Г-н Посол

Профиль
Группа: Экс. модератор
Сообщений: 3668
Регистрация: 13.7.2003
Где: 58°38' с.ш. 4 9°41' в.д.

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

Можно написать свою MyPoint и использовать эту функцию вместо Point...

Код

function MyPoint (x, y : integer) : PPoint;
begin
  New(Result);
  Result^ := Point(x, y);
end;

...
// пример использования:
lPoints.Add(MyPoint(x, y)));

Или сделать так:

Код

type
  TMyList = class (TList)
  public
    procedure AddPoint (x, y : integer);
  end;

procedure TMyList.AddPoint (x, y : integer);
var p : PPoint;
begin
  New(p);
  p.X := x;
  p.Y := y;
  Add(p);
end;

...
// пример использования:
lPoints.AddPoint(x, y);

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

С уважением, г-н Посол.

Romikgy

Дата 28.9.2005, 09:10 (ссылка)

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

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

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

А я че говорил , что через класс будет проще smile

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

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

ДЫМ

Дата 29.9.2005, 03:06 (ссылка)

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

Загрузка ...

Бывалый

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

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

Объясните, пожалуйста, а зачем все это городить? Вопрос был как я понял, как хранить набор точек. Почему не через динамический массив?

Код


type
 TArrayOfPoints=array of TPoint;

var MyArray:TArrayOfTPoints;

...
 Setlength(MyArray,Length(MyArray)+1);
 MyArray[High(MyArray)]:=Point(x,y)
...

Зачем класс создавать? Или я чего-то не догоняю?

Girder

Дата 5.10.2005, 00:13 (ссылка)

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

Загрузка ...

Лентяй 2

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

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

Так как нужно использовать только X и Y... и если X и У не превышает слова. То можно упаковать их в двойное слово... и енто слово запихивать в список... как будто енто указатель.

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

Как слышим, так и пишим.
Истина где-то там...

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