ПОМОГИТЕ!

Тема в разделе "Delphi - FAQ", создана пользователем newman256, 19 апр 2006.

Статус темы:
Закрыта.
  1. newman256

    newman256 Гость

    Либо у меня руки кривые,либо это мегабаг!!!!!!!!!!!!
    Не могу замутить класс с динамическими переменными.
    Создаем новое пустое приложение в дельфе и в юнит 1 кладем следуюющее:

    unit Unit1;

    interface

    uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs;

    type
    TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    end;

    my_class = class
    public
    i : ^integer;
    {constructor create;}
    end;

    var
    Form1: TForm1;
    m : my_class;

    implementation

    {$R *.dfm}

    {constructor my_class.create;
    begin
    i := nil;
    //new(i);
    end;}

    procedure TForm1.FormCreate(Sender: TObject);
    begin
    m.Create;
    end;

    end.

    При запуске после появления окна появляется месага "Access violation at address 0044C87A in module 'Project1.exe' write address 00000004".месага вылетает на m.create при не описанном конструкторе и на i := nil (или new(i)) при описанном конструкторе!!!! Я что-то еще не дописываю или это баг? ПОМОГИТЕ!!!!!!!!!!
     
  2. zubr

    zubr Гость

    Код (Text):
    constructor my_class.create;
    begin
    inherited Create;
    i := nil;
    new(i);
    end;

    procedure TForm1.FormCreate(Sender: TObject);
    begin
    m:=my_class.Create;
    end;
     
Загрузка...
Статус темы:
Закрыта.

Поделиться этой страницей