TC与Delphi

1、准备

编译前将Options->Compiler->Debugging中的Debug information、Use Debug DCUS、Linker->EXE and DLL options中的Include TD32 debug info勾选，Packages->Runtime packages下的Build with runtime packages不勾选，重新编译。

2、测试

var grid,dataset:OleVariant;

begin

grid:=Sys.Process('Project1').VCLObject('Form1').VCLObject('dbgrdh1');

dataset:=grid.DataSource.DataSet;

//以下均相对于dataset

//取表格内值

Fields.Fields[0].AsString;

//列名

FieldList.Strings[0];

//行数

RecordCount;

//行号

RecNo;

end;