| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

...=class(TComponent)

iXT ©   (2007-08-15 17:21:00) 

Есть модуль:

...
 TDocumentStyle = (dsHTML, dsXML);

 TDocument = class(TComponent)
 private
   FStyle: TDocumentStyle;
//    FFields: TFields;
//    procedure SetFields(Value: TFields);
 public
   constructor Create(AOwner: TComponent); override;
   destructor Destroy; override;
//    property Fields: TFields read FFields write SetFields;
   property StyleFields: TDocumentStyle read FStyle write FStyle;
 published

 end;

implementation

{-----TDocument-----}
constructor TDocument.Create(AOwner: TComponent);
begin
 inherited Create(AOwner);
 FStyle:=dsXML;
end;

destructor TDocument.Destroy;
begin
 inherited Destroy;
end;
...


Вот такая ерунда вызывает АВ:


x: TDocument;
...
  x:=TDocument(x).Create(nil);
 try
 finally
   x.Free;
 end;


причем вылетает на (где выделил), а в constructor Create не заходит.

Кто объяснит причину?

---

Юрий Зотов   (2007-08-16 07:30:00) [1]

> Alien1769 ©   (15.08.07 19:52) [4]

Мыла в анкете не нашел, нашел Аську. В нее и стукнулся.

---

Alien1769   (2007-08-15 19:52:00) [2]

> Юрий Зотов ©   (15.08.07 18:41) [3]


офтопик
Как с вами можно связаться ?
Если не трудно скиньте мне свой емейл на мой ящик в анкете.

---

Юрий Зотов   (2007-08-15 18:41:00) [3]

Вдогонку:
property StyleFields: TDocumentStyle read FStyle write FStyle default dsXML;

---

iXT   (2007-08-15 17:48:00) [4]

Нее, это плод беспокойтых ночей :) Все, пора в отпуск. Спасибо, Светлый Глаз!

---

Плохиш   (2007-08-15 17:33:00) [5]

>  x:=TDocument (x).Create(nil);

Афигеть 8-O Неужели у iXT-а ник скоммуниздили?

---

Наверх