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

[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 вся ветка

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



Память: 0.45 MB
Время: 0.057 c