Обращение к классу

← →
webpauk (2006-05-18 16:09) [40]

Удалено модератором

← →
Плохиш © (2006-05-18 16:10) [41]

> webpauk (18.05.06 16:06) [37]
> надо знать хотя бы часть ответа на него

Ты так давно находишься на этом форуме, что если я пошлю тебя книжки читать, то это может быть расценено как оскорбление, поэтому я молчу.

← →
webpauk (2006-05-18 16:10) [42]

> Еще раз - изобретатели велосипедов здесь живут в "Начинающие")

а ты не наделен даром изобретать велосипеды?
иногда легче его придумать, чем искать ненужные шестеренки

← →
Сергей М. © (2006-05-18 16:10) [43]

Удалено модератором

← →
webpauk (2006-05-18 16:12) [44]

Удалено модератором

← →
webpauk (2006-05-18 16:14) [45]

Удалено модератором

← →
Сергей М. © (2006-05-18 16:15) [46]

Удалено модератором

← →
webpauk (2006-05-18 16:18) [47]

Удалено модератором

← →
webpauk (2006-05-18 16:19) [48]

Удалено модератором

← →
Сергей М. © (2006-05-18 16:19) [49]

Удалено модератором

← →
saxon (2006-05-18 16:19) [50]

> webpauk (18.05.06 14:11) [11]
> кароче, сделал я TmyLabel(TLabel), где и прописал в Public
> declarations: ClassCreated: Pointer;

А почему ClassCreated: Pointer; а не ClassCreated: TObject; например?

← →
Сергей М. © (2006-05-18 16:28) [51]

> я Програмист, может и корявенький,

Есть повод для стремления к "некорявенькости"

← →
Джо © (2006-05-18 16:28) [52]

> [50] saxon (18.05.06 16:19)
>
> > webpauk (18.05.06 14:11) [11]
> > кароче, сделал я TmyLabel(TLabel), где и прописал в Public
>
> > declarations: ClassCreated: Pointer;
>
> А почему ClassCreated: Pointer; а не ClassCreated: TObject;
> например?

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

← →
webpauk (2006-05-18 16:30) [53]

> saxon (18.05.06 16:19) [50]

не вижу разницы

← →
saxon (2006-05-18 16:31) [54]

> webpauk (18.05.06 16:30) [53]
> > saxon (18.05.06 16:19) [50]
>
> не вижу разницы

Тогда еще больше не понятно.

← →
webpauk (2006-05-18 16:31) [55]

Удалено модератором

← →
Игорь Шевченко © (2006-05-18 16:32) [56]

Правила читать. До полного и окончательного просветления. Для разборок на сайте сделан чат.

← →
webpauk (2006-05-18 16:32) [57]

Удалено модератором

← →
Джо © (2006-05-18 16:33) [58]

> [53] webpauk (18.05.06 16:30)
>
> > saxon (18.05.06 16:19) [50]
>
> не вижу разницы

Это плохо. А гонору...

← →
webpauk (2006-05-18 16:34) [59]

Удалено модератором

← →
webpauk (2006-05-18 16:35) [60]

> Джо © (18.05.06 16:33) [58]

разница не между Tobject и Pointer, а разница в результате

← →
Джо © (2006-05-18 16:37) [61]

> [59] webpauk (18.05.06 16:34)
>
> > saxon (18.05.06 16:31) [54]
>
> суть не изменилась!!!
> результат тот же!!!

Нет, не тот же. В случае с Pointer — это всего-лишь закладывание мины замедленного действия. Ничем в задаче не мотивированное. Уместность использования массива вместо TObjectList так же под большим вопросом, кстати, отсюда и получается тот самый велосипед. Из-за которого возникают надуманные проблемы.

← →
Сергей М. © (2006-05-18 16:38) [62]

Господи, прости ты олуха твоего, Webpauk"а, ибо не ведает он что творит !

TMySuperPuperLabel = class(TLabel)
...
TUser = class(TComponent)
....
TMySuperPuperLabel.Create(SomeExisingObjectOfTUserClass)

