（ ﾟДﾟ)ノ　Delギコ猫のﾌﾟﾛｸﾞﾗﾐﾝｸﾞ相談室part3

　∧ ∧　　　 ／DelphiとかBorland系ツールのこと
　(,,ﾟДﾟ)　　＜
　 | つ[|lllll］). ＼聞いてヨシ
＠| 　 |
　 ∪∪ 　ﾎｶﾉ ｹﾞﾝｺﾞ ﾔ ｶｲﾊﾂｶﾝｷｮｳﾊ ﾖｸﾜｶﾗﾅ-ｲ

前スレ
（ ﾟДﾟ)ノ　Delギコ猫のﾌﾟﾛｸﾞﾗﾐﾝｸﾞ相談室part2
http://piza2.2ch.net/test/read.cgi?bbs=tech&key=999482946
（ ﾟДﾟ)ノ　Delギコ猫のﾌﾟﾛｸﾞﾗﾐﾝｸﾞ相談室
http://piza2.2ch.net/test/read.cgi?bbs=tech&key=997348797

　　　∧∧　　　／ﾀﾞｳｿﾛｰﾄﾞしてよし。
＠＿(,,ﾟДﾟ)　＜　使ってなおよし
⊂,,＿_つつ.　　＼ｿﾌﾄ作るともっとよし

　ﾖﾛｺﾍﾞ 無料 ﾀﾞ

Borland Delphi 6 Personal ダウンロード
http://www.borland.co.jp/delphi/personal/

Borland Kylix Open Edition ダウンロード
http://www.borland.co.jp/kylix/openedition/

JBuilder 5 Personal ダウンロード
http://www.borland.co.jp/jbuilder/jb5/download/

　∧ ∧
　(；ﾟДﾟ) 　ﾋﾞﾙ ﾊｶｲ ｹﾞｰﾑ ﾊ ﾂｸﾙﾅﾖ
　(|　　|つ
〜|　　|
　 ∪∪

　リンリンリンクの大冒険

￣￣￣∨￣￣￣￣￣
　　　∧ ∧
　　　(,, ﾟДﾟ)∫
　　　/　 つ旦O
　〜(._［￣￣￣.］
　　　　 ￣￣￣
Tipsサイト
　Delphi Acid Floor　　http://homepage2.nifty.com/boheme/top.html
　Sky Engine by Delphi　　http://www.geocities.co.jp/SiliconValley-SanJose/7625/index.html
　AboutDelphi　　http://www2.big.or.jp/~osamu/Delphi/
　Leafel's note Programing　　http://hp.vector.co.jp/authors/VA015850/program.html
　日本Delphi振興会　　http://hp.vector.co.jp/authors/VA009712/take/delphi/kabetop.htm
　Delphi神殿Tips　　http://nug.nasu-net.or.jp/~sakai/delphi/index.html
　M&I Tips　　http://member.nifty.ne.jp/m-and-i/tips/tipspage.htm
　Gen'sDelphiLabo　　http://www2.biglobe.ne.jp/~sakai/gensfaq2.htm
　FDelphi　　http://www.nifty.ne.jp/forum/fdelphi/faq/title.htm
　Borland Q&A Delphi　　http://www.borland.co.jp/qanda/delphi/index.html
　Borland Tips Delphi　　http://www.borland.co.jp/tips/delphi/index.html
　RG VEDA DELPHI TIPS　　http://homepage1.nifty.com/beny/delphi.html
　Win32 API by Object Pascal of Delphi　　http://halbow.cool.ne.jp/top.html
　COSMIC TOWER DELPHI MILLION TIPS　　http://homepage1.nifty.com/cosmic/delphi/delphitips.html
　Delphi広場faq　　http://www.sakaki.keiaikai.or.jp/faq.html
　としのホームページTIPS　　http://hp.vector.co.jp/authors/VA003525/tips.htm
　STUDIO MU Delphi Q&A　　http://www.para.tutics.tut.ac.jp/~ohno/mu/devroom/delphi_qa_g.html
　中村の里　　http://www.asahi-net.or.jp/~HA3T-NKMR/delphi.htm
　進め！中級プログラマ　　http://www.asahi-net.or.jp/~GV4J-SGUR/narik/susucyu.htm
　Ken's Software Delphiの話題　　http://homepage1.nifty.com/kens-hp/delphi.htm
　Katsuya's Home　　http://www.apionet.or.jp/~tubokura/k_tips.html
　Ak's Laboratory[Delphi Construction]　　http://www2s.biglobe.ne.jp/~aks-lab/delphi_lecture.htm
　Programming Library ｜Delphi Page　　http://homepage1.nifty.com/MADIA/Delphi/Delhpi.htm
　DEKO Delphiによるテクニック＆アルゴリズム　　http://homepage1.nifty.com\ht_deko\techalgo.html

＿＿＿_∧ ∧＿ ／￣￣￣￣￣￣￣￣￣￣￣￣￣￣
＿＿＿（　ﾟДﾟ）＜　ネットサーフィン(死後?)してよし。
＿＿ ／ ⊃ つ　 ＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿
＿〜′ ／
＿ ∪ ∪

初心者向け
　Do It YourSelf---Life with Delphi　http://home.onestop.net/mineko/index2.html
　ゼロからDELPHI講座　http://www.text2music.com/mine/delphi/index.html
　Delphi プログラミング事始め http://www2s.biglobe.ne.jp/~hatena/delphi/index.html
　Delphi（デルファイ）のページ　http://www.threeweb.ad.jp/~satou/
　「Delphi 買ったけど。。」　http://hp.vector.co.jp/authors/VA009187/delkedo/
VBから
　Switching Delphi / VB　http://member.nifty.ne.jp/deepforest/vbdel.htm
　Visual Basic から Delphi/Kylix への移行ガイド　http://www.borland.co.jp/delphi/papers/vbtodel/
　[ でべろっぱのすすめ ]と[ じあぴ ]　http://www.ab.wakwak.com/~greenspace/dev-api/
　DelphiAcidFloor VBtoDelphi　http://homepage2.nifty.com/boheme/delphi/vbtodel/index.html
　Taurus' Home Page Delphiの部屋　http://user.shikoku.ne.jp/kasai/delphi1.html
C++から
　Delphi＆C++Builder&VisualBasic徹底比較Ver0.4　http://member.nifty.ne.jp/h_kova/procomp.htm
　Gonta's Room　http://www2a.biglobe.ne.jp/~gonta/
初心者から上級者まで御用達
　DelphiML検索　http://www2.big.or.jp/~osamu/Delphi/
　Delphi広場　http://www.sakaki.keiaikai.or.jp/
　BorlandManiacs　http://member.nifty.ne.jp/h_kova/
コンポーネントのことなら
　DelphianWorld　http://home1.infonia.ne.jp/~delphian/delphi/
　DelphiSuperPage　http://delphi.icm.edu.pl/
　Torry's Delphi Pages.　http://www.torry.net/index.htm
　tmssoftware.com　http://www.tmssoftware.com/
環境のカスタマイズなら
　GExperts　http://www.gexperts.org/
　フリーカーソル無効化アドイン　http://homepage1.nifty.com/fuu/
書籍案内
　Delphi 書籍ランキング
　http://home1.infonia.ne.jp/~delphian/delphi/history/book.html
　http://home1.infonia.ne.jp/~delphian/delphi/history/bookrank2/book.html
　Ｄｅｌｐｈｉ初心者のための道しるべ　　http://www.valley.ne.jp/~masaiku/index1.htm
　Delphi 関連書籍　http://www.borland.co.jp/bookinfo/delphi.html
ゲーム開発
　DelphiX　http://www.yks.ne.jp/~hori/DelphiX.html
　Project Quadruple D　http://www-fu.magma.ne.jp/~hayase/dddd/

　 　|
電　|
　 　|∧ ∧
柱　|,,ﾟДﾟ)　＜2chのDelphi関係などのリンク
　　⊂　|
　 　| 　| 　MLからｷﾀ人は2chの雰囲気つかﾑヨロシ。
　 　|∪
, '　,　;　'　;

ソースの置き場はここ
　置いてよし認定委員会
　http://piza2.2ch.net/test/read.cgi?bbs=tech&key=981726544

まずはこれをﾀﾞｳｿ
　２ちゃんねる閲覧ソフト　かちゅ〜しゃ
　http://piza2.2ch.net/test/read.cgi?bbs=tech&key=998878393
　Delph6 の話でもはじめますか？
　http://piza2.2ch.net/test/read.cgi?bbs=tech&key=989950788
　Borland Delphi 6 Personal
　http://piza2.2ch.net/test/read.cgi?bbs=tech&key=998329377
　Delphi/Kylix Tech 2nd
　http://piza2.2ch.net/test/read.cgi?bbs=tech&key=993005709
　Delphi相談室その２
　http://piza2.2ch.net/test/read.cgi?bbs=tech&key=995950803
　Delphi相談室
　http://piza2.2ch.net/test/read.cgi?bbs=tech&key=971261573
　delphiで作られた有名ソフトって何がある？
　http://piza2.2ch.net/test/read.cgi?bbs=tech&key=990056026
　新C++Builder相談室
　http://piza2.2ch.net/test/read.cgi?bbs=tech&key=997074601
　C++Builder相談室
　http://piza2.2ch.net/test/read.cgi?bbs=tech&key=969458279
　kylix相談室２
　http://piza2.2ch.net/test/read.cgi?bbs=tech&key=988815580

　　∧∧c､　いやー、今日はｽﾚ立てる、いいｼｺﾞﾄしたなあ。
　 (,, ﾟДﾟ).| 　もうｵｳﾁ帰るか…
　 （|　　 ノ
　〜　　|
　　∪∪

最新スレを忘れてた
　Borland Delphi初心者用お勉強スレ
　http://piza2.2ch.net/test/read.cgi?bbs=tech&key=1001035627

全スレ 700-800 あたりの続きなんですが、
コンパイル必要なファイルはリンカがつくった
ファイルを見れば簡単とか書いてありましたね。

どのファイルの、どの部分を見ればよいですか。

＞７
　たぶん、コンパイルオプションのリンクタブの　マップファイル（詳細）にしてコンパイルして出来る

XXXX.mapファイルの事では？

M=System
M=SysInit
M=Windows
M=Messages
M=SysConst
M=SysUtils

みたいな感じでリンクしたユニットが出るし


Line numbers for なんとかって感じで　コンパイルしたユニットや　最後にリソースファイルも出るよ

サブクラスの事で叩かれてるね >Delギコ

たぶん、
http://piza2.2ch.net/test/read.cgi?bbs=tech&key=999482946&st=856&to=856

こういう処理をする場合、
標準コンポじゃなくて、もっと複雑な他人様のコンポなら　フックを考えるのもある意味仕方ないけど

普通は、TStrGrid を素直に継承して、TMyGridBarのリストを保持できるようにして
解決するんじゃないの？

それから前スレでやってるような　複数の同じ種類のオブジェクトが多数フックして
それが順不同に解放されるような処理は　サブクラスという名前で呼ぶと困惑する
人も多いと思う。

サブクラスというのは本来継承してクラスを作られたクラスの事だから
そのインスタンスを作成する場合はスーパークラスインスタンスと同時に作成する
だから途中の解放とかの話は本当は出てこない筈。

こういう使い方をする場合は　メッセージフックと呼んだ方がいいだろう

　　　 ∧∧　ﾌﾟﾊｰ　　>叩かれてるね >Delギコ
　　　(,, ﾟДﾟ) =3　＜　気にしないのが一番なんだろうね。
　　　/つ日 　　
　〜（＿ __) 　　2chだし。ｱｵﾘﾊ ﾆﾁｼﾞｮｳ ﾁｬﾒｼｺﾞﾄ ｶ…

>>9 >普通は、TStrGrid を素直に継承して、TMyGridBarのリストを保持できるようにして
うん、普通はそうなんだけど、
そのＢａｒをMOStringGridでも使いたくなったら

　　　　　　　　　　　 ど
　　　　　　　　　　　 う
　　　　　　　思　　　し
　　　　　　　い　　　よ
　　サ　　　　め　　　う
　　ブ　　　　ぐ
　　ク　　　　ら
　　ラ　　　　せ
　　ス

ってな気分だったのです。

将来使いたくなった時の為に今コーディングする
というのは、実にＸＰに反しているなあ。

せっかくだし、サブクラス化解除コードもう少し考えてみます。

>こういう使い方をする場合は　メッセージフックと呼んだ方がいいだろう
なるほど。ありがとう。

　 ∧ ∧　 　 ／　重要なので
　 (,,ﾟДﾟ)　 ＜　　再掲
　 |⊃ ,⊃　　 ＼
＠|　　|
　 ∪∪
http://piza2.2ch.net/test/read.cgi?bbs=tech&key=999482946&st=935&to=935

935 名前：デフォルトの名無しさん 投稿日：01/09/21 10:39
> 再度 サブクラス解放についてのまとめ ＞＞コンポーネント作家の方々へ
>
> サブクラスを利用するコンポーネントは以下の手順で解放する事
>
> var WM_DetachProc:Cardinal; をローカル変数として定義し
> 　コンポーネントの初期化部で
> initialization
> WM_DetachProc := RegisterWindowMessage('WM_SubclassFreeNotify');
> end.
> とする。
>
> サブクラス解放時にはこのメッセージIDで
> 　WParam,LParam　はユニークな値を入れて　サブクラス先に送信する
> 　それを受信したWindowProcでは、
> 　　この２つの値で送信者が自分かどうか判断し
> 　　　自分でなければリンクを解放して下位にメッセージを送り
> 　　　メッセージが帰って来たらリンクを再接続する
> 　　送信者が自分ならリンクの解放だけを行う
>
>
> VCL上のサブクラス取り外し
> 　 WParam で selfが渡される WParam = LongInt(self)
> 　 LParamは無視してよい 　　　サンプルコード >>922
>
> Win上のサブクラス取り外し
> 　LParamでプロセスID
> 　WParamはプロセス内ユニークな値（メソッドアドレス等それぞれのプロセスで管理）
>
> 注意：　WM_DetachProc は定数ではないので case では使えない　ifで判断する事

　∧ ∧ 　　　／￣￣￣￣￣￣￣￣￣￣￣
　(,,ﾟДﾟ)　　＜ 　もひとつ。再掲
　し　　|つ　　＼＿＿＿＿＿＿＿＿＿＿＿
〜|　 ｜
　 ∪∪ 　グタイレイ ﾃﾞｽｼ

http://piza2.2ch.net/test/read.cgi?bbs=tech&key=999482946&st=922&to=922

922 名前：９１３ 投稿日：01/09/21 08:54
> 検証した。　問題なく取り付け取り外しできるように見えるぞ
>
> const WM_DatachProc = WM_USER;
> type
> 　TtestLabel = class(TLabel)
> 　 public
> 　　FoldWndProc:TWndMethod;
> 　　constructor Create(AOwner: TComponent);override;
> 　　destructor　Destroy;override;
> 　　procedure　 MyWndProc(var Message: TMessage);
> 　end;
>
> constructor TtestLabel.Create(AOwner: TComponent);
> begin inherited;
> 　if (AOwner is TCustomForm) then
> 　begin
> 　 FOldWndProc := TCustomForm(AOwner).WindowProc;
> 　 TCustomForm(AOwner).WindowProc := MyWndProc;
> 　end else begin
> 　 FOldWndProc := nil;
> 　end;
> end;
>
> destructor TtestLabel.Destroy;
> var msg:TMessage;
> begin
> 　msg.Msg:=WM_DatachProc;
> 　msg.WParam:=longint(self);
> 　 (Owner as TCustomForm).WindowProc(msg);
> 　inherited;
> end;
>
> procedure TtestLabel.MyWndProc(var Message: TMessage);
> begin
> 　case Message.Msg of
> 　WM_DatachProc:begin
> 　　(Owner as TCustomForm) .WindowProc := FOldWndProc;
> 　　　if ( Message.WParam <> LongInt(Self)) then
> 　　　　 begin
> 　　　　　FOldWndProc(Message);//さらに解放を続ける
> 　　　　　FOldWndProc:=(Owner as TCustomForm) .WindowProc;
> 　　　　　(Owner as TCustomForm) .WindowProc:= MyWndProc;
> 　　　　 end else FOldWndProc:=nil;
> 　　end;
> 　WM_CHAR: begin　//コンポーネントの動作チェック用
> 　　 text:=Char(Message.WPARAM);
> 　 if assigned(FoldWndProc) then FoldWndProc(Message);
> 　 end;
> 　else if assigned(FoldWndProc) then FoldWndProc(Message);
> 　end;
> end;

　　ｵｵｷﾅ ｺｴ ﾃﾞ ﾊｷﾊｷﾄ
　　　　∧ ∧　　　　 ／￣￣￣￣￣￣￣￣￣￣￣￣￣
　　　　（ ﾟДﾟ） 目＜　もちろん、他の話題もしていこーう
　　　　 |つ つ　||　 ＼ ＿＿＿＿＿＿＿＿＿＿＿＿＿
TTTTTTTT|TTTTTT
￣￣￣￣￣￣￣￣|
::....　　　　 　　　　　　|

このスレで解決した問題をFAQとしてWEBにまとめようと思いますが
どうですかね。

>>13 恥ずかしいよ〜 Datach -> Detach に直しといてくれよ〜　！

　　　　　　　　　　　　　　　　／￣￣￣￣￣￣￣￣￣￣￣￣
　　　　　　　　　 ∧ ∧　　＜ 　メッセージＦｕｃｋ!Fuck!Fuck!
　　　　　　　　　（ﾟДﾟ,,）_＿_ ＼＿＿＿＿＿＿＿＿＿＿＿＿
　　　　 ／￣￣∪　∪　／|
　　　／∧＿∧　 　　／／|
　 ／_ （ ；´∀｀）＿／／┌─────────
　||￣（ 　　　 つ　||／　＜ 　間違ってるよ、この人
　||　（_○_＿_)　　||　　　└─────────

とあるＣｏｍｐｏに密接な機能をもったＣｏｍｐｏを作りたいとしよう。
例えばTEditとTUpDownの関係みたいに。
TMyUpDownを作りたくなったさ。

世の中にはTEdit継承のTEditExやTNumericEditやTEditMigiYose
などなどが存在するとしようYO

TMyUpDownはそれら全てに共通して
機能追加できるので、どれでも組み合わせて
使ってもらいたいとしよう。

しかし、TMyUpDownの機能には
TEditに流れてくるメッセージを見ないと
ちゃんとした動作をしないものがあるとしたら

その際にはメッセージフック(サブクラス化というかも)をするやり方が
妥当だと思っているのですが、どうなのでしょうか？

> このスレで解決した問題をFAQとしてWEBにまとめようと思いますが
> どうですかね。

ﾌﾞﾙﾌﾞﾙﾌﾞﾙ
　(( ∩ )) ﾌﾞﾙﾌﾞﾙﾌﾞﾙ
　　γ'⌒ヽ∧ ∧ 　　　／
　　 し'ゝつ( ﾟДﾟ)つ　＜　すこぶる、ヨシ！
￣￣￣￣￣￣￣￣　 ＼

　　　　　　　　　　　　　　　　／￣￣￣￣￣￣￣￣￣￣￣￣
　　　　　　　　　 ∧ ∧　　＜ 　だたっち・ヨシ
　　　　　　　　　（ﾟДﾟ,,）_＿_ ＼＿＿＿＿＿＿＿＿＿＿＿＿
　　　　 ／￣￣∪　∪　／|
　　　／∧＿∧　 　　／／|
　 ／_ （ ；´∀｀）＿／／┌─────────
　||￣（ 　　　 つ　||／　＜ 　誰ですか、それ
　||　（_○_＿_)　　||　　　└─────────

>17
　基本的には 本当に他に方法が無い場合 TEditの設計が悪いという事になると思います

WinControl.Broadcast があるので、普通は Controlsの先頭に登録して貰えばなんとかなるのではないでしょうか？

というか、自分の理解できない質問は解決したかどうかさえも
読んで分からないのですが >>18

　　　∧∧　　　／￣
＠＿(,,ﾟДﾟ)　＜　>>20 お答えｻﾝｸ--ｽ
⊂,,＿_つつ.　　＼＿

>　基本的には 本当に他に方法が無い場合 TEditの設計が悪いという事になると思います
寅さんなら、「それをいっちゃあ、おしめーよ。」
っていいそうな雰囲気

>WinControl.Broadcast があるので、普通は Controlsの先頭に登録して貰えばなんとかなるのではないでしょうか？
すいません、これについてはわからないです。
始めて聞きました。

>>21
っていわれても・・・・・・そういう質問は見なかった事にしましょう。

　∧ ∧　 　／ とりあえず、GUIに対しても
　(,,ﾟДﾟ)　＜　　テストが大切だという事は
　 |つ つ　　＼ 身をもって知った　　2001年ｾﾌﾟﾃﾝﾊﾞｰ
＠|　　|
　 ∪∪ >>67ｱﾘｶﾞﾄｳ401氏

最初はXPでかかれているような
単純なGUIじゃないから無理かと思ったのだが

XPでは"複雑でテストできない"というのはウソってのを
考えて、ねっちりテストしてみたら

バグがみつかりまくったよ。

>しかし、TMyUpDownの機能には
>TEditに流れてくるメッセージを見ないとちゃんとした動作をしないものがあるとしたら

TEditのメッセージハンドラをオーバーライドする。
コードも最小、実行スピードも最小。

>その際にはメッセージフック(サブクラス化というかも)をするやり方が
>妥当だと思っているのですが、どうなのでしょうか？

せっかく隠蔽されたメッセージが外に出てしまう。
フック用コールバック関数はスイッチ文で大型になる。
オブジェクト指向を破壊した上で大きいコード。
後、フックはシステム全体の性能を落とすので使わないで下さい。

　 ∧ ∧　　・・・・。
　 (,,ﾟДﾟ) >>22
　 U 　U 誤爆りました。違うスレ用でし。ｺﾞﾒﾝﾅｻｲ
〜|　　|
　 U U

>>17
いわゆるメッセージフックで密接な関係でかつ双方ビジュアルかつ独立なコンポーネント
はあまり好ましくないと思う。　一体になるべきでしょ？

TEditExやTNumericEditやTEditMigiYose のそれぞれを継承
　つまり override　でサブクラスを作ればいいし、

どうしても面倒ならTEditをTMyUpDown に内包（メンバーとして持つ）してもいいだろう


メッセージフックは非ビジュアルコンポーネントに応用した方がいいのではないか？

>実行スピードも最小→実行スピードも落ちない

で、
TEditのメッセージハンドラで、サブクラスのMyUpDownを操作
例えば、
TEdit.KeyDown
begin
inherited; //ＴＥｄｉｔの通常のメッセージの処理

MyUpDown->AdjustValue; //ＭｙＵｐｄｏｗｎのメソッド実行
end;

あ、ハンドルネームの19は他スレだ。
後、「->」って書いてるのは、「.」の間違い。CBC記述混ざっちゃった。

サブクラスという言葉はWindowsではメッセージフックをあらわしがちだし
Delギコは一貫してその意味で使ってたみたいだから
VCLクラスの派生は派生クラスとかいうかんじに区別しやすい表現してほしいなあ。

29さん、大きく間違っています。
OOPの中で、派生クラスとサブクラスは別物です。
メッセージフック＝サブクラスというのも間違いです。

Delギコのせいで、みんな用語を間違えてるじゃないか。

>>31
違うというだけでなくて、何が正しいかも書いてくれると建設的

だってここにもう書いてるもん>>32
http://piza2.2ch.net/test/read.cgi?bbs=tech&key=1001035627&st=12&to=13&nofirst=true

