delphi中执行字符串表示的方法名

转载 2006年06月05日 12:47:00

转自http://www.delphibbs.com/keylife/iblog_show.asp?xid=13388

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Menus;

type
  TForm1 = class(TForm)
    Button1: TButton; //指定一事件
    Button2: TButton;  //没有指定事件,点击button1后用“字符串事件”给它赋click事件
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    procedure SetMethodByName(AObject:TObject;AName: string);
  end;

var
  Form1: TForm1;
implementation

{$R *.dfm}


procedure TForm1.Button2Click(Sender: TObject);
begin
  ShowMessage('执行成功');
end;

procedure TForm1.SetMethodByName(AObject:TObject;AName: string);
var
  PAddr: pointer;
  M: TMethod;
begin
  PAddr := MethodAddress(AName); //找本窗口中的过程地址
  if PAddr <> nil then
  begin
    M.Code := PAddr;
    TButton(AObject).OnClick := TNotifyEvent(m);//指定click事件
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
   SetMethodByName(Button2,'Button2Click');
end;

end.

C#通过函数名字符串执行相应的函数

如果代码中函数过多,那么通过函数名字符串执行相应的函数会更加方便,也会使代码更为简单。 在C#中,通过函数名字符串执行相应的函数这项功能是在System. Reflection命名空间中实现的,使用...
  • u011045710
  • u011045710
  • 2013年06月15日 19:28
  • 3421

Delphi中Format的字符串格式化使用说明

一、Format函数的用法 Format是一个很常用,却又似乎很烦的方法,本人试图对这个方法的帮助进行一些翻译,让它有一个完整的概貌,以供大家查询之用: 首先看它的声明: function ...
  • ly930156123
  • ly930156123
  • 2016年09月22日 18:12
  • 3984

java执行字符串数学表达式 ScriptEngine

今天遇到了一个需要将数据库中保存的表达式,替换其中的字符,并计算出值,java是不能直接计算的例如:  Java代码   double d = (3+5-(2-4)*2...
  • w1014074794
  • w1014074794
  • 2015年05月25日 13:25
  • 2332

DELPHI各种字符串加密解密方法

  • 2017年11月08日 14:18
  • 5KB
  • 下载

从网上整理的一些delphi字符串加密解密方法

function Encode(Str: string): string; var //加密   TmpChr: AnsiChar;   i, Len: integer; begin   R...
  • kevinzhaoyp
  • kevinzhaoyp
  • 2012年02月07日 13:06
  • 4308

一个使用特殊符号分割的字符串解码方法(Delphi版)

function DecodeString(Str, deStr: string ): TStringList; var     StringList:TStringList; begin  ...
  • fyl_077
  • fyl_077
  • 2013年12月17日 13:00
  • 462

执行字符串形式对象的方法

  • 2008年06月28日 16:17
  • 255KB
  • 下载

初学 Delphi 嵌入汇编[16] - 进制的表示方法

====================================================== 注:本文源代码点此下载 =============================...
  • javazhuanzai
  • javazhuanzai
  • 2012年01月16日 04:21
  • 182

避免程式重複執行的方法[delphi]

出處 : http://jck11.pixnet.net/blog/post/8541840-%E9%81%BF%E5%85%8D%E7%A8%8B%E5%BC%8F%E9%87%8D%E8%A4%8...
  • start8588
  • start8588
  • 2013年09月24日 22:46
  • 1181

delphi删除自身执行程序的方法

procedure DeleteMe; var BatchFile: TextFile; BatchFileName: string; ProcessInfo: TProcessInforma...
  • tianyucimen
  • tianyucimen
  • 2012年05月02日 13:56
  • 405
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:delphi中执行字符串表示的方法名
举报原因:
原因补充:

(最多只允许输入30个字)