delphi 关于数据库中记录的读写

来源：百度知道 编辑：UC知道 时间：2024/05/25 22:37:27
我想从数据库中读一条记录(第一条记录),不用ADO Tquery这些组件!
我在书上看见的可以用Ttable 中的findfirst方法可以得到第一个记录的指针,之后使用getcurrentrecord得到该记录!
但是我不知道怎么使用,请指教,谢谢!

GetcurrentRecord把当前的记录写到内存中去。
var
buff: Pchar;
size: integer;
begin
size := table1.RecordSize;
// buff := allocmem(size);
GetMem(buff,size);
table1.GetCurrentRecord(buff);
//按你的要求处理buff中的信息
.....
FreeMem(buff,size);
end;

主要是用作取出当前的记录，主要用法如复制记录等等。
将table2当前所有字段填成table1当前所有字段， 返回true表示成功

table2.edit;
if table1.GetCurrentRecord(table2.ActiveBuffer) then
table2.post
else
table2.cancel;

如果要读记录的值还是得通过一个字段一个字段来读写。
for i:=0 to DataSet.Fields.Count-1 do
begin
Variant:=Fields[i].AsVariant;
end;