Ошибка при закрытии приложения

@qandrew · Регистрация: 09.10.2008

Author24 — интернет-сервис помощи студентам

Я тут сделал код, который выводит динамические компоненты.

В поле Edit1 вводится кол-во, нажимается на кнопку, и выводятся TLabel.

Все работает, но при закрытии на крестик вылетает EPointerException...

Вот код, может кто-нибудь скажет, почему?

Код

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Bevel1: TBevel;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  labela : array of TLabel;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var k : Integer;
var leftdd, topdd : Integer;
begin
left := 15;
top := 400;
SetLength(labela, StrToInt(Edit1.Text));
for k := 0 to Length(labela) do
begin
  labela[k] := TLabel.Create(Self);
  labela[k].Name := 'label'+IntToStr(k);
  labela[k].Parent := Form1;
  leftdd := leftdd + 50;
  topdd := topdd + 10;
  labela[k].Left := leftdd;
  labela[k].Top := topdd;
  labela[k].Caption := IntToStr(k) + ' Label';
  labela[k].Show;
end;
end;

end.

заранее Спасибо!

P.S компилировал в Delphi 7

Humanoid · 10.12.2008, 20:07

Нужно
for k := 0 to Length(labela)-1 do.....

И когда динамически создаёшь элементы, то при закрытии приложения (или когда они больше не нужны) их надо удалять... например:

Код

for k := 0 to Length(labela)-1 do labela[k].Free;

@qandrew · 11.12.2008, 11:19 **[ТС]**

Спасибо огромное!

Humanoid Почетный модератор 11525 / 4320 / 448 Регистрация: 12.06.2008 Сообщений: 12,412
	10.12.2008, 20:07	2
	Нужно for k := 0 to Length(labela)-1 do..... И когда динамически создаёшь элементы, то при закрытии приложения (или когда они больше не нужны) их надо удалять... например: Код for k := 0 to Length(labela)-1 do labela[k].Free; 2

@qandrew 1 / 1 / 0 Регистрация: 09.10.2008 Сообщений: 28
	11.12.2008, 11:19 [ТС]	3
	Спасибо огромное! 0

Опции темы