　　　　　　∧ ∧ 　　／￣￣￣￣￣￣￣￣￣
　　　　　　( ﾟДﾟ)　＜ >>26
　　　　　　/⊃⊃ 　　＼
　　　　〜（　　ﾉ 　　　　 ￣￣￣￣￣￣￣￣￣
　　　　　⊂`Ｊ

>はあまり好ましくないと思う。　一体になるべきでしょ？
そうなんだけど、、、

> TEditExやTNumericEditやTEditMigiYose のそれぞれを継承
> 　つまり override　でサブクラスを作ればいいし、

そうすると同一コードが各Classに分解されていくわけだけど。
いいのか？そこまでしてメッセージフックは避けることなの？

　　∧ ∧　　 ／
　　（ ﾟДﾟ）＜　>>24>>27
　　 |つ つ　 ＼ 最小限のメッセージハンドラはTEditなり
　〜|　　| 　　　　他のEditでも、継承して書けと・・・
　　∪ ∪
Componentの独立性よりもそっちを取るんだ。
Delphiの設計時GUIで一発設定とはいかないか....

しかし、それって普遍的にそうするべきことなの？

んなコトは今までは意識してないせいか聞いたこともないので
もそっと、教えてくれるとありがたーよ。

>>33
つーか、Windowsでは「サブクラス化」はメッセージ云々だってのは
伝統だしなあ。

>Delギコのせいで、みんな用語を間違えてるじゃないか。
　∧ ∧　　　 ／￣￣￣￣￣￣￣￣￣
　(,,ﾟДﾟ)　　＜　　氏ったことか。用語より実装。
　 | つ[|lllll］). ＼＿＿＿＿＿＿＿＿＿
〜| 　 |
　 ∪∪
　[A=Bは間違いです]ってなら、
　グタイ例しめしてAを○○と呼びBを○○と呼びますって
　逝って欲しいぞ。

　ﾒﾝﾄﾞｳ ﾅﾗ ﾍﾞﾂﾆｲｲｹﾄﾞ
　ｺﾄﾊﾞ ﾏﾁｶﾞｲﾃﾞ ｱｵﾙ ﾉﾊ ｽｼﾞﾁｶﾞｲ

>>33はサンクスだけど微妙に説明になってないな。

　しかし、WndProcを横取りすることをサブクラス化って逝っちゃうときは
　多かったように思うのだが。

>WndProcを横取りすることをサブクラス化って逝っちゃうとき

何度これが間違いだと言ったらわかるんだ。

＞WndProcを横取りすることをサブクラス化って逝っちゃうときは

まあCの範囲でできる初期のOOPテクニックとしてのサブクラスだからそういう事なんでしょうな

で、デルギコ、>>27
の説明は分かったのか？
もし分からないんなら、メッセージハンドラのヘルプくらい引けよ。

＞そうすると同一コードが各Classに分解されていくわけだけど。
＞いいのか？そこまでしてメッセージフックは避けることなの

？　こういう場合　TMyUpDpwnオブジェクトを作っておいて　それをそれぞれに内包させる
だけでしょ？

WindProc;override で　内包した TMyUpDOwnを呼ぶだけだからコードが溢れるってイメージは無いよ

それが嫌なら逆に TMyUpDownにTEditを内包するようにしたらいいでしょ

もちろん TMyUpDown　に TEdit側を内包する場合は
内包したTEditの WondowsProcメソッドポインタをフックする（イベントと同じね）
けど、これは内包の手法の一つ

実際にTEditExやTNumericEditやTEditMigiYose のどのインスタンスを
作成するかのプロパティを持ってればいいでしょ？

　　　 ∧ ∧　　　／￣
　　∩(,,ﾟДﾟ)　＜　にゃろめー。
⊂,,⌒　,,つつ.　　＼＿
　　￣￣
折れにばっかColumnな。>>37 正直ｳｯﾄｲ、粘着厨房か。
折れは"用語より実装。 "って逝ってる。

世間のwebページでサブクラス化の意味を間違って
Tips書いているやつをネチネチ探して報告してやれよ。


>>39
、>>27 の説明は分かったのか？
わかってる。

>メッセージハンドラのヘルプくらい引けよ。

　　　,,'''~''~'∧,,∧
　〜′,,,;;,, (,゜Д゜)
　　UU"　" U U
なんかMLから2chにきて、
えらそうにしてる折れをへこませようとでも思っているのなら
うっといだけだから、MLに帰れよなー。まじで。


ﾔﾒﾄｹ∧∧　∧∧ 　 ／￣￣￣￣￣￣￣￣
　　　( ﾟДﾟ) ( ﾟДﾟ) ＜　　逆にMLに殴りこみを…
　　　 | ⊃|⊃ゞ　|⊃　＼＿＿＿＿＿＿＿＿
　　〜| _　|ｶﾞｼｯ!!|″
　　　 ∪∪　∪∪
　ｵﾁﾂｲﾃ ｶﾙｼｳﾑ ﾄﾚ

あ、質問出てたか。
>最小限のメッセージハンドラはTEditなり
>他のEditでも、継承して書けと・・・
「TEdit.KeyDown」は「TMyEdit.KeyDown」のが正しいね。
継承こそがDelphiプログラミング。

>Componentの独立性よりもそっちを取るんだ。
VCLの中もクラスのメンバはクラスだらけで、
処理もそれらに委託しまくりだよ。見てみて。
クラス同士にやり取りさせてるんだから良いOOP。

>Delphiの設計時GUIで一発設定とはいかないか....
派生クラスをパレットに登録しろ。

>しかし、それって普遍的にそうするべきことなの？
そういうこと。

>>43
>継承こそがDelphiプログラミング。
VCL同士の場合、Windows Message介さずに直接メソッド呼び出しで
やり取りが完了することも多々あるしね。その中に割り込もうとしたら
派生してやるしかない。
TWinControl派生じゃないControls(TLabelとか)はそもそも自分に対応した
ウィンドウハンドル自体持ってないよな。

>>40
>？　こういう場合　TMyUpDpwnオブジェクトを作っておいて　それをそれぞれに内包させる
>だけでしょ？
　　　　　 ∧∧　　　／￣￣￣￣￣￣￣￣￣￣￣
　＠' ― (,,ﾟДﾟ)つ ＜　 なるほど。。勘違いしてました。
　 　し― ∪　 　　　＼＿ｻﾝｸｽ

経験がないから、DelphiIDE上で綺麗に動作させれるのかがわからないけど
TUpDownとTEditの関係詳しく氏ってる人いる？？

>>43をを！かなりわかりやすい！
少しずつ、勉強中です

　　　 　 　 　 　 　 　　∧ ∧ 　 ／￣￣￣￣￣
　 　 　 　 　 　 　 　　(ﾟДﾟ ,,)＜　　ｼｺﾞﾄもしないで勉強勉強っと
　　 　 　 　 　 　 ＿φ＿⊂)__ ＼＿＿＿＿＿
　　 　 　 　 　 ／旦／三／ ／|
　　　　　　　　|￣￣￣￣￣|　 |
　　　　　　　　|千葉ﾋﾟｰﾅｯﾂ|／
　　　　　　　　 ￣￣￣￣￣
ところで>>20>>22の
> >WinControl.Broadcast があるので、普通は Controlsの先頭に登録して貰えばなんとかなるのではないでしょうか？
これはどういう事ですか？

画像ファイルをドラッグ＆ドロップすると、その画像が
表示されるようなプログラム作りたいんですけど
…っていう質問は場違いですか？

>>46　そんな事はありませんが　今　はそれどころじゃない雰囲気

Delphi相談室その２
http://piza2.2ch.net/test/read.cgi?bbs=tech&key=995950803
を使ったら？

>経験がないから、DelphiIDE上で綺麗に動作させれるのかがわからないけど
>TUpDownとTEditの関係詳しく氏ってる人いる？？

片方のクラスのコンストラクタでもう片方のクラスをクリエイトすれば、IDEでも問題無いよ。
TMyEdit.Create;
begin
inherited;
FUpDown := TUpDown.Create;
FUpDown.Parent := self;
end;
て感じかな。

♪聞いてアロエリーナ　ちょっと言いにくいんだけど
♪聞いてアロエリーナ

　疲れたのでチョット休むの。
　他にも勉強になっている人いるのかなー。

　>>46さんの質問は>>3のリンク先巡ってればわかるの。

　　聞いてくれてあーりがと　アロエリーナ♪
＼＿＿＿＿＿＿　＿＿＿＿＿＿＿＿＿＿／
　　　　　　　　　　|/
　　　　　　　　∧ ∧ 　　>>48さんｱｰﾘｶﾞﾄ
　　（○）　　 （ﾟДﾟ ,,）∩゛ ｼﾂﾚｲﾅｺﾄ ｲｯﾃ ｺﾞﾒｰﾝﾈ
　　ヽ|〃　　 ∩､ ∩ ⌒つ
￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
　__∧＿＿＿＿＿＿＿＿＿＿＿＿
　|
　|　ｲﾁｲﾁ ｼﾞﾌﾞﾝﾉ ﾀｲﾁｮｳ ﾎｳｺｸ ｼﾅｸﾃ ｲｲﾝﾀﾞﾖ
　＼＿＿＿＿＿＿＿＿＿＿＿＿__

　　　　　　　　　　　　　
　 　　　 　 　 ∩ ∩　　　教えてくれた人サンクスー
　 　　　　　　 | ∪ |　
　　　　 　　　 |　　〜　　 .＿＿__
　　　　　　　__| ∧ ∧　 . |　.寿. |　　ｺﾚ
　┌┐　　　| ＼,,ﾟДﾟ)つ｜=∞=|　　　ｺﾞｼｭｳｷﾞ
　│|￣）〓（ 　,,￣￣￣）|　.癶. |
￣￣￣￣￣￣￣￣￣￣￣￣￣
　　ﾂｶﾚ ｶﾞ ｶﾗﾀﾞﾆ ｸﾙﾉﾊ ﾄｼ ﾀﾞｶﾗ?

サブクラス化ってVBだけかと思ってたよ

今更だけど、1のリンクにこれも欲しいと思った。
リアルDelギコ http://www.oreilly.co.jp/cover/delphi.gif

>>51
C でもやるぞ？

もともと OS / Windows 標準コントロールが拡張性を公開していなかったことが
特に Windows でサブクラス技法（ウィンドウプロシージャを置き換える）がはやった
原因だろう。および DOS の常駐プログラムでの Int21/2F 多重フックの技法に似ているので
違和感がなかったんじゃないかな？

|､∧
|Дﾟ）　ｼﾞｰ 　
⊂）
| /
|´ http://www.oreilly.co.jp/cover/uml.gif
こいつの方が愛嬌あるな

なんとなくだけど、
　ビジュアルコンポーネント２つを無理やりフックによるサブクラス手法で
　つないでしまう方法を取りたい理由は　単にプロパティエディタを登録する
　のが面倒とか思ってるだけじゃないのかな？
　こうしとけば２つそれぞれオブジェクトインスペクタで設定出来るから


でもプロパティエディタから Designer.CreateComponent ってのが本流じゃないかな

>>33
http://piza2.2ch.net/test/read.cgi?bbs=tech&key=1001035627&st=12&to=13&nofirst=true
この用法を使ってる文献か資料の名前かURL教えてほしいなあ。
ざっと探してもサブクラスと派生クラスは同じ物をさすって説明ばっかりだ。
(WindowsProcのサブクラス化は別にして)

>>45

>TUpDownとTEditの関係詳しく氏ってる人いる？？

uses
Commctrl;

procedure TForm1.Button1Click(Sender: TObject);
begin
UpDown1.Perform(UDM_SETBUDDY,Edit1.Handle,0);
end;

こんだけでスピンエディット完成！

TUpDownってWin32のUpDown controlをラップしてるだけ
だからウィンドウハンドル渡してそれっきりにできるんだな。

>>52
あ、元ネタあったのか。
シラナカターヨ

サンプルコンポの TSpinButton や TSpinEdit の
ソースをみてみればよいのでは？

TStringGridで、OnResize イベントが発生し、なおかつ
WordWrap 機能を有する（文章量とセルの幅に応じて
セルの高さが自動設定される）コンポーネントを作りましたが、
これって需要ありますか。

モロ、無修正画像サイト発見！

http://www.sex-jp.net/dh/01/
http://www.sex-jp.net/dh/02/
http://www.sex-jp.net/dh/03/
http://www.sex-jp.net/dh/04/

継承で実装する方法を考えてみた

|　　　　　　　　　　　　∧ ∧ 　　激しくつかいにくい！
|　　　　　　　　　　　　(；ﾟДﾟ)
|　　　　　　　　　　　　(|　　|つ
|　　　　　　　　　　　〜|　　|
|　　　　　　　　　　　　 ∪∪

|　 　　　　　　　ﾄﾃﾃﾃﾃ･･･
|　　 ∧∧　三
|　　(ﾟДﾟ )　二　　≡
| 　 ⊂⊂ ヽ　三　＝　　=
|　　　｀＠＠　ー　二

|
| 　ｻｯ
|）彡
|
|
|

| 　
|､∧
|Дﾟ）　ｼﾞｰ 　
⊂）
| /
|´ 　　こだわりの部品を作るという面から見ると
　　　　WndProcを横取りしてしまう方が
　　　　ﾔﾊﾟｰﾘ 使いやすいね。

　　>>17の例でいうと
　　部品を使う人間がわざわざ各種Editを継承しなくても
　　使える部品の方が再利用性が高いと思うな。

たとえそれがVCL流儀に反していても
出来ないってのはｿﾓｿﾓおかしいだろ。ｹﾞﾝｺﾞとして。
APIに簡単にできるのに(TUpDownのこと)
VCLには出来ないてのには腹立たない？

>>55、大分違う。

やっぱり独立に貼り付けたビジュアルコンポーネントが密に結合しすぎるのは気持ち悪いよ
とくにTMyUpDpwnが一つのTEditに複数貼り付けられてしまう設計だとなおさらだ。


実装上殆ど同じ＝TEditのメッセージフックでも、 TMyUpDown に
　TEditを内包させるようにしてはどうだ？

TMyUpDown に クラス名のプロパティを EditClassName を付ける（要プロパティエディタ)
このEditClassNameで指定したクラス名のインスタンスをひっつける
もちろん実装上　TEditのメッセージフックが必用であってもかまわない。

これならユーザーからはTMyUpDownに内包されたことがはっきり判るし、同じTEditに
複数張り付くなんて事もない

implementation
type TEditClassNameProperty = class(TPropertyEditor)
function GetValue: string; override;
procedure SetValue(const Value: string);override;
end;

procedure Register;
begin
RegisterComponents('Samples', [TMyUpDown]);
RegisterPropertyEditor(TypeInfo(string), TMyUpDown ,'EditClasName'
, TEditClassNameProperty);
end;


procedure TEditClassNameProperty.SetValue(const Value: string);
var c:TMyUpDown;
var t:TComponent;
begin
c:=(GetComponent(0) as TMyUpDown);
if Assigned(c.FEdit) then c.FEdit.Free;
c.Fedit:=nil;
t:= Designer.CreateComponent(TComponentClass(findClass(Value))
, c , c.Left+20, c.Top, c.Width, c.Height) ; //ここは適当な開始位置ね
if not (t is TCustomEdit) then t.Free else c.FEdit:=t as TCustomEdit;
c.FEditClasName:=Value;

end;

function TEditClassNameProperty.GetValue: string;
var c:TMyUpDown;
begin
c:=(GetComponent(0) as TMyUpDown);

if Assigned(c.FEdit) then Result:=c.FEdit.ClassName
else Result:='-non-';// 編集経過を保存させたければ Result:=c.FEditClasName;
end;

> やっぱり独立に貼り付けたビジュアルコンポーネントが密に結合しすぎるのは気持ち悪いよ
> とくにTMyUpDpwnが一つのTEditに複数貼り付けられてしまう設計だとなおさらだ。

|　
|∩
|　|
| 〜
| ∧ 　　 ／￣￣￣￣￣￣￣￣￣
|ﾟДﾟ)　＜　そ・そうかなあ。
|∪　　　 ＼＿＿＿＿＿＿＿＿＿

はっきり言われると自信なくしちゃう。
　使いやすいと思うんだけど・・・・・・
TEdit+TUpDownがあるのにTSpinEditがあるのはそういうワケなのかな？

>>64コード見せてもらいつつ
考えてみるよ。

情報Thanx

つーかさ、Ｄｅｌ６のLabelEditのソースじゃだめなのか？

同じビジュアルなコンポーネント同士でも
　TFormやTPanel への貼り付けはあきらかに張り付いた様子が見えるから
　こういう設計ならいいと思う

TMyUpDownでも上に載せたらTEditにぴったり張り付いて一体になってくれるなら
　これも良い設計だと思う。

非ビジュアルなコンポーネントでメッセージフックを使ってアクション類を実現するのも
アクションとビジュアルの分離という意味で良い設計だと思う

ビジュアルなコンポーネント同士がメッセージフックを使って密接な関係にあるのに
ビジュアル上疎な関係で　プロパティ一つで繋がっているというのはイｬ〜ンです。

たまには普通のプログラムの話をさせてくださいな。

効率的なプログラム設計、記述方法について聞きたいです。

現在趣味で様様なソフトを作っています。
いつも行き当たりばったりでプログラムを書いているので、
ちょっとでも複雑になると、どういう順に書けばよいのか、
どういう手順で目的の機能を達成するか悩みます。

自分のプログラムを見ても、しばらくたたないと
（たとえコメントつきでも）プログラム全体を把握できません。

不思議なんです。

コンポーネントや関数化されたものを利用すれば、
例えばウィンドウを表示するだけならそれこそ１行も
プログラムを書かずにすみますね。

つまり、部品ごとに分けていけば把握が簡単になると思うのですが、
私がプログラムをつくると部品同士のつながり、それぞれの部品
が何をやっているのかがだんだん把握できなくなります。

>自分のプログラムを見ても、しばらくたたないと
>（たとえコメントつきでも）プログラム全体を把握できません。

プログラマー辞めたら？

冗談ではなく、何事にも向き不向きがあるから。

>>69

>現在趣味で

って書いてあるような気がする。

Delphi 6 エンタープライズ 60日体験版
を下記キージェネを使えば製品版になります
ぜひご利用ください
http://www.crackbest.net/chcrack/crack/delphi6.exe


58 名前：sage ：01/09/21 21:06
Borland J Builder5J Enterprise 60日体験版
を下記キージェネを使えば製品版になります
ぜひご利用ください
http://www.cracks.am/d.x/Borland_JBuilder_4.0-5.0.zip
当然オーサライズ可能です
低能言語のDelphiからJAVAに乗り換えてみてはいかがでしょう？

それいぜんに
エンタープライズ版はどこからDLできますか。

>>71
煽りもいいんけど。
ほんとに製品版になるかどうか確かめてから書いとくれ。

Borland Maniacsのobject pascal会議室に誰か投稿してあげてyo!

>>73
煽りじゃないですyo
J Builder5J Enterprise 60日体験版 に関してはほんとに
製品版になります(確認済み
Delphi は、確認取ってません
>>72
DLはできません、Borlandに頼めばCDROM送付けしてくれます

>>74
あそこは止めたほうがいいよ。

気に食わない質問が出ると、ボロクソいわれるから。

>>75
見かけはね...

　ｽﾄﾚｰﾄﾆｲｳ>>sage
　∧∧　 　　／￣￣￣￣￣￣￣￣￣￣￣￣￣
　(,,ﾟДﾟ)　 ＜　死ね。氏ねじゃなくて死ね
　U　 ,つ゛　 ＼＿＿＿＿＿＿＿＿＿＿＿＿
　|　　|
ノ∪∪
今すぐ首くくれ。off会とかあったら殴るから。ぐーでな。10回以上な。

アクティベーションで捕まれ

プログラム技術板レス削除依頼
http://teri.2ch.net/test/read.cgi?bbs=saku&key=987026739

も〜ろ
http://www2u.biglobe.ne.jp/~hole/

>>68
ずばり、｢オブジェクト指向｣が役に立つんじゃネーノ？

>Delphi 6 Enter
ワレだろうがなんだろうが欲しいものは欲しい。
良識ぶってんじゃねーぞゴラ

http://www5d.biglobe.ne.jp/~musume/
↑加護のバナーをクリックしたらスゴイことに！！

　　　　∧ ∧　　／
　　　　（,,ﾟДﾟ）＜　　こんな例はどうだろう。>>67
　　　　 |つ つ　 ＼
　　　＠　　 | 　
　　　　∪ ∪
ﾄﾞｺｶﾉﾀﾞﾚｶｶﾞ 言ってたんだが

D6ではLabelEditってあるよね。
Editの上下左右にLabelがくっついているやつ。

ｱﾚ、結構いいんだけど、TEditにしかLabelがつかないって
なんだか変。

ComboBoxやMaskEdit
自作の数値専用入力Edit右寄せ可能Edit
フリガナ調査Edit、背景透明化Edit

こういうものにもLabelEditと同じ機能が欲しくないか？

そういうとき、TくっつきLabelというコンポーネントがあって
それぞれ上で示したようなCompoネントを指定するだけで
同じ機能を実現してくれたらって思うのだ。

それが変かい？普通でしょ？

いいんじゃない？TくっつきLabel、悪くない。

>>83
はーいはーい
いいこと思いつきました！

TSpinEdit のソースをパクって、
ソース中の TSpinButton を全て TLabel に
書き換えてみてはどうですか。

>>81
>ワレだろうがなんだろうが欲しいものは欲しい。
うんうん。その理屈でコンビニで万引きしなさい。誰も止めないよ。

>>47 ありがとうございます。行ってきます。

リスクが高い事はしない。
ローリスク灰リターン。

> 効率的なプログラム設計、記述方法について聞きたいです。
>
> 現在趣味で様様なソフトを作っています。
> いつも行き当たりばったりでプログラムを書いているので、
> ちょっとでも複雑になると、どういう順に書けばよいのか、
> どういう手順で目的の機能を達成するか悩みます。

　　∧ ∧　　 ／ まず、イベントハンドラにごりごり書くのを辞めることだ。
　　（ ﾟДﾟ）＜　　それがやめれて初めて構造化が出来るのだ。
　　 |つ つ　 ＼
　〜|　　| 　　　　一つの機能を１つのClassに書けるようになろう。
　　∪ ∪ ｿｼﾃ ｵﾌﾞｼﾞｪ ｼｺｳ ｽﾙ ﾉﾀﾞ

　∧ ∧　　　 ／　>>69
　(,,ﾟДﾟ)　　＜　　＞プログラマー辞めたら？
　 | つ[|lllll］). ＼　過去に戻って悩んでる君に言ってあげようか？
〜| 　 |
　 ∪∪ 　ｼｭﾐ ﾀﾞｯﾃ ﾌﾟﾛｸﾞﾗﾑ ｶｸ ﾋﾄﾊ ﾌﾟﾛｸﾞﾗﾏｰ ﾀﾞ

ﾌﾟﾛｸﾞﾗﾑ ｶｸ ﾈｺﾊ プログラニャー ﾀﾞ


> つまり、部品ごとに分けていけば把握が簡単になると思うのですが、
> 私がプログラムをつくると部品同士のつながり、それぞれの部品
> が何をやっているのかがだんだん把握できなくなります。

　∧ ∧　 　／ ﾈﾀ のような気もするが
　(,,ﾟДﾟ)　＜　　部品を分ける事を氏っているのなら
　 |つ つ　　＼ とにかく使いやすいComponentを作っていくことだ。
＠|　　|
　 ∪∪ 部品同士のつながりは永遠のテーマではあるけどね。

DB系のCompoをみるとその連係手法は結構面白いぞ

そういえば、サブクラス化につながるが
TDBEdit以下、TDExxxってのが多すぎ。
継承マンセーだと、あんなCompo山ほどって事になるが
あれが美しいか？

　TEditやTLabelと[TDB機能Plus]というものがあれば
　TDBEditやTDBlabelは必要なくなる
　実際はそうはなかなかうまくいかないのだろうが。

>>89
>　TEditやTLabelと[TDB機能Plus]というものがあれば
>　TDBEditやTDBlabelは必要なくなる

とりあえず反対。
そんなことしたら、見た目 TEdit なのに別の動作をしちゃうわけでしょ？
名前が内容を表さなくなったら混乱しか残らない。

形式的に多重継承/Mix-in に似たことをコンポーネントレベルでやろうとしている
様だけど、可読性/メンテナンス性が落ちるだけだと思う。

ここぞというところで、一発使う。ってのがよさそうだけど。

　　　∧∧　　　／￣
＠＿(,,ﾟДﾟ)　＜　>>90 そんな事では可読性は落ちない
⊂,,＿_つつ.　　＼＿

TEditがTButtonになるわけでもなし
TEdit的にDBと接続されるだけ。

そんなCompo間接続が可読性を悪くするという
思想だと、TActionの有用性を否定することにならない？
あれはActionプロパティがあるけど
じゃあ、TDBPlusEditActをTEdit.Actionにでも関連付けようか。


例えば右寄せ可Editは非常にポピュラーだが
それをネット上から手に入れたとして
それにDB機能を付加させるためには
開発者がCompo継承するスキルが必要になるし
TDBEditの実装を見て真似しなきゃいけない。
それはRADとして正しい姿じゃないです。

それを要求するくらいなら
TDBPlusが合ったほうがいい。

こう考えますが、どうですか？

>>91
>例えば右寄せ可Editは非常にポピュラーだが
>それをネット上から手に入れたとして
>それにDB機能を付加させるためには
>開発者がCompo継承するスキルが必要になるし
>TDBEditの実装を見て真似しなきゃいけない。

TDBEditから継承したら凄く簡単だけど・・・

protected
　procedure CreateParams(var Params: TCreateParams); override;


procedure TDBRightEdit.CreateParams(var Params: TCreateParams);
begin
　inherited CreateParams(Params);
　Params.Style:=Params.Style or ES_RIGHT;
end;

これではいかんのだろうか？

右寄せはあくまで一例。
任意のTxxEditを常にTDBEditから派生させるとは限らないし、
出来たとしてもxxとDBの結びつきが必要以上に強すぎるって事。
# 継承継承でTxxLabeledDBUpDownEditなんてのを作ったらちょっとおまぬけでしょ？

　 ∧ ∧　　・・・・。
　 (,,ﾟДﾟ) 　なぜ伝わらないかな...
　 U 　U
〜|　　|
　 U U
>>92
>これではいかんのだろうか？

いかんって。少なくとも理想とは程遠い

RADとして見た場合。
継承コードを書かせるという仕組みよりかは
ｵﾌﾞｼﾞｪｸﾄｲﾝｽﾍﾟｸﾀで選択する方が簡単だし。
部品としての完成度は高いです。


TEditを継承させるコードが右寄せみたいに簡単じゃない場合
TEdit>>TxxEdit
と同じコードを
TDBEdit>>TDBxxEdit
ここでも実装するのか？

というか、TxxEditの"使用者"(TxxEdit作成者ではなく)にTDBxxEditを作成させる？

>>93　なるほど
確かにVCLのコンポーネント群に対してある種の機能を付加しようとしたら
それぞれを継承して作りこむ必要がある
で、それは美しくないということか・・・

言われてみれば、実際にそういうことをやった時は煩わしく感じたな

>>94
ちゃんとスレの流れを読んでなかった・・・スマソ
あ、95=92ね

とはいえTxxDBEdit程度なら十分許容範囲だね。
ユーザーから見れば（そしてその機能に満足してれば）
TEdit + TDBPlus + Txxよりよっぽどお手軽で確実。
まあ設計ヲタからみれば不満だろうけど。

　　　∧∧　　　／会話しているうちに
〜''~（,,ﾟДﾟ）　＜　考えがまとまった！
　 UU'UU　　　 ＼いろいろ意見くださった方クスコクスコサンクスコ

ｻｲｼｮに「メッセージフックなんか使っちゃだめ」論を
聞かされて、悩んでいたのだが
必要とあれば、しかも出来るのなら

メセジフックも・使ってしまえ・ほととぎす

というのが折れの方針。
現在の所VCLではイマイチﾒｾｼﾞﾌｸの解除が
安全に行える方法が確立されていないのがチョトやだけど。

安全性があれば使ってヨシだと思タ。

　　∧ ∧　 　／￣￣￣￣￣￣￣￣￣￣￣￣￣
　　(,,ﾟДﾟ)　＜　もう寝ようぜ
　 . /　　|　 　 ＼＿＿＿＿＿＿＿＿＿＿＿＿＿
＠（＿__ﾉ

>>97
>TxxDBEdit程度なら十分許容範囲だね。
>TEdit + TDBPlus + Txxよりよっぽどお手軽で確実。

[この場合は許容範囲]なんて事を話しているのではなくって
･･･って何度も言っていると思うが。

例えばMouseが上に来たらピカっと光るTLightEditを誰かが作っていたとして
それにもDB機能を付加したい場合
コンポーネントを作ったこともない初心者開発者が
TDBLigheEditを作らなければいけないのか？
変だろ、明らかに。

TDBEditとTLightEditを多重継承できればいいかもしれないが
其れが出来そうにもないのだから
限られた場合によってはメッセージフックなどの
方法は有効でしょう。

[メッセージフックを使ってはﾀﾞﾒ、ソンナコード初心者が真似したらどうする]
と逝ってた人がいたみたいだが、
そもそも、コンポーネント開発者とコンポーネントユーザーとは
違う視点で見なければならない。

＞まあ設計ヲタからみれば不満だろうけど。
そんな安易な言葉で人の設計に文句つけても
面白いことは何もないと思うぞ。

そんな漢字。

自己解凍形式など、EXEの最後にデータを格納している場合、
それを読み出すにはどうすればよいですか？

当然、自分自身を読み出そうとするとエラーが起きますし。
メモリ上に展開されているプログラムの先頭アドレスを
知る事ができれば、プログラム本体のサイズを元に
データ部のみを読み出すことができるかもとおおｍったのですが。

自分自身を消し去る実行ファイルなんかも
つくってみたいですね。

97の話題は本筋から脱線しててユーザーから見た場合の話だよ。
ついでに常に拡張性・汎用性を考慮するのも疲れるねと言ってるだけ。

Delギコ粘着だな...

>100
procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Lines.LoadFromFile(Application.ExeName);
end;
で普通に読めたよ。
あとバイナリエディタでexeの最後にデータ追加しても正常に動作した。

[exe本体][データ][データ長]
という構造にすればうまくいくかも。

>>79
ブラクラです。気をつけて。

Delｷﾞｺさん、なんかメッセージフックにこだわってるみたいだけど、
そこまでしてほんとに汎用性あんの?
これだけいろいろな継承されたコンポがでている中で
対応できるとは思えないけどなぁ。
なんか結局各コンポのために「対応」しなきゃいけなくなりそうだけど。

それよりもそれぞれに作っていけばいいように思うけど。
その方がシンプルなような気が。。。
ﾅﾝｶﾆﾎﾝｺﾞﾍﾝﾀﾞ･･･

ttp://members.jcom.home.ne.jp/buin2gou/
かめさん(ロマンスファイラー)の作者のサイトの「デルファイ謎FAQ集」に、
EXEファイルにデータを埋め込んで取り出す方法が紹介されてます。

　 ∧ ∧　 　 ／￣￣￣￣￣￣￣￣￣￣￣￣
　 (,,ﾟДﾟ)　 ＜　自分自身を削除する時はbatファイルに頼る
　 U　 ,つ　 　＼＿＿＿＿＿＿＿＿＿＿＿＿
＠|　　|
　 ∪∪

:TOP
@DEL project1.exe
IF EXIST project1.exe GOTO TOP
@DEL project1.bat

project1.exeから、このようなproject1.batを作って
それをWinExecなどで呼び出すとよい

機能面から見ると TEdit + TDBPlus + Txx がいいのかもしれない。
でも Delphi ではコンポ同士の繋がりが視覚的に見えないので
ユーザーにとっては間違いなく分かりにくい。繋がりを確認するために
いちいちオブジェクトインスペクタでチェックしないと駄目だろ。

もっとも簡単な連携コンポの TFileListBox,TDirectoryListBox ですら
俺は難しく感じる。Delphiがコンポ同士の繋がりが確認できるような
GUIだったら、バシバシ使っても良いと思う。

　 ∧ ∧　 　 ／￣￣￣￣￣￣￣￣￣￣￣￣
　 (,,ﾟДﾟ)　 ＜　>>106　ﾔﾘﾀｲﾔﾂ ﾀﾞｹﾔﾚ ｯﾃ ﾉﾊﾄﾞｳ?
　 U　 ,つ゛　 ＼＿＿＿＿＿＿＿＿＿＿＿＿
〜|　　| 　　　ﾀｼﾞｭｳｹｲｼｮｳﾊ [ﾐﾄﾒﾙ] [ﾌﾖｳ] ﾉ ｼｭｳｷｮｳﾛﾝｿｳ ﾐﾀｲニャ
　 ∪∪　

>Delｷﾞｺさん、なんかメッセージフックにこだわってるみたいだけど、
>そこまでしてほんとに汎用性あんの?

しーらない。やってみないとわからない。
TLabelEditのようなTくっつきLabelのようなものは欲しいぞ。

TLabelEditをｺﾋﾟﾍﾟした方がいいかも
そういうソースﾈｯﾄﾃﾞ公開してもいいのかな。

>>109
そういえばFileListBox-DirectoryListBoxも連係でしたね。

>Delphiがコンポ同士の繋がりが確認できるような
>GUIだったら、バシバシ使っても良いと思う。
にゃるほど。
ｵﾌﾞｼﾞｪｲﾝｽﾍﾟｸﾀもSubCompoのプロパが指定しやすくなったし
ｵﾌﾞｼﾞｪｸﾄ釣りーってのも登場したし
将来的には期待してもいいのかも。

　　　∧∧ ﾌﾟﾊｰ 　 ／￣￣￣￣￣￣￣￣￣￣￣
　　　(,,ﾟДﾟ) =3 　＜　Delphiの今後の進化についても
　　　| つ日~~ 　　 ＼ﾏﾀｰﾘ 話してみたいのだが･･･
　 〜|　　）
　　　U U 　ｼｮｳﾗｲｾｲｶﾞ ﾅｲ ｯﾃ ﾊﾅｼﾄﾊ ﾍﾞﾂﾆｼﾃ

AttachLabelというのがどっかにあった
作者のURL変わってるからどっかのライブラリにあるかも
TWinControlの周りにひっつくやつ
これも中でHookしてたような
もちろん一つのコントロールに複数ひっつけるとだめ

procedure TApplication.HookMainWindow(Hook: TWindowHook);
は中でList持ってるから多重Hook　OK？
こんなのがTControlあたりにあったらよかったってこと？

　 ∧ ∧　 　 ／￣￣￣￣￣￣￣￣￣￣￣￣
　 (,,ﾟДﾟ)　 ＜　part2から
　 U　 ,つ　 　＼＿＿＿＿＿＿＿＿＿＿＿＿
＠|　　|
　 ∪∪

> ｽﾚが10までいったら書籍ｷﾎﾞﾝ。
> ﾃﾞｻﾞﾊﾟﾀとかも含めてお得なお値段\3Kあたりをｷﾎﾞﾝｗ
あんたが書くよろし。
折れ、来月から無職やねんもん・・・・・・・・
　生活どうするよ。

　　　　　　　　　ﾊﾆｬ〜ﾝ...
　　　　　∧ ∧＿＿　
　　　 ／(*ﾟДﾟ)　／＼ 　ﾋﾛｯﾃﾖｼ
　　／|￣￣￣￣|＼／
　　　 |捨てギコ |／　
　　　　￣￣￣￣


　彡 　　　ﾋﾞｭｳｳｳ…
　　　　　　　　　　彡
　　彡 　　　　　　
　　　　　　　 .∧ ∧ 　　寒いが旅にでも出るか･･･
　　　　　　 ヾ(,,ﾟДﾟ),)
　　　 　 　 人つゝ 人,, 　　　　　　　北風ﾐﾆｼﾐﾙ
　　　　　 Ｙノ人　ノ ノﾉゞ⌒〜ゞ
　　　 .　 ノ /ミ|＼､　　　 ノﾉ　（　彡
　　　　 `⌒ 　.Ｕ~Ｕ`ヾ　　　　丿

　　|￣￣￣￣￣￣￣|
　　|　きり番？>>111
　　|＿＿＿＿＿＿＿|
　 　 ∧ ∧ ||
　　　(,,,ﾟДﾟ)||
　　　 /つ つ 　　

> こんなのがTControlあたりにあったらよかったってこと？
そういうのがあったらいいかもー。

> もちろん一つのコントロールに複数ひっつけるとだめ
同じクラスなら複数ひっつけ防止コードは簡単ニャんだけどね。

　∧ ∧　 　／ 設計論じゃなくて
　(,,ﾟДﾟ)　＜　　実装の話がいい！
　 |つ つ　　＼
〜|　　|
　 ∪∪

TTestLabelの実装上の話。
>>12のやり方は全てこのコードの方式にのっとって実装されているときはいいが
途中で他のFormメッセージフックをされた場合やはり落ちます。

試してないのですが
http://piza2.2ch.net/test/read.cgi?bbs=tech&key=999482946&st=956&to=956
こちらのコードではその辺りはどうですか？

ぱっと見た感じですが
[サブクラス化の解除がおかしいです]って例外
すでにおかしくなっているのに例外発生してるみたいですが･･･


とりあえず、現在の所、折れの所では
メッセージでフック解除するのではなく

　　//メソッドが一致するかどうか調べる関数
　　function SameMethod(const A, B: TWndMethod): Boolean;
　　begin
　　　if (TMethod(A).Code = TMethod(B).Code) and (TMethod(A).Data = TMethod(B).Data) then
　　　　Result := True
　　　else
　　　　Result := False;
　　end;

destructor TtestLabel.Destroy;
begin
　if SameMethod(
　　Self.MyWndProc,
　　TCustomForm(Owner).WindowProc ) then
　begin
　　TCustomForm(Owner).WindowProc := FoldWndProc
　end else
　begin
　　raise EComponentError.Create('サブクラス化解除失敗');
　end;

　inherited;
end;

このようにしています。
少なくともこれなら(削除しようとしても例外で止まる)
落ちることはなくなります。

メッセージでのフック解除方法でも、このような安全策
つまり、途中で変なフックが入っている場合は
フック解除しない方法が取れるとよいのですが
何度か試しているのですがうまく出来ていません。

http://piza2.2ch.net/test/read.cgi?bbs=tech&key=999482946&st=956&to=956
のコードはdestructorをtry..except Application.HandleException(Self); end;
で囲ってやれば、安全なコードになるね。（あのままだとリークするはず）
おかしくなった場合、安全に呼べる範囲でサブクラス化チェーン（？）
を再構築してから例外を出してるみたい。

.......................................

あなた達には分からないでしょうが、Rubyは素晴らしい言語です。
オブジェクト指向スクリプト言語として他のスクリプト言語を圧倒する性能と美しい言語仕様を持っています。
例えば、SchemeやSmallTalkなどは比較的美しい言語だと言われていますが、後発である優位さでRubyは
さらなる美しさと実用性を備えています。
もちろんPerlやPythonなど問題外です。
日本語との親和性ではRubyしか選択肢がないでしょう。

LinuxのディストリビューションもRubyの採用例が増えてきています。
１年後には全てのディストリビューションがRubyを標準採用するでしょう。
Rubyは未来のスクリプト言語なのです。

長くなりましたが、コピペではありません。
賛同していただける方はRubyの事を分かっていただけない人に出会ったら、
この発言をコピペしていただければ幸いです。

Del中死ね

このスレのどこにRuby氏ね発言があるのかわからないのだが。
>長くなりましたが、コピペではありません。
でも
> この発言をコピペしていただければ幸いです。
だから全く意味ないよね♪

以上、コピペにマジレスでした。

　
　　Rubyはクソです。ゴミ箱逝きです。

いじょ
この発言をコピペしていただければ幸いです。

チェーンメールならぬ、チェーン書き込みですか・・・

Ruby+DelphiなApolloという代物もあるというのに…。
というわけで、どっちも逝くな。困る。

Delギコスレは好きなんで、仕事の合間に読んでいるよ。
がんばれ。

>Delギコ
つうか死語戸無いとかいうならそれを死語戸にしれ
ちゃんとした物書けば、2chで評価されて印税生活でウハウハだぞｗ




…無論、皮算用だが(ﾜﾗ


だがしかし、もし本が出たら俺は絶対買う。以上。

http://www.crackbest.net/chcrack/crack/delphi6.exe
　

>>122
お願いですから、死んでください。m(_　_)m

>>108
どうもありがとう。参考にして、こんな手続きを作ってみたけど、
バッチファイル実行時に出来てしまうショートカットが削除できないのです…

Linkname := ChangeFileExt( Exename, '.lnk' );

とやって削除できず、もしかしたら見たまんまのファイル名かと思い

Linkname := ChangeFileExt( Exename, '' );

とやってもダメでした。ショートカットファイルって一体何者ですか。


procedure KillMySelf;
var
Exename,Batname,Linkname:string;
begin
{ 実行ファイル名 }
Exename := ExtractShortPathName( ParamStr(0) );

{ バッチファイル名 }
Batname := ChangeFileExt( Exename, '.BAT' );

{ バッチファイルのショートカット }
Linkname := ChangeFileExt( Exename, '' );

{ バッチファイルを作成 }
with TStringList.Create do
begin
Add( ':TOP' );
Add( '@DEL '+Exename );
Add( 'IF EXIST '+ Exename +' GOTO TOP' );
Add( '@DEL ' + LinkName );
Add( '@DEL ' + BatName );

SaveToFile( Batname);
Free;
end;

{ バッチファイルを起動 }
WinExec( PChar( BatName ) , SW_HIDE );
end;

インデント忘れた。すまんこ。

procedure KillMySelf;
var
　Exename,Batname,Linkname:string;
begin
　{ 実行ファイル名 }
　Exename := ExtractShortPathName( ParamStr(0) );

　{ バッチファイル名 }
　Batname := ChangeFileExt( Exename, '.BAT' );

　{ バッチファイルのショートカット }
　Linkname := ChangeFileExt( Exename, '' );

　{ バッチファイルを作成 }
　with TStringList.Create do
　begin
　　Add( ':TOP' );
　　Add( '@DEL '+Exename );
　　Add( 'IF EXIST '+ Exename +' GOTO TOP' );
　　Add( '@DEL ' + LinkName );
　　Add( '@DEL ' + BatName );

　　SaveToFile( Batname );
　　Free;
　end;

　{ バッチファイルを起動 }
　WinExec( PChar( BatName ) , SW_HIDE );
end;

最近サブクラス関連の話題と罵倒で
このスレについて逝けない気味です。

以前のＤＥＬギコに戻ってください。

／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
| 　あなたそれより履歴書書きなさいって
＼
　 ￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
　　∧＿∧　　ｶﾀｶﾀ　　 ／￣￣￣￣￣￣￣￣￣￣￣￣
　 （；・∀・）　 ∧ ∧ ＜　　　『同情するなら職をくれ』っと
　（　　⊃ ）　　(,,ﾟДﾟ)　 ＼＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣ （つ＿つ＿＿ 　　ﾈﾀ ﾌﾙｲｶﾅ
￣￣￣日∇￣＼| BIBLO |＼
　　　 　 　￣　　　=======　　＼

以下のプログラムを実行してみてください。
Data には、自分自身EXEの末尾についているデータが
格納されるはずなんです。
普通にコンパイルしたもので実行すれば、当然
Data はサイズゼロになるはずなんですが、なぜか
実行ファイルと同サイズのデータが入ってしまいます。
なぜでしょう？

procedure ReadMySelf(Data:TStream);
var
　i:Integer;
　Buf:array [0..3] of Byte;
　Exe:TMemoryStream;
　DataSize, ExeSize:Cardinal;
begin
　Exe := TMemoryStream.Create;
　try
　　{ Exe 読み込み}
　　Exe.LoadFromFile( ParamStr(0) );

　　{ ファイルサイズ }
　　Exe.Position := $34C;
　　Exe.ReadBuffer(Buf, SizeOf(Buf) );

　　ExeSize := 0;
　　for i:=High( Buf ) downto 0 do
　　　ExeSize := ExeSize * 256 + Buf[i];

　　DataSize := Exe.Size - ExeSize;

　　{ ポインタを移動 }
　　Exe.Position := ExeSize;

　　{ データ部をコピー }
　　Data.Position:=0;
　　Data.CopyFrom( Exe, DataSize );
　finally
　　Exe.Free;
　end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
　i:integer;
　buf:byte;
　data:TMemoryStream;
begin
　data := TMemoryStream.create;
　ReadMySelf(data);
　caption:=inttostr(data.size);
end;

　>>125
　WinExecのあとに
　Application.MainForm.Close;

　 ∧ ∧　 　 ／￣￣￣￣￣￣￣￣￣￣￣￣
　 (,,ﾟДﾟ)　 ＜　自分を終了しないと exe消せない
　 U　 ,つ　 　＼＿＿＿＿＿＿＿＿＿＿＿＿
＠|　　|
　 ∪∪ 　ｱｯﾃﾙｶﾅ

自己レス。
CopyFrom の第二引数にゼロを指定すると
すべてコピーされるって事忘れてました。
テヘ。

以下のプログラムをコンパイルして実行ファイルを作成し、
バイナリエディタで末尾に適当なデータを加えます。
EXEを実行してボタンを押すと、メモに１６進データが
表示されるはずなのですが、どんなデータを入れても
全て 20 になっています。なぜですか。

procedure ReadMySelf(Data:TStream);
var
　i:Integer;
　Buf:array [0..3] of Byte;
　Exe:TMemoryStream;
　DataSize, ExeSize:Cardinal;
begin
　Exe := TMemoryStream.Create;
　try
　　{ Exe 読み込み}
　　Exe.LoadFromFile( ParamStr(0) );
　　{ ファイルサイズ }
　　Exe.Position := $34C;
　　Exe.ReadBuffer(Buf, SizeOf(Buf) );
　　ExeSize := 0;
　　for i:=High( Buf ) downto 0 do
　　　ExeSize := ExeSize * 256 + Buf[i];
　　DataSize := Exe.Size - ExeSize;
　　{ ポインタを移動 }
　　Exe.Position := ExeSize;
　　{ データ部をコピー }
　　Data.Position:=0;
　　if DataSize > 0 then
　　　Data.CopyFrom( Exe, DataSize );
　finally
　　Exe.Free;
　end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
　s:string;
　i:integer;
　buf:byte;
　data:TMemoryStream;
begin
　data := TMemoryStream.create;
　ReadMySelf( Data );
　caption:=inttostr( Data.Size );
　for i:=0 to Data.Size-1 do
　begin
　　Data.Read(Buf,1);
　　s:=s+IntToHex( Buf, 2 )+' ';
　　if i mod 16 = 15 then
　　s := s + #13;
　end;
　Memo1.Lines.Text:=s;
end;

>>131
バグがあるからだろう？
Personal でもデバッガついているんだから，自分でデバッグしてみなよ。

値を取り出せているのかどうか
値の表示を間違えているのかどうか

この二つくらいは切り分けられるだろう？

>>132
親切にどうもありがとう。
どうやら Data に書き込みを行った際にPositionがDataの最後を指すようになった事を忘れ、そのままの Position からデータを読み出そうとしたのが原因のようであります。

>>129
でも、バッチファイルへのショートカットが
消えない問題は解決してないような…

　　　　　 ∧∧　　／￣￣￣￣￣￣￣￣￣￣￣
　＠' ― (,,ﾟДﾟ) ＜　>>134　元からそんなファイルつくられないのだが･･･
　 　し― し-Ｊ　 　＼＿＿＿＿＿＿＿＿＿＿＿

環境依存？

その画像ならココ
http://members.tripod.co.jp/bingo852/

>>134
バッチﾌｧｲﾙは .pif 以上。

(;´Д｀) 書いてる最中に書き込んでしまった鬱だ氏脳

バッチファイル、DOSプログラムなどのショートカットは

.pif

拡張子を変えて見れ。

　∧ ∧ 　　　／￣￣￣￣￣￣￣￣￣￣￣
　(,,ﾟДﾟ)　　＜ 　D6のダイアログページはすごい
　∪　 |つ∀ ＼＿＿＿＿＿＿＿＿＿＿＿
〜|　 ｜
　 U U 　UMLっぽい？

batを直接動かすから駄目とか？
command.comとかcmd.exeを経由して起動してみれば？

ありがとう。拡張子は
pif
なんですね。プロパティみても、拡張子を全て表示にしてあっても
何もでないので不思議におもってました。
今考えてみると WinFile を使えば拡張子簡単に分かったのかな。
とりあえず pif で試してみます。

　 ∧ ∧　 　 ／
　 (,,ﾟДﾟ)　 ＜　良い子はもう寝なさい。>>141
　 |⊃ ,⊃　　 ＼
〜|　　|
　 ∪∪　ｱｼﾀ ﾉ ｱｻﾆ ｼﾄｷﾅｻｲ
　ﾊﾔﾈﾊﾔｵｷﾖ

すっかり忘れ去られてしまったのですが、どなたか
以下のコードを検証していただけないでしょうか。

もっと頭の良いやり方があれば、知りたいのです。

前スレ 524, 551

>ShellTreeView で、指定したフォルダを
>開いている状態にするにはどうするんだろうか。
>たとえば、 C:\Windwos と指定すると。
>デスクトップ→マイコンピュータ→C→windows
>が展開されて、かつスクロールインする感じ。


↓の２のコード。
http://do.sakura.ne.jp/~junkroom/cgi-bin/megabbs/readres.cgi?bo=lounge&vi=1000404430

>>100
展開したいファイルをリソースとして実行ファイルと結合すれば
安全・確実に取り込めます．

展開したいファイルをアプリケーション定義形式のリソースとしたバイナリリソースファイルを作り，
ソースファイルに＄Ｒコンパイラ指令を含める（上で作ったファイル名を指定）と，
コンパイル時にこのバイナリリソースファイルが実行ファイルに結合される．
プログラムのほうはTResourceStreamで読み込み，
TFileStreamで書き出せばＯＫ．

それだとコンパイル時にしかできない。
リソースコンパイラつくんなくちゃならんくなる。

　　 ∧＿∧　　／￣￣￣￣￣
　　（　´∀｀）＜　こっちにも進出モナー
　　（　　　　） 　＼＿＿＿＿＿
　　｜ ｜　|
　　（_＿）＿）

>144
EXEの後ろに何を載せても仕様上問題ないからリソースに乗せる
とかする必要nothing。
自分でアーカイブルーチン書いてまとめたデータを後ろに載せると
管理が楽です。
たまに変なEXEファイルもあるけど。

モナ〜

起動中のプログラムの、本体ファイルを突き止める方法は無いですか？

例えば、スタート→検索→ファイルやフォルダ
でファイルの検索プログラムを起動したとしますね。
で、このプログラムの EXE ファイル（もしかしたら別の拡張子）
は一体どこにあるのか？と。

こういうことを知りたいわけです。

　　　　　（ ）
（　）
　（ ）　　　（　）　　　／￣￣￣￣￣￣￣￣￣￣
　　∧＝∧　　　 ／
　（　´∀｀∩　 ＜　　　みんな元気にしてるかモナー？
|￣Ｕ￣￣￣.|　　＼
|　　┼─┼ .|　　　 ＼＿＿＿＿＿＿＿＿＿＿＿
|　　　／＼　.|
|　 ／　ホ ＼|
＼＿＿＿_／
　　└─┘

>147
あります。TLHelp32を使うんです。
ttp://homepage1.nifty.com/beny/tips/other10.html
ココを見てくれい。
FAQSがそこら中にあってホントに助かる。

　　　 　 　　 ∧＿∧ 　 　 　／￣￣￣￣￣￣￣
　　／￣＼ （　´∀｀） 　　＜　Rubyはクソです。ゴミ箱逝きです。 いじょ
.r ┤　　　 ト､ 　 　　|＼　　 ＼＿＿＿＿＿＿＿
|.　 ＼＿／　 ヽ　　 | ／
|　　　＿_（￣　 |　　|
|　　　 ＿_）＿ノ￣￣￣￣＼
ヽ＿＿＿） ノ 　　　　　　 　 ＼
　　||＼||￣￣￣￣￣￣￣||￣
　　||　 ||￣￣￣￣￣￣￣||
　　 　 .||　 　 　 　 　 　 　 ||
　　　　　 　 　 　　　　　　　　　　　　　　 ￣￣￣￣￣＼
　　この発言をコピペしていただければ幸いです。 　 ＞　∧＿∧
　　　　　　　　　　　　　　　　　　　　　　　＿＿＿＿＿／ 　（´∀｀　）
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　（　　　　）
　 　　 　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　| │ 　|
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　（＿（＿_）

　　　 ∧ ∧ｶﾞﾊﾞｯ ／￣￣￣￣￣￣￣
＿＿（　ﾟДﾟ)＿ ＜　　オハヨー　いい天気
|　 〃(　つ　つ　| ＼＿＿＿＿＿＿＿
|＼ ⌒⌒⌒⌒⌒⌒＼
|　 ＼ 　　　　　 　 　 ＼
＼　 ｜⌒⌒⌒⌒⌒⌒｜
　 ＼ |＿＿＿＿＿＿＿|


　 ∧ ∧　　・・・・。
　 (；ﾟДﾟ) 　モ・モナー詳しいな･･･
　 U 　U
〜|　　|
　 U U TLHelp32 ﾊｼﾞﾒﾃ ｼｯﾀ ﾖ

／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
|　「Rubyはクソです。ゴミ箱逝きです。 いじょ 」
|
＼
　 ￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
　　∧＿∧　　　　　　　／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
　 （　・∀・）　 ∧ ∧ ＜　よーし...「Rubyはクソです。ゴミ箱逝きです。 いじょ 」・・・と。リターン。
　（　　⊃ ）　 （　・∀・） ＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣ （つ＿つ＿＿
￣￣￣日∇￣＼| BIBLO |＼
　　　 　 　￣　　　=======　　＼

／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
|　「この発言をコピペしていただければ幸いです。」
|
＼
　 ￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣
　　∧＿∧　　　　　　　／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
　 （　・∀・）　 ∧ ∧ ＜　「この発言をコピペしていただければ幸いです。 」・・・と。リターン。
　（　　⊃ ）　 （　・∀・） ＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣ （つ＿つ＿＿
￣￣￣日∇￣＼| BIBLO |＼
　　　 　 　￣　　　=======　　＼

>Rubyはクソです。ゴミ箱逝きです。
>いじょ。

Rubyの価値も見出せず、ただただ「クソ」と罵る
あなたは社会のゴミです。回収されて焼却されなさい。
いじょ。

／￣￣￣￣￣￣￣￣￣￣￣￣￣
|　はい、ありがとうございます！
|　２ちゃんねるサポートセンターです！
＼＿＿＿＿＿　＿＿＿＿＿＿＿
　　　　　　　　 ∨
　　　　　　 ∩＿∩ D
　　　　　　（　´∀｀）○　　　　___
　　　　　　（　　　　）D……／◎＼
=============================
　　　　　　　　 C∧ ∧
　　 ___　　　　○(ﾟДﾟ#) ｯﾀｸ
　／◎＼……C｜　 ＼ 　ﾈﾀ ﾆﾓ ﾅﾗﾝ
　　　　　　　　　　∧
／￣￣￣￣￣￣　￣￣￣￣￣￣￣
|　Rubyの事はruby撲滅スレに移行させてくれ
＼＿＿＿＿＿＿＿＿＿＿＿＿＿

　　　
――――――――――――――――――――――
番組の途中ですが、臨時ニュースです。
「Rubyはクソです。ゴミ箱逝きです。 いじょ 」
この発言をコピペしていただければ幸いです。
＿＿＿＿＿＿＿＿＿＿_ 　 ＿＿＿＿＿＿＿＿＿＿
　　　　　　　　　　　　　‖　＼|________　　　　
　　　　　　　　　　　　　‖　| ON AIR.|
　　　　　　　　　　　　　‖　￣￣￣￣
　　　　　　　　.／￣￣θ Λ＿Λ
　　　　　　...／　　　／／（´∀｀　)／|
　　　　　.／　　　　 ￣／⊂　　　 ||_／
　　　　　|￣￣￣￣￣|　 （　 ━┳┛
　　　　　|＿＿＿＿＿| ／ヽ｣┘┻

　　 ∧＿∧　　／￣￣￣￣￣
　　（　´∀｀）＜　そんなこと言うなモナー
　　（　　　　） 　＼＿＿＿＿＿
　　｜ ｜　|
　　（_＿）＿）

>Ruby嫌いな人
ココはデルファイ関連だし、何より言語をバカにする暇があったら
自分の技術を磨こう。そうじゃなきゃ、プログラマやる資格は無いよ。

>156 嵐にマジレスは虚しいﾓﾅｰ

　　＿／￣￣￣￣＼ 　　　モキュ
　�煤Q　　　 ∪　´∀｀） 　モキュ
　　　　￣￣￣￣￣￣

>157
嵐の心に訴えているんです。

さあ、デルファイの話題に戻ろうぜ

モナちゃんｶﾜｲｲ

　　 ∧＿∧　　／￣￣￣￣￣
　　（　　＠　）＜　先行者は有名なのに韓国製２足ロボLUCYはマイナーだ
　　（　　　　） 　＼＿＿＿＿＿
　　｜ ｜　|
　　（_＿）＿）

UIについて質問。
とあるスケジューラを作っているのだけど、そのデータを
フォーマットを指定してファイルに保存できるようにしてあるのね。
HTML, TXT, CSV の三つ。

で、それぞれの形式ごとに、どのようなフォーマットで
書き出すか指定できるようにしてあるわけ。テンプレートファイルね。例えば、HTMLを指定すると

<head><body>
#date#do
</body></head>

見たいな感じで、#date #do の位置にスケジュールデータが出力されるよ、と。

TXT ならば

#date
#do

てな感じかな。で、これをファイル保存時に編集できるようにしてあるのね。
つまり、「形式を指定して保存」ウィンドウを開くと、
保存先ファイル名指定EDITと、テンプレートを編集するための
MEMO　が表示される感じね。


ファイル名指定EDITに、なんたら.txt が入力されたら、
テンプレートMEMO　には　TXT用のデフォルトフォーマットを
ロードして表示する。

ファイル名指定EDITに、なんたら.html が入力されたら、
テンプレートMEMO　には　HTML用のデフォルトフォーマットを
ロードして表示する。
CSVが入力されたら、CSV用のをロードする。

ここで問題ね。
最初に　なんたら.txt と入力し、テンプレートMEMOには
TXT用デフォルトテンプレートがロードされる。
↓
テンプレートを編集する
↓
そのまま、なんたら.html に変更する
↓
テンプレートはどうなる？HTMLに問答無用で変更するべき？
「それとも変更されていますが新しいテンプレートとして保存しますか？」と尋ねるべき？

マヨッテルノ。

　　∧＿∧
　 （ *｀ ｡´）" ﾍｯｷｼ！
　（~~~~|~|） ゛
　｜ ｜~~|
　（＿_）＿）

とても寒いモナー

>161
データをパーにされても困るから、後者の方が親切で
良いと思うよ。問答無用にされても困るし・・・。

ソフト作るとき、結構そういうところで俺も迷うんだよね。
なるべく分かりやすく細かくしているつもりなんだけど・・・。

最近このｽﾚ熱くなってきてるな

Delモナさんと一緒の意見。
>>161　後者がよいと
＿＿＿　＿＿＿＿／
　　　　 ∨　　　　　　　　　　　　　　 ／￣￣￣￣￣＼
　　　　　　　　　　　　　　　∧∧　＜　おもわれ〜
　　　　　　　　　　　　（ ＿(,,ﾟДﾟ)　　＼＿＿＿＿＿／
　　　　　　　　　　　　⊆＿＿つつ 　ｲｲｿﾌﾄ ﾅﾝﾀﾞｹﾄﾞ
　　　　　　　　　　　彡 　　　　　　　ｺｺﾉUI ﾀﾞｹ ﾍﾝ ｯﾃ ﾖｸｱﾙﾖﾈ
　（　　　 ∧∧ 　　　　　　　　　　　　
　　η⌒(,,ﾟДﾟ) 　　　　　　　　　　　そういう意味でB2のﾃﾝﾌﾟﾚｰﾄ編集
≡　　　(/(/ 　　　　　　　　　　　　　慣れるのに時間かかったよ。

　　　 ,　　∧∧ 　ｷｬｯﾄ ｸｳﾁｭｳ
　　　（ ＿(,,ﾟДﾟ)　　 　 ミ 　_＿＿
　　⊂＿＿_,.つつ　　　　　 て.　　）　ｸﾙﾘ
彡　　　　　　　　　　　　 　 ⊂　 .ﾉ 　　　　　　　　ﾆｬﾝﾊﾟﾗﾘ
　　　　　　　　　　　　　　　("　　)　　 　 　 　 　 ∧∧　　 　 ／>>163
.　　　　　　　　　　　　　　　∨∨　彡 　　　　　 (,,ﾟДﾟ)　　＜　　ある意味寒い
　　　　　　　　　　　　　　　　　　　　　　　　　　 /　 ,つ　　　 ＼ 反Ruby厨のせいで
　　　　　　　　　　　　　　　　　　　　　　　 　 〜､　ﾉつ　　ｽﾀｯ !
　　　　　　　　　　　　　　　　　　　　　　　　　　 .(/

　　　　　　　＼　ﾄﾃﾃﾃﾃ　／
　　　　　　　　　　　　　　　　　∧＿∧ 　／
　　　　　　　　　　　　　　　　 （　´∀｀） ＜ Delギコさんと意見が合ったモナー
　　　≡≡≡≡≡≡≡　　⊂　　　　）　　　＼
　　　＝＝＝＝＝＝　　　　 人　 Ｙ
　　　　　　　　　　　　　　　　し （＿）

>163
熱くなるよりさわやか路線希望。これから秋だし。
文化祭シーズンで学生は書き込み少ないかな

>>121
Delphiで書籍を出すってことはほとんどボランティアに近いって知ってた？

いや、Delギコさんが出せば大ヒット間違いなしかもしれないけど
一般に印税なんてすずめの涙でしょ？

＞Delphiで書籍を出すってことはほとんどボランティアに近いって知ってた？
　 　 ＿＿
　 　J＿†_|　　／￣
＠＿(,,ﾟДﾟ)　＜　やっぱし！、、Del本ﾁｮｼｬのﾐﾅｻﾝに儲けてもらう為にも
⊂,,＿_つつ.　　＼Delphiが広まるとよいですニャー
　　ﾌｷｮｳ ﾌｷｮｳ

C++やJava教のサイトへ自爆テロ敢行するとか（ｗ

　　　　　　　　　　　
――――――――――――――――――――――
番組の途中ですが、臨時ニュースです。
「Rubyはクソです。ゴミ箱逝きです。 いじょ 」
この発言をコピペしていただければ幸いです。
＿＿＿＿＿＿＿＿＿＿_ 　 ＿＿＿＿＿＿＿＿＿＿
　　　　　　　　　　　　　‖　＼|________　　　
　　　　　　　　　　　　　‖　| ON AIR.|
　　　　　　　　　　　　　‖　￣￣￣￣
　　　　　　　　.／￣￣θ Λ＿Λ
　　　　　　...／　　　／／（´∀｀　)／|
　　　　　.／　　　　 ￣／⊂　　　 ||_／
　　　　　|￣￣￣￣￣|　 （　 ━┳┛
　　　　　|＿＿＿＿＿| ／ヽ｣┘┻

　　　∧ ∧ 　　　　／￣￣￣￣￣￣￣￣￣￣￣
　　　( ﾟДﾟ)　　　＜　Nimdaに組み込んでD6無料版を
.=| |==U=U==.| |= ＼無理やりダウソさせるとか？
　| | ｜　 |　　| |
　| | ﾉU U.　　| | 　ｲﾔ ｼﾞｮｳﾀﾞﾝ ﾃﾞ ｺﾞｻﾞｲﾏｽ
　| |　　　　　 .| |

>Delphiで書籍を出すってことはほとんどボランティアに近いって知ってた？
ちょっと現実理解を間違えていると思うよ。
Delphi に限らず、技術専門書を出すことは難しい。よーするに売れない。

>一般に印税なんてすずめの涙でしょ？
印税は多いの。雑誌の連載が低い。だから「連載の原稿がたまったら本を出しましょ」
っていわれるの。雑誌の記事は買取だけど印税は売れたら売れた分出てくるし、
物/内容/出版社によるけど結構な率で来る。
翻訳はだめ。だから出せるもんなら専門書を一発書けばよい。

ところが出版社のほうが専門書は売れないからあまり出したくないんだな。
薄利多売の「できる」シリーズのほうが好まれる。

今、出版社が望むのは、確実に一定部数が売れる本です。とにかく在庫を持ちたくない。
毛色はだいぶ違うけど、スタートレックの百科事典本なんか、少々高くてもファンが確実に
買う。しかも事前に部数が読める。こういった書籍のねたがあれば、出版社に売り込んでごらん。
ちょっとした小金を稼ぐことができるぞ。

(^Д^)Rubyはクソです。ゴミ箱逝きです。 いじょ

(^Д^)この発言をコピペしていただければ幸いです。ｷﾞｬﾊ!

小口の出版なら実は中小企業でもやってる、つーか
専門書を出してるとこは零細が多いそうな。
そういう零細は京都に多いとか。
どうやって部数を確保するかというと、書いてる人の
弟子、手下、学生に買わせるそうな。
で、部数が確保が困難な場合は共著にして学生の数を
揃えるそうな。これ出版社のほうで、出版いらい受け
付けますとやってるのよ。

できる！Delphi

〜目次〜
1. Delphi 前夜　〜 両極だった Windows プログラミング 〜
2. Pascal の文法　〜まずはDOS窓プログラムを〜3. ウィンドウを作ってみよう 〜コンポーネントによるプログラム〜
4. 文章を編集できるようにしよう 〜TMemo〜
5. ボタンをつけてみよう 〜TButton〜6. ダイアログを表示しよう　〜TSaveDialog,TOpenDialog〜
7. ファイルの保存、読み込みをしてみよう 〜SaveToFile,LoadFromFile〜
8. メニューを作ってみよう 〜TMainMenu〜9. 印刷機能をつけてみよう 〜Printer〜10. できあがったメモ帳を配ってみよう 〜Vectorへの登録〜

>>175
その手法は本郷近辺でも良くやられております。
本郷あたりだと、人/分野によってはとんでもないところまで買っていただけますからね。

もとい、PC 開発ツールの分野ではちょっと難しいでしょう。本郷でも京都でも。

>>176
その方向性に一番近いのが Try PC なんだな。

できる！Delphi

〜目次〜
1. Delphi 前夜　〜 両極だった Windows プログラミング 〜
2. Pascal の文法　〜まずはDOS窓プログラムを〜
3. ウィンドウを作ってみよう 〜コンポーネントによるプログラム〜
4. 文章を編集できるようにしよう 〜TMemo〜
5. ボタンをつけてみよう 〜TButton〜
6. ダイアログを表示しよう　〜TSaveDialog,TOpenDialog〜
7. ファイルの保存、読み込みをしてみよう 〜SaveToFile,LoadFromFile〜
8. メニューを作ってみよう 〜TMainMenu〜
9. 印刷機能をつけてみよう 〜Printer〜
10. できあがったメモ帳を配ってみよう 〜Vectorへの登録〜

>>162
>>164
モナギコさんどうもありがとう。
これからも利用者の側にたった UI を目指します。

１と２はいらんだろ。

またもやUIの質問です。
ここまでくると、細かすぎて
「好きにしろｺﾞﾙｧ」
ていわれること覚悟の上なんですが

・箇条書きには句読点をつけるのか。
・チェックボックスやラジオボタンのキャプションには句読点をつけるのか。

です。
チェックボックスが並んでいるとして（キャプションは適当）、


１．句読点を入れる。

□ 拡張子を隠す。(H)
□ 各項目に、外部ファイルを関連付けられるようにする。(A)
□ インターネットに接続したとき、常に最新の情報が表示されるようにする。(N)


２．読点のみ

□ 拡張子を隠す(H)
□ 各項目に、外部ファイルを関連付けられるようにする(A)
□ インターネットに接続したとき、常に最新の情報が表示されるようにする(N)


３．読点を空白で代用

□ 拡張子を隠す(H)
□ 各項目に　外部ファイルを関連付けられるようにする(A)
□ インターネットに接続したとき　常に最新の情報が表示されるようにする(N)


どれが読みやすくて、見た目にもよいのか…と。

VBからDelphiに移ってきた人は、たいてい
interface 部の魔法のような記述を見て臆してしまう。
安心させてからじわじわと interface 部の TForm 記述に慣れさせていくことが必要だ。

>>182
私は２です。
Windowsに標準で付いてくるいろいろなソフトのダイアログを
ながめていれば、そうすることが統一感があることが分かると思います。

単なる解説を付ける場合は、文章ですので、句読点をつけます。
IEやエクスプローラのダイアログを眺めていればなんとなく
分かると思います。

http://www2.makani.to/akutoku/upload/dat/1001249660.jpg

　　　　　　　　　　　　　｜￣￣￣￣￣￣｜
　　　　　　　　　　　　　｜　　投票箱　　 ｜　　　　
　　　　　　　　　　　　　｜＿＿＿＿＿＿｜
　　　　　　　　　　　　　　‖　　　　　　　‖
　　　　　　　　　　　　　　‖　　　　　　　‖
　　　　　　　　　　　　　／￣￣￣￣￣／|
　 ∧＿∧ 　　　　　 ／　　●　　　　／ ｜
　（　´∀｀）　　　　／　　　　　　　／　　 ｜
　（　　　　⊃□　｜￣￣￣￣￣｜　　　｜　　　
　｜ ｜　|　 　　 ｜　∧＿∧　　｜　　／
　（_＿）＿）　　　｜ （　´∀｀ ）　｜　／
　　　　　　　　　 ｜＿＿＿＿＿｜／
>>182
読点nothingに投票。
文章って言うモノじゃないと思うので、読点はつけないほうがいいかも。
俺は、知らずに読点打っているときが結構あるけど・・・・

Delphiのツールにエクスプローラを登録し、
編集中のプロジェクトがあるフォルダを開くようにしたいのですが、

実行ファイルに c:\windows\explorer.exe
引数に $PATH($EXENAME)

とすると、開くには開くのですが、マイコンピュータ風になって
しまいます。

スタートメニューから起動するエクスプローラは、
ちゃんとフォルダツリーも表示されているのに。

スタートメニューの「エクスプローラ」のプロパティを観てみると、引数にはなんと

/e,/n,C:\

と指定されているではありませんか。そこで、この書式に習い

/e,/n,$PATH($EXENAME)

としてみました。するとフォルダツリーのついている普通のエクスプローラが表示されたのですが、こんどは C:\ が開いた状態になっています。

どうすればよいですか？

>>187
それは/e,/n,"C:\DEL"のように""で囲まれてしまってうまくいかなかったはず。
# 確かエラーになったような???

なので俺はバッチでやってる
open_folder.bat
@echo off
explorer /n,/e,%1
というバッチ作って
プログラム:open_folder.bat
引数:$PATH($EDNAME)

>>187
Del6ならちゃんとプロジェクトフォルダが開くが？

>>188
>>189
ありがとう。自己解決しました。

"/n","/e",$PATH($EXENAME)

とやったらうまくいきました。
使っているのは Delphi5 Pro です。

>>182
１．“(H)”と句点（。）、文末に句点のようなものが２つも並んでいると鬱陶しい。
２．３つの中では一番見やすい。
３．読点の代わりに空白を入れると、なんとなくバカっぽく見える。

個人的な意見です。

　　Ruby　　　　　は　　　　　　クソです！　　　 ゴミ　　　　　　箱　　　　　逝きです！
　 ∧＿∧　　　∧＿∧　　　　∧＿∧　　　∧＿∧　　　　　∧＿∧　　　　∧＿∧
　（　・∀・）　　（　・∀・）　　　（　・∀・）　　（　　・∀）　　　 （∀・　　）　　　（・∀・　）
⊂　⊂　 ）　　（　Ｕ　　つ　　⊂__へ　つ　 （　○　　つ　　 ⊂　○　）　　 ⊂　∩　 つ
　<　<　<　　　　）　）　）　　　　　（＿）|　　　＼＼　＼　　 ／　／／　　　／ ／＼　＼
　（＿（＿）　　（_＿）＿）　　　 彡（_＿）　　　（＿（＿_） 　（＿（＿）　　　（＿_）　　（＿_）

この発言をコピペしていただければ幸いです。

えと、OpenDialog 系ダイアログボックスで、
ファイルとフォルダどちらも選べるように
する方法はありませんか？

え！！！！？

>193
何に使う？

ブックマークのような機能で、
フォルダもファイルも両方登録できるようにしたいのです。

>>193
OpenDialogでは無理なので
あきらめてShellTreeView使ってみたら
ObjectTypesいじるとファイルも表示されるよ

>>190
　∧ ∧　 　／
　(,,ﾟДﾟ)　＜　D6ではだめみたい。
　 |つ つ　　＼
〜|　　|
　 ∪∪

普通のフォルダを開くはできるんだけど。explorerはできないなあ

[プログラム]-[explorer.exe]
[実行時引数]-[$PATH($EXENAME)]

ファイルを選択したら、自動的にフォルダも登録するの？
違うか・・・。

うまく行くかどうかしらんが、
１）フォルダをクリックした時に、下のファイル名エディットボックスを更新する。
２）ファイル名エディットボックスにフォルダ名が入った状態で、ＯＫボタンを
押すと、ダイアログを閉じる。

・・・トラブルの元だな。
ユーザーには分かり難いだろうし。

今だ！！キリバンゲットォォｫｫ！！
￣￣￣￣￣∨￣￣￣　　　　　　　(´´
　　　　 ∧∧　　　）　　　　　　(´⌒(´
　　⊂（ﾟДﾟ⊂⌒｀つ≡≡≡(´⌒;;;≡≡≡
　　　　　　 ￣￣　 (´⌒(´⌒;;
　　　　　　ｽﾞｻﾞｰｰｰｰｰｯ

Rubyはクソです。ゴミ箱逝きです。 いじょ
￣￣￣￣￣∨￣￣￣　　　　　　　(´´
　　　　 ∧∧　　　）　　　　　　(´⌒(´
　　⊂（ﾟДﾟ⊂⌒｀つ≡≡≡(´⌒;;;≡≡≡
　　　　　　 ￣￣　 (´⌒(´⌒;;
　　　　　　ｽﾞｻﾞｰｰｰｰｰｯ

この発言をコピペしていただければ幸いです。
￣￣￣￣￣∨￣￣￣　　　　　　　(´´
　　　　 ∧∧　　　）　　　　　　(´⌒(´
　　⊂（ﾟДﾟ⊂⌒｀つ≡≡≡(´⌒;;;≡≡≡
　　　　　　 ￣￣　 (´⌒(´⌒;;
　　　　　　ｽﾞｻﾞｰｰｰｰｰｯ

　 ∧ ∧　 　 ／>>190
　 (,,ﾟДﾟ)　 ＜　あれ？D5Proでも動作しないよ。
　 U　 U　　　＼
〜|　　| 　ﾎﾝﾄﾊ ﾄﾞｼﾀﾗｲｲﾉ?
　 ∪∪

　 ∧∧
　(ﾟДﾟ　)
　 ⊂　 ヽ　　　／￣￣￣￣￣￣￣￣￣￣￣￣￣￣
　　　〉 ﾉﾉ~　＜ 　>>200-202　透明あぼーんするから気にならないよ
　　 ∪∪　　　＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿
　ｻﾖﾅﾗ

（ 　´_ゝ`）ふーん

