Не присваиваются значения!

← →
Виталик 2006 (2006-11-18 14:45) [0]

Здравствуйте, мастера. Помогите решить задачку:
Вот у меня есть запись
TCircle = record x, y, r: integer; end;
Дальше мне нужно обрабатывать много окружностей - делаю класс на основе TList
TCircles = class(TList) private function GetCircle(index: integer): TCircle; procedure SetCircle(index: integer; const Value: TCircle); public property Items[index: integer]: TCircle read GetCircle write SetCircle; default; ...

Всё отлично работает кроме одной необходимой вещи.
Я не могу использовать например такое:
Circles[0].x:=10;
..а очень хочется=)

Как я понимаю, можно только целиком присваивать
Circles[0] := OtherCircle;
что очень неудобно, если мне нужно только х поменять.
Подскажите, как исправить...

← →
MBo © (2006-11-18 14:55) [1]

можно добавить дополнительные индексированные свойства для X, Y и R

← →
Виталик 2006 (2006-11-18 15:00) [2]

> MBo © (18.11.06 14:55) [1]
> можно добавить дополнительные индексированные свойства для X, Y и R
напишите по подробнее, как это?

← →
MBo © (2006-11-18 15:02) [3]

>как это?
Точно также, как Items, только без Default.

А вообще тебе нужен класс или можно массивом обойтись?

← →
Виталик 2006 (2006-11-18 17:07) [4]

Да, класс нужен.
Т. е. так
property Items[index, ParamIndex: integer]: integer read GetParam write SetParam; default;

Но ведь это не очень читабельно.
И чисто теоретически, если бы у записи были поля разных типов...

Неужели это единственный способ?

← →
Palladin © (2006-11-18 17:12) [5]

PCircle = ^TCircle TCircle = record x, y, r: integer; end; TCircles = class(TList) private function GetCircle(index: integer): PCircle; public property Items[index: integer]: PCircle read GetCircle; default; ...

← →
Виталик 2006 (2006-11-18 17:22) [6]

> Palladin © (18.11.06 17:12) [5]
супер! спасибо.
Правда придётся теперь в параметрах всех функций
TCircle на PCircle менять.. %)

и маленький вопросик:
почему работает даже
Circles[0].x:=10;
ведь должно быть
Circles[0]^.x:=10;
?

← →
Palladin © (2006-11-18 17:30) [7]

компилятор по умолчанию автоматически разименовывает типы... если бы было PCircle=Pointer; ничего подобного не происходило, но явно указано PCircle=^TCricle; потому вопросов по полям записи у компилятора не возникает...

← →
Palladin © (2006-11-18 17:32) [8]

конечно же это относится к Delphi, с какой версии не знаю, в d6 точно, ни в одной из версий TP/BP такое не прокатит, там нужен ^
да и class и property там тоже не прокатят :))

← →
guav © (2006-11-18 18:11) [9]

Кстати, два подряд разыменование автоматичеки не делаются (только одно из них).

← →
Palladin © (2006-11-18 18:12) [10]

а?

← →
guav © (2006-11-18 18:22) [11]

> [10] Palladin © (18.11.06 18:12)
> а?

ага.
var R0: TRect; R1: PRect; R2: ^PRect; begin R1 := @R0; R2 := @R1; R2^^.Left := R2^^.Right; // компилится R2^.Left := R2^.Right; // компилится R2.Left := R2.Right; // не компилится end;

← →
Anatoly Podgoretsky © (2006-11-18 18:24) [12]

> Palladin (18.11.2006 17:12:05) [5]

> property Items[index: integer]: PCircle read GetCircle; default;

property X[index: integer]: integer read GetCircleX

← →
Palladin © (2006-11-18 18:38) [13]

> [11] guav ©

а... :) ну есть такое

> [12] Anatoly Podgoretsky ©

ага...

