我在程式中一unit寫

[code delphi]

unit Unit2;

interface

uses
sysutils;

type
TMyObject = class(TObject)
private
FTempPath : string;
public
constructor Create;
destructor Destroy; override;
end;

var
MyObject: TMyObject;

implementation

constructor TMyObject.Create;
begin
FTempPath := 'F:\temp\';
if not DirectoryExists(FTempPath) then
if not ForceDirectories(FTempPath) then
raise Exception.Create('Cannot create ' FTempPath);
end;


destructor TMyObject.Destroy;
begin

inherited;
end;

initialization
MyObject := TMyObject .Create;

finalization
MyObject.Free;

end.

[/code]

若因為F:\不存在,導致create失敗,發現exception的訊息不會出現,只是程式會提示錯誤然後關閉,
這種寫法那裡有錯?我在help中沒有找到說明,會這樣寫是因為希望在MainForm被create前,先做些準備動作,
不知是否不適合這樣寫

編輯記錄

我試過你的程式碼, 並非如你提到沒有出現自己的Create Error, 我測的結果是ok的哦! 查查你的Delphi設定, 不過我不確定那些參數影響到, 因為我用的是Delphi5

感謝兄臺的測試,我用的是Delphi 6.以上程式碼有些錯誤,已修正,確實在create時會失敗,
不過若用單步執行,還是可看到提示exception的訊息,
直接執行exe,就只有兩個視窗,一個是提示發生錯誤要關閉,然後是runtime error,
不知為何會這樣?




===================引 用 P.D. 文 章===================
我試過你的程式碼, 並非如你提到沒有出現自己的Create Error, 我測的結果是ok的哦! 查查你的Delphi設定, 不過我不確定那些參數影響到, 因為我用的是Delphi5

編輯記錄

等了好幾天了,有人知道答案嗎?

先檢查 F: 磁碟機有沒有存在, 有存在才能做建立目錄的動作

改寫
寫在Form OnCreate Event 看起來比較適當些

3. initialization
4. MyObject := TMyObject .Create;
6. finalization
7. MyObject.Free;

你可用 debug use dcu Trace看看

我猜 是例外引發 ,資源配置 問題??導致程式嚴重錯誤

寫在Initialization Section的程式碼將在程式啟動階段就被執行,
因此,你的程式碼,在程式完成啟動之前就直接失敗(在Main form
都還來不及Create之前),所以就直接結束掉了(此結論是猜的),

如果將MyObject := TMyObject .Create;改到程式中應該就可以了
(我猜的)

我並不是不懂可以寫在Main Form 的FormCreate事件中,
我只是覺得奇怪,因為help中似乎並無使用raise有限制的說明,
所以有興趣想知道是為何?

另外常聽說GUI與商業logic要分開,如果寫在 FormCreate事件中,
好像又違反此原則,所以才不想寫在這裡,

冒昧說一句,難道Delphi的設計在這裡不夠完善?


===================引 用 wuabc 文 章===================
寫在Initialization Section的程式碼將在程式啟動階段就被執行,
因此,你的程式碼,在程式完成啟動之前就直接失敗(在Main form
都還來不及Create之前),所以就直接結束掉了(此結論是猜的),

如果將MyObject := TMyObject .Create;改到程式中應該就可以了
(我猜的)

一個物件在被使用時,才建立(Create),不用時即可拋棄(Free),
這是再正常不過的問題,至少個人如是認為,
不知您以為如何?
請指教


===================引 用 rachex2000 文 章===================
我並不是不懂可以寫在Main Form 的FormCreate事件中,
我只是覺得奇怪,因為help中似乎並無使用raise有限制的說明,
所以有興趣想知道是為何?

另外常聽說GUI與商業logic要分開,如果寫在 FormCreate事件中,
好像又違反此原則,所以才不想寫在這裡,

冒昧說一句,難道Delphi的設計在這裡不夠完善?

是raise 在 initialization 的問題,跟物件無關

help
Raising and handling exceptions



Note: Raising an exception in the initialization section of a unit may not produce the intended result. Normal exception support comes from the SysUtils unit, which must be initialized before such support is available. If an exception occurs during initialization, all initialized unitsncluding SysUtilsre finalized and the exception is re-raised. Then the exception is caught and handled, usually by interrupting the program.

原來如此,抱歉,我help沒看清楚,感謝兄臺的提示

===================引 用 shunchia63 文 章===================

是raise 在 initialization 的問題,跟物件無關

help
Raising and handling exceptions



Note: Raising an exception in the initialization section of a unit may not produce the intended result. Normal exception support comes from the SysUtils unit, which must be initialized before such support is available. If an exception occurs during initialization, all initialized unitsncluding SysUtilsre finalized and the exception is re-raised. Then the exception is caught and handled, usually by interrupting the program.