急急-在线等。。 各位高手请进来看看

Question

在应用程序中,我写一过程，定义一字符串变量,字符串内容为过程名,能否通过使用此字符串变量来调用此过程。如下:
var varb :string;procedure test;
begin
    .....
end;varb :='test';call(varb) ;//???/

Answer 1

你说的意思是不是这样的
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;type
  TForm1 = class(TForm)
    procedure FormShow(Sender: TObject);
  private
  procedure text(varb :string);
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.text(varb: string);
begin
varb:='text';
showmessage(varb);
end;procedure TForm1.FormShow(Sender: TObject);
var varb:string;
begin
varb:='binge';
text(varb);
end;end.

Answer 2

把函数指针保存,就可以用,可以把指针转换成String,当用到时转换回来