有关使用FindComponent()动态显示数据表中field名称的问题.

Question

错误提示为:project ba.exe raised exception class EAccessViolation with message'Access violation at address 004454FB in module 'ba.exe',read of address 00000057' .process stopped.use step or run to continue.

Answer 1

if panel2.ControlCount=0 then exit;
       for i:=panel2.ControlCount downto 1 do
       for  j:=0 to i-1  do
       if not (panel2.Controls[j].ClassType=tlabel) then
        with panel2.Controls[i-1] do
           begin
               commlb:=tlabel.Create(self);
               commlb.Parent:=panel2;
               ctablename:=lbtblname.Items[lbtblname.ItemIndex];
               commlb.Caption:=returncfname(ctablename,panel2.Controls[i].Name);
               commlb.Top:=Top+6;
               commlb.Left:=Left-70;
               commlb.Visible:=true;
           end;