[DungeonLords]

Очень нужно решить проблему. Делаю симуляцию взрыва, короче неважно. По делу есть класс

Код:

type
  TWorld_ODE = class
Lavel:string;
...
constructor Create;
...

И есть процедура FormCreate, в которой я по идее должен написать (форма у меня называется TfrmRagdoll)

Код:

procedure TfrmRagdoll.FormCreate(Sender: TObject);
begin
 WorldODE.Lavel:='low';
  WorldODE := TWorld_ODE.create{('Hight')};//Level - качество физикиэ
...

Но поскольку конструктор у меня появляется после попытки присваивания переменной Lavel значения, то после запуска вылезает ошибка. Как быть?

[Rokuell]

А зачем ты вообще выполняешь

Код:

WorldODE.Lavel:='low';

до создания объекта?
Для чего это надо и, возможно, это сделать иначе?

[Karsh]

а не проще присваивать значение "low" в самом классе при создании с определенньм пораметром?

[lmikle]

Укажи конструктор как виртуальный и дефолтное значение присвяивай в конструкторе. Если сделать конструктор виртуальным, то дефолтный конструктор без параметров будет невиден. Обращаться к объекту до его создания нельзя.

Код:

type
  TMyClass = class
  ...
  public
     constructor Create(AParam : String); virtual; // теперь Create() "невиден"
  end;

[DungeonLords]

Я наверно немножко вас запутал, плохо расписав задачу и написав {('Hight')};. Параметр действительно закоментирован, это не ошибка.

2Karsh,
задавшись этим вопросом, я написал:

Код:

constructor TWorld_ODE.create;
...
begin
    WorldODE.Lavel := 'Hight';
...

И всё, кирдык, при запуске вылетает ошибка.

2Imikle,
ошибка та же, что и описаная выше

[Rokuell]

Вместо:

Код:

constructor TWorld_ODE.create;
...
begin
    WorldODE.Lavel := 'Hight';
...

Попробуй:

Код:

constructor TWorld_ODE.create;
...
begin
    Self.Lavel := 'Hight';
...

[DungeonLords]

точняк, совсем вылетела из головы эта ссылка (Self) на экземпляр класса. Спасибо. Тему можно закрыть (или удалить).