Создание классов в 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]

Спасибо

[klem4]

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

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

 destructor  Destroy; override;

[volvo]

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

Но ты же этого в начале не сделал...

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