不好意思，小女子最近在學習寫物件
想詢問一個問題
假設我總共寫了四顆物件：父、母、子、女
我要依不同的情況去使用(在同一個form內)
不曉得我可否回傳物件，例如：
function Tform.AA(type:string):TObject;
begin
if type = fa then
result:= 父
else
if type = ma then
result:= 母
：
：
end;
如果我的問題太蠢就別理我了 = =
sorry~

當然可以阿~
雖然你回傳的是TObject轉型一下就可以用了

[code delphi]
function Tform.AA(type:string):TObject;
begin
result := nil;
if type = fa then
result:= 父.create;
else
if type = ma then
result:= 母.create;
：
：
end;
procedure Tform.BB;
var
temp: TObject;
begin
temp := AA;
if temp <> nil then
父(temp).操作;
end;
[/code]
大概就類似這樣吧

編輯記錄

sorry~可是大大你這樣寫我看起來怪怪的!!= =
我是想因不同的type去呼叫不同的物件
您的程式碼看來是要一個一個物件操作

還是我有哪裡搞錯了...= =a

你想要的是這樣嗎???
[code delphi]
type
TMyObj = class
procedure SayHello; virtual; abstract;
end;
TFa = class(TMyObj)
procedure SayHello; override;
end;
TMa = class(TMyObj)
procedure SayHello; override;
end;
type
TForm1 = class(TForm)
private
function GetObj(ObjName: string): TMyObj;
procedure aaa;
public
{ Public declarations }
end;
procedure TMa.SayHello;
begin
showmessage('i am mother');
end;
procedure TFa.SayHello;
begin
showmessage('i am father');
end;
procedure TForm1.aaa;
var
temp: TMyObj;
begin
temp := GetObj('fa');
if temp <> nil then
temp.SayHello;
end;
function TForm1.GetObj(ObjName: string): TMyObj;
begin
result := nil;
if ObjName = 'fa' then
result := TFa.Create;
if ObjName = 'ma' then
result := TFa.Create;
end;
[/code]

嗯．．．差不多是這樣！
不過我後來發現還有很多不同的地方，接手的程式有點亂！
看起來花花．．＠＠．．
我已經利用另一個方法解決了，謝謝這你唷！
阿哩阿豆

我又試寫了一下您的做法
終於可以做到我要的效果了
程式精簡了很多 (大笑)
真是太感謝您了！^__________^