字串轉變數名

發文回覆瀏覽次數：1239

推到 Plurk!

推到 Facebook!

缺席

pcernet
初階會員

發表：69
回覆：113
積分：41
註冊：2002-11-29

發送簡訊給我

#1 引用回覆回覆

發表時間：2002-12-22 14:31:26

IP:61.218.xxx.xxx 未訂閱

var i:integer test("i"):=100 可形成 i:=100 TIMAGE(I0) 原題: var ii:string; if Sender is TIMAGE then ii:="TIMAGE(Sender)"; if Sender is TForm then ii:="TForm(Sender)"; with test(ii) do begin canvas.brush.color:=clblue; . . . end;

Miles
尊榮會員

發表：27
回覆：662
積分：622
註冊：2002-07-12

發送簡訊給我

#2 引用回覆回覆

發表時間：2002-12-23 10:01:01

IP:210.58.xxx.xxx 未訂閱

Hello pcernet兄您好: 小弟看不太懂你的問題, 若是傳物件的話可以直接用以下方式看出他的ClassName及本身的名稱


procedure TForm1.Button1Click(Sender: TObject);
begin
   ShowMessage(Sender.ClassName);
   ShowMessage(TControl(Sender).Name);
end;

我不是高手, 高手是正在銀幕前微笑的人.

------

我不是高手, 高手是正在銀幕前微笑的人.

系統時間：2024-05-05 10:52:43

聯絡我們 | Delphi K.Top討論版

本站聲明

1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！