关于过程和涵数的定义问题?

Question

我并不想创建永久性字段但又想在Fields[0].OnGetText事件中写代码,我的思路如下;
procedure Tform1.Button2Click(Sender: TObject);
var
sss:procedure(Sender: TField; var Text: string;DisplayText: Boolean) of object;
begin
ClientDataSet.Fields[0].OnGetText:=sss;end;
可不知道sss的代码应该写在哪里?请高手给指点一下!

Answer 1

如此：unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
   procedure MyFun(Sender:   string;   var   Text:   string;DisplayText:   Boolean);
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.MyFun(Sender:   TObject;   var   Text:   string;DisplayText:   Boolean);
beginend;
procedure TForm1.FormCreate(Sender: TObject);
var
sss:procedure(Sender:  TObject;   var   Text:   string;DisplayText:   Boolean)   of   object;
begin
sss:=Myfun;
ClientDataSet.Fields[0].OnGetText:=sss;end;
end.

Answer 2

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB;type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
   procedure MyFun(Sender:   string;   var   Text:   string;DisplayText:   Boolean);
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.MyFun(Sender:   TObject;   var   Text:   string;DisplayText:   Boolean);
beginend;procedure TForm1.FormCreate(Sender: TObject);
begin
ClientDataSet.Fields[0].OnGetText := Myfun;
end;end.