← →
webpauk (2006-05-18 16:42) [63]

> Сергей М. © (18.05.06 16:38) [62]

TMySuperPuperLabel = class(TLabel) ... TUser = class(TComponent) private fLabels: array of TMySuperPuperLabel ; end; TGroupUser = class(TComponent) private fLabels: array of TMySuperPuperLabel ; end; .... ??? TMySuperPuperLabel.Create(SomeExisingObjectOfTUserClass)

← →
webpauk (2006-05-18 16:43) [64]

виноват
TGroupUser = class(TComponent) private flabel: TMySuperPuperLabel; fLabels: array of Tuser; end;

← →
saxon (2006-05-18 16:46) [65]

2 webpauk
Можно узнать смысл этого массива?

← →
webpauk (2006-05-18 16:48) [66]

вообще то это локальный чат
Группы объединяют контакты.
Представление групп и еонтактов через Tlabel

← →
webpauk (2006-05-18 16:51) [67]

а из обращения к группе (TLabel) получить доступ к контактам можно только через класс , в котором создается этот Tlabel

← →
Плохиш © (2006-05-18 16:55) [68]

> webpauk (18.05.06 16:48) [66]
> вообще то это локальный чат
> Группы объединяют контакты.
> Представление групп и еонтактов через Tlabel

Стоит про TTreeView почитать.

← →
webpauk (2006-05-18 17:00) [69]

← →
webpauk (2006-05-18 17:00) [70]

> ??? TMySuperPuperLabel.Create(SomeExisingObjectOfTUserClass)
>

Уже ближе к теме (хоть и упоминание тобой какого-то там чата не имеет к сабжу ни малейшего отношения) ..

Ну так что здесь не понятно ?

← →
webpauk (2006-05-18 17:31) [72]

> Сергей М. © (18.05.06 17:11) [71]

SomeExisingObjectOfTUserClass - это то что за херь?
мне надо обратиться от TMySuperPuperLabel, расположенной на форме к любому свойству класса Tuser, а создать TMySuperPuperLabel.Create(Self) внутри класса Tuser - заведомо совершить ошибку.

Умываю руки.
Буратинам - читать букварь !

> webpauk (18.05.06 17:31) [72]

Тебе не стыдно, а ? Не читать исх.тексты, которы у тебя перед носом, а ?

> webpauk

Только не говори, мол, я там ничего не понимаю - разговор с тобой в этом случае в теме "Общее" тут же закончен.

И если ты ничерта не понимаешь в происходящем при вызове тобой конструктора тоно или иного объекта - давно уже добро пожаловать в "Начинающие" ... И без этого сраного гонора что ты сейчас демонстрируешь ...

← →
webpauk (2006-05-18 17:50) [76]

> Сергей М. © (18.05.06 17:39) [74]

да не стыдно мне
TGroup = class; TUser = class private fLabel: TIPLabel; fStatus: Boolean; fDeleted: Boolean; fParent: TGroup; public constructor Create; destructor Destroy; override; end;

Покажи как правильно создать fLabel, чтобы, например, Form1.TipLabel(Popup1.PopupComponent).fParent.DoSomething;

← →
webpauk (2006-05-18 17:51) [77]

виноват, чуть-чуть не так

← →
webpauk (2006-05-18 17:54) [78]

TGroup = class private fGroupName: String; fLabel: TIPLabel; fActive: Boolean; Items: array of TUser; public constructor Create; destructor Destroy; override; procedure DoSomthing; end;

Form1.TipLabel(Popup1.PopupComponent).???.DoSomthing

← →
webpauk (2006-05-18 17:56) [79]

← →
saxon (2006-05-18 18:01) [80]

> Form1.TipLabel(Popup1.PopupComponent).???.DoSomthing

Кроме Form1, больше ничего не понял :)

Что тут TipLabel - судя по семантике это функция (тогда что она возвращает)?
Popup1?
тем более Popup1.PopupComponent?

Обращение к классу Найти похожие ветки