Ошибка при закрытии

← →
SergProger © (2005-11-02 16:02) [0]

Привет всем! У меня возникла проблема. Вот код:

var
Form1: TForm1;
Image: array of TImage;

implementation

{$R *.dfm}

procedure TForm1.FormDestroy(Sender: TObject);
begin
Image[1].Free;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
SetLength(Image,1);
Image[1]:=TImage.Create(Self);
Image[1].Parent:=Self;
Image[1].Left:=8;
Image[1].Top:=8;
end;

Работает хорошо, но при закрытии окна возникает ошибка "Invalid pointer operation". Помогите пожалуйста разобраться.

← →
TUser © (2005-11-02 16:15) [1]

Ты указал Owner = Self, после при закрытии формы она пытается вызвать метод Free у картинки, а он уже вызвал, т.е. Image1 = nil. Вывод - убери метод Free из Ondestroy

← →
Digitman © (2005-11-02 16:15) [2]

выкинь из тела обработчика события TForm1.OnDestroy тот самый

Image[1].Free

почему ?

это отдельный вопрос ....

← →
MBo © (2005-11-02 16:23) [3]

динамические массивы нумеруются с нуля...

> SergProger © (02.11.05 16:02)

> var
> Form1: TForm1;
> Image: array of TImage;

The global variables - MD.

--
Regards, LVT.

Ошибка при закрытии Найти похожие ветки