Delphi TMemoryTable.OpenSQL 使用方式 举例

Delphi 中的 `TMemoryTable.OpenSQL` 方法主要用于执行 SQL 查询并在内存表中填充结果。它接受一个 SQL 语句作为参数，并自动处理执行结果。下面是一个简单的使用示例：

uses DB;
...
var
  MemTable: TMemoryTable;
begin
  // 创建一个新的内存表
  MemTable := TMemoryTable.Create(nil);
  
  try
    // 打开内存表，准备执行 SQL
    MemTable.OpenSQL('SELECT * FROM YourTableName');

    // 如果查询成功，`OpenSQL` 会自动填充表的内容
    if MemTable.RecCount > 0 then
    begin
      // 访问第一条记录
      ShowMessage(MemTable.FieldByName('ColumnName').AsString);
      
      // 遍历所有记录
      for I := 0 to MemTable.RecCount - 1 do
       秀消息(MemTable[I].FieldByName('ColumnName').AsString);
    end
    else
      ShowMessage('No data returned from the query.');

  finally
    // 关闭数据库连接
    MemTable.Close;
    MemTable.Free;  // 如果不需要这个内存表，记得释放内存
  end;
end;

在这个例子中，你需要替换 `'YourTableName'` 和 `'ColumnName'` 为实际的表名和字段名。`OpenSQL` 返回的是一个游标，所以你可以像操作普通数据库查询一样操作它的结果。