[lostbananan]

Над решением этой пролемы я бьюсь уже не первый день. В результате - оптимизировал код:
код сейчас такой:

Код:

  for i:=0 to 10 do
  begin
    LabelIn(i);
    GridIn(i);
  end;

где

Код:

procedure TForm1.LabelIn(i:integer);
begin
  TextLabel[i] := TLabel.Create(Form1);
  TextLabel[i].Parent :=Form1;
  TextLabel[i].Caption := LabCap[i];
  TextLabel[i].Left := LabLeft[i];
end;
procedure TForm1.GridIn(i:integer);
begin
  Grid[i] := TDrawGrid.Create(Form1);
  Grid[i].Parent := Form1;
  Grid[i].Left := 1+105*i;
  Grid[i].RowCount := 1;
  Grid[i].ColCount := 1;
  Grid[i].Enabled := false;
  Grid[i].DefaultColWidth := 100;
  Grid[i].DefaultRowHeight := GridH[i];
  Grid[i].Width := 100;
  Grid[i].Height := GridH[i];
  Grid[i].Top := 600-Grid[i].Height+20;
  Grid[i].ScrollBars := ssNone;
  Grid[i].Tag   := i+1;
  Grid[i].OnDrawCell:=DrawGrid1DrawCell;
end;

Данный код выдает оишбку времени выполнения (непонятнов каком именно месте кода). Помогите разобраться с даной проблемой!

[poli-smen]

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

Данный код выдает оишбку времени выполнения (непонятнов каком именно месте кода). Помогите разобраться с даной проблемой!

Как объявлены переменные TextLabel и Grid ?

[icWasya]

Ну а если пройтись отладчиком?

[Alegun]

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

...Данный код выдает оишбку времени выполнения...

А если так

Код:

procedure TForm1.GridIn(i:integer);
begin
  Grid[i] := TDrawGrid.Create(Form1);
  with Grid[i] do
  begin
  Parent := Form1;
  Left := 1 + 105 * i;
  RowCount := 1;
  ColCount := 1;
  Enabled := false;
  DefaultColWidth := 100;
  DefaultRowHeight := GridH[i];
  Width := 100;
  Height := GridH[i];
  Top := 600 - Height + 20;
  ScrollBars := ssNone;
  Tag   := i+1;
  OnDrawCell:=DrawGrid1DrawCell;
  end;
  end;

[M.A.D.M.A.N.]

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

Ну а если пройтись отладчиком?

Врятли он знает что это такое.

[lostbananan]

К вашему сведению сре, я знаю что такое отладчик или дебагер...

Сообщение от poli-smen

Как объявлены переменные TextLabel и Grid ?

Код:

  TextLabel  : array[0..16] of TLabel;
  Grid  : array[0..16] of TDrawGrid;

Код поменял, первый раз - оработала без глюка, второй - опять выскочила Аксес виолатион...

[M.A.D.M.A.N.]

Слушай, сер, заколебал флудить, ты кнопкой "Редактировать сообщение" пользоваться умеешь или нет?

[lostbananan]

Кнопкой пользоваться умею. А чем я и чего флудю??

[M.A.D.M.A.N.]

Во всех твоих темах по 10 подряд идущих сообщений, которые по хорошему можно было бы объединить в одно. Это не чат, блин. Взял да дописал сообщение, думаешь в кайф листать портянку из кучи сообщений одного пользователя.

[lostbananan]

Постарасю объединять.
А что-то по теме моего вопроса можешь подсказаь?

[M.A.D.M.A.N.]

Отладчик на какую строку при AV прыгает?

[lostbananan]

Код:

 Application.Run;
end.

строку с end.

[Alegun]

А если добавить при закрытии такое наполнение разрушителя формы

Код:

 procedure TForm1.FormDestroy(Sender: TObject);
var
i:integer;
begin
for :=0 to 16 { или сколько их там есть} do
begin
(Grid[i] as TDrawGrid).Free;
(TextLabel[i] as TLabel).Free;
end;
end;

или надо проверять есть ли такие в природе.

[M.A.D.M.A.N.]

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

А если добавить при закрытии такое наполнение разрушителя формы

Код:

 procedure TForm1.FormDestroy(Sender: TObject);
var
i:integer;
begin
for :=0 to 16 { или сколько их там есть} do
begin
(Grid[i] as TDrawGrid).Free;
(TextLabel[i] as TLabel).Free;
end;
end;

или надо проверять есть ли такие в природе.

Если у компонентов стоит овнер, при прибивании оврена все компоненты на нем автоматом прибьются.

[Alegun]

Сообщение от M.A.D.M.A.N.

Если у компонентов стоит овнер, при прибивании оврена все компоненты на нем автоматом прибьются.

Я в курсе, но уж больно похоже, что этого не происходит - один раз отрабатывает, а потом AV, явно, что-то остаётся в памяти и при повторе имена совпадают.Могёт такое быть, вполне.