在delphi中怎样使用游标啊(50分)

能否给我一个具体使用游标的例子？
包括定义，打开，推进，关闭游标。

Declare @vTableName sysname
Declare @i int
set @i = 0
Declare cr_table CURSOR --定义游标
FOR
select name from sysobjects where xtype = 'U' and uid =
(select uid from sysusers where name = 'Createnew') --
open cr_table
FETCH NEXT FROM cr_table INTO @vtablename //取游标数据到变量@vtablename
WHILE (@@FETCH_status = 0)
begin
set @i = @i + 1
set @vTableName = 'Createnew.'+@vTableName
print @vTableName

FETCH Next FROM cr_table INTO @VtableName //取游标数据到变量@vtablename

end
CLOSE Cr_table //关闭游标
select @i
DEALLOCATE Cr_Table --Removes a cursor reference. //释放游标

如果是服务器端的例子。 上面老兄给了你 MSSQL 的CURSOR 使用例子
如果是客户端的文件型数据库例子。 BDE也是带有CURSOR的。 只不过没有给你显式调用
你可以参考一下BDE的API。 多数BDE调用都与CURSOR有关

多人接受答案了。