Проблема с открытым массивом Edit'ов

[Tihon]

На форме (D6) лежит панель, на которую положено много DBEdit'ов (больше 100).
Идея в том, чтобы всем окошкам присвоить определенную (единую) процедуру при переходе к следующему Edit'у.
При активации формы выполняется код:

  var 
     ConCm : TControl; 
     CnArr : Array of TLMDDBEdit; 
..........................................    
   CmCount := LMDSimplePanel1.ControlCount; 
   SetLength(CnArr,1); 
   iReal := 0; 
   For iCm := 0 to CmCount - 1 do begin 
      ConCm := LMDSimplePanel1.Controls[iCm]; 
      If (ConCm is TLMDDBEdit) then begin 
         CnArr[iReal] := (ConCm as TLMDDBEdit); 
         (CnArr[iReal] as TLMDDBEdit).OnExit := LMDDBEdit64.OnExit; 
         Inc(iReal); 
         SetLength(CnArr,iReal); 
         end; 
      end;

В массиве CnArr должны лежать все Edit'ы, и только они.

Но, - на самом деле после того, как форма активировась, только первый элемент массива (номер 0) содержит букет свойтв, соответствующих первому окну DBEdit! Остальные CnArr равны просто nil.
Почему?!

[White_angel]

а зачем использовать много едитов если можно использовать таблицу StringGrid там можно вводить данные и считывать и не надо дохрена едитов и в масив лехче даные заносить.

[Stilet]

Ну тут :

CnArr[iReal] := (ConCm as TLMDDBEdit);
(CnArr[iReal] as TLMDDBEdit).OnExit := LMDDBEdit64.OnExit;

переприводить типы не обязательно достаточно просто:

 CnArr[iReal] := ConCm;    
       CnArr[iReal].OnExit := LMDDBEdit64.OnExit;

А вообще пошагам пройдись, и увидиш где баг.

[Tihon]

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

а зачем использовать много едитов если можно использовать таблицу StringGrid там можно вводить данные и считывать и не надо дохрена едитов и в масив лехче даные заносить.

Видишь ли, это окно кадрового учета. StringGrid не подходит принципиально. Кадровичка в окошки вводит... Кроме едитов - ничего не подходит.

[Stilet]

Tihon

Стринггрид тоже можно раскрасить как Edit, просто возни с ним меньше.

[Tihon]

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

Ну тут :
переприводить типы не обязательно достаточно просто:

 CnArr[iReal] := ConCm;    
       CnArr[iReal].OnExit := LMDDBEdit64.OnExit;

Ты не заметил:

  var 
     ConCm : TControl; 
     CnArr : Array of TLMDDBEdit;

Они разных типов. Без переприведения не обойтись. На форме/на панели есть и Label's, и StatusBar, и прочие типы... Перебирать их можно только скопом, как контролы. А вот отфильтровав Edit'ы - можно с ними разговаривать.

[Stilet]

Ты не заметил

Заметил, щаз Делфа не под рукой, но помоему должна прохавать.