详情

导航

详情

首页手游攻略 Delphi 根据字符串找到函数并执行的实例实用指南

Delphi 根据字符串找到函数并执行的实例实用指南

佚名 2026-09-02 13:20:02

平时做技术实践时，很多问题不是概念不会，而是细节没串起来。拿“Delphi 根据字符串找到函数并执行的实例”来说，它看着像小点，放到项目里常会牵出环境、配置、兼容性和维护成本。下面按实际采用顺序，把思路、关键写法和容易踩坑的地方讲清楚，便于大家直接对照操作。

Delphi 根据字符串找到函数并执行的实例

关键字：MethodAddress：取得方法的地址，这个方法需是published的。

实例代码：


unit Unit1; 
 
interface 
 
uses 
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
 Dialogs, StdCtrls; 
 
type 
 
 TShowInfo = procedure(info:string) of object;  //声明一个procedure类型，参数和ShowInfo一致 
 
 TForm1 = class(TForm) 
  Button1: TButton; 
  procedure Button1Click(Sender: TObject); 
 private 
  { Private declarations } 
 public 
  { Public declarations } 
 
 published 
  procedure ShowInfo(info:string); 
 end; 
 
var 
 Form1: TForm1; 
 
implementation 
 
{$R *.dfm} 
 
{ TForm1 } 
 
procedure TForm1.ShowInfo(info: string); 
begin 
 ShowMessage(info); 
end; 
 
procedure TForm1.Button1Click(Sender: TObject); 
var 
 s:TShowInfo; 
begin 
 @s := MethodAddress('ShowInfo');    //取得ShowInfo的地址 
 if @s <> nil then           //如果不为空 
 begin 
  s('中华人民共和国');         //执行 
 end; 
end; 
 
end.

从实现思路看，如有疑问请留言或者到本站社区交流讨论，感谢阅读，希望能帮助到大家，谢谢大家对本站的兼容！

您可能感兴趣的文章:

  • Delphi 用DLL实现插件的轻松实例
  • Delphi 中内存映射对于大文件的采用
  • Delphi提取PDF文本实例
  • Delphi XE5 为Android应用制作签名的方法(图文)
  • ListView 百分比进度条(delphi版）
  • Delphi实现截屏存盘的方法
  • Delphi实现窗体感知鼠标滑过同时自动隐藏与显示窗口的方法
  • Delphi 实现软件自动升级的功能

相关资讯
点击查看更多
游戏推荐

红色版泰山小说

单挑王

春暖学语文

惊悚躲猫猫

survivor royale手游版

Floating Dock

漂移拉力赛车最新版

皮卡灵动岛

wearfitpro表盘

地下城探险公会

安果相亲

TilesHop

零域社区

星际迷航：纷争

轻颖

苹果画质

猫咪博物馆

Go Birding

铁路运输大师

电车丸的连锁冒险

快搜阅读器

蒙缘APP

僵尸战场生存射击官方版

中羽联(羽毛球社交软件)
推荐专题
热门阅读
推荐下载

Copyright©2010-2019 All rights reserved | 波波三国游戏官网