Delphi相談室その5
■ このスレッドは過去ログ倉庫に格納されています
0087Delフサギコ ◆zE1iiRdQ
NGNG________
| .|
| 教えて! .|
|_______|
∧,,∧||
ミ*゚Д゚||
〃 ⊃||
教えてくださいませ。
今更なんですが、コンストラクタとか
オブジェクトの生成についての質問っす。
引数付きコンストラクタを実装して
その引数の条件によってはそのオブジェクトを生成したくない
というものを作りたいとします。
例えば、
http://do.sakura.ne.jp/~junkroom/cgi-bin/megabbs/readres.cgi?bo=lounge&vi=1021888173&res=10
ここのTShortcutFile
constructor TShortcutFile.Create(FileName: TFileName);
begin
if not FileExists(ChangeFileExt(FileName,'.lnk')) then
raise Exception.Create('ファイルが存在しません');
inherited Create;
ShellLink := CreateComObject(CLSID_ShellLink) As IShellLink;
try
OleCheck(ShellLink.QueryInterface(IPersistFile,PersistFile));
くコ:彡 イカ略
こんな実装をしてます。
■ このスレッドは過去ログ倉庫に格納されています