delphi 如何通过Tdataset数据集 获取数据库列名以及列数？

Posted 2023-04-01

参考技术A

（1）数据库列数可以用“TDATASET”的“FieldCount”属性获得。

（2）数据库列名可以做一个循环得到，例如：

var

i:integer

begin

for i := 0 to Table1.FieldCount-1 do

showmessage(Table1.Fields[i].FieldName);

end;

Delphi，是Windows平台下著名的快速应用程序开发工具(Rapid Application Development，简称RAD)。它的前身，即是DOS时代盛行一时的"BorlandTurbo Pascal"，最早的版本由美国Borland(宝兰)公司于1995年开发。主创者为Anders Hejlsberg。经过数年的发展，此产品也转移至Embarcadero公司旗下。Delphi是一个集成开发环境(IDE)，使用的核心是由传统Pascal语言发展而来的Object Pascal，以图形用户界面为开发环境，透过IDE、VCL工具与编译器，配合连结数据库的功能，构成一个以面向对象程序设计为中心的应用程序开发工具。

由Borland公司推出的Delphi是全新的可视化编程环境，为我们提供了一种方便、快捷的Windows应用程序开发工具。它使用了MicrosoftWindows图形用户界面的许多先进特性和设计思想，采用了弹性可重复利用的完整的面向对象程序语言(Object-Oriented Language)、当今世界上最快的编译器、最为领先的数据库技术。对于广大的程序开发人员来讲，使用Delphi开发应用软件，无疑会大大地提高编程效率，而且随着应用的深入，您将会发现编程不再是枯燥无味的工作--Delphi的每一个设计细节，都将带给您一份欣喜。

Delphi定位TDataSet数据集最后一条记录

function TF.GetID(x,y:String):String;
var
StrSQL:String;
dst_temp:TDataSet;
begin
try
StrSQL='XXXX Order by ID'
dst_temp:=GetDataSetFromOracle(StrSQL); //此处自定义的函数
//在这里由于dst_temp可能会有几条记录，确定的是只有ID号不一样
//要指向dst_temp的最后一条数据，改怎么操作？
finally
if assigned(dst_temp) then freeandnil(dst_temp);
end;
end;

参考技术A dst_temp.last;//焦点会跳到数据集中的最后一行 参考技术B dst_temp.last ;//最后一条
dst_temp.first ;//第一条
dst_temp.next ;//下一条
dst_temp.prior;//上一条本回答被提问者采纳