各位Delphi前輩： 一個Form都會存一個.pas的檔案，如何取得這一支Form所存pas的名稱?因為我想在每一支Form的Caption顯示所存的.pas Name… 例：MainForm存成Main.pas，在MainForm如何取得Mian.pas這個名稱… ~敬請指教，感激不盡~

------
~小弟淺見，參考看看~

Project1.dpr 內容看看是否你需要的

如果要從 exe 看 (不保證有), 用 Google 找 Resource Editor 或 Resource Explorer 這類工具看看

------
能力不足，求助於人；有能力時，幫幫別人；如果您滿意答覆，請適時結案！

子曰：問有三種，不懂則問，雖懂有疑則問，雖懂而想知更多則問！

===================引 用 文 章===================
Project1.dpr 內容看看是否你需要的

如果要從 exe 看 (不保證有), 用 Google 找 Resource Editor 或 Resource Explorer 這類工具看看


您好：
首先我先將Form1存成Fm1.pas
如果要取得Form1的Name放在Caption，則在Form1 OnShow的事件寫上Form1.Caption := Form1.Name;
但我卻要在Form1的Caption顯示Fm1.pas，請問我在Form1 OnShow這個事件應該如何寫?

~敬請指教，感激不盡~

------
~小弟淺見，參考看看~

分析 Project.dpr 找到  Unit1 in 'Unit1.pas' {Form1};
這表示 Form1 的程式碼存成 Unit1.pas 檔案

------
能力不足，求助於人；有能力時，幫幫別人；如果您滿意答覆，請適時結案！

子曰：問有三種，不懂則問，雖懂有疑則問，雖懂而想知更多則問！

===================引 用 文 章===================
分析 Project.dpr 找到?? Unit1 in 'Unit1.pas' {Form1};
這表示 Form1 的程式碼存成 Unit1.pas 檔案

您好：
沒有其他的Method或function可以取得Unit1.pas嗎?

~敬請指教，感激不盡~

------
~小弟淺見，參考看看~

試試:
uses
TypInfo;

procedure TAncestorForm.OnCreate(Sender: TObject);
var
TD: PTypeData;
begin
TD := GetTypeData(Self.ClassInfo);
if TD <> nil then
Label1.Caption := TD^.UnitName '.pas';
end;

參考:
http://groups.google.com.tw/group/borland.public.delphi.non-technical/browse_thread/thread/3b5a90ca1c747f00/c3d8dc23995be1a2?lnk=st&q="get unit name" + delphi&rnum=2&hl=zh-TW#c3d8dc23995be1a2

http://groups.google.com.tw/group/borland.public.delphi.students/browse_thread/thread/b5408c3249a5ea90/132904aad369892d?lnk=st&q="get unit name" + delphi&rnum=3&hl=zh-TW#132904aad369892d

hagar兄：
謝謝您…我已經了解清楚了…


===================引 用 文 章===================
試試:
uses
? TypInfo;

procedure TAncestorForm.OnCreate(Sender: TObject);
var
? TD: PTypeData;
begin
? TD := GetTypeData(Self.ClassInfo);
? if TD <> nil then
? ? Label1.Caption := TD^.UnitName '.pas';
end;

參考:
http://groups.google.com.tw/group/borland.public.delphi.non-technical/browse_thread/thread/3b5a90ca1c747f00/c3d8dc23995be1a2?lnk=st&q="get unit name" + delphi&rnum=2&hl=zh-TW#c3d8dc23995be1a2

http://groups.google.com.tw/group/borland.public.delphi.students/browse_thread/thread/b5408c3249a5ea90/132904aad369892d?lnk=st&q="get unit name" + delphi&rnum=3&hl=zh-TW#132904aad369892d

------
~小弟淺見，參考看看~

hagar 前輩：
真是強啊！這樣對專案管理程式的管理，又可以更簡單一點！

------
「人們所以覺得寂寞，是因為他們會築牆，卻不會搭橋。」
程式寫的越久，卻發現自己越來越不會寫程式！