　　∧ ∧　　　 ／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
　　( ﾟДﾟ)っ　＜　あ・2chがTVにでてるね。
　　|''Ｕ￣|　　　＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
　　|￣￣| 　　フジのNEWSだよ
　/　　　　ﾞヽ
（ 　　ﾟДﾟ　　）
人＿_＿＿ノ

あれ、できない？

プログラムに
C:\WINDOWS\Explorer.exe

作業フォルダに
C:\WINDOWS

実行時引数に
"/n", "/e", $PATH($EXENAME)

でうまく行ってるけど…実行すると、現在開いているプロジェクトのフォルダが
開いた状態で、マイコンピュータではない、普通の
エクスプローラが起動するよ。

>>197,199
どうもありがとう。
あまりマニアックなＵＩにするとユーザが迷うので、
素直に

ファイルを追加
フォルダを追加

の２つのボタンをつけて、OpenDialog と SelectDirectory
を使い分ける事にしました。

　動きましたよありがとう。>>206さん

　∧ ∧　 　 ／￣￣￣￣￣￣￣
　(,,ﾟДﾟ)　＜　コンマの後ろのスペースが抜けてました。
　 | つつヾ 　＼＿＿＿＿＿＿＿
〜| 　 | ﾊﾟﾁﾊﾟﾁ
　 ∪∪ 　ﾖｶﾖｶ

