delphi 根據字串找到函式並執行的例項
例項**：
unit unit1;
inte***ce
uses
windows, messages, sysutils, var classes, graphics, controls, forms,
dialog程式設計客棧s, stdctrls;
type
tshowinfo = procedure(info:string) of object; //宣告乙個procedure型別，引數和showinfo一致
tform1 = class(tform)
button1: tbutton;
procedure button1click(sender: tobject);
private
public
published
procedure showinfo(info:string);
end;
var
form1: tform1;
implementation
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 根據字串找到函式並執行的例項
本文位址:
Delphi 字串擷取函式
如果要使用leftstr,rightstr,midstr必需引用系統單元strutils 宣告變數str string str helloworld 1,leftstr str,2 he 從str字串變數的最左邊 第乙個字元包括第乙個字元 開始擷取2個字元 2,rightstr str,2 ld 從...
DELPHI字串 陣列操作函式
1.copy 功能說明 該函式用於從字串中複製指定範圍中的字元。該函式有3個引數。第乙個引數是資料來源 即被複製的字串 第二個引數是從字串某一處開始複製，第三個引數是要複製字串的長度 即個數 最後函式返回乙個新的字串 即是我們指定要複製的字串內容 參考例項 var s string mystr st...
DELPHI字串 陣列操作函式
對字串及陣列的操作，是每個程式設計師必須要掌握的。熟練的使用delphi的這些函式，在程式設計時能更加得心應手。1.copy 功能說明 該函式用於從字串中複製指定範圍中的字元。該函式有3個引數。第乙個引數是資料來源 即被複製的字串 第二個引數是從字串某一處開始複製，第三個引數是要複製字串的長度 即個...