如何为StringGrid动态绑定不同数据库表？解决Delphi报错及变量疑问

问题描述 #

1. 窗体上放置了设计时创建的StringGrid，修改数据库表名后通过LiveBinding绑定至StringGrid，首次运行正常，但修改表名再次执行代码时出现错误：Column index, -1, out of boundary，如何解决？
2. 注释行// if Assigned (LGTDS_BindSourceDB_Temp) then在首次运行时本应返回false，但实际得到true，原因是什么？

使用环境：Delphi 11 / Windows 11

相关代码 #

procedure TForm1.LB_TableNamesItemClick(const Sender: TCustomListBox; const Item: TListBoxItem);
var
  BindSourceDB_temp : TBindSourceDB;
  LGTDS_BindSourceDB_Temp : TLinkGridToDataSource;
begin
  DM1.UT_Local.connection:=DM1.UC_Local;
  DM1.UT_Local.tablename:=Item.Text;

 // if  Assigned (LGTDS_BindSourceDB_Temp)     then
 // if  LGTDS_BindSourceDB_Temp.Active then LGTDS_BindSourceDB_Temp.Active  :=false;

  with DM1 do begin
    UT_Local.Close;
    UT_Local.tablename:=  Item.Text;
    UT_Local.Open;
    BindSourceDB_temp := TBindSourceDB.Create(Self);
    BindSourceDB_temp.DataSet := UT_Local;
    LGTDS_BindSourceDB_Temp := TLinkGridToDataSource.Create(Self);
    LGTDS_BindSourceDB_Temp.DataSource := BindSourceDB_temp;
    LGTDS_BindSourceDB_Temp.GridControl := SG_Table1;
    LGTDS_BindSourceDB_Temp.Active:=true;
  end;
end;

问题解答 #

1. 解决"Column index, -1, out of boundary"错误 #

这个错误的核心原因是每次点击都创建新的LiveBinding组件，但未清理之前的绑定关系，导致StringGrid的列绑定混乱，切换表时新旧绑定冲突引发索引越界。解决步骤如下：

• 将BindSourceDB_temp和LGTDS_BindSourceDB_Temp声明为窗体的私有成员变量，而非局部变量，这样才能在每次点击时访问到之前创建的绑定组件。
• 每次创建新绑定前，先清理旧绑定：
  1. 将旧的TLinkGridToDataSource设为非激活状态，然后释放并置空。
  2. 释放旧的TBindSourceDB并置空。
• 清理完成后，再创建新的绑定组件并配置。

修改后的关键代码示例：

// 在窗体类的private部分添加声明
private
  FBindSourceDB: TBindSourceDB;
  FLinkGridToDS: TLinkGridToDataSource;

// 点击事件中的代码修改
procedure TForm1.LB_TableNamesItemClick(const Sender: TCustomListBox; const Item: TListBoxItem);
begin
  // 清理旧绑定
  if Assigned(FLinkGridToDS) then
  begin
    FLinkGridToDS.Active := False;
    FLinkGridToDS.Free;
    FLinkGridToDS := nil;
  end;
  if Assigned(FBindSourceDB) then
  begin
    FBindSourceDB.Free;
    FBindSourceDB := nil;
  end;

  // 重新配置数据集
  DM1.UT_Local.Close;
  DM1.UT_Local.TableName := Item.Text;
  DM1.UT_Local.Open;

  // 创建新绑定
  FBindSourceDB := TBindSourceDB.Create(Self);
  FBindSourceDB.DataSet := DM1.UT_Local;

  FLinkGridToDS := TLinkGridToDataSource.Create(Self);
  FLinkGridToDS.DataSource := FBindSourceDB;
  FLinkGridToDS.GridControl := SG_Table1;
  FLinkGridToDS.Active := True;
end;

另外，也可以选择复用已有的绑定组件：只修改TBindSourceDB的DataSet属性为新表的数据集，再刷新绑定即可，这种方式更高效。

2. 首次运行时Assigned(LGTDS_BindSourceDB_Temp)返回true的原因 #

LGTDS_BindSourceDB_Temp是局部变量，Delphi中局部变量在栈上分配，默认不会被初始化，其内存值是随机的。如果该变量所在的内存位置恰好是一个非nil的地址，Assigned就会返回true。这是未初始化局部变量导致的随机行为，并非变量真的指向了有效的对象。

解决方法：局部变量在使用前必须手动初始化，比如声明后立即赋值为nil：

var
  BindSourceDB_temp : TBindSourceDB = nil;
  LGTDS_BindSourceDB_Temp : TLinkGridToDataSource = nil;

更合理的做法是将这些变量改为窗体成员变量，这样可以在窗体创建时初始化，避免局部变量的随机值问题。

内容的提问来源于stack exchange，提问作者Haizhou