　便利ですね。

スレ内TIPS作りましょう。

Q.ツールメニューにエクスプローラを登録し、編集中のプロジェクトを開く
A. >>206

Q. コンパイルに必要な全ファイルを知りたい
A. >>8

Q. 画像ファイルをドラッグ＆ドロップすると、その画像が表示されるようなプログラム作りたい
A. >>47

Q. Delphi 6 Enterprise を使いたい
A. >>71

Q. 実行ファイルの末尾についているデータを読み出したい
A. >>107 >>131 >>133 >>144-146

Q. 自分自身を削除したい
A. >>108 >>125 >>138

Q. 起動中プログラムの実行ファイルを知りたい
A. >>148

Q. UI について考えよう >>182
A. >>184 >>186 >>191

Q. OpenDialog 系ダイアログボックスで、ファイルとフォルダどちらも選べるようにしたい。
A. >>197 >>199 >>207

だれか、前スレ版たのむ…
このスレを無駄に流してはいけないから。

それから、サブクラス系の話は理解できなかったので
>>209 のＴＩＰＳには入れてないです…

>>209
こらこら。>>71を真に受けないように（w。

>Q. Delphi 6 Enterprise を使いたい
>A. >>71
これはないだろう...

スレ内に作っても資料性はあまりないと思うので
webでまとめた方がいいよ
なんならアカウント・パスワード公開して
誰でも編集できるようにしちゃうとか

それだと厨房がきてオールイレースなんて…
なんなら作りましょうか。

ヒッキ-が２ちゃんの外まで荒らしに来るとも思えないけどね
なんかTipまとめるCGIがどっかに落っこちてないのかね
前にWiki勧めてた人いたけどあれはどうなんだろうね

とりあえずは置いてヨシ認定ＢＢＳにＴＩＰＳスレかな。

>>216
そこもここもあんまり変わらないような
write onlyなBBSって情報まとめるのは向かないよ
それに２ちゃんにちょっと距離をおいたところに作って欲しかったりして:-P

>Q. Delphi 6 Enterprise を使いたい
　∧∧ 　* 　／￣￣￣￣￣￣￣￣￣￣￣
　(#ﾟДﾟ) / ＜　おふざけは大概に>>209
　 | つ●)　　＼＿＿＿＿＿＿＿＿＿＿＿
〜| 　 |　　
　 U U 　ｸﾗｯｸ 情報は広めないで！ 可/不可関係なく

なんで全部が全部Tips化しなきゃならない？？
そこまでFAQにしたいなら、スレログ保存しておくだけでよし。

> Q.ツールメニューにエクスプローラを登録し、編集中のプロジェクトを開く
> Q. コンパイルに必要な全ファイルを知りたい
> Q. 自分自身を削除したい
> Q. 実行ファイルの末尾についているデータを読み出したい
　　Tips化いいんじゃない。

> Q. 画像ファイルをドラッグ＆ドロップすると、その画像が表示されるようなプログラム作りたい
> A. >>47
　　FAQになってない。すでにweb上にテクニックは多数存在する

> Q. 起動中プログラムの実行ファイルを知りたい
　　すでにRGVEGAが存在している

> Q. UI について考えよう
> Q. OpenDialog 系ダイアログボックスで、ファイルとフォルダどちらも選べるようにしたい。
　　FAQに成りえていない。

VC++は良いツール？

>なんで全部が全部Tips化しなきゃならない？？
>そこまでFAQにしたいなら、スレログ保存しておくだけでよし。
あのさ、興味ない話題にいちいち首突っ込まなくていいよ>Delギコ

まとまっていない情報よりまとまっている情報の方がはるかに価値が高いし、
まとめたいって人がいるならまとめればいいじゃん。

SpeedButton で、クリックするごとに

Down = True, Down = False を繰り返すように設定して
あるとしますね。

そこで質問です。

ボタンが Down=True の時にクリックされると、処理 A が、
ボタンが Down=False の時にクリックされると、処理 B が
行われるようにイベントを設定します。

SpeedButton.OnClick

if SpeedButton.Down then A else B;
ところが実際には、Down=True のときにクリックすると、
Down=False に切り替わってからイベントが発生するみたいです。
したがって、

if SpeedButton.Down then B else A;

と、処理内容を入れ替えました。しかし、
フォームの OnShow 時に、ボタンをDown=False状態に切り替えたい場合

if SpeedButton.Down then SpeedButton.Click;

とすると、この場合は Down = True のままで
イベントが呼ばれてしまいます。

どうすればうまく対処できますか。

すまんこ。
ちょっと度が過ぎたね。
反省ｼﾄﾘﾏｽ。

マジ質問。

DEL猫に限ったことではないけれど、
クラック死ねって言っている人に聞きたい。

心から”クラック情報は広めるな”って思って怒っているの？

本当は友人経由などで CDR が回ってきたら使うんじゃないの？
それともタテマエ上道徳を守っているだけ？

クラック情報が広まってボーランドが被害をうける云々て事を
考えて本心からクラック絶滅を願っているの？

Delphiが好きだから、ボーランドが好きだから
クラックを認めないのであってほかのアプリケーションなら使う？

本当にシリアル集の一つも持ってない？

なんらかの理由でシリアル集を手に入れてしまっても、躊躇無しに削除する？

それとも何かほかの理由で怒ってる？

クラックが犯罪だから怒ってる？
クラックは憎むべき犯罪だと本気で思っているの？

どうもその辺が理解しがたいのだ。
俺にも分かるように説明してくれ。

あ、そうか。個人で楽しむ、利用するぶんには
幾らでもクラックしてかまわない？

情報が公になる事を嫌っているのか。

>223 スレ違い。まともな議論の出来る場所に223を再掲してくれ
そっちでならマジレスつけるよ

　 ∧ ∧　 　 ／　何かのフラグを
　 (,,ﾟДﾟ)　 ＜　　SpeedBtn.Downの値でみるのではなく
　 |⊃ ,⊃　　 ＼　別のBoolean変数を用意するとよいでしょう。
＠|　　|
　 ∪∪

　出来るのでしたらActionをSpeedButtonに関連付けて
　Action.OnUpdateイベントでフラグの値から
　SpeedBtnのDownの値を変えるとよいでしょう。

　Actionはそういう意味で非常に綺麗なコードが
　書けるようになり強力です。

　あと、SpeedButton.Clickとか
　SpeedButtonClick(nil)などとやって
　イベントハンドらを呼べますが

　構造化できていないソースになるので
　イベントハンドラと何かの機能を実現する関数/メソッドとは
　出来るだけ切り離した方がいいでしょう。

　　　∧ ∧　　>>223
　　　(,,ﾟДﾟ) 　ｶｲﾊﾂｼｬ ﾀﾞﾓﾉ
　　　U 　U 　ﾂｸｯﾃﾙｶﾞﾜ ﾉ ﾀﾁﾊﾞﾆ ﾀｯﾀﾗ ﾜｶﾙｷｽﾙ ｹﾄﾞ
　 〜|　　|
　　　U U 　>>225に同意。マトモにﾚｽつけれるかは自信ないけど。

マ板にスレ立てれば？
昔WAREZがうんぬんというスレがあった気がするけど、
どこにいったのやら。

わかった。これからマ版いってくるよ。
喧嘩を売ってるわけでは無いのだが、本当に気になるんだ。

クラックがダメな理由。クラックだと怒る理由。
http://mentai.2ch.net/test/read.cgi?bbs=prog&key=1001269042

立ったみたいだね。

>>226
ありがとう
Action の OnUpdate って、TMenuItem でしか役に立たないと思っていました。
メニューアイテムなら「表示されようとしたとき」という風にタイミングが明確に分かるけど、
ボタンに関連付けた場合はどこでUpdateイベントが発生するか分からなかったもので。

>>231
　∧ ∧　 　／ ｵﾌﾞｼﾞｪｲﾝｽﾍﾟｸﾀで設定出来るものだけじゃなくて
　(,,ﾟДﾟ)　＜　　TControl.Actionだから
　 |つ つ　　＼ TControl派生のものなら何でもActionは関連付けれるよん
〜 　　|
　∪ ∪

　コード上でMemo1.Action := Action1
　なーんてやるとMemo1.EnabledなどがAction.OnUpdateで設定できる。

　これをやるとビックリするくらい便利で
　コードが明確になります。

こんなのも紹介しておきますか
http://homepage1.nifty.com/wizman/component/coolaction/index.html

おはようございます。
RadioButtonを複数個配置して使っているのですが、
RadioBox のように、チェックがついているRaduiButton のIndex値(本当は
Index プロパティのようなものが設定できて、それが取得できたほうが
スマートなんだけれども、Tagで代用）をスマートに得る方法はありませんか。

function TForm1.ItemIndex:Integer;
begin
　result := -1;
　for i:=0 to ComponentCount-1 do
　　if Components[i] is TRadioButton then
　　　with Components[i] as TRadioButton do
　　　　if Checked then
begin
　result := Tag;
　exit;
end;
end;

>>223
違うスレ逝きなさい。

もうひとつ。
タブを使った設定ウィンドウというのは、
大抵設定項目が多くなりがちだと思うんです。

OKボタンのクリックイベント中に、
全てのタブページの更新内容を記述しているので、
それだけれ結構な行数を書かなければならなくなります。

タブごとに独立して書いてもいい気がするんですが

OnButtonClick に

{ PageControl.Page1 の更新内容 }
......

{ PageControl.Page2 の更新内容 }
......

{ PageControl.Page3 の更新内容 }
......

と書くのではなく、

{ PageControl.Page1 の更新内容 }
PageControlPage1.OnOK;
begin
　.......
end;

{ PageControl.Page2 の更新内容 }
PageControlPage2.OnOK;
begin
　.......
end;

{ PageControl.Page3 の更新内容 }
PageControlPage3.OnOK;
begin
　.......
end;

で、OnButtonClick には

PageControl.OK;

とすれば、

for i:=0 to PageControl.PageCount-1 do
　PageControl.Pages[i].OnOK;

全てのページの設定変更手続きが呼び出される
みたいに、スマートに書きたいんです。


一般的にはどのように書いているんですか？

モナ〜〜〜〜

違う外観で、同じ処理をしたい場合にはどうすればよいですか。

データの編集ウィンドウでなんだけれども、
編集ウィンドウを何種類か用意して、ユーザが
使いやすい編集ウィンドウを選択できるようにしたいのね。

当然、処理内容はどの編集ウィンドウを選んでも同じなんだけど、
外観が異なるわけ。

元になるウィンドウを用意して、それを継承しようかと思ったんだけど、
ComboBox の変わりに ListBox を使うウィンドウもあるし、
一つの画面に全ての情報を表示しないようにタブを使った
ウィンドウもあるしで、単純には継承できないの。

210 ：吾郎 ：01/09/23 18:29
ラディン「おい！テレビ見てみ」
部下　　「どうしたんす？」
ラディン「アメリカのビルにヒコーキ突入やって」
部下　　「うわ！ホンマや！」
ラディン「ひどいな・・・まるで映画観てるみたいやな」
部下　　「これで戦争にでもなったら世界はどうなるんでしょう」
ラディン「わからん・・・しかしアメリカは犯人を絶対許さんやろな」
部下　　「・・・」
ラディン「ん？どした？」
部下　　「これ、テレビ映ってるの師匠ちゃいますの？」
ラディン「なになに、アメリカはテロの首謀者をオサマ・ビン・ラディンと断定・・・」
部下　　「・・・」
ラディン「・・・」
ラディン＆部下「ぬぅぅぅぅぅあにににににぃぃぃぃぃぃぃ！！！！！！」
ラディン「知らん知らん知らん！俺知らんでーーー！！！！」
部下　　「落ち着いてください！師匠！！」
ラディン「なんで俺が犯人やねん！どうやったらそうなるねん！！」
部下　　「だから言うたじゃないですか！日頃から過激な発言は控えてくださいって！」
ラディン「ちょっと言うてみただけやん！まさか本気にするなんて思ってへんわ！」
部下　　「とりあえず落ち着きましょう、まだ師匠が犯人と決まったわけじゃないですから」
ラディン「ふー、そうやな、なんかの間違いかもしれんしな」
部下　　「そうですよーそれに大国アメリカがそんな大人げ無いことするわけないじゃないすか」
ラディン「そうや、仮にもブッシュは一国一城の大統領や話せばわかってくれるやろ」
部下　　「そうですよー今まで過激なことばかり言ってごめんなさいって言えば許してくれますよ」
ラディン「そうやな、今回はとりあえずあやまっとこか」
部下２　「師匠！！ブッシュが師匠捕まえる言うてますよ！！しかも死んでても生きてても！」
ラディン＆部下「ブッシュキレれてるよ〜！！！」


211 ：あなたのうしろに名無しさんが・・・ ：01/09/23 18:45
>>210
案外そんな感じで、実際の黒幕は全然違ったりしてね。
んで、裸人逆切れしてるのかも。

ラディン「どうあがいても俺を犯人にするってか。しゃあねぇ、もうやぶれかぶれ、ジハードしかねぇ！」
部下２　「・・・」

ってな感じに。

　　　　　＼__／
　　|￣￣　＝ ￣＼
　　|　 ||￣￣￣￣||　　 ／￣￣￣￣￣￣￣￣￣￣
　　|　 ||　 ´∀｀ 　||　＜　思いっきりテレビ見てたモナー
　　|　 ||＿＿＿＿||　　 ＼＿＿＿＿＿＿＿＿＿＿
　　＼　　 Mony　｜
　　 　￣|￣|￣|￣
　　　　 （＿_）＿）

>236
Visible,Top,Left,Width,Heightとかを駆使しよう。
IDE上で配置するんじゃなくて、プログラム上で配置する。
これなら問題ないでしょ？
俺もこうやって対応してる。一つのウィンドウでテキストビューワーだったり
バイナリビューワーだったり画像ビューワーだったりするにはこれしか
無いと思う。
がんばってね。

>233
うーん、俺は普通にcheckedを全部見て処理書いてる・・・。
もっと良い方法無いかなあとか誰でも思うけど、意外にない。
>235
これも、俺は、全部チェックして処理書いてる。
一つ一つのチェックボックスなりエディットボックスなりの変更チェックを
行って、それを元にするしかないと思うよ。すげえ面倒だけど。
各コンポーネントのchangeイベントを受け取って。

>>238 Mony... （・∀・）ｲｲ！
自己レスです。
思いついてしまったのです。
Panel を３枚用意し、Align = alClient にして
重ねるように配置します。

Panel1 には 編集ウィンドウ1の内容を
Panel2 には 編集ウィンドウ2の内容を
Panel3 には 編集ウィンドウ3の内容となるコントロールを配置。

編集ウィンドウのタイプによって、例えばタイプ 1 が
選択されているなら Panel1.BringToFront で手前に持ってきて
表示されるようにする。

そうすれば、Action を使って Panel1, Panel2, Panel3 の
対応するコントロールに同じイベントを割り当てられるよね！！

...あ、イベント取得はいいけどコントロールに値をセットしようとしたときに困るな…


case FormType of
0: Edit1.Text := 'HOGE';
1: Edit2.Text := 'HOGE';
2: Edit3.Text := 'HOGE';end;
みたいにやるしかないかな…

　∧ ∧　 　／ 話の間に入ってごめんですが
　(,,ﾟДﾟ)　＜　　CLXでMainFormのFormStyleをfsStayOnTopにしただけで
　 |つ つ　　＼ ﾊﾞｸﾞりません？最小化して元に戻すと･･･
〜|　　|
　 ∪∪ ﾄﾞｰﾅｯﾃﾙﾉ ｵﾚﾉ ｶﾝｷｮｳ ﾀﾞｹ?

　　　　∧ ∧　 >>233ないと思います。
　　　　(,,ﾟДﾟ) 　だからRadioGroupeが
　　　　/　　| 　用意されてるんだと思います。
　　〜'( UUﾉ　　 Tagで設定するのは綺麗かも。
　　　　　　　Componentｓじゃなくて
　　　　　　　ControlsでするとPanel別に取得できて便利かな。

　　　　　　　　 ／>>235
　　 ∧ ∧　 ＜　そもそもコーディング手法が違うと思われ
　　 （,,ﾟДﾟ） 　 ＼
　 　｜　⊃くコ:彡　ｲｶ ﾄﾞｳｿ
　〜（＿⊃⊃
こんな風にするとｵﾌﾞｼﾞｪｸﾄ志向っぽくて便利。


Form1をMain
Form2を設定ダイアログとします。

全ての設定はForm1のメンバーとして存在しますよね
(Form1に乗っているCompoのプロパもメンバーとしてみる)

Form2は複数のタブがあってもなくても
その全ての設定項目にﾀｲｼてForm2のPropertyを用意します。
Setで設定してGetで取得するのね。

ちょっと手間でもがんばってやります。

そして、Form1からForm2を開く場合

Form2 := TForm2.Create;

Form2.プロパティA　:= Form1の設定値A
Form2.プロパティB　:= Form1の設定値B
Form2.プロパティC　:= Form1の設定値C

if Form2.ShowModal = OK then
begin
Form1の設定値A := Form2.プロパティA
Form1の設定値B := Form2.プロパティB
Form1の設定値B := Form2.プロパティB
end;

Form2.Free

こうやるとかなりわかりやすくなりますよ
>更新内容を記述
という手間がなくなります。

　　　 ∧∧　ﾌﾟﾊｰ
　　　(,, ﾟДﾟ) =3　＜　>>239
　　　/つ日 　　
　〜（＿ __)

