Скачать: CL | DM;

...=class(TComponent)   Найти похожие ветки 

← →
iXT ©   (2007-08-15 17:21) [0]

Есть модуль:

...
 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-15 17:33) [1]

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

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

---

← →
iXT ©   (2007-08-15 17:48) [2]

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

---

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

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

---

← →
Alien1769 ©   (2007-08-15 19:52) [4]

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


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

---

← →
Юрий Зотов ©   (2007-08-16 07:30) [5]

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.021 c