这个函数怎样写,取出变量的值!!!!!!!!!!! ( 积分: 100 )

  • 主题发起人 主题发起人 kxgkxg
  • 开始时间 开始时间
K

kxgkxg

Unregistered / Unconfirmed
GUEST, unregistred user!
//-这个函数怎样写,取出变量的值
//传入的是变量的名称,返回的是变量的值
function GetValue(s: String): variant;
begin
//-传入参数:公共变量名,类似程序调试时,显示其值
//s 可为以下内容
//s:='Application.ExeName';
//s:='Application.Handle';
//s:=公共变量名
//返回其值
end;
 
最笨最有效的方法,定义一个string数组,一个一个匹配
 
关注一下`~学习学习一下
 
tstringlist
 
设计有问题。
 
delphi是编译型的语言,和解释执行的不同,没有宏替换功能。
你的需求可以用tstringlist类变通的实现,但效率不高。
比如在程序初始化时保存 stringlist1.values['Application.ExeName']:= Application.ExeName;
使用的时候
function GetValue(s: String): variant;
begin
result:= stringlist1.values;
end;

或者如果变量不多,也可以用if语句实现。在不行,那就用pascal脚本控件吧。
 
用指针不行吗
 
学习一下,还没这样做过.
 
干吗要自己写,用VarToStr或者VarToStrDef不就行了嘛
 
学习一下,还没这样做过.
 
tpCtrl:TComponent;

if Assigned(GetPropInfo(tpCtrl,'TabVisible')) then
SetPropValue(tpCtrl,'Visible',True);
或 s:=GetPropValue(tpCtrl,'Visible',False);

这是取控件值的方法,是否对针对 Application没试过,但对Component肯定能行
 

Similar threads

回复
0
查看
978
不得闲
S
回复
0
查看
1K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
900
SUNSTONE的Delphi笔记
S
后退
顶部