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

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

[Hint] Private symbol 'Destroy' declared but never used [D7, WinXP]

Cobalt ©   (2004-08-09 15:52:00) 

[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;


---

VMcL   (2004-08-09 16:26:00) [1]

>> Cobalt ©  (09.08.04 15:52)

Мдя. Ну ладно уж в private засунул. Но reintroduce - это жестоко.

---

Anatoly Podgoretsky   (2004-08-09 16:16:00) [2]

Как всегда компилятор не обманул :-)

---

Cobalt   (2004-08-09 16:08:00) [3]

Ой, спасибо!
Теперь понял, почему "never used" :)

---

panov   (2004-08-09 15:55:00) [4]

Public
   Constructor Create;
    Destructor Destroy; override;

---

Наверх