Текущий архив: 2007.09.09;
Скачать: 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 вся ветка
Текущий архив: 2007.09.09;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.027 c
