Помощь - Поиск - Пользователи - Календарь
Полная версия: Создание классов в Delphi
Форум «Всё о Паскале» > Современный Паскаль и другие языки > Делфи
klem4
Не могу понять что я делаю не верно.

unit Unit1;

interface

type

TMyClass = class(TObject)
private
public
constructor Create;
destructor Destroy;
end;

implementation

constructor TMyClass.Create;
begin
inherited Create; // ??
end;

destructor TMyClass.Destroy;
begin
end;

end.


program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils,
Unit1 in 'Unit1.pas';

var

MyClass : TMyClass;

begin
MyClass.Create;
MyClass.Destroy;
end.


Цитата
[Warning] Project1.dpr(14): Variable 'MyClass' might not have been initialized
volvo
begin
MyClass := TMyClass.Create;
// ...
MyClass.Destroy;
end.


P.S.
А чего это ты на второе предупреждение не обратил внимания?
Цитата
[Warning] unit1.pas(11): Method 'Destroy' hides virtual method of base type 'TObject'
klem4
Спасибо smile.gif
klem4
Цитата(volvo @ 2.09.2006 13:19) *

P.S.
А чего это ты на второе предупреждение не обратил внимания?


На сколько я понял его надо перекывать ?

 destructor  Destroy; override;
volvo
Цитата(klem4 @ 2.09.2006 13:31)
На сколько я понял его надо перекывать ?
yes2.gif Но ты же этого в начале не сделал...

Кстати, можно просто заглушить сообщение о том, что твой виртуальный метод скрывает виртуальный метод родителя... Для этого пользоваться не директивой Override, а ReIntroduce ...
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.