Нужна помощь в поиске ошибки

[m9ss]

Написана маленькая прога, код ниже, все работает, но только как я на форму добавляю Button, при выполнении процедуры Tform1.LabelClick, условия else (если конктретней то после последней labels[a].free) выскакивает следующая ошибка :


понять не могу в чем причина, без button все прекрасно работает.

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    ScrollBox1: TScrollBox;
    procedure FormCreate(Sender: TObject);
    procedure filelist(dir:string);
  protected
    procedure LabelClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

  ln: integer;
  path: string;
  labels: array[1..100] of Tlabel;
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
path:=extractfilepath(paramstr(0))+'docs\';
form1.Width:=800;
form1.Height:=600;
form1.Top:=(screen.Height div 2) - (form1.Height div 2);
form1.Left:=(screen.Width div 2) - (form1.Width div 2);
ScrollBox1.Width:=form1.Width-5;
ScrollBox1.Height:=450;
ScrollBox1.Top:=80;
ScrollBox1.left:=0;
filelist(path);
end;

procedure TForm1.filelist(dir:string);
var search: TSearchRec;
begin
ln:=0;
if FindFirst(dir+'\*.*', faAnyFile, search) = 0 then
begin
  repeat
    if (search.Name<>'.') and (search.Name<>'..') then
    begin
      ln:=ln+1;
      labels[ln]:=Tlabel.Create(self);
      labels[ln].OnClick:=form1.LabelClick;
      labels[ln].caption:=search.Name;
      labels[ln].Parent:= TWinControl(ScrollBox1);
      labels[ln].Left:=10;
      labels[ln].Top:=ln*20;
    end;
  until FindNext(search) <> 0;
FindClose(search);
end;
end;


procedure Tform1.LabelClick(Sender: TObject);
var filename: TSearchRec;
    a:integer;
begin
if FindFirst(path+(Sender as TLabel).Caption, faAnyFile, filename) = 0 then
begin
  if filename.Attr <> faDirectory
     then ShellExecute(Application.Handle,'Open',PChar(path+(Sender as TLabel).Caption),Nil,Nil,SW_SHOWDEFAULT)
     else begin
       for a:=1 to ln do labels[a].free;
       path:=path+(Sender as TLabel).Caption+'/';
       filelist(path);
     end;

end;
FindClose(filename);

end;

end.

P.S. Delphi 7

[mihali4]

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

[m9ss]

хммм.. действительно, спасибо, в делфи я не силен, сам бы не заметил. Странно что без button все работает.Неподскажете как это обойти ? мне нужно делать free сразу же после клика, но как это сделать после обработчика а не в нем ?

[Stilet]

мне нужно делать free сразу же после клика, но как это сделать после обработчика а не в нем ?

А почему? Чего до закрытия формы подождать не можеш?
Может ты хочеш чтоб по клику исчез компонент, так просто Visible:=false ставь.

[m9ss]

Сообщение от Stilet

А почему? Чего до закрытия формы подождать не можеш?
Может ты хочеш чтоб по клику исчез компонент, так просто Visible:=false ставь.

За память беспокоюсь, в 2 ух словах функция этой программы - проводник, очень много компонентов придется создавать

[mihali4]

Я думаю, не будет ничего страшного, если вы процедуру высвобождения памяти вынесете в обработчик таймера, который и будете запускать в том месте, где у вас сейчас она находится. Только не забудьте первой операцией в обработчике сделать Timer.Enabled:=False;

[m9ss]

Сообщение от mihali4

Я думаю, не будет ничего страшного, если вы процедуру высвобождения памяти вынесете в обработчик таймера, который и будете запускать в том месте, где у вас сейчас она находится. Только не забудьте первой операцией в обработчике сделать Timer.Enabled:=False;

Спасибо за совет все прекрасно работает.