IPB
ЛогинПароль:

> ВНИМАНИЕ!

Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.

Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.

 
 Ответить  Открыть новую тему 
> Создание классов в Delphi
сообщение
Сообщение #1


Perl. Just code it!
******

Группа: Пользователи
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

Репутация: -  44  +


Не могу понять что я делаю не верно.

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


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Гость






begin
MyClass := TMyClass.Create;
// ...
MyClass.Destroy;
end.


P.S.
А чего это ты на второе предупреждение не обратил внимания?
Цитата
[Warning] unit1.pas(11): Method 'Destroy' hides virtual method of base type 'TObject'
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Perl. Just code it!
******

Группа: Пользователи
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

Репутация: -  44  +


Спасибо smile.gif


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Perl. Just code it!
******

Группа: Пользователи
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

Репутация: -  44  +


Цитата(volvo @ 2.09.2006 13:19) *

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


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

 destructor  Destroy; override;


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Гость






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

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

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 23.09.2020 1:00
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name