Form.create

Question

越界，bounds的长度不到2，你在访问第二个，所以不行。

Answer 1

越界，bounds的长度不到2，你在访问第二个，所以不行。

Answer 2

try
  TfrmPrejManage:=TTfrmPrejManage.create(Self);
  TfrmPrejManage.ShowModal;
finnally
  TfrmPrejManage.Freee;
end;

Answer 3

to netlib
是不是要在被创建的窗体关闭时，自动释放？

Answer 4

是不是关于数据库的程序？是不是用到了query控件？如果是把query.active：=true，然后再调试，应该差不多。

Answer 5

public
    { Public declarations }
    strTableName:string;
    strSeriesName,strSpecialityName:string;
  end;var
  TfrmPrejLogin: TTfrmPrejLogin;implementation
  uses frmPrejManage,dmPrejManage;
{$R *.dfm}{表名生成函数}
//---------------------------------------------------------
Function ProduceName(SeriesName,SpecialityName:string):String;
Var
  SePhoneticize,SpPhoneticize,strSQL:String;
  SpNumber:Integer;
Begin
   {查询系列拼音码\专业拼音码\专业编号}
   with TdmPrejManage do
   Begin
     strSQL:='Select SeriesPhoneticize,SpecialityPhoneticize, SpecialityNumber From SeriesCode_TABLE,SpecialityCode_TABLE  Where '
             +'SeriesCode_TABLE.SeriesName='+''''+SeriesName+''''
             +'and SpecialityCode_TABLE.SpecialityName='+''''+SpecialityName+''''
             +'and SpecialityCode_TABLE.SeriesNumber=SeriesCode_TABLE.SeriesNumber';
     //注意sql语句取得变量值时前面要加"'",需要+''''四个单引号否则不能获得变量值
     adoqSql.Close;
     adoqSql.SQL.Clear;
     adoqSql.SQL.Add(strSQL);
     adoqSql.Open;
     //---------------------------------------------------------------------------
     {自动生成表名}
     {赋值}
     SePhoneticize:=trim(adoqSql.FieldByName('SeriesPhoneticize').AsString);
     SpPhoneticize:=trim(adoqSql.FieldByName('SpecialityPhoneticize').AsString);
     SpNumber:=adoqSql.FieldByName('SpecialityNumber').AsInteger;
     Result:=SePhoneticize+SpPhoneticize+IntToStr(SpNumber)+'_ConditionTABLE';
   End;
End;
//---------------------------------------------------
{自动生成编号函数}
//--------------------------------------------------------------
Function ProduceNumber(NumberName,TableName:string):Integer;
var
  strSQL:string;
Begin
    {连接表}
  With TdmPrejManage.adoqSql do
    Begin
      Close;
      SQL.Clear;
      strSQL:='Select '+NumberName+' from '+TableName;
      SQL.Add(strSQL);
      Open;
      {生成编号}
      First;
     if not Eof then
        begin
          Last;//指向最后一条记录
          Result:=FieldByName(NumberName).Value+1;//编号加1
          Next;
        end
     else
        begin
        {如果没有表为空则编号从1开始递增}
          Result:=1;
        end;
    End;
End;//---------------------------------------------------------------
{建表函数}
//---------------------------------------------------------------Function CreateTable(strTableName,strSeriesName,strSpecialityName:string;intNumber:integer):Boolean;
var
  strSQL:string;
