請問各位,我在 Delphi 有格觀念不太懂,想問各位有何不同?  變數 A & B 為什麼傳回不同值 ??
Unit Frm_1;
type TForm1 = class(TForm)
public
RequiredFields : string;
end;
var
Form1: TForm1;
procedure TForm1.FormCreate(Sender: TObject);
begin
inherited;
RequiredFields := 'TI006';
end;

Unit Frm_2;
....
implementation
uses Frm_1;
procedure Frm_2.MasterBeforePost(DataSet: TDataSet);
var A: string;
B:String;
begin
A:= Form1. RequiredFields; --> TI006
B:= TForm1(self).RequiredFields; --> '' , why?
end;

procedure Frm_2.MasterBeforePost(DataSet: TDataSet);
var A: string;
B:String;
begin
A:= Form1. RequiredFields; --> TI006
B:= TForm1(self).RequiredFields; --> '' , why?
end;
這時候 TForm1(self) 的 self 是指 Frm_2 的實體

謝謝說明,小弟再問一下 : TForm1(self) 整個是指 Frm_1 還是 Frm_2 ??

因為你是在form2的函式裡面使用self，所以self指的是fm2，
整句來說，就是你將fm2 強制typecast成TForm1來使用，
所以跟fm1沒關係

------
不論是否我發的文，在能力範圍皆很樂意為大家回答問題。
為了補我的能力不足之處，以及讓答案可以被重複的使用，希望大家能儘量以公開的方式問問題。
在引述到我的文時自然會儘量替各位想辦法，謝謝大家！

最近看了一本大陸簡體書籍，有講到Self 參考的是Ownerr階層!

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