Question

delphi 中type里定义的问题。

现有部分delphi代码,如下：

unit PubSQL;

interface
uses Windows, Forms, PubParaLib, SysUtils, Dialogs, DB, ADODB, StdCtrls, PubDataModul;

type
TGetDataSet = procedure(var ADOQuery:TADOQuery; SQL:String); Stdcall;
TGetTextData = function(ID:Integer; StrList:Array of String):String; Stdcall;
TGetSQLText = Function(Sn, ID:Integer): String; Stdcall;
TStratDataList = Procedure(ADOConn: TADOConnection; UserName: String); Stdcall;

function _CuTextData(ID:Integer; StrList:Array of String):String;
function _CuSQLData(SQLType: TCuSQLServerType; ID: Integer): string;

procedure GetNewDataSet(var ADOQuery:TADOQuery; SQL:String);
function GetNewTextData(ID:Integer; StrList:Array of String):String;
function GetNewSQLText(Sn, ID:Integer):String;
Procedure OpenTextDataList;

var
TextHandle:THandle;

implementation

其中，type下的“TGetSQLText = Function(Sn, ID:Integer): String; Stdcall;”这是什么意思？请高手赐教。
那么应该怎么调用这个函数呢？

Answer 1

这东西最终的目的只不过是用SQL语句从数据库弄出些记录而已,,其功效与一般的用ADO数据集组件执行一条SQL语句是相同的,但是作者就是要故弄玄虚,把代码写的让别人看不懂,

Answer 2

就是定义一个类型，跟字符串，整型等等一样，都是一种类型。不过它就一个函数类型，多用于属性。常看到的，例如你看OnClick事件，它是在TControl里这样定义的
property OnClick: TNotifyEvent read FOnClick write FOnClick stored IsOnClickStored;
其中 TNotifyEvent 是这样定义的
TNotifyEvent = procedure(Sender: TObject) of object;
你在生成这个事件的时候，可以看到它会有一个OnxxxxClick，它的定义就是
procedure OnxxxxClick(Sender: TObject) ;
然后就这个事件就是跟那个OnClick关联起来的。只不过这里的是过程，而你提到的是函数。但其实是一样的。

Answer 3

函数。。。。

Answer 4

函数指针
参考http://wenku.baidu.com/view/c713d1cca1c7aa00b52acb75.html