Форум: "Компоненты";
Текущий архив: 2005.08.07;
Скачать: [xml.tar.bz2];
Вниз
[Hint] Private symbol Destroy declared but never used Найти похожие ветки
← →
Cobalt © (2004-08-09 15:52) [0][Hint] FileLog.pas(12): Private symbol "Destroy" declared but never used
Чего-то не понимаю я этого хинта :(type
TFileLog = Class (TObject)
Private
FFileName:string;
FHandle:THandle;
FLogging:boolean;
Destructor Destroy; reintroduce;
Public
Constructor Create;
Function BeginLogging(AFileName:string;Append:boolean):boolean;
Procedure StopLogging;
Function WriteString(s:string):boolean;
Property FileName:string read FFileName;
Property Handle:THandle read FHandle;
Property IsLogging:boolean read FLogging;
end;
Destructor TFileLog.Destroy;
begin
if FLogging
then StopLogging;
inherited Destroy;
end;
← →
panov © (2004-08-09 15:55) [1]Public
Constructor Create;
Destructor Destroy; override;
← →
Cobalt © (2004-08-09 16:08) [2]Ой, спасибо!
Теперь понял, почему "never used" :)
← →
Anatoly Podgoretsky © (2004-08-09 16:16) [3]Как всегда компилятор не обманул :-)
← →
VMcL © (2004-08-09 16:26) [4]>>Cobalt © (09.08.04 15:52)
Мдя. Ну ладно уж в private засунул. Но reintroduce - это жестоко.
Страницы: 1 вся ветка
Форум: "Компоненты";
Текущий архив: 2005.08.07;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.034 c
