ПОМОГИТЕ!

  • Автор темы newman256
  • Дата начала
Статус
Закрыто для дальнейших ответов.
N

newman256

Гость
#1
Либо у меня руки кривые,либо это мегабаг!!!!!!!!!!!!
Не могу замутить класс с динамическими переменными.
Создаем новое пустое приложение в дельфе и в юнит 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)) при описанном конструкторе!!!! Я что-то еще не дописываю или это баг? ПОМОГИТЕ!!!!!!!!!!
 
Z

zubr

Гость
#2
Код:
constructor my_class.create;
begin
inherited Create;
i := nil;
new(i);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
m:=my_class.Create;
end;
 
Статус
Закрыто для дальнейших ответов.