property A[index: integer]: integer read GetCircleA;
property B[index: integer]: integer read GetCircleB;
property C[index: integer]: integer read GetCircleC;
property D[index: integer]: integer read GetCircleD;
property E[index: integer]: integer read GetCircleE;
property F[index: integer]: integer read GetCircleF;
property G[index: integer]: integer read GetCircleG;
property H[index: integer]: integer read GetCircleH;
property I[index: integer]: integer read GetCircleI;
property J[index: integer]: integer read GetCircleJ
property K[index: integer]: integer read GetCircleK;
property L[index: integer]: integer read GetCircleL;
property M[index: integer]: integer read GetCircleM;
property N[index: integer]: integer read GetCircleN;
property O[index: integer]: integer read GetCircleO;
property P[index: integer]: integer read GetCircleP;
property Q[index: integer]: integer read GetCircleQ;
property R[index: integer]: integer read GetCircleR;
property S[index: integer]: integer read GetCircleS;
property T[index: integer]: integer read GetCircleT;
property U[index: integer]: integer read GetCircleU;
property V[index: integer]: integer read GetCircleV;
property W[index: integer]: integer read GetCircleW;
property X[index: integer]: integer read GetCircleX;
property Y[index: integer]: integer read GetCircleY;
property Z[index: integer]: integer read GetCircleZ;
...
и еще много много букаф... особенно прикольно при изменении структуры записи...

← →
Palladin © (2006-11-18 18:39) [14]

учитывая что твой вариант property еще и подразумевает write SetCircle<Letter>

← →
fog (2006-11-18 18:47) [15]

public
property Items[index: integer]: TCircle read GetCircle write SetCircle; default;

Я не могу использовать например такое:

Circles[0].x:=10;

..а очень хочется

А где объявлено property Circles? А пока - Items[0].x:=10;

← →
Palladin © (2006-11-18 18:50) [16]

> [15] fog

а недогоняющим что
Var Circle:TCircle;
стоит немного подрастить свой телепатор )

← →
Palladin © (2006-11-18 18:50) [17]

буковку забыл
Var Circles:TCircles;

← →
fog (2006-11-18 18:59) [18]

Доращиваю - Circles.Items[0].x:=10

> Palladin (18.11.2006 18:38:13) [13]

А причем тут количество, хочешь менять Х делай свойство Х
Всяко получше, чем property Items[index, ParamIndex: integer]: integer

> [13] Palladin © (18.11.06 18:38)

> property A[index: integer]: integer read GetCircleA;
> property B[index: integer]: integer read GetCircleB;
> property C[index: integer]: integer read GetCircleC;

На самом деле и так приходится делать если хочется опубликовать поля записи (не Indexed в этом случае, разумеется).

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

> [18] fog

рекомендую изучить директиву default

> [19] Anatoly Podgoretsky ©

о ParamIndex речи небыло и нет, было желание менять значение аттрибута записи...

> [20] guav ©

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

> Palladin (18.11.2006 20:55:21) [21]

> о ParamIndex речи небыло и нет, было желание менять значение аттрибута записи...

Как же не было, я не руками писал, а скопировал.
А в вопросе речь про свойства, свойства X в определение класса нет

> Всяко получше, чем property Items[index, ParamIndex: integer]:
> integer

про этот paramindex у меня речи не было... об этом упомнал автор, его полностью устроило мое решение... без использования всяких paramindex

← →
Виталик 2006 (2006-11-18 21:48) [24]

> guav © (18.11.06 19:45) [20]

> Исходя из этих двух проблем, желательно избегать свойства-записи и использовать свойства-классы заместо их.

Т.е. если вместо записи я сделаю

TCircle = class x,y,r: integer; end;
то всё заработает в варианте

TCircles = class(TList) private function GetCircle(index: integer): TCircle; procedure SetCircle(index: integer; const Value: TCircle); public property Items[index: integer]: TCircle read GetCircle write SetCircle; default; ...
?

> Palladin (18.11.2006 21:39:23) [23]

Ну так мы о разных вещах говорим :-)

> Виталик 2006 (18.11.2006 21:48:24) [24]

Не заработает, поскольку нет соответствующих свойств X, Y, Z

Не присваиваются значения! Найти похожие ветки