Begin
{判断将要创建的表是否存在}
 if not TdmPrejManage.adotTableList.Locate('TableName',strTableName,[]) then
    {不存在责创建}
    Begin      With TdmPrejManage.adoqSql do //定义adoqSQL去执行建表
        begin
          {将建立的表格信息插入到预审条件表列表中}
          With TdmPrejManage.adotTableList do
            Begin
              if not active then Open;//打开表
              Append;
                Fields[0].Value:=intNumber;
                Fields[1].Value:=strTableName;
                Fields[2].Value:=strSeriesName;
                Fields[3].Value:=strSpecialityName;
              Post;
              if Locate('TableName',strTableName,[]) then
                Begin
                  //-----------------------------------------
                  {用sql创建表格}
                  With TdmPrejManage.adocmCreateTable do
                    Begin
                      Close;
                      strSQL:='Create Table '+strTableName
                              +'(Number int Primary Key not null,'
                              +'Edu_Level Char(10) not null,'
                              +'Computer Char(6) not null,'
                              +'ForLanuage Char(6) not null,'
                              +'TaskDate Char(2) not null,'
                              +'OccupyTime Char(2) not null)';
                      CommandText:=strSQL;
                      Execute;
                    End;
                  //-------------------------------------
                  Result:=True;
                End
              else
                Begin
                  Result:=False;
                End;
            End;
        end;
    End
else
   Begin
     Result:=False;
   End;
   
End;

Answer 6

procedure TTfrmPrejLogin.FormCreate(Sender: TObject);
var
  ttnSeries:TTreeNode;//treeview节点变量
  strSeriesName,strSpecialityName,strSQL:string;
begin
{对系列和专业代码表进行是否为空检查}
//-----------------------------------------------
  With TdmPrejManage do
    Begin
      if (adotSeries.IsEmpty)or(adotSpeciality.IsEmpty) then
        begin
         showMessage('请进行系列和专业代码维护先!');
        end
      else
        Begin
          {item初始化部分}
          With TdmPrejManage do
            Begin
            {给cbSeriesList的item属性赋值}
            //------------------------------------------
              adotSeries.Close;
              adotSeries.Open;
              cbSeriesList.Items.Clear;//清空items
              adotSeries.First;//将记录指针置首
              While not adotSeries.Eof do
                begin
                  cbSeriesList.Items.Add(adotSeries.FieldByName('SeriesName').Asstring);
                  adotSeries.Next;
                  cbSeriesList.ItemIndex:=0;
                end;
              TdmPrejManage.adotSpeciality.First;
              CbSpecialityList.Items.Add(adotSpeciality.fieldByName('SpecialityName').AsString);
              cbSpecialityList.ItemIndex:=0;
            End;
        End;
    End;
//------------------------------------------
{TreeView的item初始化部分}
  With TdmPrejManage do
    Begin
      adoqPrejTable.open;
      adoqPrejTable.First;
      tvPrejList.Items.Clear;
      while not adoqPrejTable.eof do
        Begin
          {给系列名称变量赋值}
          strSeriesName:=adoqPrejTable.FieldByName('SeriesName').AsString;
          {添加系列根节点}
          with tvPrejList.Items do
            Begin
              ttnSeries := Add(nil, strSeriesName); { 添加系列根节点 }
            end;          {选择相同系列名称的专业名称}
          adoqSql.Close;
          adoqSql.SQL.Clear;
          strSQL:='Select SpecialityName from PrejTableList_TABLE '
                  +'Where SeriesName='+''''+strSeriesName+'''';
          adoqSql.SQL.Add(strSQL);
          adoqSql.Open;
          adoqSql.First;//将记录指针定位到第一条
          while not adoqSql.Eof do //判断是否本系列的专业不存在
            begin
              strSpecialityName:=adoqSql.FieldByName('SpecialityName').AsString;
              tvPrejList.Items.AddChild(ttnSeries,strSpecialityName);//treeview添加专业子节点
              adoqSql.Next;
            end;
            begin
              adoqPrejTable.Next;//表移动到下一条记录
            end;
        End;
    End;
end;procedure TTfrmPrejLogin.btnExitClick(Sender: TObject);
begin
  TfrmPrejLogin.Close;
end;procedure TTfrmPrejLogin.btnOkClick(Sender: TObject);
var
  strSeriesName,strSpecialityName:string;
  intNumber:integer;