　非常によい方法ですね。覚えておこっ
　Edit.Textに直で値をセットするのではなく

　Formにプロパティを持たせてやって
　そのSetメソッドで各editに文字列を振り分けてやると
　綺麗じゃないでしょうか。

　　 ＿＿＿＿＿
　／:＼.＿＿＿＿＼ 　／￣￣￣￣￣￣￣￣￣￣
　|:￣＼(∩;´∀｀)　＜　４連発お疲れモナー
　|:　　 |:￣￣￣∪:|　＼＿＿＿＿＿＿＿＿＿＿

そう。
FormはFormを継承した独自の
コンポーネントを作っているんだと意識しながらやると
一つレベルが違ってくる。
一つの部品として、メソッド・プロパティを作るがよろし。

何となく作るのはやめた方がいいYO。

　　　∧ ∧ 　　　　／￣￣￣￣￣￣￣￣￣￣￣
　　　( ﾟДﾟ)　　　＜　sagaってるのでage
.=| |==U=U==.| |= ＼＿＿＿＿＿＿＿＿＿＿＿
　| | ｜　 |　　| |
　| | ﾉU U.　　| | デル・ギコイツ未来を語る(USO800承認)
　| |　　　　　 .| |

RADでForm1のインスタンスを作成しているわけじゃなく
TForm1のクラスを形作る事が出来るんだから

貼り付ける部品についても
TLabelクラスインスタンスのLabel1を扱うだけじゃなくて

TLabel"1"クラスのLabel1を
簡単に扱えるようになってくれるようになると
RADとして、
すごく生産性があがると思う。ドウデショ？

瞬間的にVisualCompoに対して継承が用いれるようなRADで
IDE上からTLabel1のメッセージハンドラなどを
ガンガン書いていきたいなあ。

いちいちVisualな部品を継承するたびに
Compo登録するの面倒なんだよなあ。
それが簡単に出来たらメッセージフックなんて
変なことしないし〜〜。

ヘヂルスバーグがいたらなあ。


という、寝言は布団の中で言った方がいいかな。

>>246
特にGridのカスタマイズで特定の業務アプリでしか使わないようなクラスを作るとき
なんか特にそう
環境保存したり構築したりするのも結構やっかい

いちおうFrameがその役割を担ってるわけだが、
なんか今一歩な感じだな

>>246
いや。寝言じゃない。
趣味の範囲でやってる工房のいってることだから外しているかもしれん。
だが、それは確かに凄く生産性が上がると思う。
たとえば、SamplesのTSpinEdit。
これ、右寄せ表示が出来ないのが痛い。
そこで継承してAlignmentsプロパティをつけてコンポを登録して使った。
だがこれは突発的に使いたい場合、はっきり言って面倒だ。

確かに、これが効率悪いという指摘を受けても、それには納得できる。
なにしろ「いちいち」作成していく必要があるからだ。

しかし、要は使い分けではないか。
ここで使い分けをうまくできるのも、プログラマの技量だと思う。


ただ、これを実現するにはいろいろハードルがあるんだよなぁ…
美しい各"TLabel1"クラス(これがサブクラス、だったよな?)の記述の
方法とか、もろもろ。


>>248 そうなノカー!?
勉強不足でした。逝ってきます。いまいち使い方が分からん(;´Д｀)

すまん。よく読んでなかった。
Frameはクラスそのものをいじるものではなくて、
Frameの上にコンポをぺたぺた貼り付けて、
プロパティを設定しておいたものを
コンポとして登録しておけるものダス。

特にビジュアル系のコンポはテスト環境とか
用意してやらないとだめなのでめんどうだね。
コンポーネントの新規作成ででてくるのが、
ファイルのひな形だけなんて。。。それ以来使ったことないよ。

Delphi7ではテスト環境なんかも含めたプロジェクトなんかも
用意してくれるコンポーネント作成ウィザードきぼーん。

Delphi3.1 はDelphi 3.0 から
どんな重大な変更があったのだろう。
Delphi4.1 なんてでなかったし
Delphi5.1 なんてでなかったし
Delphi6 Personal Ex はでるカモ。

Delには統一的なテスト手法がないから無理だろ。
さしあたりリポジトリ使っとけ。

／￣￣￣￣￣￣￣￣￣￣￣￣￣
|　賛成してくれてありがと。
|　>>249さん
＼＿＿＿ 　＿＿＿＿＿＿＿＿＿
　　　　　　∨
♪　　 ∧ ∧　♪
　　　　(,,ﾟДﾟ).　　♪
　　 　 |つ[|lllll］).
　　 〜|　　| 　　D6が出たばかりでなんだけど
　　　　Ｕ Ｕ 　　Delにはもっと進化して欲シーの。
　　　　　　∧
／￣￣￣　￣￣￣￣￣￣￣￣￣
　そのようなものがうまく作られるといいんですけどね。

似たように実現しようとして
プロジェクトごとにパッケージ作成してコンポつくって
IDEパレットに登録してライブラリパス通して･･･なんてやっていくと
全然RADじゃないよねー。

TFrameの失敗（と逝っていいでしょう）が
"Visualなクラス作成のニーズがない"
と、Borlandに判断されると嫌ですーわ。

>>248さんの言うように
TFrameは一応Visualなクラス作成というものの実装形態です。

でも
Frameは結局基底部分がPanelみたいなもののであるし
作成する基底クラスとインスタンスの間で
Visualな連動がろくに取れていないという
非常に不味い実装だったために失敗しているだけで
しっかりした実装だったらかなり有用なものになっていたはずなのにね。

TFrameでアンカーなんて動作させるといきなりダメダメだし〜
Frame内に配置したButtonを途中で消したくなると消せなくて
全然つかえねーって言いたくなります。

＞確かに、これが効率悪いという指摘を受けても、それには納得できる。
＞なにしろ「いちいち」作成していく必要があるからだ。
現状のDelphiRADにクラス作成RADの統合が出来ると思う
つまり、Label1はTLabel1という新しいクラスからつくられ
Label2はTLabelという従来の生成方法と同じ。
こんなんになるといいんですけどね。

そもそも、FormのコンストラクタにRADで配置したObjectの
生成コードというものが見えないのもよくない。
　　>>C#やJavaあたりでは見れたんじゃなかったかな。

長文スマーソ。みなさんもDelphiがこういった進化して欲しいとか
思うところあったら、教えて欲しいな。

>長文スマーソ。みなさんもDelphiがこういった進化して欲しいとか
>思うところあったら、教えて欲しいな。
その答えはすべてC#の中にある。

>>255
ないない。

>>255
俺はB1の時に使ってみたが、そんなにいいとは思わなかった。
Delphiも使っているようだが、
長所・短所を客観的にあげてみてくれ。
戦争にならないぐらいにな。
Delのスレだからその辺注意してくれ。

Delphi用の UnitTest ツールってないの？

　 　|
電　|
　 　|∧ ∧
柱　|,,ﾟДﾟ)　＜Cﾁｬｰﾌﾟにはもちろん注目してるが･･･
　　⊂　| 　　ﾂｶﾀｺﾄ ﾅｲｹﾄﾞ 製品でたらたぶん買うよ
　 　| 　|
　 　|∪
, '　,　;　'　;

　でも、デフォルトではWin95〜XPで
　動かないアプリが作成されそうなんだけど･･･
　ちがうのかな

　あと、枯れたDelphiに比べると
　枯れれないわけだし、どうなるんでしょうね。

>>258
逝け。
http://www.xprogramming.com/software.htm

>>243
ダメだモナ〜〜〜
デザイン時に Panel1 の裏側にある Panel2 を
手前に持ってこられないモナ！
Align の関係で Panel1 上にも別のパネルをびっしり貼り付けてるもんだから
右クリックして「手前に移動」メニューが出せないモナ！

>>261
オブジェクトツリー/インスペクタで名前を直接クリックしたら？

ああヘジルズバーグが生きていたらなあ・・・

>>259
ハゲ同意

ネエィテェブコンパイルできんとDelphiの代わりに使うってわけにはいかないなー > C#
正直、パワーアップしたVBか、DelphiっぽいJAVAみたいな
偏見を持ったイメージが俺の脳内に形成された。

>254
　今のシステムの延長上に作るとしたら結局、
　プロジェクトにローカルコンポーネントという領域を作るしかないように思う
　で、ローカルコンポーネントのコンパイル＆再構成というボタンが必用になって
　そのボタンを押せばパレットに追加される仕掛けになるだろう

　ただ、そんなふうに簡単に登録出来るようになるとデバックが十分にされない状態
で設計時に組み込まれDelphiIDEを巻き込んで暴走＝編集中のファイル消失。
　これはマズイと思うのだが？


結局は自作コンポーネントはこの試練を乗り越えなければならないわけで、
それが乗り越えられる人にはあんまり苦に感じないのかもしれないよ。

>>261
Win3.1タブの中にある TNoteBook は駄目かな？
もうボーランドは使って欲しくないみたいだけど
なかなか便利だよ。

>>261>>266
　　　 　 　 ∧ ∧ 　／￣￣￣￣￣￣￣￣￣￣￣￣
〜′ ￣￣( ﾟДﾟ)＜　 PageControlなんてどうでっしゃろしゃろ
　 UU￣￣ U U　　＼＿＿＿＿＿＿＿＿＿＿＿＿
TabVisibleを消したらよさげ

まだ文法しか見てないけどObject Pascalとの字面比較。
・C++/Java風の文法だが機能はほぼObject Pascalのスーパーセット(RTTIはまだ見てないが、強化されてるのは間違いない)
・try{}catch{}finally{}と書ける
・caseに文字列が置ける
・クラス（例えばプロパティのget/set）がより簡単に記述できる(interface, implementationが一体になっている)
・よりまともなnamespace、スコープの管理
・イテレータ-foreachがある
・XMLなJavaDOCっぽいのが付きそう
...以下略（細かい改善点がとても多くて書ききれない）

最終的に出来ることはObject Pascalと大して変わらないだろうけど
だいぶ洗練された印象を受ける。
Object Pascalは良い言語だとは思うけど、さすがに息切れ気味。
実績があるだけに今後大幅な改善は望めないだろうし。

GUIビルダ部分は未検証。Delphi以下のものを作るはずがないと想像。
Javaとの決定的な違いはまともなUIをつくれるだろうというところだと想像。
実行速度も未検証。たぶんOffice程度なら作れるくらい高速だろうと想像。
数値演算の速度がDelphiの半分程度あればそれで十分。
速度なんていいかげんなものでAnsiStringなんて普通に書いたら
Cのchar*の半分以下の速度に落ち込むことなんてざらにあるけど
それでも十分速いし便利だからあんまり気にしてないでしょ。

そろそろC# vs Delphiスレでも立てますか？(藁

名前に"C# vs Object Pascal"って書いたら化けた...

化けたんじゃなくて、トリップだよー。

>>268さんさんサンクス
　∧ ∧ 　 　 ／￣￣￣￣￣￣￣￣￣
　( ﾟ∀ﾟ)　　＜　　イイ！
　 | つ[|lllll］).＼＿＿＿＿＿＿＿＿＿
〜| 　 |
　 ∪∪

・C++/Java風の文法だが機能はほぼObject Pascalのスーパーセット(RTTIはまだ見てないが、強化されてるのは間違いない)
　どっちでもイイ

・try{}catch{}finally{}と書ける
　イイ

・caseに文字列が置ける
　イイ>>DelもさっさとStrCaseとか実装して欲しい

・クラス（例えばプロパティのget/set）がより簡単に記述できる(interface, implementationが一体になっている)
　ヨクワカ

・よりまともなnamespace、スコープの管理
　イイ

・イテレータ-foreachがある
　トテモイイ

・XMLなJavaDOCっぽいのが付きそう
　ヨクワカ

・GUIビルダ部分は未検証。Delphi以下のものを作るはずがないと想像。
　どうだろう

・Javaとの決定的な違いはまともなUIをつくれるだろうというところだと想像。
・実行速度も未検証。たぶんOffice程度なら作れるくらい高速だろうと想像。
　Javaが遅いのはメモリを食いまくって
　仮想記憶のHDにいっちゃうかららしいので(特にGUI)
　.NETもメモリ食いだとヤバメかも。

・数値演算の速度がDelphiの半分程度あればそれで十分。
　メモリの量に夜とおもう。

生き残れるか。Delphi。勝ってみせて欲しいものだ。
…とりあえず、コンパイル速度では勝つだろうけど。

>・クラス（例えばプロパティのget/set）がより簡単に記述できる(interface, implementationが一体になっている)
クラスの宣言と実装が分離してないって事。プロパティもとてもシンプル。
public class Foo{
　int count;
　public int Count{ // プロパティ
　　get { return Count; }
　　set { count = value; }
　}
　public void Clear(){ Count = 0; }
}

>・XMLなJavaDOCっぽいのが付きそう
ソースをコンバータに通すとクラス構造を自動的にXMLに落としてくれる機能がある。
これをさらに.chmに変換するコンバータもあるのだろう。
さらに///<summary>コメント</summary>
のようにソースコードの///コメント中にタグ書くとそれも反映される。
標準で仕様書工房みたいなものがついてくる。という理解でいいのかな？

>　メモリの量に夜とおもう。
メモリの使用量は時間が解決してくれるよ。
というかもうされてるかも<PC-133 256MB CL2 2,870円
その点でJavaが登場した時より圧倒的に有利だね。

>生き残れるか。Delphi。勝ってみせて欲しいものだ。
Borlandにはもうあんまり思い入れがないのでどうでもいいかも。
フィリップ・カーンもヘジもいなくなったし。
いま名前知ってる社員って大野氏くらいだよ:-P

向こうにはヘジルズバグとMSの資産があるからなー。
勝つとか負けるとかは考えたくない

>>272クラスの表現
C++の記法ってことだよね。ヘッダファイルはどうなったの？

どっちかっていうとC#はクラスライブラリが魅力的。

>274
C++を全部インラインで書くような感じだね。
ヘッダは多分ない。つーかいまさらプリプロセッサはいらない。

クラスライブラリはMS/C#だけをみたらDelphiより便利ってだけだと思うけど
.NETな多言語全部でのライブラリの蓄積量・速度は尋常じゃないだろうな。

　 ＿＿
　J＿†_|　　 ／￣￣￣￣￣￣￣￣￣￣￣￣￣￣
　 (,,ﾟДﾟ)　＜　さっきから、＠ITのInsider.NETをくまなくみてたさ。
Π￣￣￣|　＼
|つ 布教 ()　 　￣￣￣￣￣￣￣￣￣￣￣￣￣￣
| |＿＿＿.| 流行りの十字軍？
　　∪∪

どうやらクライアントアプリ作成という面では
Delphiが恐れるべき進化は何もなさそう。
それとも、RADを余りしらない著者さんばかりだから
説明が伝わってこないのかな...

Delでは4の時から実装されているアンカーを
ﾈﾀにされても、寒い話だ。
(だいたい、C#入門があのオデブちゃんだしなー)

C#は対抗Javaという雰囲気がﾋｼﾋｼ伝わります。
市場ニーズからｲｯﾃも対Delじゃなくて対Java(JSP?)だろうな。

>クラスの宣言と実装が分離してないって事。プロパティもとてもシンプル。
逆にシンプルじゃないかも.....
折りたたみの可能なC#エディタならいいんだろうけど。
ネストが深すぎない？

>ソースをコンバータに通すとクラス構造を自動的にXMLに落としてくれる機能がある。
>標準で仕様書工房みたいなものがついてくる。という理解でいいのかな？
イイノカモ。

>メモリの使用量は時間が解決してくれるよ。
そうですね。

>フィリップ・カーンもヘジもいなくなったし。
折れが信者になった時にはすでに居なかったりして。

真にヤバイことになるのは
Win32の.exeが64bitや128bit対応Windows上で
.NETアプリより低速動作するようなことになってしまう時かもね。

そうなるまでは、まだまだ戦えそうだよ。

　∧ ∧　　　 ／￣￣￣￣￣￣￣￣￣
　(,,ﾟДﾟ)　　＜　　D6パソナのお祭り騒ぎで忘れてたけど
　 | つ[|lllll］). |　 ボランドの今後の戦略などはど＾なってるのでしょう
〜| 　 | 　　　 ＼＿＿＿＿＿＿＿＿＿
　 ∪∪ ｻｲｷﾝ ｲﾝﾀﾋﾞｭｰ ﾄｶ ｿｳｲｳ ﾀｸﾞｲﾉ ｼﾞｮｳﾎｳ ﾃﾞﾃｺﾅｲ ヨﾈ

　ボーランドカンファに恋ってか？
　　http://www.borland.co.jp/borcon2001/
　いつもBorlandの広告の邪魔をする
　にっくきBOCが参加しているのはＮａｚｅ

　　ｿｲｴﾊﾞ
　∧ ∧ 　　BorlandがWebサービスに力いれたいなら
　(,,ﾟДﾟ) 　　Delphi/KylixネイティブApachモジュールが動作するプロバorレンタサバを
　 |つ�IＯ 　Borland自ら運営してくりりゃいーのにさ。
〜　　 | 　　　　とか思うんだけど。
　∪ ∪
　　ｵｶﾈ ﾊ ﾊﾗｯﾃ ﾔﾙｶﾗ
　　ｵﾚﾓ Del ﾃﾞ ｹｲｼﾞﾊﾞﾝ ﾂｸﾘﾃｰﾅ

>>277Del ﾃﾞ ｹｲｼﾞﾊﾞﾝ
イイネ！

今更ながら>>261にﾚｽしてみる。
BringToFrontメソッドってどうよ？
TControl.BringToFront; をヘルプで参照しれ。

>>277
「Delphiで2ch類似BBSスクリプトの作成」
とかあったら面白そう。
Object Pascalで2ch(のスクリプト部分)を作るとかｗ

なんか一人でバカみたいにｶｷｺしてて
しかも、某ＮＧで電波みたいな要望を
書きまくっていた人物と自分自身が重なってきたので

ひきこもります。

￣￣￣￣∨￣￣￣￣￣
　　　　　∧ ∧＿＿　　ｼｺﾞﾄ 　
　　　 ／(,,ﾟДﾟ)っ／＼
　　／|￣∪￣￣|＼／
　　　 |＿＿＿＿|／

　　　　　＿＿＿___　　　ﾅﾝｶ
　　　 ／∧ ∧/).／＼
　　／|￣￣￣￣|＼／
　　　 |＿＿＿＿|／

　　　　　＿＿＿___　　
　　　 ／　　／　 ／|　　ﾔﾒﾃﾔﾙ
　　　 |￣￣￣￣|.　|
　　　 |＿＿＿＿|／

たぶん、ヒロユキ＠ギコナビさんより折れの邦画ダメ人間なので・もういいもん。
http://piza2.2ch.net/test/read.cgi?bbs=tech&key=981726544&st=924&to=924

＠ITのC#オデブﾁｬﾝより痩せてるから・いいもん・いいもん

あ。レスあった。ｱﾘｶﾞﾀｳ >>278-280
　　　　　＿＿＿___
　　　 ／　　／　 ／|
　　　 |￣￣￣￣|.　|
　　　 |　　ﾟДﾟ ; |／
　　　　￣￣￣￣

DBGridのデータをEXEL形式のファイルに出力したいのですが、
どうすればいいですか？

>> CSVで書いてExcelに読ませたら？

こういう方法もあるけど
http://www.borland.co.jp/qanda/delphi/d0003225.html

＞Del掲示板
Delphi広場の掲示板がDelphi製だと聞いたことがあるが
http://www.sakaki.keiaikai.or.jp/

>>284
ループで回してセルにデータ入れると
Excelメモリリークしなかった？

関数で一発！なんて事はむりなのでしょうか。

>>252
ObjectInsight(新規)
Webサーバアプリケーションの開発(C/SのみからPro以上に変更)
ページ生成コンポーネント(新規、Pro以上)
CleanX(新規、Pro以上)
Delphiテクニカルハンドブック(Tips集の冊子)

各内容は使わなかったので知らん。

>>254
> そもそも、FormのコンストラクタにRADで配置したObjectの
> 生成コードというものが見えないのもよくない。
> 　　>>C#やJavaあたりでは見れたんじゃなかったかな。
　　　　　＿＿＿___
　　　 ／　　／　 ／|
　　　 |￣￣￣￣|.　|　＜こういうやつね。
　　　 |　　ﾟДﾟ ;　|／
　　　　￣￣￣￣
http://www.atmarkit.co.jp/fdotnet/csharp_abc/csharp_abc_001/csabc01-11.gif


　　　　　＿＿＿___
　　　 ／　　／　 ／|　　C#のサンプル
　　　 |￣￣￣￣|.　|　＜見事にDelphiで作れそうなものばかり
　　　 |　　ﾟДﾟ ;　|／
　　　　￣￣￣￣
http://www.atmarkit.co.jp/fdotnet/csharptips/index/csharptips_index.html
初心者なら試しにここのC#プログラムをDelphiに移植してみたら？
一気に、２ｹﾞﾝｺﾞ覚えられるよ。

　　　　　＿＿＿___
　　　 ／　　／　 ／|　>>285
　　　 |￣￣￣￣|.　|　サンクス。あそこは病院で専用サーバー環境のようです。
　　　 |　　ﾟДﾟ ;　|／
　　　　￣￣￣￣

Excel拡張Grid
http://www2.odn.ne.jp/~cag07740/comp/component.html
　　　　　＿＿＿___
　　　 ／　　／　 ／|
　　　 |￣￣￣￣|.　|　＜だめ？>>287
　　　 |　　ﾟДﾟ ;　|／
　　　　￣￣￣￣
>Grid内の文字列をExcelへOLEを用いてコピーできるようにしました

Delギコさん、出てらっしゃい！

ありがとうございました＞Delギコ
試してみます。

　　　　　＿＿＿___
　　　 ／　　／　 ／|
　　　 |￣￣￣￣|.　|
　　　 |　　ﾟДﾟ ;　|／
　　　　￣￣￣￣
　　　　　＿＿＿___
　　　 ／　　／　 ／|　ﾌｯ
　　　 |￣￣￣￣|.　|
　　　 |＿＿＿＿|／

　　　　　＿＿＿_____　　ﾊﾟｶ
　　　 ／　　／　　／＼
　　　 |￣￣￣￣|＼／
　　　 |＿＿＿＿|／

　　　　　　　　　　／|
　　　　　＿＿＿_|　|
　　　 ／　　／　.|／|
　　　 |￣￣￣￣|.　|
　　　 |＿＿＿＿|／

　　　　　＿＿ ／＼
　　　 ／　　／＼.／|
　　　 |￣￣￣￣|.　|
　　　 |＿＿＿＿|／


　　　　　＿＿ ／＼　ｺｿｯﾄﾅ
　　　 ／　　／＼.／|∧∧
　　　 |￣￣￣￣|.￣(,,ﾟДﾟ)
　　　 |＿＿＿＿|￣U U

　　　　　＿＿ ／＼　　　　ﾆｮｷﾆｮｷ
　　　 ／　　／＼.／|　　　　　　　　　　　　　　　∧∧
　　　 |￣￣￣￣|.￣￣￣￣￣￣￣￣￣￣￣(,,ﾟДﾟ)
　　　 |＿＿＿＿|￣￣￣￣￣￣￣￣￣￣￣U U

　　　　　＿＿ ／＼
　　　 ／　　／＼.／|
　　　 |￣￣￣￣|.￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣＼
　　　 |＿＿＿＿|￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣＼　|
　　　　　　　　＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿　　　 　 　|　|
　　　　　　 ／　＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿　＼　　　　|　|
　　　　　／　／　　　＿＿＿＿ ∧ ∧　 ／￣￣￣￣￣.　　　　　　　　　　　 　 　　　|　　| 　 　　.|　|
　　　　　|　　|　　 ／　　＿＿＿(,ﾟДﾟ,)＜　スターファイヤー　　　　　　　　　　　　　　|　　|　 　　 .|　|
　　　　　|　　|　　|　　／　　　　　U U　　＼＿＿＿＿＿　　　　 　 　 　 　 　 　 　 　 |　　|　　 　 .|　|
　　　　　|　　|　　|　　＼__＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿／　／　. 　 　|　|
　　　　　|　　|　　 ＼＿＿_＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿_／　　　　 .　|　|
　　　　　＼　＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿___＿＿／　|
　　　　　　 ＼＿＿＿＿_＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿___＿＿＿／

　　　　　 ∧ ∧　　／￣￣￣￣￣￣￣￣￣￣￣
　〜' ― (,,ﾟДﾟ) ＜　お遊びはさておき。
　 　し― し-Ｊ　 　＼＿＿＿＿＿＿＿＿＿＿＿

WebサービスってD6Ent版しか利用できないんでしたっけ？

＠IT会議室 > Insider.NET 会議室
http://www.atmarkit.co.jp/bbs/phpBB/viewforum.php?forum=7

ここみてて
VS.NETでwebサービス利用しているのは恨めしいので
D6でﾀﾞﾚｶ何か作ってくれません？

…ﾈｺ ﾆｬ ﾃﾞｷﾅｲｶﾗ…

>>293
メッチャﾜﾗﾀ
それだけのために3レス使うとは・・・さすがDelギコを名乗るだけはある

　　　 ∧ ∧　　　／>それだけのために3レス使うとは
　　∩(,,ﾟДﾟ)　＜　>>297ごめんなさい。
⊂,,＾＿_つつ.　　＼＿

　　ﾜﾗﾃ-- ﾕﾙｼﾃ

http://piza2.2ch.net/test/read.cgi?bbs=mona&key=999974333&st=139&to=139&nofirst=true
これどうよ？

