盒子论坛 v2.1

目的是从结构体中读取函数信息，求助大家，谢谢！
//这个是只有一些函数的结构体
TMyMethods1=record
    function 时间戳(Len:Integer):Integer;
    function 自增(I,N:Integer):Integer;
    function 自减(I,N:Integer):Integer;
    function 流转Base64字符串(AStream:TMemoryStream):string;
    function 连接字符串(连接符:string;参数:array of string):string;
  end;
//这段代码没问题
var
  m:TRttiMethod;
  Item:TMenuItem;
begin
  for m in TRttiContext.Create.GetType(TypeInfo(TMyMethods1)).GetMethods do
  begin
    Item:=TMenuItem.Create(nil);
    Item.Caption:=m.Name;
    Item.OnClick:=SystemMethodsClick;
    pm2.Items.Add(Item);
  end;
end;
//这段代码有错误
var
Param:TRttiParameter;
begin
  for Param in TRttiContext.Create.GetType(TypeInfo(TMyMethods1)).AsRecord.GetMethod(函数名称).GetParameters do
  begin
    with lv1.Items.Add do
    begin
      Caption:=Param.ParamType.ToString;
      SubItems.Add('');
    end;
  end;
end;
----------------------------------------------

作者：

roadrunner (roadrunner)	★☆☆☆☆	-
	盒子活跃会员

2022/9/30 13:48:50

1楼：

函数名称未定义
----------------------------------------------
-

作者：

cenunus (cenunus)	★☆☆☆☆	-
	普通会员

2022/9/30 14:35:35

2楼：

汗，果然是函数名称那里错了，谢谢楼上！
----------------------------------------------

信息

登陆以后才能回复