begin
if TfrmPrejLogin.tbsNewPrej.Showing then  Begin
    intNumber:=ProduceNumber('TableNumber','PrejTableList_TABLE');//条件表编号
    strSeriesName:=trim(cbSeriesList.Text);//系列名
    strSpecialityName:=trim(cbSpecialityList.Text);//专业名
    if not(strSpecialityName='') then      Begin
        strTableName:=ProduceName(strSeriesName,strSpecialityName);//表名
      {创建表格}
        if CreateTable(strTableName,strSeriesName,strSpecialityName,intNumber) then
          begin
            try
              TfrmPrejManage:=TTfrmPrejManage.Create(Application);//建立维护窗口
              TfrmPrejManage.ShowModal;
            Finally
              TfrmPrejManage.Free;
              TfrmPrejLogin.Show;
            end;
          end
        else
          begin
            ShowMessage('已经建立了该预审条件!');
            TfrmPrejLogin.tbsSelectPrej.Show;
          end;      End
    Else
      Begin
        ShowMessage('专业代码值不能为空!请进行专业代码维护!');
      End;  End
Else
  Begin
    With TdmPrejManage.adotPrejManage do
      Begin
       {设置数据连接}
        Active:=False;
        TdmPrejManage.strTableName:=strTableName;
        TableName:=strTableName;
        Active:=True;
          {创建窗体}
      End;
        Try
          if assigned(TfrmPrejManage) then TfrmPrejManage.show;
          TfrmPrejManage:=TTfrmPrejManage.Create(Application);
          TfrmPrejManage.ShowModal;
        Finally
          TfrmPrejManage.Free;
        End;  End;end;procedure TTfrmPrejLogin.cbSeriesListSelect(Sender: TObject);
var
  intSeriesNumber:integer;
begin  strSeriesName:=trim(cbSeriesList.Text);//取得系列名称值
  with TdmPrejManage.adotSeries do
    Begin
      if locate('SeriesName',strSeriesName,[]) then  //定位选择的系列
        Begin
          intSeriesNumber:=FieldByName('SeriesNumber').Value;//取系列编号
          Begin
            cbSpecialityList.Items.Clear;//清除专业combobox
            With TdmPrejManage.adoqAddItem do
              Begin
                {按系列编号查询专业代码表}
                Close;
                Parameters.ParamByName('SeriesNumber').Value:=intSeriesNumber;
                Open;
                First;
                {给combobox添加专业名称值}
                while not Eof do //是否结尾不要用if否则只显示一条记录
                  begin
                    //添加该专业名称到combobox
                    cbSpecialityList.Items.Add(FieldByName('SpecialityName').AsString);
                    //移动到下一条记录
                    Next;
                    cbSpecialityList.ItemIndex:=0;
                  end;
              End;
          End;
        End;
    End;end;procedure TTfrmPrejLogin.tvPrejListChange(Sender: TObject;
  Node: TTreeNode);
begin  With tvPrejList do
    if Selected.Parent=nil then//判断是否为根节点
      begin
        lblSelectSeries.Caption:=Selected.Text;//显示系列值
        lblSelectSpeciality.Caption:='';
        {赋值}
        strSeriesName:=Selected.Text;
      end
    else
      Begin
        lblSelectSeries.Caption:=Selected.Parent.Text; //显示系列值
        lblSelectSpeciality.Caption:=Selected.Text;//显示专业值
        {赋值}
        strSeriesName:=Selected.Parent.Text;
        strSpecialityName:=Selected.Text;
        strTableName:=ProduceName(strSeriesName,strSpecialityName);      End;
end;procedure TTfrmPrejLogin.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Action:=caFree;
end;

Answer 7

我以前也常常遇到这样的问题，如用ListBox、MenuItem时，后来发现都是越界造成了，常常是ListBox、MenuItem等还没有那么多的Items，但在程序中却又调用了它们，导致这个报错的出现，稍稍注意检查一下就OK了。
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
风过西窗客渡舟船无觅处
年年一川新草遥看却似旧