-
本版专家分：0结帖率 88.89% -
我有个过程
procedure Tzmenu_w.zmenu_cxm_prog;
begin
if a1='cggl' then
P1 else
if a1='xsgl' then
P2 else
if a1='kcgl' then
P3 else
...............
end;
说明：p1,p2,p3....都是过程名，也许以上的过程有几百行代码，我想用一个选择判断语句搞定
那么这样就需要用变量名代替过程名
procedure Tzmenu_w.zmenu_cxm_prog;
begin
if 条件 成立 就执行 某变量（其实这变量与某过程关联）
-
本版专家分：15859
-
-
红花
2014年10月 Delphi大版内专家分月排行榜第一
2012年12月 Delphi大版内专家分月排行榜第一
-
- 黄花 2012年7月 Delphi大版内专家分月排行榜第二
-
-
蓝花
2013年8月 Delphi大版内专家分月排行榜第三
2012年8月 Delphi大版内专家分月排行榜第三
2012年6月 Delphi大版内专家分月排行榜第三
-
-
procedure TForm1.proc;
begin
showmessage('abc')
end;
procedure TForm1.Button1Click(Sender: TObject);
var
p1: procedure of object;
begin
p1 := proc;
p1;
end;
-
本版专家分：2251
-
- 蓝花 2016年3月 移动开发大版内专家分月排行榜第三
-
-
exec P1
-
本版专家分：16357
-
- 蓝花 2011年5月 Delphi大版内专家分月排行榜第三
-
-
type
TStrProc=Procedure(const S :string);
var
MyStrProc :TStrProc;
//假如有一个过程 Procedure Test(const S:string);
//另一个过程Procedure Test2(const S:string);
MyStrProc := Test; //
MyStrProc(S); //执行Test;
MyStrProc := Test2;
MyStrProc(S);//执行Test2;
-
本版专家分：0
-
这问题还没搞定呀
-
本版专家分：0
-
这问题还没搞定
-
本版专家分：15859
-
-
红花
2014年10月 Delphi大版内专家分月排行榜第一
2012年12月 Delphi大版内专家分月排行榜第一
-
- 黄花 2012年7月 Delphi大版内专家分月排行榜第二
-
-
蓝花
2013年8月 Delphi大版内专家分月排行榜第三
2012年8月 Delphi大版内专家分月排行榜第三
2012年6月 Delphi大版内专家分月排行榜第三
-
-
p1,p2,p3....都是过程名
----
-
本版专家分：15859
-
-
红花
2014年10月 Delphi大版内专家分月排行榜第一
2012年12月 Delphi大版内专家分月排行榜第一
-
- 黄花 2012年7月 Delphi大版内专家分月排行榜第二
-
-
蓝花
2013年8月 Delphi大版内专家分月排行榜第三
2012年8月 Delphi大版内专家分月排行榜第三
2012年6月 Delphi大版内专家分月排行榜第三
-
-
如果p1,p2,p3的参数都不一样，那就不好办了！你的程序架构需要调整了！
-
本版专家分：7929 -
建议楼主写一个SQL指令生成器，负责生成你想要的指令；
比如：
type
TOperatorType=(EVENT_P1,EVENT_P2,...);
function MakeSqlStr_CallProcDoSmth(nEvent:TOperatorType):string;
var strSql:string;
begin
case nEvent of
event_p1:strsql:=format('',[]);
event_p2:strsql:=format('',[]);
default:string='';
end;
result:=strsql;
end;
-
本版专家分：14765
-
type
TCalls = class
published
procedure a1;
procedure a2;
end;
TCall = procedure;
{ TCalls }
procedure TCalls.a1;
begin
ShowMessage('a1');
end;
procedure TCalls.a2;
begin
ShowMessage('a2');
end;
注意方法要放published
function Call(const name: string): Boolean;
var
p: Pointer;
begin
p := TCalls.MethodAddress(name);
Result := p <> nil;
if Result then
TCall(p);
end;
调用直接传入函数名就可以
Call('a1');
Call('a2');