[code delphi]
宣告區
function ReleaseForm( var frm: TForm): boolean;

implementation
function ReleaseForm( var frm: TForm): boolean;
begin
if Assigned(frm) then
begin
frm.Release;
frm := nil;
end;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
Application.CreateForm(TForm2,Form2);
Form2.Show;
ReleaseForm( Form2 );
if Form2<> nil then
ShowMessage('Form2 free Error');
end;
[/code]
加上var後出現的錯誤訊息Type of actual and formal var parameters must be identical

我看不出來是哪裡型態不一致
請各位幫我解惑
Thanks

你定義了 frm 了嗎?

frm 我是當成一般變數名稱
沒有另外定義
請版主給一個例子

===================引 用 P.D. 文 章===================
你定義了 frm 了嗎?

function ReleaseForm( var frm: TForm): boolean;

implementation
function ReleaseForm( var frm: TForm): boolean;
begin
if Assigned(frm) then
begin
frm.Release;
frm := nil;
end;
end;

procedure TForm1.Button4Click(Sender: TObject);
var
form2:TForm;
begin
Application.CreateForm(TForm2,Form2);
Form2.Show;
ReleaseForm( Form2 );
if Form2<> nil then
ShowMessage('Form2 free Error');
end;

一个是TForm、一个是TForm2，所以会报错
================================================

functionDoubleByValue(X:Integer):Integer;
begin
X:=X*2;
Result:=X;
end;
functionDoubleByRef(var X:Integer):Integer;
begin
X:=X*2;
Result:=X;
end;

var
I, J, V, W: Integer;
begin
I := 4;
V := 4;
J := DoubleByValue(I); // J = 8, I = 4
W := DoubleByRef(V); // W = 8, V = 8
end;

通过引用将变量传递给过程和函数利用引用传递参数时，其接收变量的过程和函数能够改变变量的值。var的作用是赋值变量的地址，变量的值也就根着改变。

編輯記錄

[code delphi]
var
Form1: TForm1;

implementation
uses Unit2;

function ReleaseForm( var frm: TForm): boolean;
begin
if Assigned(frm) then
begin
frm.Release;
frm := nil;
end;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
Application.CreateForm(TForm2,Form2);
Form2.Show;
ReleaseForm( TForm(Form2) ); //<---改成這樣就OK了
if Form2<> nil then
ShowMessage('Form2 free Error');
end;


[/code]

編輯記錄