∩（　´_ゝ`）∩ ﾌｰﾝ

>296

>今回は Delphi 6 Professional と Microsoft SOAP Toolkit + IIS を使って SOAP サーバー、SOAP クライアントをつくってみます。
http://homepage2.nifty.com/boheme/delphi/techdoc/dad0080.html
こりはどう？

>296

>今回は Delphi 6 Professional と Microsoft SOAP Toolkit + IIS を使って SOAP サーバー、SOAP クライアントをつくってみます。
http://homepage2.nifty.com/boheme/delphi/techdoc/dad0080.html
こりはどう？

>>296
Web Service なら、www.xmethods.com にいくよろし。

Enterprise/Trial なら、SOAP 使えるでしょ。

　　--下手人-∧ ∧ 　／￣￣￣￣￣￣￣￣￣￣
〜□□ □□ ( ﾟДﾟ)＜　 正直ｽﾏﾝsage
　 (Ｏ)----(O)U-U)　＼＿＿＿＿＿＿＿＿＿＿

CGI改造、今月はｽﾛｰﾀﾞｳｿになります

>>304
?
関係者？

XML Magazine Autumn
でSOAPベースのWebサービスリストが出てるよ
Delphiで作ってるサイトものっている
ソース公開してるとこないかなぁ
Demoはむつかしい

最近は難しい思想の話ばかりで
気軽に質問という雰囲気が失われてしまた…

今４つもスレがあるので　上手に割り振る事と
　無用な摩擦を避ける為に あたらしい話題を振る時以外はsageで進行しましょう

（入門段階初心者向け）Borland Delphi初心者用お勉強スレ
http://piza2.2ch.net/test/read.cgi?bbs=tech&key=1001035627

（中級者<実装>向け） Delphi相談室その２
http://piza2.2ch.net/test/read.cgi?bbs=tech&key=995950803

（上級者<思想>向け） Delphi/Kylix Tech 2nd
http://piza2.2ch.net/test/read.cgi?bbs=tech&key=993005709

（ ﾟДﾟ)ノ　Delギコ猫のﾌﾟﾛｸﾞﾗﾐﾝｸﾞ相談室part2（中・上級者<雑談>向け）
http://piza2.2ch.net/test/read.cgi?bbs=tech&key=999482946

　　　　　 ∧∧　　／￣￣￣￣￣￣￣￣￣￣￣
　＠' ― (；ﾟДﾟ) ＜　自由にやろうよ。
　 　し― し-Ｊ　 　＼＿＿＿＿＿＿＿＿＿＿＿

なんとなく ML に紹介されてから荒れたよね。
無意味な長文投稿や仕切り屋が現れるようになった。
いやだねぇ。

＞無意味な長文投稿や仕切り屋が

　　　　　　　　　　∧ ∧
　　　　　　　　 Σ(,,ﾟДﾟ)
　　　　　　　　　　/　｜ 　　ｿﾚ ｵﾚ ﾉ ｺﾄ ｼﾞｬﾝ
　　　　　　,, ,,,, 　（＿,ﾉ　,,, ,　,,
　　　　　　　　　　ノ ,,

　　　　D6で遊ぶ人がいなくなた...
　　　　　　9末の決算前でみんな忙しいのかな。
　　　　　それとも秋たのか...

　∧∧∩　 ／￣￣￣￣￣￣￣￣￣￣
　(ﾟДﾟ)ﾉ　＜　ｼﾂﾓｰｰｰｰソ　　ニャー
　(|　　|　　　＼＿＿＿＿＿＿＿＿＿＿
〜|　･ |
　 ∪∪
　イベントログってどうやって取得すればいいんですか？

http://www.atmarkit.co.jp/fdotnet/csharptips/002anchor/002anchor.html
ここでやっている物と同じのをDelに移植したいの。　

>>312 イベントログだけ取るデバッガを作りたいって事？

それとも保存したログのビュア？

>>312
そこで見てるのってNTのイベントビューア用のログで
Delphiのデバッガの「イベントログ」とは別物だけどどっちのこと?

　　　　∧ ∧　　リンク先みていただければ…
　　　　( ﾟДﾟ)
　　〜（　uu） 　たぶんNTのイベントビューアの方です。

なら CDROMのWin32日本語ヘルプから

　イベント ログの概要 OpenEventLog
で調べれば？

http://www2.big.or.jp/~osamu/Delphi/delphi-browse.cgi?index=013468
　1件だけしか取得できないって書いてるけど…

　webサーバーアプリではEventlog取得は必須じゃないの？

￣￣￣∨￣￣￣￣￣￣
　　　∧ ∧　　みてもわかんニャ
　　　(,, ﾟДﾟ)
　　　ﾉつl⌒|⌒l
　〜(.＿［￣￣￣.］
　　　　　　￣￣￣
　　氏ってたらもすこし詳し〜ク教えてくださいな。

>>317
>　1件だけしか取得できないって書いてるけど…
1件しか取得してないサンプルコードなだけじゃん。
それにhelpに説明あるし。Del付属は英語かもしれんが
日本語の説明はwebにあるし。
http://www.microsoft.com/japan/developer/library/jpwinpf/_win32_ReadEventLog.htm

　　　　　　　　 ／￣￣￣￣￣￣￣￣￣￣￣￣￣
　　 ∧ ∧　 ＜　 教えてくんないから、不完全なものになっちゃった
　　 （,,ﾟДﾟ） 　 ＼＿＿＿＿＿＿＿＿＿＿＿＿＿
　 　｜　⊃くコ:彡　ｲｶ ﾄﾞｳｿ
　〜（＿⊃⊃
Inseder.NET　DelphiﾌﾟﾛｸﾞﾗﾐﾝｸﾞTips？？
http://do.sakura.ne.jp/~junkroom/cgi-bin/megabbs/readres.cgi?bo=lounge&vi=1001489683

　 ∧ ∧　
　 (,,ﾟДﾟ)　 ＜　一仕事ｵﾜｯﾀから、ビールでもｸﾚ。
　 |⊃ ,⊃　　
＠|　　|
　 ∪∪本家のぱくりです。
> Insider.NET > C#プログラミングTips
http://www.atmarkit.co.jp/fdotnet/csharptips/index/csharptips_index.html

　∩ ∩
　| ∪ | ﾔｯﾃﾖｼ
　|　 〜
　|∧ ∧　　　／￣￣￣￣￣￣￣￣
　( ,,ﾟДﾟ)つ ＜　よし！Insider.NET 会議室に殴りこみだ！
　Ｕ　　　　　　＼＿＿＿＿＿＿＿＿
http://www.atmarkit.co.jp/bbs/phpBB/viewforum.php?forum=7

♪聞いてしぃちゃん　ちょっと言いにくいんだけど
♪聞いてしぃちゃん

さいきん、ほんとうにレスがないの。
がんばったのに反応ないと、大変さみしーの

聞いてくれてあーりがと　しぃちゃん♪
＿＿＿＿＿　　＿＿
ﾔﾃﾞｽ　　　　＼／
　∧∧ 　　 ∧∧
　(*ﾟーﾟ)　　(ﾟДﾟ,,) ｼｰﾁｬﾝ ﾉ
　ﾉつ旦) 　(旦⊂) 　　ﾑﾈﾃﾞ ﾅｶｾﾃ
て　 ) )　　　( ( 　）〜
|￣∪ J￣￣ιし'￣|
|..　　 　 　 　 　　　 ｜
　__∧＿＿＿＿＿＿＿＿＿＿＿＿
/
　　AAが使いまわしになったから
　　みんなアキちゃったんじゃないでちか。

　　あと、一人で書いているとｵﾅﾆみたいですし…

その程度でいじけるとは寂しがりすぎるぞ
￣￣￣￣￣∨￣￣￣　　　　　　　(´´
　　　　 ∧∧　　　）　　　　　　(´⌒(´
　　⊂（ﾟДﾟ⊂⌒｀つ≡≡≡(´⌒;;;≡≡≡
　　　　　　 ￣￣　 (´⌒(´⌒;;
　　　　　　ｽﾞｻﾞｰｰｰｰｰｯ

　　--下手人-∧ ∧ 　／￣￣￣￣￣￣￣￣￣￣
〜□□ □□ ( ﾟДﾟ)＜　９月末はＰＪの納品が多いのdeath
　 (Ｏ)----(O)U-U)　＼＿＿＿＿＿＿＿＿＿＿

ReadEventLogで読むだけでっしょ
わからないならBackupEventLogで吸えば良いですし

鯖の監視はJP1とかSystemWalkerとかシステム監視PKG使ってますですﾊｲ
MLでも１件しかネタないし、結構ｺｰﾃﾞｨﾝｸﾞ需要無いのかいな？

　 　 ☆　 　。　 　 +　 　　　　　。☆
　　　　　　　　　　　　　 。
　 　　　 　*　　　　★　 　　+☆
　 ☆　・　　　　　　　 　　　　　　　 ＿＿＿＿＿＿＿＿
　 　 　　　　　　 ∧＿∧　　　 　／
　 　 　 　 　 　 （　´∀｀）つ　 ＜　Delギゴさん、落ち込むことは無いモナー
　 　 　　　　／￣￣￣￣.＼　 　＼
　 　 　 　 　|) ○　○　○ （|　 　 　￣￣￣￣￣￣￣￣
　 　 　　　／″　 　　　　　　＼
　 　 　 ／＿＿＿＿＿＿＿＿ ＼
　（（ 　 ￣ ∪∪ ∪ ∪ ∪∪　￣
　 　 　　　　　 ￣￣￣￣
gikopeのお陰でAAが余裕なんだモナー。感謝だモナー。

どこにDel6のdfmフォーマットを旧バージョンと互換性のあるものにするレジストリ操作法が載っていたと思うのれす。
教えて欲しいのれす。

>>325
前スレの559にあるよ。

（ ﾟДﾟ)ノ　Delギコ猫のﾌﾟﾛｸﾞﾗﾐﾝｸﾞ相談室part2
http://piza2.2ch.net/test/read.cgi?bbs=tech&key=999482946

（ ﾟДﾟ)ノ　Delギコ猫のﾌﾟﾛｸﾞﾗﾐﾝｸﾞ相談室part2
の方がマターリしててよかった
（ ﾟДﾟ)ノ　Delギコ猫のﾌﾟﾛｸﾞﾗﾐﾝｸﾞ相談室part2
の方がマターリしててよかった

しつこいって？
何度でも言ってやるさ

（ ﾟДﾟ)ノ　Delギコ猫のﾌﾟﾛｸﾞﾗﾐﾝｸﾞ相談室part2
の方がマターリしててよかった
（ ﾟДﾟ)ノ　Delギコ猫のﾌﾟﾛｸﾞﾗﾐﾝｸﾞ相談室part2
の方がマターリしててよかった
（ ﾟДﾟ)ノ　Delギコ猫のﾌﾟﾛｸﾞﾗﾐﾝｸﾞ相談室part2
の方がマターリしててよかった
（ ﾟДﾟ)ノ　Delギコ猫のﾌﾟﾛｸﾞﾗﾐﾝｸﾞ相談室part2
の方がマターリしててよかった
（ ﾟДﾟ)ノ　Delギコ猫のﾌﾟﾛｸﾞﾗﾐﾝｸﾞ相談室part2
の方がマターリしててよかった

Q. OpenDialog 系で、ファイルタイプで選んだ拡張子に応じて、上書き確認メッセージを出したい -> 質問詳細 http://piza2.2ch.net/test/read.cgi?bbs=tech&key=999482946&st=12&ls=12
A. http://piza2.2ch.net/test/read.cgi?bbs=tech&key=999482946&st=41&ls=50

Q. Label の Caption 変更時のちらつきをなくしたい
A. http://piza2.2ch.net/test/read.cgi?bbs=tech&key=999482946&st=47&ls=47

Q『ボーランドのナンセンスでないライセンス規定』および制限付保証 ... このタイトルはジョークですか
A ﾅｳなﾔﾝｸﾞにﾊﾞｶｳｹだと思ったんでしょう

Q Delphi6 の dfm ファイルに下位互換性を持たせたい
S >>556
これか！DFM ファイルの形式が今までのと同じになるね。
[HKEY_CURRENT_USER\Software\Borland\Delphi\6.0\FileFormat]
"DFMFormat"=dword:00000000

>>328 >>209

>328のリンクは目茶苦茶ですよ。

>>330
to と ls を間違えていると思われ…

同一スレなら＞＞が使えるよ！

また、↓の様にもできるよ！
ttp://piza2.2ch.net/test/read.cgi/tech/999482946/12

標準ライブラリを改造して速度比較をしたいんだけど，
なんか手頃なベンチマークソース知らない？

>>333
なんだ?ベンチマークソースって?
アバウトにGetTickCountじゃだめなの?

>>334
ある程度広い範囲の，いろんなコードを含んだソースコードがほしいのだ。

Ｄｅｌギコさんって引き篭もっちゃったの？

>>323-324　サンクス
>>327　ごめんなさい、折れがワルーござんす
>>328　サンクス。がんばってください
>>333-335　http://www.ceres.dti.ne.jp/~dycoon/program/uspeed.html
　検索したら出てきました
>>336

￣￣￣∨￣￣￣￣￣
　　　∧ ∧ 　　ﾏﾀｰﾘ ｲｺｳ
　　　( ﾟДﾟ)　
=====U U===
|　引きこもり　|
|　しています｜
￣￣￣￣￣￣
昨日存在に気がついたメッセージフックサブクラス化のよさそうなコード
http://homepage1.nifty.com/wizman/component/menudeco/index.html
興味ある人はドゾ

>>337
げ。Wizman。

うぅぅ、Wizmanきもちわるいよぉ
http://homepage1.nifty.com/wizman/stebeta3/index.html

くだらない事かもしれませんが。

IniFileに Font 設定を保存する事が多いので、
ReadFont, WriteFont メソッドのあるIniクラスを作ろうと思っていますが
ReadFont を以下のどちらの仕様にするかで悩んでいます。

1)TIniFileEx = class( TIniFile )
public
　function ReadFont(Settion, Key:string; AFont:TFont ):TFont;
　procedure WriteFont(Settion, Key:string; AFont:TFont );
end;

2)
TIniFileEx = class( TIniFile )
public
　procedure ReadFont(Settion, Key:string; DefaultFont, DestFont:TFont ):TFont;
　procedure WriteFont(Settion, Key:string; AFont:TFont );
end;

(1) では ReadFont 内で TFont のインスタンスを作成しているのですが、
これだと呼び出す側のコードに Create が無いのに Free する
というなんだか曖昧な使い方になりそうです。
（でも TScreen.Fonts なんかはそうですね ）

(2) では他の Read〜 メソッドとの使用方法の整合性というか、
使い方が異なる点が気になります。

　 ∧ ∧　 　 ／NTイベントログの取得方法
　 (,,ﾟДﾟ)　 ＜　　あってます？
　 |⊃ ,⊃　　 ＼
＠|　　|
　 ∪∪>>317>>318>>323より
const
　EVENTLOG_SEQUENTIAL_READ　= $0001;
　EVENTLOG_SEEK_READ　　　　= $0002;
　EVENTLOG_FORWARDS_READ　　= $0004;
　EVENTLOG_BACKWARDS_READ　 = $0008;

procedure TForm1.Button1Click(Sender: TObject);
var
　h: THandle;　lpBuffer: Pointer;
　cbBuffer, cbRead, cbRequired: DWORD;
　s: string;　pevlr: PEventLogRecord;
　p: PChar;　LoopEnd: BOOL;
begin
　cbBuffer := 4096;
　GetMem(lpBuffer, cbBuffer);
　try
　　s := 'Application';　//ここを'System'や'Security'に変えるとよいようだ。
　　h := OpenEventLog(nil, PChar(s));
　　if h = 0 then
　　begin
　　　MessageDlg('イベントログが開けません', mtError, [mbOK], 0);
　　　exit;
　　end else
　　try
　　　repeat
　　　　LoopEnd :=
　　　　ReadEventLog(h, EVENTLOG_SEQUENTIAL_READ or EVENTLOG_FORWARDS_READ,
　　　　　　　　　　 0, lpBuffer, cbBuffer, cbRead, cbRequired);
　　　　pevlr := lpBuffer;
　　　　// SourceName
　　　　p := PChar(DWORD(pevlr) + sizeof(TEventLogRecord));
　　　　s := string(p) + '|';
　　　　// ComputerName
　　　　p := PChar(DWORD(pevlr) + sizeof(TEventLogRecord) + Length(s));
　　　　s := s + string(p) + '|';
　　　　p := PChar(DWORD(pevlr) + pevlr.StringOffset);
　　　　s := s + string(p) + '|';

　　　　ListBox1.Items.Add(S);
　　　until (LoopEnd = False)

　　finally
　　　CloseEventLog(h);
　　end;

　finally
　　FreeMem(lpBuffer);
　end;
end;

でも出てくる表示が＠ITのとずいぶん違っているような気がするのですが、
日付もﾃﾞﾃｺﾅｲし

> コントロールの位置や大きさを自動的に調整可能にする
> http://www.atmarkit.co.jp/fdotnet/csharptips/002anchor/002anchor.html

VBでスタートアップをSub Mainにして
Private Sub Main()
Form1.Show 1
Form2.Show 1
Form3.Show 1
End Sub
のような動作をさせていたんですがdelphiではどうやるんでしょうか？
.dprファイルのbegin-end間にプログラムを書くと
フォームを持たないプログラムができるときいたので
やってみたんですがうまく動きません。

>>342
何がやりたいのか日本語で書いてよ(笑)

　　∧ ∧　　 ／ >>340　くだらなくないっす。
　　（ ﾟДﾟ）＜
　　 |つ つ　 ＼ FontToStr/StrToFontを実装した方がよくないっすか？
　〜|　　|
　　∪ ∪ ｿｳｼﾀ ｹﾄﾞ

もしやるのでしたら
TIniFileEx = class (TIniFile)
public
　procedure ReadFont(... ; AFont: TFont);
　...
end;
で、AFontに in out すべて任せるのがいいかも。
DefaultFontを指定するために in out 別にしたいなら
ReadFontの外でTFont生成すればいいんだし…

関数内でインスタンス生成して戻り値にするってのは
どうも変な気がします。

具体的に書きますと起動する時のパラメータによって
起動するフォームを変えたいんです。
普通に作るとメインフォームが決まってしまうので
そこをどうにかしたいということなんですが。

　∧ ∧ 　　　／￣￣￣￣￣￣￣￣￣￣￣
　(,,ﾟДﾟ)　　＜ 　ﾜｶﾘﾔｽｲ質問と明確な回答がいいですね。
　∪　 |つ∀ ＼＿＿＿＿＿＿＿＿＿＿＿
〜|　 ｜
　 U U >>345はGood>>342は意味不明です

program Project1;

uses
　Forms,
　Unit1 in 'Unit1.pas' {Form1},
　Unit2 in 'Unit2.pas' {Form2};

{$R *.res}

begin
　Application.Initialize;
　Application.CreateForm(TForm1, Form1);
　Application.CreateForm(TForm2, Form2);
　Application.Run;
end.

起動パラメータ(ParamStr)で
このCreateFormの順番を変更してみてください。
最初にCreateFormされたものがMainFormになります。

>>343
わかりにくい表現で申し訳ないです。
>>344
ありがとうございます。やってみます！

>>346
あらら。346でした。ごめんなさい。

>>340

procedure ReadFont(Settion, Key:string;var AFont:TFont);
procedure WriteFont(Settion, Key:string;var AFont:TFont);

というふうにして、TFont のインスタンスの作成／廃棄は、
このメソッドを呼ぶ方にまかせたらどうでしょうか。

うーむ、実際に *.ini ファイルにどう記録するかはともかく、
この方式にするといろいろ記録できておもしろいと思います。

おっと、

WriteFont のほうは var いらないですね。

バカだった。両方いらなかった。

たんに AFont に ini ファイルから読み込んだ値を代入するだけ。

>>341
日付はTEventLog構造体の
TimeGenerated: DWORD;
TimeWritten: DWORD;
で
EncodeDate(1970, 1, 1) + (TimeWritten / 86400);
変換するってあったような<<無責任モード

Delphi6 だと Ctrl+Shift+C でコード補完したときに
ちゃんとアルファベット順で挿入されるYO!
感動

>>353
スコープ順の方が使いやすいと思われ

日本語版パッチ公開あげ

　　　∧∧　　　／￣
＠＿(,,ﾟДﾟ)　＜　前から選択できるんじゃなかったかしら。
⊂,,＿_つつ.　　＼＿
コードエクスプローラの設定？
わからないですが。

>>355　まじ？

　　　∧∧　　　／￣
＠＿(,,ﾟДﾟ)　＜　とりあえず、今は更新されてないみたい。
⊂,,＿_つつ.　　＼某のサイト

Delギコうんこ

＿＿_ 　ヽ
＿ ／⊂　｀∧ ∧　　／￣￣￣￣￣￣￣￣￣￣￣￣￣
　｜　|　 ＼(　ﾟДﾟ)＜　MLでOhNo氏がアナウンスしてるんですね
　 | ／　　　∪ ∪　　＼>>日本語パッチ
￣
　　　　　　　　　 ,,ヽ
　　　　　　　　　⊂, ｀＼⊃　ﾍﾞﾁｬ ／￣￣￣￣￣￣
　　　　　　　　　　 ＼∧∧　　　＜　　Subjectﾜｹﾜｶ だったので見逃してた
　　　　　　　　　　 ⊂(,,ﾟДﾟ)つ))　 ＼＿＿＿＿＿＿
￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
　　　　　　　試したい人はOhNoﾀﾝにメールしたらよいらしい。

>>360
件名が全部英単語だと理解できないとか？

アップデートのテスターの募集じゃないか。

　　　∧∧ ﾌﾟﾊｰ 　 ／￣￣￣￣￣￣￣￣￣￣￣
　　　(,,ﾟДﾟ) =3 　＜　なんとなく独り言
　　　| つ日~~ 　　　＼＿＿＿＿＿＿＿＿＿＿＿
　 〜|　　）
　　　U U

TStringListのHELPみました。

TStringList.CaseSensitive
TStringList.Duplicates
TStringList.Sorted
TStringList.CustomSort
TStringList.Find
TStringList.Sort

使いにくそーだ。
TSortedStringList作ってくれる方がよかったのに！


TStrings.DelimitedText
これはイイ！！

>>353
Ｄ４，Ｄ５でも自分でCtrl＋Shift＋Ｃしてるだけなら
アルファベット順になるのですけどね．
（ノッペラボーのフォームに，
　Foo, Hoehoeeeee, Aryoooon
というメソッドをCtrl＋Shift＋Ｃで順に作ってみるとわかります）

でも，コンポーネントやオブジェクトインスペクタをダブルクリックして
イベントハンドらを生成させると
問答無用で一番下に作られてしまう．
Ｄ６ではそれが改善されたわけですね．

>>362
>TSortedStringList作ってくれる方がよかったのに！
TListBox の Sorted を true にして Items を使えばお望みのものになると思われ。

プロパティは再宣言により上位クラスでprotected属性なのをpublic属性にできるけど
メソッドではできないんでしょうか？

>>365
できるはず

　∧∧　 　>>364、ListBox使ってソートってVBじゃないんすから・・・
　(,,ﾟДﾟ)　 　　　　　TStringListでもSortedをTrueにしたらOKです
　U　 ,つ゛　　　　　ただクラスの設計がイマイチに感じﾃﾏｽ。
　|　　| 　　　StringList.Sorted=TrueにしたらInsertは使う名とか書かれてマス
ノ∪∪　　　　なんじゃそりゃ。

>>363　ﾈｺﾄｺの環境では改善されてるように見えないんすが・・・・・・

>>365　メソッドも継承クラスでpublicには出来ると思います。

TA = class
protected
　procedure f;
end;
TB = class(TA)
public
　procedure f; //(1)
end;

TA.fが定義してあっても(1)で「forwardまたはexterna;宣言された'TB.f'が見つかりません」
というエラーが出るのですが、どうしたらいいでしょうか？

言語ガイドをみてもプロパティについては書いてあるけど、メソッドについては何もかいて
ないし・・・。

>>367
>TStringListでもSortedをTrueにしたらOKです

はうぁ。逝ってきま・・・

　∧ ∧ 　　>>368
　(；ﾟДﾟ) 　　単にimplementationの実装がないからヂャないっすか？？
　(|　　|つ
〜|　　| 　　抽象メソドならvirtual; abstract;を付けたり・・・
　 ∪∪

>>370
inherited;一発やるだけの実装が必要ってことかな。
propertyみたいに宣言部だけでpublicに移動できるかって質問じゃなかったのかな。

　　ﾆｬﾙﾎﾄﾞ!
　　　∧∧　＜　>>371　やっとわかりました。
（ ＿(,,ﾟДﾟ)　　　>>365=368さん、そういう意味では
⊂＿＿つつ 　　　　　　　　　実装なしにprotectedからpublicへは無理です。
　　　　　　　　　　propertyのバヤイ、実装は全てメソッドに依存しているので
　　　　　　　　　　ああいう事ができるようです。

procedure TB.f;
begin
　inherited;
end;
これを記述してくらさい。

>>371
解読ありがとうございます。

>>372
了解しました。
ただ、C++ではできたような記憶があるので、言語仕様的に納得がいかないのですが。

ありがとうございました。

>>373
> ただ、C++ではできたような記憶があるので、言語仕様的に納得がいかないのですが。

いや、C++ も無理だったと思われ。

そんなに強く言うなって>>374
Delphi言語仕様も、ブビ程ではないが、変わり続けてるんだから。

　　∧ ∧　　 ／￣￣￣￣￣￣￣￣￣￣￣￣￣
　　(,,ﾟДﾟ)　＜　質問。してみます。
　 ./　 　|　　　＼＿＿＿＿＿＿＿＿＿＿＿＿＿
＠（＿__ﾉ

　StringGridにBarを貼り付けるという例のことをやっているのですが
　(StringGridのScrBarは貧弱なためにTScrollbarを重ねて連動させているのです)

　ParentをGridにして内部にTScrollbarを持つと
　どうしてもGridのリサイズなどに対応できず、正しくリサイズされなくなります。

　Control内部にControlを所有するとこういう問題が起きると
　思うのですが、どうやって対処したらよいのでしょうか。

　もしかしてParentをSelfにせずにSelf.Parentにでもしたらいいんでしょうか？

　あと、DesigneジにVisible=Falseとコードで書いても効果ないようですが
　これを効果あるように出来ないでしょうか。

　よろしくお願いします。

ソースと質問内容をｱﾌﾟしてます。
http://do.sakura.ne.jp/~junkroom/cgi-bin/megabbs/readres.cgi?bo=lounge&vi=1001650795&res=2
長いのですが、よろしければ教えてください。

>>378
私の妄想だったようです。すみません。

俺、天才

定期コピペ
= = = = = = =

Q.ツールメニューにエクスプローラを登録し、編集中のプロジェクトを開く
A. >>206

Q. コンパイルに必要な全ファイルを知りたい
A. >>8

Q. 画像ファイルをドラッグ＆ドロップすると、その画像が表示されるようなプログラム作りたい
A. >>47

Q. 実行ファイルの末尾についているデータを読み出したい
A. >>107 >>131 >>133 >>144-146

Q. 自分自身を削除したい
A. >>108 >>125 >>138

Q. 起動中プログラムの実行ファイルを知りたい
A. >>148

Q. 起動する時のパラメータによって起動するフォームを変えたい
A. >>346

Q. Char 型配列をゼロで初期化したい
A. http://piza2.2ch.net/test/read.cgi/tech/999482946/130
http://piza2.2ch.net/test/read.cgi/tech/999482946/144

Q. アーカイバを作りたい
A. http://do.sakura.ne.jp/~junkroom/cgi-bin/megabbs/readres.cgi?bo=lounge&vi=999663627

Q. ｖｂのcall命令みたいな物は? 質問詳細→http://piza2.2ch.net/test/read.cgi/tech/999482946/182
A. http://piza2.2ch.net/test/read.cgi/tech/999482946/183

Q. OpenDialog 系で、ファイルタイプで選んだ拡張子に応じて、上書き確認メッセージを出したい -> 質問詳細 http://piza2.2ch.net/test/read.cgi/tech/999482946/12
A. http://piza2.2ch.net/test/read.cgi/tech/999482946/50

Q. Label の Caption 変更時のちらつきをなくしたい
A. http://piza2.2ch.net/test/read.cgi/tech/999482946/47

Q.『ボーランドのナンセンスでないライセンス規定』および制限付保証 ... このタイトルはジョークですか
A ﾅｳなﾔﾝｸﾞにﾊﾞｶｳｹだと思ったんでしょう

Q. Delphi6 の dfm ファイルに下位互換性を持たせたい
A.
http://piza2.2ch.net/test/read.cgi/tech/999482946/559
>これか！DFM ファイルの形式が今までのと同じになるね。
>[HKEY_CURRENT_USER\Software\Borland\Delphi\6.0\FileFormat]
>"DFMFormat"=dword:00000000

Q. 文字列が整数に変換可能かどうか調べたい
A. http://piza2.2ch.net/test/read.cgi/tech/999482946/232

Q. Del6のShellListView で、特定の拡張子をもったファイルのみを表示させたい
A. http://piza2.2ch.net/test/read.cgi/tech/999482946/522-523

Q. ShellTreeView で、指定したフォルダを展開し、スクロール院したい
A. http://piza2.2ch.net/test/read.cgi/tech/999482946/550-5513

test

　　--下手人-∧ ∧ 　／￣￣￣￣￣￣￣￣￣￣
〜□□ □□ ( ﾟДﾟ)＜　風速はやい〜
　 (Ｏ)----(O)U-U)　＼＿＿＿＿＿＿＿＿＿＿

前に誰かが言ってた、ファイルうぷ機能に対応しました。
ＶＣＬやソースのテスト公開などに御利用ください。

>>376

>StringGridにBarを貼り付けるという例のことをやっているのですが
>(StringGridのScrBarは貧弱なためにTScrollbarを重ねて連動させているのです)

TStringGrid の標準スクロールバーの機能のどこが「貧弱」ですか。
・サム（つまみ）の大きさが固定
・つまみをドラグ中に同期してスクロールしない。

上のふたつは、派生クラスをつくったり、ギコ得意の「サブクラス化」で簡単に
改善できるぞ。

>ParentをGridにして内部にTScrollbarを持つと
>どうしてもGridのリサイズなどに対応できず、正しくリサイズされなくなります。
>
>Control内部にControlを所有するとこういう問題が起きると
>思うのですが、どうやって対処したらよいのでしょうか。

あのね、TScrollbar の Parent を TStringGrid にしたら、その分だけ
クライアント領域が小さくなるよね。だからこれはダメ。
どうしても TScrollBar を使うなら TStringGrid.Parent を Parent にして
右側と下に貼り付けること。TStringGrid の OnResize は無かったっけ？
なければギコ得意の「サブクラス化」で WM_SIZE を捕まえて、いつでも
右と下に位置を維持する。これは見かけがヘボい。

最も良い解決法は、最初に書いたとおり TStringGrid の標準スクロールバーを
そのまま使って、「貧弱」なところをコードで補うことだと思う。
その方が簡単だし。

その画像ならココ
http://www.f2.dion.ne.jp/~impact14/

> ・サム（つまみ）の大きさが固定
> ・つまみをドラグ中に同期してスクロールしない。
>上のふたつは、派生クラスをつくったり、ギコ得意の「サブクラス化」で簡単に改善できるぞ。

　∧ ∧　 　／
　(,,ﾟДﾟ)　＜　 マヂカニャ！！！
　 |つ つ　　＼ いろいろやってダメっぽかったから
＠|　　| 　　　　TScrollbarを使ったんだけど…
　 ∪∪
　　ｺﾄｺﾞﾄｸ ﾈﾗｲ ﾊｽﾞﾚﾃ ﾙｰﾙﾙｰﾙｰﾙﾙｰ
　　

http://kova.cside2.jp/bbs/cyclamen.cgi?log=delbas&tree=r381
関係あるのかも

　
　　　　　　　∧ ∧　　ちがう質問なんだけど
　　　　　　　( ﾟДﾟ)
　　　　　　　|∪ | 　　コード上で直にWideChar指定するのって
　　　　　 〜|　　| 　　どうするの？
　　　　　　　U U

　　function StringOfWideChar(Ch: WideChar; Count: Integer): string;
　　var
　　　i: Integer;
　　begin
　　　for i := 1 to Count do
　　　begin
　　　　Result := Result + Ch;
　　　end;
　　end;

begin
　　×StringOfWideChar('あ', 1);
　　×StringOfWideChar(WideChar('あ'),1);
　　×StringOfWideChar(WideString('あ'), 1)
　　○StringOfWideChar(WideString('あ')[1], 1)
end;
WideString('あ')[1]
って、括弧悪いっす。 これしかやり方ないですか？

constにしてからシロってことかな。。

>386
char と１文字の文字列を同一視できる Delphi-Pascal の拡張が悪さを起こしているのね。

>>386
WideChar($3042) って、どう？

唐突ですが
pascalの言語としての将来性はどのくらいありますか？
pascalここがいやだ〜というところはないですか？
ちなみに私はbegin,endが嫌いなのでC/C++派だったのですが
C/C++のポインタにはうんざりしてます。今はjava派

>>389
>pascalここがいやだ〜というところはないですか？

ありまふ。ポインタ使うときの ^ が、慣れないからか目障り。
あとは、テンプレートと演算子オーバーロードをサポートしてくれれば、完璧。

>pascalの言語としての将来性はどのくらいありますか？

pascalそのものはＯＯＰでもない上　モジュール化（分割コンパイル）も
言語上サポートしていない、　あるいみプアな言語です

Delphiはボーランドによる上手な仕様拡張によってpascalとは別物になっていますね。
ただpascalソースもある程度通す事が出来るようですが

私の将来の希望は、クラスレベルでのコルーチンのサポートですね。
他言語には無い特徴になるでしょう。

　　--下手人-∧ ∧ 　／￣￣￣￣￣￣￣￣￣￣
〜□□ □□ ( ﾟДﾟ)＜　>386 駄目みたいｱﾙね
　 (Ｏ)----(O)U-U)　＼＿＿＿＿＿＿＿＿＿＿

諦めて、変数をWideString宣言するかconstしましょう
「`〜`」でｳﾆｺｰﾄﾞ扱いとかにでも、してくれれば良いのにねぇ

>>389
将来性は無い。
C++に比べれば見劣りするし、JavaやC#のような「進化」を遂げてるわけでもない。
いったん現在のものとの互換性を切って改革をせねば
近い将来のうちに化石言語となるだろう。

>>391 他言語にはない特徴ということは、新言語？
言語をつくる人ですか？

DelphiはCからの違和感なし。
破壊的ポインター操作もできるから、
感覚的にCっぽい。
C++アレルギーのCユーザーや
テンプレート嫌いのC++ユーザー
にぴったりだな。

>>382
グリッドでスクロールバーをつまんで動かすと
グリッドも同期して動くっていうのは
OptionsプロパティのgoThumbTrackingをTrueにすれば良いのでは？
はずしてたらごめんなさいね．

バイナリエディタを作りたいのですが
ファイルを最初から､バイト単位で１６進表示していけば
良いのでしょうか？

いんじゃないの

　　--下手人-∧ ∧ 　／￣￣￣￣￣￣￣￣￣￣
〜□□ □□ ( ﾟДﾟ)＜　>>397 読み込みと表示に気をつけましょう
　 (Ｏ)----(O)U-U)　＼＿＿＿＿＿＿＿＿＿＿

でかいファイルを、最初に全部読むと辛い
あとスクロールバーと表示の同期とかもめんどっちいので

今だ！400ゲットォォォォ！！！
￣￣￣￣￣∨￣￣￣　　　　　　　(´´
　　　　 ∧∧　　　）　　　　　　(´⌒(´
　　⊂（ﾟДﾟ⊂⌒｀つ≡≡≡(´⌒;;;≡≡≡
　　　　　　 ￣￣　 (´⌒(´⌒;;
　　　　　　ｽﾞｻﾞｰｰｰｰｰｯ

>>396

うぁははっはは、>へたHalbow
そのとぉ〜り。D３１にもあるぞ！

>>393
たぶんみんな将来性ないのはわかっていて、
割り切って使ってるんじゃないのかな・・・。

>>395
まんまそれオレです（藁

言語はそのときの状況に応じて使い分ける。
いまDelphiを選択した人は自分にとって開発効率がいいと判断したんでしょ。
将来性なんてどの言語もわかんないよ。
将来性を気にするよりも
OSや業務の知識、アルゴリズムなどの
言語に左右されないところを勉強した方がいいね。
自分にとってDelphiよりも開発効率がいいものがでたらすぐそっちへ移るよ。

今>>403がいいこと言った！！

だから今はHSPにシフト中です

なにげにDelphiの文法はバージョンごとに拡張しつづけてるよね。
そのうちC#とそっくりになったりして。

C++は、選ばれし者以外のプログラムを拒否してるとしか思えんけどなぁ
慣れればどうということないけど、プログラム人口の増加には何一つ
貢献していないとおもうけどなぁ
そんなものに将来性いわれてもなぁ
その辺はjavaの方がマシだけど、開発環境のインストールがやっぱり
ワカランと聞かれまくるので、やっぱり作る人間は何も考えてないんだろうなぁ

とか煽ってみると厨が暴れに来るのかなぁ(w

既出かもしれんが、
Helpintfs.pasの
THelpManager.Createでメモリリークしているような気がするのだが。。。
Createメソッドの中で生成したオブジェクトを廃棄し忘れているようだ。
単にフォームだけのアプリでもリークしてるよ。
俺の間違いだと誰か逝ってくれ。

>>407
もしかして、これのことか？
http://hp.vector.co.jp/authors/VA000092/jokes/strup.html

C++はなんというか不変的な言語のような気がする。
どんなに忌み嫌われようがかなり後まで残るんじゃないのかな。

>>408
リークしてる。
もうすぐアップデータがでるのでそれまで我慢するか、
ソースを直して再コンパイルするか。

>>408,410
リーク，っていっても高々１アプリケーションあたり数十バイトで，それ以上は
浪費しないんだからきにするこたないでしょうに。

気にするなら Borland にメールして，アップデートのテスターに応募したら？

>>408
素直にソースなおして使ってる
といっても本番では怖くてまだ使えないけど
みんなD6で業務アプリとか作ってるの？

>>412
>といっても本番では怖くてまだ使えないけど
どういう条件がそろうと本番で使えると判断するの？

>>413
一つヴァグがあったから他にもヴァグがあるかも知れないと言うことだろ。
(違ってたらスマソ。俺の勝手な主観だ。)

もうしばらくしてアップデータが出るのを待つという事と思われ。
業務で使うなら少しでも安定性/確実性が欲しいわけだし。

……ところで相談室の厨房何とかならんもんか。

最低一回ぐらいPatchが出るとか
ユーティリティとか動作チェック用の簡単なプログラム作ってみる
自分が使わないVCLにバグあっても関係ないけど
今のところ標準コントロールとＤＢ関係かな
ActiveXとかServersは当分使わないから関係ないけど
ＤＢ関係結構変わってるので使うの怖いです

>>414
あんなのいつもの事だ
ほっとけ

>>416
漏れは無視(かちゅ〜しゃで透明ｱﾎﾞｰｿ)してたんだけど、
肝心の質問やその回答などへのﾚｽがなくなっちゃったYO(;;´д｀)

　 ∧ ∧＿＿　　　　　 　　／￣￣￣￣￣￣￣￣￣￣￣￣￣
　(ﾟДﾟ　)　　　　'　〜　　＜　 ただいま…･･･並び替えると　まだいた…
　　U U￣￣U U　　　　　＼＿＿＿＿＿＿＿＿＿＿＿＿＿

　　　∧∧　　　／￣
（ ＿(,,ﾟДﾟ)　＜　>>392　どもー。
⊂,,＿_つつ.　　＼＿ ﾔﾊﾟｰﾘ だめですか。
　ﾅﾝﾃ ｼｮﾎﾞｲ ･･･ ｲﾔｲﾔ

　　　∧∧　　　／￣ Gridの改造が標準Scrollbarのサブクラス化で可能なら
（ ＿(,,ﾟДﾟ)　＜　　　やり方を教えてYO
⊂,,＿_つつ.　　＼＿
　　　∧∧　　　／￣ DelphiPascalの将来性より、既存VB/VCの将来性の方が不安かもね
（ ＿(,,ﾟДﾟ)　＜　　　少なくともDelphi/BCB使いがもっともC#に近い希ガスる。
⊂,,＿_つつ.　　＼＿ とりあえずJavaやC#に対抗する言語として
　　　　　　　　　　　　PackageとUnitを本格的な名前空間に利用してほしいです。

　　　∧∧　　　／￣ あと、同一メソッドを普通に実装しないで
（ ＿(,,ﾟДﾟ)　＜　　　Interface敬称してくれたらいいのに。(多分そのほうがよさそう)
⊂,,＿_つつ.　　＼＿ とか言ってみます。
　あと、簡単なテンプレートも実装してほしいかも。

俺も素直にソースなおして使うとするか。。。
しかしこれ改変していいの？

　∧ ∧　 　／ どこ直したらいいのかオセーテ。
　(,,ﾟДﾟ)　＜　　VCLの再構築って面倒だったような奇するけどー。
　 |つ つ　　＼
＠|　　|　THelpなんとかってナニ？？
　 ∪∪

Anders HejlsbergがＭＳでC#をやっている今、
Delphiは今後どうなるの？

>422
何をいまさら...
最新技術についていけない
VB房と同じ扱いになります。

　∩ ∩
　| ∪ |
　|　 〜
　|∧ ∧　　　／￣￣￣￣￣￣￣￣
　( ,,ﾟДﾟ)つ ＜　ボーコンで聞いてヨシ>>422
　Ｕ　　　　　　＼＿＿＿＿＿＿＿＿
http://www.borland.co.jp/borcon2001/

フラーにふら〜っと聞いてこいや。

　　　　　 ∧∧　　　／
　＠' ― (,,ﾟДﾟ)つ ＜　>>422-423
　 　し― ∪　 　　　＼ツマラン　自作自演だったら、氏んでヨシだぞ。

　　ﾅﾆｶﾞ ｻｲｼﾝｷﾞｼﾞｭﾂ ﾅﾝﾀﾞｶ･･･

>>422
だからさぁ、Hejlsbergが全部一人でDelphiを作ったわけじゃないだろ。
Borlandに対して失礼だろっての。

>>425
じゃあ、ヘジがいなくてもDelphiは生まれたとでも？

>>426
そんなことどうでもいいじゃないの。
そんなことより今後の Delphi の進化に期待しよう！

Delphi 使いたいやつは使えばいいし、
C# 使いたいやつはそれもよし。とにかく自由にやればいい。
MS と同じ土俵で勝負しても勝つのは難しいよ。
それより独自の方向性で勝負してくれ。

みんな必死だな(藁

>>424
http://www.borland.co.jp/borcon2001/05_tra_ses.html
Delphi に関する話はしないってよ。相手にされていない。

>>430
KylixのはクロスプラットフォームということでDelもやるみたいだね

>>430
Del少ねー

>>430
・Webサービス概要
・Webアプリケーション技術概要
・SnapテクノロジーによるWebシステム構築技法
この辺かな。

それにしても
・.NET Frameworkの技術概要と方向性
なんてやるのね (MSだけど。

　∧ ∧ 　 　 ／￣
　(ﾟДﾟ,,)　　＜　　つまり、.NETに追随するよって
　 | つ[|lllll］).＼＿　Borlandのアピールでしょ。
〜| 　 |
　 ∪∪ CLXだってDelphiでコードかけるんだから
　　　　　いずれ.NET版VCLもリリースされるんだろさ。

　　　　技術的に.NETについていくことが
　　　　Linuxとクロスするよりも難しいわけなさそうだし。

従来、Javaでしかできなかったことが
.NET上でC#,VB,Delphiなどでできるってことになるんじゃないかな。

　 ∧ ∧　 　 ／￣￣￣￣￣￣￣￣￣￣￣￣
　 (,,ﾟДﾟ)　 ＜　ただ、言えることはDelphiからC#への移行は容易だということ。
　 U　 ,つ　 　＼＿＿＿＿＿＿＿＿＿＿＿＿
＠|　　|
　 ∪∪　Del開発者は安泰だろうけど、某社の行く末はどうなるかしら。
　　　　　またやばくなったらMSから金ふんだくって生き延びてくれい。

BorlandはいずれC#の開発環境を発表するのかな？そんな気がする。

ＭＳの.NET開発環境無料配布により某社即死

しても売れないと思う。
クラスライブラリを MS に握られている状態で他の会社ができることとして
何が残っているかを考えよう。相手が最初から CBuilder 相当の開発環境を
出している状態で後から入り込む余地が残されているか？

　∧∧ 　* 　／
　(,,ﾟДﾟ) / ＜　今までもMSがVB相当の開発環境を出している状態で
　 | つ●)　　 ＼　あまり後から入り込む余地はない所で
〜| 　 |　　　　　　戦ってきているのだが･･･
　 U U

　　ｷｶﾞﾂｹﾊﾞ Win32ﾈｲﾃｨﾌﾞｱﾌﾟﾘ ｦｻﾎﾟｰﾄ ｽﾙRAD
　　ﾅﾆｶﾞﾉｺｯﾃﾙ?

>>438
だから VB の問題点は，
・ネーティブアプリが作れない
・実行環境が複雑
・コンポーネントの自己記述ができない
の３点でしょ。この三点が解決してしまったら某社の製品を選ぶ「強い」
理由が残らない。ということ。

コンパイラの自己記述は？

Delphi Pascal コンパイラは BCC だよ。バイナリダンプしてごらん。

　　--下手人-∧ ∧ 　／￣￣￣￣￣￣￣￣￣￣
〜□□ □□ ( ﾟДﾟ)＜　>>439 まだあるよん
　 (Ｏ)----(O)U-U)　＼＿＿＿＿＿＿＿＿＿＿

・日本ＭＳはベンダーにも何一つサポートしない。する技術も無ければする気もｻﾗｻﾗない

洒落になんないですよマジで
「バグですが仕様です」「バグなので次製品で対応します」
これのオウム返し

ﾜﾗって終わりに出来る規模の顧客と開発元じゃないんだからさぁ
アンチ君じゃないけど、電話中にいいかげんにしろと怒鳴りたくもなるーよ

こうして見ると、やはりMSは商売がうまいよな。
.NETって、もし成功すると今までよりさらにゲイツにお金を献上するシステムになりうる。
ここらで皆でNOを突きつけるのはどうよ。OSとしては便利かもしれないが搾取されるこたーない。

怒鳴ってよし

　　　∧ ∧　　言いたいことが伝わらないかニャ
　　　(,,ﾟДﾟ)
　　　U 　U
　 〜|　　| 　　C#がいいところあるなら餅使うよ。
　　　U U

つまり、Delは昔も今も苦しいところで戦いを
強いられているのは周知の事実。
.NETになったところで、同じようなものだよ。といいたいニャよ。

結局、どこかでアドバンテージを見つけて食い込むしかないっしょ。

無料とかﾈｲﾃｨﾌﾞ高速コンパイルとかクロスプラットとかね。


Java界におけるForte対JBuilderなんかでも同じ戦いをしてて
JavaクラスライブラリとRADまで買収して握ってしまったSunと
Borlandの戦い・
現状、どういうアドバンテージがあるのかJBuilderは奮戦しているんじゃない？


>・ネーティブアプリが作れない
　VBはexeつくれます。

>・実行環境が複雑
　.NETはβ段階ですでに互換性なくなってるんだが
　それに.NETの実行環境見たことないよ、比較できないや。
　従来のVBﾗﾝﾀｲﾑと同じようにならないと、だれが保証できる？

>・コンポーネントの自己記述ができない
　VBはActiveXで記述できるんじゃないのかな？


　　∧ ∧∩ ｳﾜｱ BorlandNewsGroupe ﾉ
　　(ﾟДﾟ,,)ﾉ 　ﾍﾝﾅ ｵｼﾞｻﾝ ﾐﾀｲﾅ ﾌﾞﾝｼｮｳ ｶｲﾁﾏｯﾀｾﾞ
　　 | 　つ
　　　|　⊂)〜 ﾅﾝﾆｾﾖ Windows.NET ﾊ ｲﾂ ﾄｳｼﾞｮｳｽﾙﾉ??
　　　 ∪
　　　　　　　　.NET ﾊ ﾜﾀﾞｲ ｾﾝｺｳ ﾀﾞﾈｰ
　　　　　　　　WindowsDNAやActiveXはすっぱり切り捨てちゃって
　　　　　　　忘れてもらう作戦だね。

余分なラッパーが増えただけです〜

あのね。.NET 環境で動く Delphi を一つのモデルとして話しているんだよね？

.NET で動くということはプラットフォーム非依存の CLR の上でプログラムが動く。
ということでしょ。
だから，MS 製の物と Borland 製の物とで
・ネーティブアプリか否か
・実行環境が複雑かどうか
の違いは無くなってしまうんだよ。

Java と同じ事が起きるんだが，Java の場合は Sun が開発環境を提供しなかった
事が（ツールとコンパイラは出したけどね）JBuilder が生き延びられた原因では？
だから MS がツールを出す以上，JBuilder と同様には行かないだろう。

>>プラットフォーム非依存の CLR
マジ？ ならCLRってまさにＶＭそのものじゃん。
debugger API もラップしてんの？
各platform へのＣＬＲ移植作業中のみなさまご苦労さまです。

>>447 MSがUNIX,LINUX版の開発環境を出すとは思えないので、某ランドはそちらで細々と生きながらえる？

>マジ？ ならCLRってまさにＶＭそのものじゃん。
頼むから，基礎知識，基本用語を押さえてからきてくれ。

>.NET で動くということはプラットフォーム非依存の CLR の上でプログラムが動く。
CLR上で動いても、ネイティブコードのルーチン呼び出せるぞ。
ＯＳ非依存っていっても Linux, BSD, Solaris, Mac に本当に移植するのか？
ライセンス問題があってどうなのかって話聞いたことあるけど。
ＭＳのことだから後で妨害してくるような。

>>451　おまえは馬鹿だ。

Java VM もネイティブコードのルーチン呼び出せるぞ。
ＯＳ非依存っていっても Mac 用の JacaVM はいまだに安定していないし
FreeBSD 用なんてまだないぞ。

MS があとから妨害って誰の何に対して？

どちらにしろ、現状の Delphi/CBuilder は W32 でしか動かないんだから
MS が CLR を作ってくれさえすれば、WindowsCE あたりでは動くようになるだろうよ。

>>449
開発環境自体がＣＬＲ上で動くようにしたらどうなる。

外人なのでかんべんしてちょ。
> (.NET で動く)ということは（プラットフォーム非依存の CLR の上でプログラムが動く。）
と読んだのよ。違うならまず日本語勉強してくるよ。
.NET コンパイラの出力はプラットフォーム依存なの？

>MS があとから妨害って誰の何に対して？
誰かはきまってんだろ。ＭＳにとってライバルをつぶすことはたやすいことだ。
そんなこともわからないおまえがアフォだよ。

>>453 それはMSが決めることだ。できるだけ高速にしたいから多分ネイティブコードを使うだろうね。開発環境は移植性なしと思う。
というかスレ違いではないかなこの議論。

Delギコタン萌え

ねえねえ、昔ってTFormのDoubleBufferedって、publishedじゃなかったっけ？
Delphi6でｲﾝｽﾍﾟｸﾀに出てこないからさ。
それとも、前からそうだったかな？

>>458
昔から。

.netって基本的に巨大商用Webサイトの開発を効率よく出来る、つうのが
売りのはず。だけどその元になるIISがあれじゃぁなぁ。
Borlandが付け入るとすればそのあたりになると思う。
IIS以外のWebサーバーとサーバーサイドDelphi、これでおっけー。
Delphi for .netは単に言語の移植にしかならないと思う。

>.netって基本的に巨大商用Webサイトの開発を効率よく出来る、つうのが
>売りのはず。

えぇー？

そんな理由「だけ」でクライアント開発ツールの VB を切り捨てると思う？
クライアントあっての Windows なのに？

分散サービスとしての WebService を巨大商用Webサイトと取り違えていないか？

>>461 ＭＳのお決まりの手でしょ、新しい製品買ってもらうために
頻繁にアップデートしたり、サポート打ちきったり・・・。

ｽﾏﾝ
VBの存在を完全に忘れてた

　　--下手人-∧ ∧ 　／￣￣￣￣￣￣￣￣￣￣
〜□□ □□ ( ﾟДﾟ)＜　>>444 怒鳴っときますﾄﾓ
　 (Ｏ)----(O)U-U)　＼＿＿＿＿＿＿＿＿＿＿

.netはちょっと嫌

　 ∧ ∧　 　 ／　D6のダイアグラムページ
　 (,,ﾟДﾟ)　 ＜　　微妙にUMLのニヲイ
　 |⊃ ,⊃　　 ＼
＠|　　|
　 ∪∪
Componentだけではなくて
自分で定義したクラスも載せれるようになればいいのに。
で、四角の中にUMLみたいにprivateとpublicの記述が出来るようにしてくれい。
あと、矢印に破線も入れてくれ。

>>465
今のところ
コメントで覚え書きにするぐらいしか使えない

コードと連携できるようになると良いのだが、
難しいだろね。

　∧ ∧　 　／ 連動は難しそうだけど
　(,,ﾟДﾟ)　＜　　UML図から簡単なコード生成するのはやれば出来そうなので
　 |つ つ　　＼ そういうのに使えるといいんだけど
＠|　　| 　　　　現状は中途半端だね。
　 ∪∪

MLのVisioの人もこれくらいのもの作れたら
客も満足するんじゃないの？

　　　　　 ∧∧　　　／￣￣￣￣￣￣￣￣￣￣￣
　＠' ― (,,ﾟДﾟ)つ ＜　T氏のパソの日付狂ってないです？
　 　し― ∪　 　　　＼＿＿＿＿＿＿＿＿＿＿＿
ツールバー画像。(MLに紹介するなら2chにリンクはするな)
http://sunsite.icm.edu.pl/delphi/ftp/d10free/glyphs!.zip
http://www-3.ibm.com/ibm/easy/eou_ext.nsf/Publish/648
http://developer.java.sun.com/developer/techDocs/hi/repository/

おまけ機能の強化までは手が回らないと思う
それよりバグなおしてくれ

　　　　∧ ∧　　オマケなんだ、、、
　　　　( ﾟДﾟ)
　　＠（　uu） 　もう少し力入れたらUMLツールとして使えるのに、、、

>>470
じゃ、バグ教えてくれよ。マジで。

アメリカさんは、愚痴を言いながらもちゃんとまとめてくれるのに
日本のプログラマは、愚痴も言わない。何もまとめない。

パッチが出てから「このバグ、直っていないんですよぉ」ときたもんだ。

英訳して US Borland に代理投稿してやるから、とっとと手持ちのバグを教えてくれ。

>>472
がんばれ

UMLといえば・・・
http://www.c2.com/cgi/wiki?UmlAsciiArt

　　　∧∧　　　／￣￣￣￣￣￣￣￣
〜''~（,,ﾟДﾟ）　＜　じゃ、、お言葉にあまえさせていただきまして言います
　 UU'UU　　　 ＼＿＿＿＿＿＿＿＿
�@
　Formのドッキング...ドッキングのDEMO
　dockex.exe、
　2Formをタブ形式でDockingしたあとにTabをDragして
　もう一度自分自身にドックさせようとさせると
　Formが消えて、再表示させるとTabが変になっているバグ。

�A
　CLXでメインフォームをfsStayOnTopにして動作させると
　最大化、最小化したときに消えるバグ

�B
　DEMOのActionBands.WordPad.exeのActionManegerで
　カスタマイズダイアログを表示してツールバータブの
　MainMenuActionBar1を選択して[戻す]を押すと
　ツールバーが消えてしまうバグ

�C
　Toolbar.CustomizeをTrueにしたとき
　Shift押しながらToolButtonをDragしてるとAccessVioが出て止まるバグ
　(バグじゃないが、Toolbar.Customizeを使ったマトモなDEMO見せて欲しい)

>>475
さんくす
親会社に TeamB の人がいるんで、レポートします。

�B�Cは、撤回された SP1 で修正されてるみたいだね。

>>408のメモリリークも入れといてくれ。
支障はないけどリークはリークだ。お願い。

0.1.2.3.4
A.B.C.D.E
------------
このようなカンマ区切りのファイルの二列目を取得したい場合どうしたらいいでしょうか?

ABCDEを持ってきたい。

　　　　∧ ∧　っていわれても。
　　　　( ﾟДﾟ)
　　〜（　uu）

１列目をどうやって取得しているかもわからないし。

>>472
VCLのヴァグじゃなくても(・∀・)ｲｲ??

Del6 Perなんだけど、ﾌｫｰﾑなど適当なクラスを宣言して、
実装部の記述を始めようと、

procedure |();
begin

end;

まで入力補助で入力、そして | の部分でCtrl+Space押すと
「リストのインデックスが範囲を超えています(0)」
との見慣れた(?)メッセージが…
一度こうなるとDelを再起動するしかなくなる…

Del6 Pro以上でもこうなのかな？
まぁカーソル位置のクラス宣言補完があればいいけど…
とりあえずDel6 Perお持ちの人は試してみてﾌﾟﾘｽﾞ。
漏れのところでは再現性100%。

>>472
英語できるんなら本家のCommunity行った方がいいと思われ
ついでに情報教えて
Web Service でバグ情報扱うんだって
ttp://community.borland.com/article/0,1410,27815,00.html

>>479
>このようなカンマ区切りのファイルの二列目を取得したい場合どうしたらいいでしょうか?
>ABCDEを持ってきたい。
んっ、２行目か?

StrList := TStringList.Create;
try
　StrList.LoadFromFile('読みたいファイル');
　Caption := StrList.Strings[1];
finally
　StrList.Free;
end;

みたいな感じ。

>>479
　.　λ＿λ　　／￣￣￣￣￣
　　（　｀ー´）＜　TStringListで良いんじゃネーノ？
　　 /　　　　つ＼＿＿＿＿＿＿
　　（人＿つ_つ

かぶってしかも遅い…鬱氏

>>481
TForm1って出たけど?
Del6 Ent

>>482
Community / Newsgroup に書くより早いんだよ。
あまり時間は無いそうなので、正確なレポートで無くても可。
バグの位置がわかっているならなおよし。

こういうことやるときは、キャップ（ていうんだよね）つけたほうが良いのか？

　　　∧∧　　　／￣￣￣￣￣￣￣￣
〜''~（；ﾟДﾟ）　＜　>>481　再現した
　 UU'UU　　　 ＼＿＿＿＿＿＿＿＿

D6Pro

>procedure |();
>begin
>
>end;
>
>まで入力補助で入力、そして | の部分でCtrl+Space押すと
>「リストのインデックスが範囲を超えています(0)」
>との見慣れた(?)メッセージが…

>一度こうなるとDelを再起動するしかなくなる…

メッセージが出たあと、普通に戻って再起動は免れました。

>>488
再現テストどうもです。

> >一度こうなるとDelを再起動するしかなくなる…
> メッセージが出たあと、普通に戻って再起動は免れました。

スマソ、言葉足らず。

その後、コード入力補助(Ctrl+Space)を普通のところ
(関数内実装部など)で使用しても同様のメッセージが
出るだけになり、コード入力補助が使えなくなる(;´Д｀)

そしてDelを再起動すると元通り。
まぁIDEごと落ちよりはいいけど…


>>486
多分、カーソル位置のクラス定義補完=ｺｰﾄﾞｴｸｽﾌﾟﾛｰﾗ がらみの
バグだと思われ。
っつーとProとEntでは再現しないのかな(;´Д｀)
最悪Per固有の症状か(;;´Д｀)

Σ(;´Д｀)！まさかProを買えと言う某陸の思し召し!?

あ、Proでも再現してたのか。。。
よく見ずスマソ。
書き込みボタン押した直後気が付いて少し鬱。

某陸さん改善きぼんぬ。
Pro漏れ買おうとしてるんで…

Delphi 6 だと const 節の中でポインタを定義できてしまう。
下のコードだと PLongintConst は実際は文字型定数になっているみたい。

const
PLongintConst = ^Longint;

　　--下手人-∧ ∧ 　／￣￣￣￣￣￣￣￣￣￣
〜□□ □□ ( ﾟДﾟ)＜　>>479 あるいはAssignFile
　 (Ｏ)----(O)U-U)　＼＿＿＿＿＿＿＿＿＿＿

var
　F: TextFile;
　S: String;
begin
　if not OpenDialog1.Execute then
　　exit;

　try
　　AssignFile(F, OpenDialog1.FileName);
　　Reset(F);
　　Readln(F, S);
　　Readln(F, S);
　　Edit1.Text := S;
　finally
　　CloseFile(F);
　end;
end;

う。トリップっていうのか...

>まで入力補助で入力、そして | の部分でCtrl+Space押すと
>「リストのインデックスが範囲を超えています(0)」

再現しないよ−。

「再現できないのも含めて情報を送ってよい」といわれているんだけど
何かつぼみたいなものないかなぁ。

>>481

Del6Ent　では再現しなかったよ

その画像ならココ
http://www.f2.dion.ne.jp/~impact14/

確認しました。
「名前でソート」するようにするとだめなんだ。

クリティカルレポートがとりあえずひとつ作れた。
これでちょっとは日本の株が上がるかな。

協力ありがとうございます。
引き続きボランティア、募集中。

コンパイラのバージョンとスコープ

>>497
???

>>494
マジで？　ちゃんとコンパイルエラーになった？
当方は Delphi 6 Professional ですが、コンパイルが通っちゃうんだよね。

>const
>PLongintConst = ^Longint;

Delphi5 ではコンパイルエラーになるのを確認しました。
ばぐっすね。
多謝！

>>498
ゴメン。気にしないでちょ

／￣￣￣￣￣￣￣￣￣￣￣￣￣
|　これだけ？
|　ずいぶん、バグの少ない開発環境だね
＼＿＿＿ 　＿＿＿＿＿＿＿＿＿
　　　　　　∨
♪　　 ∧ ∧　♪
　　　　(,,ﾟДﾟ).　　♪
　　 　 |つ[|lllll］).
　　 〜|　　|
　　　　Ｕ Ｕ 　　日頃ﾊﾞｸﾞﾊﾞｸﾞ ｲｯﾃｲﾙ ﾅﾗ ｲﾏｲｯﾃｸﾚ

　バグ。探しましょう。

￣￣￣∨￣￣￣￣￣
　　　∧ ∧ 　　　ﾏﾀｰﾘ
　　　(,,ﾟДﾟ)∫
　　　/　 つ旦O 　　TeamBさん、感謝です。
　〜(.＿［￣￣￣.］
　　　　　 ￣￣￣
　　　ﾊﾞｸﾞ ﾄﾞｺｶ ﾅｲｶｼﾗ

　　そういえば、
　　設計時FormのGrid表示をOFFしているのに
　　パッケージのコンパイルをすると
　　Gridが表示されるのって、再現します？

ヘルプでは asm 文内で EAX,ECX,EDX レジスタを破壊しても良いとなっているが
実際は破壊してはいけない。Delphi 4,5 では破壊しても正常に動くし、これは
絶対にバグだと思う。

以下のコードを実行すると (*) の箇所でメモリアクセス違反が起こる。

function SumByte3(b1, b2, b3: Byte): Longint;
var
　P1, P2, P3: PByte;
begin
　P1 := @b1;
　P2 := @b2;
　P3 := @b3;
　asm
　　mov eax,$00000001 // ここで P1 が破壊されてしまう
　　mov edx,$00000002 // ここで P2 が破壊されてしまう
　　mov ecx,$00000003 // ここで P3 が破壊されてしまう
　end;
　Result := P1^ + P2^ + P3^; // (*) P1,P2,P3 は破壊されているのでアクセス違反発生
end;

procedure TForm1.Button1Click(Sender: TObject);
var
　b1, b2, b3: Byte;
　val: Longint;
begin
　b1 := 1;
　b2 := 1;
　b3 := 1;
　val := SumByte3(b1, b2, b3);

　Caption := IntToStr(val);
end;

　ｷﾚｲｻｯﾊﾟﾘ
　　∧ ∧　　　 ／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
　　( ﾟДﾟ)っ　＜　いつもバグっているから忘れてた
　　|''Ｕ￣|　　　＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
　　|￣￣|
　/　　　　ﾞヽ
（ 　　ﾟДﾟ　　）
人＿_＿＿ノ

　FormのConstraintsプロパのMinHeightとMinWidthがバグってます。
　設定したあとに、　左上から右下にリサイズしてください。

　FormにGetMinMaxInfoを設定すればいいことなんだけどさ。

　D5とD6はこれまた実装が違うみたいなんだよな。不思議。

>>503
再現します。グリッドの間隔も忘れていますね。

あ〜俺も
OnStartDockイベントでDragDockにDragDock派生クラスのオブジェクトを代入すると
そのオブジェクトが開放されないバグ、D6で直ってる？
D5SP2でしか確認できてない、スマソ。OnStartDockで、
  procedure TForm1.FormStartDock(Sender: TObject;
    var DragObject: TDragDockObject);
  begin
    DragObject := TInvisibleDragDockObject.Create(Self);
  end;
とすると、hori氏のMemcheck.pas を組み込んでるとメモリリークの報告がされる。
Constrols.pas(2465) の
function TControl.ManualDock()メソッドで、
  Control.DoStartDock(DragObject);
  if DragControl = nil then Exit;
  if DragObject = nil then
  begin
    DragObject := TDragDockObject.Create(Control);
    DragFreeObject := True;
  end;
となってて
DragObject <> nil のときに変数DragFreeObject がTrueになってないことが
原因かと思うんだが。

よろしく！

>>504 さん
それは確かヘルプの間違いです。

「EAX,ECX,EDX を破壊しても良い」は、関数直後に asm がくる構文
または assembler 指定がついた関数/手続きの時の条件です。

procedure foo;assembler;
begin
end;

または

procedure foo;
asm
end;


PASCAL 文中の asm ブロックはこの条件の外にあるものと教えられています。
けど、ヘルプがあいまいなんですね。英語のヘルプを見た上でレポートしておきます。

日本語ヘルプへのレポートの扱いはどうなんだろう.

>function TControl.ManualDock()メソッドで、
ここ間違い
(正) procedure DragInitControl()手続き
です。
TInvisibleDragDockObject は自作の DragDockObject派生クラスです。

あと、TCoolBarで、FixedSizeをTrueにしたBandが1つでもあると、
Bandを激しく上下に動かしたときに、バンドの高さ計算が狂って
表示がおかしくなるバグ。

ちなみにOnStartDockのヘルプの記述は
>ドラッグが終了したときに DragObject の Free メソッドを呼び出す必要はありません。
です。

　　∧ ∧　　　 ／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
　　( ﾟДﾟ)っ　＜　再現性が高まるようにソース置き場を利用しまひょう。
　　|''Ｕ￣|　　　＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
　　|￣￣|
　/　　　　ﾞヽ 　　>>5の
（ 　　ﾟДﾟ　　） 　置いてよし認定委員会 　http://www2.to/source
人＿_＿＿ノ 　　　自分でスレたててね。

バグ再現がむずかしそうな時は(とくにGUI操作系の再現はなかなかムズイ)
楽に再現するように、DPR(は必要ないかも)、UNIT1.pas, Unit1.dfmの
全ソースをｱｯﾌﾟするとよさげです。

>>508
マジで？ Delphi 6 付属のVCLソースを見ると「関数直後に asm がくる構文
または assembler 指定がついた関数/手続きの時の条件です。」の条件を
守っていないのに平気で EAX,EDX,ECX 破壊しているコードがあるんだけど…

asm 文内で EAX,EDX,ECX レジスタを破壊してもコードによっては
正しく動作することもあるので、バグだと思った。>>504 のコードなんか
症状が再現するように苦労して作ったのよ。

彼らはコンパイラのコード生成を知ることができるからでは
ないでしょうか？

私の知っている範囲で。
EAX,EDX,ECX は関数呼び出し時に破壊される可能性のあるレジスタですが
だからといって必ず破壊されるわけではない。
だから運がいいと破壊されない場合がある。

それとは別に、最適化でレジスタを使うときにこれらのレジスタが使われるので
最適化のフローに割り込むようにアセンブラを入れてはいけない。
使う場合には、全レジスタを退避させるか、または生成されたコードを見て
ハンドオプティマイズ。

　　--下手人-∧ ∧ 　／￣￣￣￣￣￣￣￣￣￣
〜□□ □□ ( ﾟДﾟ)＜　TreeViewは？
　 (Ｏ)----(O)U-U)　＼＿＿＿＿＿＿＿＿＿＿

OwnerDraw時にSetBkMode設定忘れっちゃってるの

　　--下手人-∧ ∧ 　／￣￣￣￣￣￣￣￣￣￣
〜□□ □□ ( ﾟДﾟ)＜　ListViewだった
　 (Ｏ)----(O)U-U)　＼＿＿＿＿＿＿＿＿＿＿

文化オリエントが11月にUMLツールを発売
C#，Visual Basic .NETにも対応
http://itpro.nikkeibp.co.jp/free/NSW/NEWS/20010926/1/print.shtml

　　 ∧∧ 　　　 ／￣￣￣￣￣￣￣￣￣￣￣
　　 (,,ﾟДﾟ)　　＜ UMLに本気になればこれだけ儲けられるのに。
　＠/つ且~~　　＼＿＿＿＿＿＿＿＿＿＿＿
　　（__　_） 　ｱｲｶﾜﾗｽﾞ 商売 下手 ﾅﾝﾀﾞｶﾗ
　　　　　　
　　直接儲けにつながらなくても、
　　"Delには標準で簡易UMLツールが付く"というマーケティングの後押しする手段が
　　ひとつ増えたり
　　開発者に対して、それだけの付加価値ｻｰﾋﾞｽを提供できるのに
　　もったいない事をするなあ。

　　ｱﾉ ﾀﾞｲｱﾛｸﾞ ﾍﾟｰｼﾞ ﾂｸﾚﾙ ﾉﾅﾗ
　　ﾃﾞｻﾞﾊﾟﾀ ｶﾞ ｷｼﾞｭﾂﾃﾞｷﾙ ﾃｲﾄﾞ ﾉ ｼﾞｯｿｳ ﾃﾞｷﾙｯｼｮ とおもーたり。
　　

Del6のデータダイアグラム図は利用方法が良く分かりませんが、
データベースを利用しないものにとっては
宝の持ち腐れですか。

|　　　|　　|　　　　　|　　|　|
|　　|゜⌒／..|　＼　|　゜｜
゜　⌒／/　..|　゜　＼　　゜　　|
| ／　/　|　|　|ヽ゜　＼⌒゜　|
| .￣￣￣￣||￣￣￣￣
　|　　∧ ∧|| 　　／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
|　　　(,,ﾟДﾟ)||　＜　昨日はずぶぬれ
゜　|　..|∪　つ　　＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿
　|　|.｜　｜　　　|　　　|
＿＿_.Ｕ..Ｕ＿＿＿＿　　　　　゜

　　今日は晴れていい感じ。

　　D6のダイアログページはD5のデータダイアグラムから
　　VersionUPした感じ。
　　"UMLっぽく"クラス図コメント挿入に使えるよ

>>517
ちゅーかUML関係のツールを作るのは難しいよ。
これまででているツールで満足できる物って聞いたことないし。
クラス図書いてクラスのひな形のコードを出すぐらいならできると思うけど、
記述したコードを反映させるのは大変だと思うよ。
ポインタとかどうすんだろ。かなり制限されたコーディングになるだろね。
図とコードが連携してくれるんなら作業効率も上がるんだろけど、
コードを修正するたびに図も手入力で修正すんのはちょっとなぁ。

ちなみにダイアログページのような絵を描く部分やドラッグなどの操作の部分自体は
そんなに難しいモンじゃないよ。
問題はコードと連携させる部分だな。

そうゆう連携ができる物があれば嬉しいなぁ。

幾何演算ユニットをつくっています。
オブジェクト指向らしく、
点クラス、矩形クラスは、図形クラスから派生して作ってあります。必要な部分だけ抜き出すと、関係は以下のようになっています。

TShapeEx = class
　function 重心: TPointEx; abstract; virtual;
end;

TPointEx = class( TShape )
　x,y:Extended;
　function 重心: TPointEx; override;
end;

TRectEx = class( TShape )
　function 重心: TPointEx; override;
end;

ところがですね、全ての図形クラスで使用できるように
TShapeEx の抽象メソッドとして宣言した重心関数は、
結果を”点”つまりTPointEx で返してきます。
しかしながら、 TPointEx は TShapeEx を継承しているために
TShapeEx クラス内で利用する事が出来ません。
オブジェクト指向云々は忘れて、素直に
procedure 重心(var x,y:Extended); 等としたほうが良いですか。

>>521
TShapeExの宣言の前に
TPointEx = class;
を書いておけばいいんでは

>>521
俺ならこうやりそうだけど

TCustomShapeEx = class
　…
end;

TPointEx = class(TCustomShapeEx)
　x,y: Extended;
　function Center: TPointEx;
end;

TShapeEx = class(TCustomShapeEx)
　function Center: TPointEx; virtual; abstract;
end;

TRectEx = class(TShapeEx)
　function Center: TPointEx; override;
end;

>>522
ああ、なるほど…

TEShape = class;

TEPoint = class(TEShape);

TEShape = class
....
end;

とやっていた自分が愚かでした…

>>521　523自己レス
メモリ管理が面倒かも

TPointEx = record
　x,y: Extended;
end;

が無難かな

　　　　　　　|
　　＼　　　　　　　／

―　　　　　○　　　　　―　　　　　　　　　^^

　　／　　 　 　　　＼　　　　　　　　　　　　　　　　　　　^^
　　　　　　　|
　　　　　　　　　　　　　　　　　 ∧∧　　　／￣￣￣￣￣￣￣￣
　　　　　　　　　　　　　　　　　 ( ﾟДﾟ)っ＜　快晴〜〜♪
　　　　　　　　　　　　　　　 ﾟ　⊂　／＼　＼＿＿＿＿＿＿＿＿
　　　ﾟ　　　　　　｡　　　　　　。 ﾟ　ｿ　　ﾉ　　ﾟ　　　　　　｡
⌒⌒⌒⌒⌒⌒⌒⌒⌒⌒⌒⌒⌒⌒⌒⌒⌒⌒⌒⌒⌒⌒⌒
⌒⌒⌒⌒⌒⌒⌒⌒⌒⌒⌒⌒⌒⌒⌒⌒

>>521　523自己レス
なんだTShapeからの派生か・・・失礼

勘違いしたけど（ﾟεﾟ）ｷﾆｼﾅｲ!!

関係ないけど

>　function 重心: TPointEx; override;

このメソドは内部でTPointExのインスタンスを作成してるんでしょ。
幾何学演算（３次元演算などで頻繁に呼び出す場合）で
それをやると、Free忘れで凄い事が起こりそうな予感。procedure CenterOfGraviry( Point:TPointEx );

これでよいのでは。

そうだね、どうしても　Classでやりたいなら
　function Create重心: TPointEx;
と
　procedure Set重心(var pos: TPointEx);
の２つ用意しといたら？

でも単純に record かオブジェクト型の TPoint　を返した方がいいんじゃない？

　　　　　　　 　　 　　 　　 　 ! 　　　　!
　　　　　　　　　　　　　　　　!　　　　 !
　　　　　　　　　　　　　　　　!　　　　 !
　　 　　 　　 　　　　 　　　　!　　　　 !
　　　　 　　 　 　　　　　　　 !　　　　 !
　　　　　　　　　　　　　　　 ! ∧ ∧. !
　　　　　　　　　　　　　　　 ! (,,ﾟДﾟ) !
　　　　　　　　　　　　　　　 !⊂　　つ
　　　　　　　　　　　　　　　〜|　　|　!
　　　　　　　　　　　　　　　ヽ U U ヽ'
　　　　　　　　　　　　　　　　￣￣￣
ダイアグラムページの擬似ＵＭＬツールの話題

記述コードをUML図に反映させることは困難すぎるので
専門ｿﾌﾄにまかせておいて

UMLオブジェクト(っていうかニャ?)の
private/protected/publicを四角の中に記述する手間は省きたい
自分でｼﾞｯｿｳしたクラスを
コードエクスプからD&Dでできるようになってくれたらいいのに〜な〜
(構文解析はｺｰﾄﾞｴｸｽﾌﾟ任せ)

また、単純なクラス図からクラス雛型を出力するだけでも
簡易なUMLツールとして非常に便利だと思います。

ﾃﾞｻﾞﾊﾟﾀ勉強中だし・・・

＞コードを修正するたびに図も手入力で修正すんのはちょっとなぁ。
手入力以前の手書きよかいいっす。

TUMLDoc, TUMLElement実装してくれ。

レコード型のデータをプロパティで代入するとき
　PRec = ^TRec;
　TRec = record
　　AA : Integer;
　end;

property REC : TRec read getRec;

function Tclass.getRec: TRec;
begin
　Result := FRec^;
end;

ccc.REC.AA := 100;
こうすると
代入できない左辺値でエラーになる

しかし
property REC : PRec read getRec2;

function Tclass.getRec2: PRec;
begin
　Result := FRec;
end;

ccc.REC^.AA := 100;
これはＯＫ

なぜ？

ポインタだから。

プロパティは変数パラメータ渡しはできんから。
ポインタで渡すと参照できるから代入できる。

ありがとうです
なるほど　ポインタはだめなんですね
外に^がつくのはちょっと不細工ですね(無くても動くけど)
で
上の
ccc.REC.AA := 100;
を
with ccc.REC do
　AA := 100;
とするとコンパイル通ります
ちゃんと動きませんけど

あう
間違えた
ポインタじゃないとだめなんですね

単なる好奇心からの質問。

Delphiで、デフラグプログラムは作れる？
作るとしたら、どんな関数をつかうん？

おそらく値渡し（コピーね）された物に代入していると思われ。
たぶんwithの中では代入した物は有効だと思うよ。
今ためせんが、

var
　i: Integer;

with ccc.REC do
begin
　AA := 100;
　i := AA;
end;

caption := IntToStr(i);

はいけるんじゃない？
意味ないけどね。

>>539
どもども
その通りでした

classじゃ駄目なの？

いろいろいじってるんだが、C/C++のｺｰﾄﾞの吐いた
1970/01/01 00:00:00 を基準に経過した秒で表す時刻のDWORD値を、
DelphiのTDateTimeに出来ないものでしょうか？

累積日数、時間、分、秒を div して出して、

EncodeDate(0,0,累積日数) + EncodeTime(時間, 分, 秒);

やって実行したら怒られた…
いろいろ検索してるんだけど、いまいちうまい方法が見つからない。

分かる方、ご教示願います。

http://www.google.com/search?hl=ja&q=1970%2F+Delphi&btnG=Google+%8C%9F%8D%F5&lr=lang_ja

>>543
即レス感謝！
ｽﾏｿ、ｸｸﾞﾙでの検索忘れてました…鬱
ずっとﾍﾙﾌﾟと睨めっこしてたよ(;;´Д｀)

ウィンドウのタイトルを変更するときは
フォームのCaptionをいじれば良いことがわかりました。
が、タスクバーに表示される部分はどこをいじればいいの？

>>545
Applicatoin.Title := 'Delマンセー';

>>546
どもです。おかげで自分用の時計が完成しました。

Delphi6なら
UnixToDateTime, DateTimeToUnix関数が標準であるよ。

　　　 ∧ ∧ｶﾞﾊﾞｯ ／￣￣￣￣￣￣￣
＿＿（　ﾟДﾟ)＿ ＜　　オハヨー　寒すぎ！
|　 〃(　つ　つ　|　＼＿＿＿＿＿＿＿
|＼ ⌒⌒⌒⌒⌒⌒＼
|　 ＼ 　　　　　 　 　 ＼ 　ｼﾝﾃﾞｼﾏｳ ｶﾞﾅ
＼　 ｜⌒⌒⌒⌒⌒⌒｜
　 ＼ |＿＿＿＿＿＿＿|

整数の１次元配列から極大点の存在する位置を返す関数を作っています。
当然、極大点の数は調べてみないとわからないので、
未知の数だけ存在する極大点をすべて返すような関数に
しなければならないのです。

procedure Maximums(const Values:array of Integer;List:TList);
begin
　for x:=0 to High( Valeus ) do
　...
　if Values[x] が極大点であれば then
　　List.Add( Pointer( x ) );
end;

というような感じにしていますが、一般的なのでしょうか。
このような関数を求められた場合、普通は
どんな関数で、どんなふうに実装しますか。

　　　　？
　　　 ∧ ∧ 　極大店ってなんじゃらほい
　　　 (,,ﾟДﾟ)
　　　/　つつ
　 ⊂　　ﾉ 　
　　／（/″

＞一般的なのでしょうか。
とりあえず、一般的だと思います。

色んな方法はそりゃあるけどね
　TListの代わりに動的配列を使って返すとかさ


他に
１）　Maximumsに関数かメソッドを渡して極大点が見つかる都度コールバックさせる
２）　Maximumsをクラスにして FindMaximum というメソッドを仮想関数にしておく

というようなアプローチも　普通だろうけど

>>551

極大て、グラフで言う山の頂上部分でしょ。
微分すると　正→０→負　と変化している部分。

つーか、高校で習ったような…

>>551
>極大店ってなんじゃらほい

こりゃこりゃ。

>>551
郊外の田んぼの真中にあるシネコンとか。

>>552
ありがとうです。(1)の方法は理解できます

Type TOnMaximum = function (const Index, Value:Integer) of object;

function Maximums(Values:array of Integer;Proc:TOnMaximum);
begin
　for x:=0 to High( Values ) do
　　if Values[x] が極大点 then
　　　Proc( x, Values[x] );
　end;
end;

てな感じにするって事ですよね。

(2)が良く分からないのですが

TMaximums = class( TList )
　procedure FindMaximums( Values: array of Integer );
　property Values[ Index ]:Integer read .... write ....
end;
という風にするってことですか

＞つーか、高校で習ったような…

　　　 ∧ ∧ 　　　／￣￣￣￣￣￣￣￣￣￣￣￣￣
　　　(, ﾟ 3 ﾟ)　　＜　月日は流れ、ｽｶｰﾘ忘れました。
　　ヽ/ つ旦)~~ 　＼＿＿＿＿＿＿＿＿＿＿＿＿＿
　　（＿　__） ｿﾛｿﾛ ｱﾙﾂ ﾅ ﾊｲﾏｰｶﾞ...
　　　　 ＾
TKyokuDaiTen = record
TenCount: Integer;
TenXPos: array[0..100] of Integer;
end;
とかを返すという手も…

recordの内部って動的配列にできるんでしたっけ？


＞シネコン
氏ねコン？
糞スレがあったら脊髄反射で市ね氏ねレスしてしまうコンプレックス？

　　∧∧c､　なんか暑くなってきたなー
　 (； ﾟДﾟ).|
　 （|　　 ノ
　〜　　|
　　∪∪

動的配列戻せました。
動的配列変数はポインタだから扱いにはきをつけてね。

type
　TArrayInt = array of Integer;

function DoutekiHairetuModoshichauYO: TArrayInt;
begin
　Result := nil;
　SetLength(Result, 3);
　Result[0] := 1;
　Result[1] := 2;
　Result[2] := 3;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
　ArrayInt: TArrayInt;
　i: Integer;
begin
　//ArrayIntにSetLengthしちゃダメーん
　ArrayInt := DoutekiHairetuModoshichauYO;
　for i := Low(ArrayInt) to High(ArrayInt) do
　begin
　　ShowMessage(IntToStr(ArrayInt[i]));
　end;
end;

まあこんな感じなんだけど

TMaximums = class( TObject )
　procedure Exec( Values: array of Integer );
　procedure FindMaximums( Values: Integer );virtual is absolute;
end;

TMaximumData = class( TMaximums )
dt:array of Integer;
constructor Create;
　procedure FindMaximums( Values: Integer ) override;
end;
TMaximumData.Create;
begin
SetLength(dt,0);
end;
procedure TMaximumData FindMaximums( Values: Integer );
begin
SetLength(dt,Length(dt)+1);
dt[High(dt)]:=Values;
end;

これだけ単体なら、魅力ないね

>>557
↓こういうこと書くやつとかね。
＞＞シネコン
＞氏ねコン？
＞糞スレがあったら脊髄反射で市ね氏ねレスしてしまうコンプレックス？


すまんDelギコ。

　 ∧ ∧　 　 ／￣￣￣￣￣￣￣￣￣￣￣￣
　 (,,ﾟДﾟ)　 ＜　別な話題です。なんでかな。
　 U　 ,つ　 　＼＿＿＿＿＿＿＿＿＿＿＿＿
＠|　　|
　 ∪∪

D6Proで
http://www.yks.ne.jp/~hori/MemCheck.html
http://www.sakaki.keiaikai.or.jp/cgi-bin/convroom/webconv.exe/read?No=9666&Response_Root=9632
これを試すと
素のFormでも5コのリークが検出されるのですが・・・なぜですか？

ｶﾞｲｼｭﾂ?

テキストの中身の行数を取得するにはどうしたらいいでしょうか?

AAAAAAA
BBBBBBB
CCCCCCC

このようなテキストがあったとして"3"を返して欲しいんです。

バグだから。

TStringListを使う >> 562
こんな感じ

with TStringList.Create do try
LoadFromFile(Fname);
cnt:=Count;
finally free; end;

var
　StrList: TStringList;

StrList := TStringList.Create;
try
　StrList.LoadFromFile(読み込むファイル);
　Caption := IntToStr(StrList.Count);
finally
　StrList.Free;
end;

＞バグだから。 バグだから。 バグだから。 のN乗

　　　　　　　　 ∧ ∧ ｶﾞﾋﾞｰﾝ
　　　　　　　　 (ﾟДﾟ,,)
　　　　　　　 ⊂ ⊂)
　　　　　　 ⊂　　ﾉ
　　　　　　　／（/″
やっぱり？
TeamBさーん、助けて！

>> 566 早計だよ。　試しにFormを動的に何個か作って解放してみたら？
　　　それで増えるかどうか確認してみるべきよ

>>564 >>565
ありがとう御座います。
さっそく試してみます。

タスクバーやタイトルバーの小さいアイコンを
アニメーションさせたいんだけど出来るかな？

>>567
THelpManagerの中のオブジェクトが解放されてないのは仕様かい?

やってみました。
procedure TForm1.Button1Click(Sender: TObject);
begin
TForm1.Create(Self.Owner).Show;
end;

VCLの場合
プロジェクト1つに必ず5コメモリリーク

CLXの場合
プロジェクト１つに必ず26コメモリリーク//ネコﾋﾞｸﾘ

Formの数とは関係ないらしい

　　　　　　　｜｜
　　　　　　　｜ |
　　　　　 ∧｜ | ｶﾞｯﾋﾞｰﾝ
　　　Σ （ﾟД| ｜
　　　　　 /つ| ｜ ﾔﾊﾞｸﾅｲ?
　　　　〜 　｜｜
　　　　　（/ ｜｜
￣￣￣￣￣￣￣￣￣￣
　　ﾈｺのﾏｼﾝだけ？

>THelpManagerの中のオブジェクトが解放されてないのは仕様かい?
ああ、ガイシュツでしたか。


>>569
タイマーでApplication.IconやForm1.Iconを
切り替えるべし。
TIconはImageList.GetIconなどでIconを取得。
どうやって使うか具体例はこちら。
http://www.borland.co.jp/tips/delphi/dh009/index.html

>>570
TWinHelpViewerとインターフェースもからんでるようだ。
ややこしいな。４つまでは直せたが、もう１個はわからん。
正規のパッチを待つか。通常は特に問題ないようだし。

こういうソートはダメですか？

http://do.sakura.ne.jp/~junkroom/cgi-bin/megabbs/readres.cgi?bo=lounge&vi=1002095530&res=1

>>571
うーん formの数に関係ないなら　何か　安全の為に解放しないのかもしれないよ。

>>574
リークは安全なのか?

たとえばフックとか　サブクラスとかをサンク方式でやってるなら、プロセス終了時の
順番によっては解放出来ない場合もあるかもしれないしね

>>576

４つまでは単純に解放のコードを書いてないだけ。
あと１個は調べるのに時間がかかりそうなのでやめた。

>>576

そりはバグというのでは。。。
まぁ、パッチに期待だね。

Delphi 5,6 だとクラスのメンバ変数を型キャストした物に対して
代入できないのだけどなぜかな？ Delphi 4 では通ります。

procedure Test;　// これは OK。
var
　Member: Int64;
begin
　Int64Rec(Member).Lo := 100;
end;

type
　TTestObject = class
　　FMember: Int64;
　　procedure Test;
　end;

procedure TTestObject.Test;　// これは NG。
begin
　Int64Rec(FMember).Lo := 100;
end;