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

　　　　　　　　　　 ＿＿＿＿＿＿＿＿
　　　∧∧　　　／Delphiやその他のプログラムのこと
〜''~（,,ﾟДﾟ）　＜　聞いてヨシ
　 UU'UU　　　　＼
　　　　　　　　　　　￣￣￣￣￣￣￣￣
前スレはこちら

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

２

＿＿_ 　ヽ
＿ ／⊂　｀∧ ∧　　／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
　｜　|　 ＼(　ﾟДﾟ)＜　答えられない事もあるが、切れるなよ
　 | ／　　　∪ ∪　　 ＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
￣　ﾀﾞﾚﾃﾞﾓ ｼﾗﾅｲｺﾄ ﾊ ｱﾙ

　 　|
電　|
　 　|∧ ∧
柱　|,,ﾟДﾟ)　＜アラツは勘弁してね。
　　⊂　|
　 　| 　| 　ｺﾉｽﾚ ｶﾞ 板ﾖｺﾞｼ ﾄｶ ｲﾜﾅｲﾃﾞ
　 　|∪
, '　,　;　'　;

　∧∧∩゛　 ／￣￣￣￣￣￣￣￣￣￣￣￣￣
　(,,ﾟДﾟ)ﾉ　＜　ではヨロツク
　U　　/　　　＼＿＿＿＿＿＿＿＿＿＿＿＿
　|　　|
ノ∪∪

2chの調子がワルゲ
　☆　　　　　　　・　　　　　　　ﾟ　　　　　*
　　　　　　*　　　　　　　　☆　　　　　　　　　　　　・
　　　　　　　　　ﾟ　　　　　　　　　　☆　　　　　*
　　　　　　　　　　∧ ∧ 　　ﾄﾝﾃﾞ ﾖｼ
　　　　　　　　　　(,,ﾟДﾟ) つ　　　　　　　*
　　　─　　　γ ￣￣￣￣ ﾍ　　　　　　　　　　　ﾟ
　 ─ ─　 　 /◎　○　◎　○ﾍ　　
　 ─ ─　 ＜＿＿＿＿＿＿＿＞　　　　・
　　　─　　　 `―'　`―'　`―'


　　＿∧ ∧＿＿＿＿＿＿＿＿ ∧ ∧ ＿＿
　（＿(,,ﾟДﾟ).＿＿＿＿＿＿＿＿(,,ﾟДﾟ).＿＿○
　　⊂　　ノ│　２chねる　│　　⊂　　ノ
　 〜|　 _つ│　　復旧中　|　　〜|　 _つ
　　　し '　　　￣￣￣￣￣　　　　し '

そういえばリンク集など貼り付けてみましょう。

♪ ∧ ∧　∧ ∧♪
　　(,,ﾟДﾟ) (ﾟДﾟ,,)　　ｿｳｼﾏｼｮｳ
　　/つつ⊂⊂ヽ
〜　　ﾉ　　　| 　|〜
　(/ し　　　∪∪

まずは2chで話題になったとき
ソースを置く場所。

Delphi Source Files
http://www.ziyu.net/%7Erent/bbs/bbs.cgi?room=delphi6

置いてよし認定委員会
http://www2.to/source

無駄なコピペより有益なリンク貼れ

　本文長すぎます。
　改行が多すぎます
￣￣￣∨￣￣￣￣￣
　　　∧ ∧
　　　(,, ﾟДﾟ)∫
　　　/　 つ旦O
　〜(._［￣￣￣.］
　　　　 ￣￣￣
Tipsサイト
　Delphi Acid Floor　　http://homepage2.nifty.com/boheme/top.html
　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
　Sky Engine by Delphi　　http://www.geocities.co.jp/SiliconValley-SanJose/7625/index.html
　AboutDelphi　　http://www2.big.or.jp/~osamu/Delphi/
　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
　MADIAのVB研究室｜Delphi Page　　http://homepage1.nifty.com/MADIA/Delphi/Delhpi.htm
　DEKO Delphiによるテクニック＆アルゴリズム　　http://homepage1.nifty.com\ht_deko\techalgo.html

　なので分割

￣￣￣∨￣￣￣￣￣
　　　∧ ∧ 　　　AAﾊ ｲﾁﾞﾃﾞﾓ ﾊﾙ ﾆｬｰ
　　　(,, ﾟДﾟ)∫
　　　/　 つ旦O
　〜(._［￣￣￣.］
　　　　 ￣￣￣
初心者向け
　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/
環境のカスタマイズなら
　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

　　ﾌｰｰｰｰﾆｬｰ
　　　,,'''~''~'∧,,∧
　〜′,,,;;,, (,゜Д゜) 　>>7 ｵﾏｴが晴れ
　　UU"　" U U

　　-下手人--∧ ∧ 　／￣￣￣￣￣￣￣￣￣￣
〜□□ □□ ( ﾟДﾟ)＜　コピペ貼ったYO!
　 (Ｏ)----(O)U-U)　＼＿＿＿＿＿＿＿＿＿＿

http://do.sakura.ne.jp/~junkroom/cgi-bin/megabbs/readres.cgi?bo=lounge&vi=999486538&res=1

TSaveDialog の OverwritePrompt を True にすると、
同名ファイルが存在するときに警告が出るよね？
仮に、あるディレクトリに
hoge.txt
hoge.html
hoge.csv
の三つのファイルがあったとする。

フィルタから テキスト文書(*.txt) を選んで hoge と入れても、
確認プロンプトは出ないよね。 hoge.txt ではないから。

フィルタから HTMLドキュメント(*.html) を選んで hoge と入れても、
確認プロンプトは出ないよね。 hoge.html ではないから。

だから、ダイアログ内のテキストエディタに入力した時点で
拡張子を補完し、上書き確認メッセージを出したかった。


これって需要あると思う、マジで。

　∧ ∧ 　需要はともかく
　(；ﾟДﾟ) 　ちょっと調べなければわからないのよ。
　(|　　|つ 　CommonDialogを拡張して何かをするような
〜|　　| 　　技術情報をしらべなさい。>>MLのログに載ってるはず
　 ∪∪ 　　折れはそれにはまだ疎い

　氏ってる人教えてあげて。

>>5-6
Delギコ猫って双子だったのか？

　　　　　　　　（＼　　　　　　　　　　　　 　 　　　　　　　　　　 ／）
　　　　　　　　　＼＼　　　　　　　　　　　　　　　　　　　　　／／
　　　　　　 　　　（＼＼ 　　 　　　　 　　　　　　　　　　　／／）
　　　　 　　　　　　＼＼＼　　 　 　　　　　　　　　　　／／／
　　　　 　　　　　　（＼＼＼＼　　　　　　　　　　　／／／／）
　　　　 　　　　　　（＼＼＼＼＼　　　　　　　　／／／／／）
　 　　　　　　　　　　＼＼ ｜｜｜　 　 　　　｜｜｜　／／
（￣￣￣￣￣￣￣￣￣＼ ｜ ⊂⊃　　 ⊂⊃　｜ ／￣￣￣￣￣￣￣￣￣）
　￣￣（￣￣／／／／￣＼　 ∧ ∧ 　∧ ∧　 ／￣＼＼＼＼￣￣）￣￣
　　　　　￣（／／／／￣＼＼(　ﾟДﾟ)　(ﾟДﾟ　)／／￣＼＼＼＼）￣
　　　　　　　　（／（／／／￣（つ　つ 　⊂　⊂）￣＼＼＼）＼）
　　　　　　　　　　　　（／（／｜ 　｜　　 ｜　 ｜ ＼)＼）
　　　　　　　　　　　　　（／（（/ ∧｜　　 ｜∧ Ｖ））＼）
　　　　　　　　　　　　　　　　 ∪　∪ 　 　 ∪　∪
　　　　　　　　　　　　　　　　　ﾆﾁﾞｳ　　ｼﾞﾝｶｸ 　　　　　　　　ｶﾓ
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　蛯型だし

　∩ ∩
　| ∪ |
　|　 〜
　|∧ ∧　　　／￣￣￣￣￣￣￣￣
　( ,,ﾟДﾟ)つ ＜　質問いいかな。
　Ｕ　　　　　　＼＿＿＿＿＿＿＿＿

クラスメソッドというのはわかるのだが
クラスフィールドというのは
どうやってつくるのだ？無理なのかな。

1クラスで共通に保持したい内容があるのだが。

　　-下手人--∧ ∧ 　／￣￣￣￣￣￣￣￣￣￣
〜□□ □□ ( ﾟДﾟ)＜　>>12 本当にそう動作するか確認したﾅﾘか？
　 (Ｏ)----(O)U-U)　＼＿＿＿＿＿＿＿＿＿＿

とりあえずD4ではそう動作しなかったﾅﾘ
testと入れて*.txtから*.cvsにﾌｨﾙﾀ変更しても「test.txtに上書きしますか？」と出るﾅﾘ
つまりﾌｧｲﾙ名入れた時点の拡張子がﾌｧｲﾙ名に付随して有効になっているﾅﾘ
txt/cvs/html全部でどう切替えても訊いてくるから前提がおかしいﾅﾘ

推察するに、この時ﾌｨﾙﾀ変更にﾌｧｲﾙ名を追随させたのか？

type TMyClass = class(TObject);

implementation

var TMyClass_ClassField: Integer;
とかやってるけど

>>17
いまＤ６つかってるけど、聞いてこないよ。
それはデフォルトの拡張子にＴＸＴを指定してるからじゃないかな。
デフォの拡張子を無しにすると、拡張子のないファイルを
入力しても、何も言ってくれない。

>>18
おれもそんな感じ。
外部からアクセスしたいときはクラスメソッド経由で。

>>クラスフィールド
　 ∧∧　　　／￣￣￣￣￣￣￣￣￣￣￣￣￣
　(,,ﾟДﾟ)　＜　 現在　実装中
Π￣￣￣|　＼　
|つ 感謝 ()　 　￣￣￣￣￣￣￣￣￣￣￣￣￣￣
| |＿＿＿.|
　　∪∪

　　-下手人--∧ ∧ 　／￣￣￣￣￣￣￣￣￣￣
〜□□ □□ ( ﾟДﾟ)＜　>>17 FilterIndex=0で再現〜
　 (Ｏ)----(O)U-U)　＼＿＿＿＿＿＿＿＿＿＿
疑って正直ｽﾏﾝ
選択してるﾌｨﾙﾀってGET出来ないでやんのｸｿだね

>>22
　　∧ ∧　　　 ／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
　　( ﾟДﾟ)っ　＜　SaveDialog1TypeChangeイベントじゃないの？
　　|''Ｕ￣|　　　＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
　　|￣￣|
　/　　　　ﾞヽ
（ 　　ﾟДﾟ　　）
人＿_＿＿ノ

　　　　　 ∧∧　　／￣￣￣￣￣￣￣￣￣￣￣
　＠' ― (,,ﾟДﾟ) ＜　クラスフィールドって、こんなんで実現する？
　 　し― し-Ｊ　 　＼＿＿＿＿＿＿＿＿＿＿＿

自分自身のクラスインスタンスを保持する方法

interface
省略

implementation

var
FMyClassList: TList;

constructor TMyClass.Create(AOwner: TComponent);
begin
inherited;

FMyClassList.Add(Self);
end;

destructor TMyClass.Destroy;
begin
FMyClassList.Extract(Self);

inherited;
end;

initialization
FMyClassList := TList.Create;

finalization
FMyClassList.Free;

end.

これでFMyClassListのCountみたら同一クラスがいくつあるかわかるし
中身みたら他のものも参照できるしね。

ﾌﾟﾙﾌﾟﾙﾌﾟﾙ
　(( ∩ )) ﾌﾟﾙﾌﾟﾙﾌﾟﾙ
　　γ'⌒ヽ∧ ∧
　　 し'ゝつ( ﾟДﾟ)つ

D6のTLabeledEditの真似っこコンポーネント
TComponent派生で
BaseControlとMoveControlをプロパティで設定して
Baseが動けばMoveも動くようなものを作ってたんだよ。

IDEが落ちて落ちてまいったよ。
しかも使いにくくてだめだめだわ。
IDE上で動作するプログラムってすごく大変。
アンカーともろぶつかるし

こいつの2つのインスタンスが
Edit → Button
Base→Move
Move←Base
と設定されると無限に移動しつづけて行方不明になる不具合を
防止するためにクラスフィールドが欲しかったのよ。

教えてくれてありがとね。勉強になった。
なんかに応用できるといいんだがな。

何に応用するんだろう。

>>25
ComponentStateプロパティみて
実行時・設計時などの状態を判別させながらやらんといかんから
ちゃんとしたコンポつくんのってけっこうたいへんなんだよね。

クラスフィールドって何？
４年間ＤＥＬやってるけど、初めて聞いた（ようなきがする）

クラスメソッドに対してクラスフィールドって勝手にいってるだけっしょ

メンバー関数とかメンバー変数とかも同じかな

　　　　∧ ∧　　／ 読み方なんてどうでもよかれ
　　　　（,,ﾟДﾟ）＜　　実装みりゃ意味通じるだろ。
　　　　 |つ つ　 ＼　ユニットｵﾌﾞｼﾞｪｸﾄとでも言えば通じるのか？
　　　＠　　 | 　
　　　　∪ ∪

>>29 それって普通でしょ
ところで、このスレがスレッド一覧からじゃないと見えないのは
俺のところだけかな？

今、書き込んだら直った・・・
？？？

>>32
URLのindex2.htmをindex.htmに直してください

　　（　） 　　( )
　　　（ ）
　　 　∧ ∧　 　／￣￣￣￣￣￣￣￣
　 　　(ﾟДﾟ,,)＜　風呂は良いね、心を満たしてくれる。
　　　|￣￣￣|　＼＿＿＿＿＿＿＿
　　　|二二二|
　　　|＿＿＿|
　　　从从从从

　　　　　　（ ）
　　（　） 　
　　　（ ）　（　）
　　 　∧ ∧　 　　／￣￣￣￣￣￣￣￣
　 　　(ﾟДﾟ,,)_　＜　なんか熱くなってきた。
　　　|U￣U　|　　＼＿＿＿＿＿＿＿
　　　|二二二|
　　　|＿＿＿|
　　　从从从从

　　　　　　　　（　 ）
　　（　）　　　（　 ）　
　　　（ ）　　（　）
　　 　∧ ∧（ ）　／￣￣￣￣￣￣￣￣
　 　　(；ﾟДﾟ)　＜　ウオァチャァ！！
　　　 /　づ　　　＼＿＿＿＿＿＿＿
　　　|￣￣￣|
　　　|二二二|
　　　|＿＿＿|
　　　从从从从

　　　　　　　　　　　　　　　　　（ ）
　　　　　　　　　　　　（　） 　
　　　　　　　　　　　　　（ ）　（　）
　　　　　　　　　　＿＿＿＿ﾊﾞｼｬｧ
　　　　　　　　　 |　　|　│　|∧ ∧　・・・・・
　　　　从从　　 |　　|　│　|(*ﾟДﾟ)
　　　从从从从 |　　|　│　| ＿つつ
　　　　　　　　　　￣￣￣￣~~~~~~~~~~~~~~

ｵﾌﾛ ｲﾄﾞｳｼｷ
　　 　∧ ∧　　　／￣￣￣￣￣￣￣￣
　 　　(ﾟДﾟ )_　＜　すごいスレがたってるな。
　　　|U￣U　|　　＼＿＿＿＿＿＿＿
　　　|二二二|
　　　|＿＿＿|　ﾄｺﾄｺ
　　　　U U

　　　　　ゞゞ
　　　　　　　ゞゞ


Delphi でつくろう！Pure-P2P 掲示板
http://piza2.2ch.net/test/read.cgi?bbs=tech&key=999527387

モナーテラプロジェクトかしら。

スレ立てすぎ>Del坊

あ、そうでもないや

　　-下手人--∧ ∧ 　／￣￣￣￣￣￣￣￣￣￣
〜□□ □□ ( ﾟДﾟ)＜　>>23　ｲﾍﾞﾝﾄ発生はつかまるが、じゃあ今何番目のﾌｨﾙﾀかな〜ってのが取れん
　 (Ｏ)----(O)U-U)　＼ 　　FileNameにも拡張子は憑いてやがらねぇﾅﾘ
..　　　　　　　　　　　　　　＼＿＿＿＿＿＿＿＿＿＿

　　　　　 　 　 　 　∩
　　　 　　　　　　　 | |
　　 　　 ∧＿∧　 | |　　 ／￣￣￣￣￣￣￣￣￣￣￣
　　　 　（　´Д｀）／/　＜　先生！>>36のｽﾚ終了早すぎます!!
　　　　 ／ 　　　　/　　　＼
　　　 / /|　　　　/ 　　　　 ￣￣￣￣￣￣￣￣￣￣￣
＿＿| | .|　　　　|　＿_
＼　 ￣￣￣￣￣　　 ＼
　||＼　　　　　　　　　　　 ＼
　||＼||￣￣￣￣￣￣￣||￣
　||　 ||￣￣￣￣￣￣￣||
　 　 .||　 　 　 　 　 　 　 ||

>>23, 39
おおおお
できたよォォォォ

SaveDialog1 の Filter に

TXT|*.txt|HTML|*.html|CSV|*.csv

を指定。OverwritePrompt を True にして
TypeChange イベントに以下のコードを。

case SaveDialog1.FilterIndex of
1: SaveDialog1.DefaultExt:='txt';
2: SaveDialog1.DefaultExt:='html';
3: SaveDialog1.DefaultExt:='csv';
end;
これで、拡張子に応じて上書き確認出るよ！

ただ…
１回目はどんなにいじっても上書き保存は表示されず、
２回目以降に表示したときに、上書き保存メッセージが
ちゃんとでてくるようになる。ナゼダ

コンポーネントの初期値としての DefaultExt プロパティが埋まっていないからだろ。

　　　　　 　 　 　 　∩
　　　 　　　　　　　 | |
　　 　　 ∧＿∧　 | |　　 ／￣￣￣￣￣￣￣￣￣￣￣
　　　 　（　´Д｀）／/　＜　先生！AAをクロスプラットフォームにしたいです。
　　　　 ／ 　　　　/　　　＼
　　　 / /|　　　　/ 　　　　 ￣￣￣￣￣￣￣￣￣￣￣
＿＿| | .|　　　　|　＿_
＼　 ￣￣￣￣￣　　 ＼
　||＼　　　　　　　　　　　 ＼
　||＼||￣￣￣￣￣￣￣||￣
　||　 ||￣￣￣￣￣￣￣||
　 　 .||　 　 　 　 　 　 　 ||

>>43
GIFかJPGにすれば良いよ

png っていってあげなよ。

はじめまして、snafkinと申します。
タイピングゲームを製作中なのですが、
問題文をLabelで表示しています。
しかし、問題文が変わるとき、正確には
問題文の長さ（つまりLabelのCaption)
が変わるときにフォーム全体がちらつきます。
リアルタイムのゲームとしては非常に
気になるところなのですが、なんとか
直す方法はないでしょうか？

Form の DoubleBufferd を True にしなさい。

ただし Tlabel.Repaint; を呼んではいけない。

>>46
MLからヨウコソ！！

　∧ ∧　　　／￣￣￣￣￣￣￣￣￣￣￣￣
　(,,ﾟДﾟ)　＜ 　おはようございまる
./ <V>　　　＼＿＿＿＿＿＿＿＿＿＿＿
( U　ﾉ
.Ｕ Ｕ

>先生！AAをクロスプラットフォームにしたいです。
リナクス板へGO
折れのNT4&IE5.5でもAAがズレるので
ここはじっくり我満の子

SaveDialog問題は完全解決ということでよいですの？
半分ｶｲｹﾂしただけでほったらかしというのがMLには多いし。


>MLからヨウコソ！！
　|
　|
　| ∧　ようこそようこ ｯﾃ ｼｯﾃﾙ?
　|Дﾟ)
　⊂|
　|　｀〜
　|∪
￣￣￣￣￣￣￣
ｱｲﾄﾞﾙの田中ようこﾊ ﾀﾊﾞｺ ｽｯﾃﾃ ﾂｶﾏﾁｬﾀ ﾝﾀﾞﾖﾈ

有益になるように、きちんとしたまとめを書きましょう。

■SaveDialog 問題結論
SaveDialog1 の Filter に

TXT|*.txt|HTML|*.html|CSV|*.csv

を指定。OverwritePrompt を True 、
DefaultExt txt に指定
TypeChange イベントに以下のコードを。

with SaveDialog1 do
　case FilterIndex of
　　1: DefaultExt:='txt';
　　2: DefaultExt:='html';
　　3: DefaultExt:='csv';
　end;

これで、選択中のフィルタに応じた上書き確認が出る。

>>ML
１年程前には毒舌マンセーの
PCode 氏がいたんだが…

　　　　　 ∧∧　　　／￣￣￣￣￣￣￣￣￣￣￣
　＠' ― (,,ﾟДﾟ)つ ＜ 最近見かけねーナ
　 　し― ∪　 　　　＼＿＿＿＿＿＿＿＿＿＿＿

>>33 ありがと

>>51
そう？よくみかけるけど？

Delphi5 で作成中のＣＴＩ用のシステムがあります。
ダイレクトで担当の電話にコールされたときや、コール中に応答
した場合などに、他のアプリよりも最前面に表示するようにしています。

しかし、ポップしたときに他のアプリケーションなどで入力をしていた
場合などに、入力中の未変換文字がポップしたＣＴＩのアプリへ
付いてきてしまいます。

変換文字が確定されていないので、当然の動作と思いますが
これを、ポップしてきたＣＴＩ用のアプリへ移動しないようにすることは
可能なのでしょうか。

CreateInputContext を呼び出して，入力空間を分離しなさい。

　　-下手人--∧ ∧ 　／￣￣￣￣￣￣￣￣￣￣
〜□□ □□ ( ﾟДﾟ)＜　>>50 DefaultExtの使い方が全然違うのな。ﾋﾞｸｰﾘしたYO
　 (Ｏ)----(O)U-U)　＼＿＿＿＿＿＿＿＿＿＿

　なにこの結果？？

￣￣￣∨￣￣￣￣￣
　　　∧ ∧ 　　　ﾏﾀｰﾘ
　　　(,, ﾟДﾟ)∫
　　　/　 つ旦O
　〜(._［￣￣￣.］
　　　　 ￣￣￣

function OneTenOne: Double;
begin
　Result := 1.1;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
　if 1.1=OneTenOne then
　　ShowMessage('イコール')
　else
　　ShowMessage('ノットイコール');
end;

ノットイコールになるんですが。

当たり前だが、ネタ？>>57

>>58
　　∧ ∧∩ アータにとっては当たり前でも
　　(ﾟДﾟ,,)ﾉ 　ワタシニャー当たり前でござらん
　　 | 　つ
　　　|　⊂)〜
　　　 ∪ 　　　　教えてよ。

　＿＿＿ ∧ ∧　　／￣￣￣￣￣￣￣
　＿＿＿（ ﾟДﾟ）＜ 　キックボード持ってる奴・手挙げて
　＿＿ ／⊃三つ　＼＿＿＿＿＿＿＿
　＿〜′ ／　＼
　＿ ∪ ∪　　　 ＼
　　 　◎￣￣￣￣◎

function OneTenOne: Double;
begin
　Result := 1.1;
end;

function OneTenZero: Double;
begin
　Result := 1.0;
end;

procedure TForm1.Button4Click(Sender: TObject);
var
A: Double;
begin
if 1.1=OneTenOne then
ShowMessage('イコール')
else
ShowMessage('ノットイコール'); //○

A := 1.1;
if A=OneTenOne then
ShowMessage('イコール') //○
else
ShowMessage('ノットイコール');

if 1.0=OneTenZero then
ShowMessage('イコール') //○
else
ShowMessage('ノットイコール');
end;

　　　∧∧　　　／￣￣￣￣￣￣￣￣
〜''~（,,ﾟДﾟ）　＜　サパーリわからんニャ。
　 UU'UU　　　　＼＿＿＿＿＿＿＿＿

　演算誤差？？

定数1.1の型は何か？
Writeln(1.1-OneTenOne)の出力結果はいくつか？

十進数の0.1は二進浮動小数点表記では割り切れないから丸め誤差が入るんだよ。

　　　 ∧ ∧　　　／￣
　　∩(,,ﾟДﾟ)　＜　にゃろめー。
⊂,,⌒　,,つつ.　　＼＿
　　￣￣
>定数1.1の型は何か？
　わからん。

>Writeln(1.1-OneTenOne)の出力結果はいくつか？
-8.87961579265628E-17
だった。

>言語ガイドをよく読むよ〜に
　言語ガイドのどこニャ。それくらいｵｼｴﾚ。けちんぼーめ。

　・・・って、『真の定数』のところのこれか！
＞定数式が実数の場合，その型は Extended です。

こんな1文・氏ッてるわけニャー。よ

>>62　そうかな？型が違うだけみたい。

const
　B: Extended = 1.1;
　C: Double = 1.1;
begin
　if B=C then
　　ShowMessage('イコール')
　else
　　ShowMessage('ノットイコール'); //○
end;
どうやらこうらしい

浮動小数点を=で判定することが間違ってると思うが・・・

>>63
割り切れないから型(精度)が違うと丸め位置も変わって値も変化するってこと。

そして >>64 に同感。

>64
>浮動小数点を=で判定することが間違ってると思うが・・・

　∩ ∩
　| ∪ |
　|　 〜
　| ∧ ∧　　／￣￣￣￣￣￣￣￣
　|( ,,ﾟДﾟ) ＜　じゃあどうすりゃいいの？
　Ｕ　Ｕ　　　＼＿＿＿＿＿＿＿＿

そもそもほとんど浮動小数点系の
処理を書いた事ないんだよ。

整数の場合、通常4バイトのIntegerで処理するのがいいので
その感覚で4バイトのDoubleで処理してみたのだが…

ﾌﾄﾞｵｼｮｽｳﾃﾝものの扱いはExtended で
行なうべきなのかな？
Power関数なんて全部Extendedだし。

それともFloatToStrでもしろと？

>>66
=で判定することはせずに
>,<,<=,>=とかで行う。
浮動小数点を扱う場合は許容誤差はいくらまでか
仕様決めるときにでてくるだろ。

１０進数で説明しよう。
1/3 を小数点以下４桁まで格納できる変数と
小数点以下８桁まで格納できる変数に代入すると
0.3333 と 0.33333333 になるな。

この値が 1/3 から生成されたことをいったん忘れて、変数の
値を比較すると 0.33330000 と 0.33333333 を比較することになるな。

となればこの二つを異なる物と判断すべきだね？

だから理屈はあるし、精度の異なる数値を直接比較してはいけない。

一律に「浮動小数点を=で判定することが間違ってる」といってはいけないのだが
そのためにはちゃんとした誤差評価が必要になるので多くの場合は
差が「計算機イプシロン」と呼ばれる非常に小さな数より小さければ同じ物と
見なす。

D6 なら Math ユニットに SameValue とか IsZero, CompareValue があるからそれをつかえ。

その場合でも Double と Extended を比較することはできない。
既に情報が劣化しているのだからね。

情報の中に一つでも劣化した物があるなら、残りもすべてそれに
合わせる決断をしなきゃいけないよ。

Double を Extended に変換するのではなく、Extended を Double に
落として扱うこと。

MS のコンパイラは、最大精度でも(Delphi の) Double だから
逆にあまり問題が出ないんだよね...

　　-下手人--∧ ∧ 　／￣￣￣￣￣￣￣￣￣￣
〜□□ □□ ( ﾟДﾟ)＜　ってか1.1と書くなら精度は小数1桁だから
　 (Ｏ)----(O)U-U)　＼＿＿＿＿＿＿＿＿＿＿

procedure TForm1.Button1Click(Sender: TObject);
function OneTenOne: Double;
begin
Result := 1.1;
end;
begin
if Abs(1.1-OneTenOne) < 0.1 then
ShowMessage('イコール')
else
ShowMessage('ノットイコール');
end;

でｲｲﾝｼﾞｬﾈｰﾉ?

＞if Abs(1.1-OneTenOne) < 0.1 then
　　∧∧ 　　　 ／￣￣￣￣￣￣￣￣￣￣￣
　　(,,ﾟДﾟ)　　＜ これが重要かい？
　ヽ/つ且~~　　＼＿＿＿＿＿＿＿＿＿＿＿
　 （__　_）

こんなんつくーてみたけど
少数点第○位まで数字が一致しているのを調べる関数
function IsshoValue(A, B: Extended; Digit: Byte): Boolean;
begin
　if Abs(A - B) < (IntPower(10, -1*Digit)) then
　　Result := True
　else
　　Result := False;
end;
これでよろしいか？ひとけた分ずれてるかな。
テストしてみまする。

>>67
> 浮動小数点を扱う場合は許容誤差はいくらまでか
> 仕様決めるときにでてくるだろ。

D6ダウソすれで四捨五入ネタがでていたので
任意の桁で四捨五入をする関数を作ってみたんだが
その最中で変になったのだ。
仕様なんてあるかい。

>>68
めっさわかりやすかた。サンクスコ。

　　　 ∧∧　ﾌﾟﾊｰ
　　　(,, ﾟДﾟ) =3　＜　どうやらちがうな。
　　　/つ日 　　　　　難しいやこりゃこりゃ
　〜（＿_ﾉ
　　考え中

あと、
固定小数点と違って浮動小数点は精度が同じでも指数部が違うと
表せる最小値にも違いが出てくるからExtended同士でも一度1.1を
代入してから1.0を引いた値と 0.1を比較しても不一致になるよな。

難しく考えすぎ。つーか遅すぎ。
大体それじゃ1001.0と999.0を近似できないじゃん。

function IsSame(A, B: Extended; e: Extended): Boolean; overload;
begin
Result := Abs(A-B) <= e;
end;

　　　∧ ∧ 　　　　／￣￣￣￣￣￣￣￣￣￣￣
　　　( ﾟДﾟ)　　　＜　>>74もそっと頼む
.=| |==U=U==.| |=　＼＿＿＿＿＿＿＿＿＿＿＿
　| | ｜　 |　　| |
　| | ﾉU U.　　| |
　| |　　　　　 .| |

実際の数値をﾀﾞｲﾇｳしたテストコードなど見せてくれると
ありがたい。

　IsSame(1001.0, 999.0, ?)=True
　IsSame(1001.0, 999.0, ?)=False
　IsSame(0.00019, 0.00020, ?)=True
　IsSame(0.00019, 0.00020, ?)=False

ハテナにあてはめる"べき"なのはいったいなんの数値なんだ？
微妙にわからないが、100/10/1/0.1/0.01/0.001
という値を入れればいいの？

え、テストくらい自分でやれって。
汗ってやってる最中(モナカ)だよ。

　IsSame(1001.0, 999.0, ?)=True
の場合Abs(1001.0 - 999.0)は約2.0
なので余裕を持って
　IsSame(1001.0, 999.0, 10.0)=True
　IsSame(1001.0, 999.0, 1.0)=False

いまいち何にはまってるのかわからないけど
a±eの範囲内にbが収まってるかを判定する関数。
と解釈するとわかるかも？

　　∧ ∧　　ｶﾀ　　　　　　 ／￣￣￣￣￣￣￣￣￣￣￣￣￣
　　(,,ﾟДﾟ),＿＿ｶﾀ＿　_＜　　テストテストテスト
　 ./ つ＿||￣￣￣￣￣|　＼＿＿＿＿＿＿＿＿＿＿＿＿＿
　（,　　|＼||　　バイオ　 |
　 　 　'＼,,|==========|
　　　　　　 ￣￣￣￣￣

procedure Check(A, B: Boolean; Msg: String = ''); overload;
begin
　if A <> B then
　　raise Exception.Create('Checkエラー'+ Msg);
end;

function IsSame(A, B: Extended; e: Extended): Boolean;
begin
　Result := Abs(A-B) <= e;
end;

procedure testIsshoValue;
begin
　Check(True,　IsSame(1001.0, 999.0, 10));
　Check(False, IsSame(1001.0, 999.0, 1));
　Check(True,　IsSame(0.19999900, 0.20000000, 0.01));
　Check(True,　IsSame(0.19999900, 0.20000000, 0.001));
　Check(True,　IsSame(0.19999900, 0.20000000, 0.0001));
　Check(True,　IsSame(0.19999900, 0.20000000, 0.00001));
　Check(True,　IsSame(0.19999900, 0.20000000, 0.000001));
　Check(False, IsSame(0.19999900, 0.20000000, 0.0000001));
　Check(False, IsSame(0.19999900, 0.20000000, 0.00000001));
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
　testIsshoValue;
end;

> いまいち何にはまってるのかわからないけど
自分でも混乱しまくり。慣れないことはつらい。

> a±eの範囲内にbが収まってるかを判定する関数。
> と解釈するとわかるかも？

おー。

　　　　∧ ∧　　　　 ／￣￣￣￣￣￣￣￣￣￣￣￣￣
　　　　（ ﾟДﾟ） 目＜　わかったよー。
　　　　 |つ つ　||　 ＼ ＿＿＿＿＿＿＿＿＿＿＿＿＿
TTTTTTTT|TTTTTT
￣￣￣￣￣￣￣￣|
::....　　　　 　　　　　　|

IsSame の第３引数は省略可能。省略、または０を指定すると、適当な「小さい数」が
使われる。

しかし、1001.0と999.0　を同じとみなしたいのか。かなり大雑把だね。差が２でも
等しいとしたいのだから、IsSame の第３引数には２（実際には２よりちょびっと大きい値）を
指定するしかない。

　　-下手人--∧ ∧ 　／￣￣￣￣￣￣￣￣￣￣
〜□□ □□ ( TДT)＜　ﾌｫﾛｰ誰もくれん
　 (Ｏ)----(O)U-U)　＼＿＿＿＿＿＿＿＿＿＿

IsSame( 1.1 , 1.1 , 0.1 )か

＿＿＿_∧ ∧＿ ／￣￣￣￣￣￣￣￣￣￣￣￣￣￣
＿＿＿（　ﾟДﾟ）＜　>>79　だってレス流れるの早いんだもん
＿＿ ／ ⊃ つ　 ＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿
＿〜′ ／
＿ ∪ ∪

>78
> しかし、1001.0と999.0　を同じとみなしたいのか。かなり大雑把だね。差が２でも
> 等しいとしたいのだから、IsSame の第３引数には２（実際には２よりちょびっと大きい値）を
> 指定するしかない。


　∧ ∧ ──────
　(ﾟДﾟ　) ＜そだそだ。2より微妙に大きくないとダメなのだ。
　⊂⊂　＼──────
　　　 ＼　　〜　────
　　　　 し し　─────

たぶん、1001と999は2というのは関係なく
一例として誤差の範囲10でＴｒｕｅ,誤差範囲1でＦａｌｓｅと
いう事になるのでしょう。

>　(ﾟДﾟ　) ＜そだそだ。2より微妙に大きくないとダメなのだ。
いや、用途によるんだって。
近似の用途は浮動小数点演算の計算誤差に限定されるわけじゃないからね。

例えばこんなの
if IsSame(30, age, 10) then ShowMessage('はたちでーす');

Delphi関係の本が一冊も売ってない！Kylixが一冊あったが。。
だれかIndyを使ったプログラミングを詳しく解説してるものを
本でもサイトでもなんでもいいのでポインタ示してくれェェェ！！！

なんだ。IsSame を自分で定義しているのか。

C++BuilderとDelphiはどちらを選択すべきでしょう？
VCLを使う分にはあまり変わらないのでしょうか。
どちらかというとC++の方が経験があるのですが...

>>84
C++の経験があるのならBCBでいいと思う。
ただしVCLのソースはPascalなので、ある程度知識が必要になってくると思う。

　むむ？IsSameはどこにあるんだ？

￣￣￣∨￣￣￣￣￣
　　　∧ ∧ 　　　ﾏﾀｰﾘ
　　　(,, ﾟДﾟ)∫
　　　/　 つ旦O
　〜（__ｎ ｎ［￣￣￣.］
　　　　　　　 ￣￣￣
> IsSame の第３引数は省略可能。省略、または０を指定すると、適当な「小さい数」が
> 使われる。
> なんだ。IsSame を自分で定義しているのか。

D6PersonalにもD5エンプラにも付属していないみたいだが。
IsSameDayってのはあるけどね。

　　　∧ ∧　　　 ／￣￣￣￣￣￣￣￣￣￣￣
　　 （ﾟДﾟ；）　　＜　はて？
　　⊂ ⊂|　　　　＼＿＿＿＿＿＿＿＿＿＿＿
　 　 |　　 |〜
　　　∪ ∪

>>81
>if IsSame(30, age, 10) then ShowMessage('はたちでーす');

見事にたとえになってないと思うが,,,?なんで±10でハタチ？

if IsSame(17, age, 2) then ShowMessage('およそ女子高生でーす');
じゃないのか？(歌舞伎町もえましたな。こわいこわい)

>>80では
1001.0と999.0これだと1001.000001...と998.9999999999と誤差がでてると
2だとIsSame = Trueにならないということがいいたいんだけど。

すみません、
ＨＴＭＬタグ関連の質問はどこですればいいでしょうか、
多分、みなさんにとってアホらし過ぎる質問だと思いますが・・

　　　>>84-85　折れもBCBをお勧めする

　　　　　　　∧ ∧
　　　　　　　( ﾟДﾟ)
　　　　　　　|∪ |
　　　　　 〜|　　|
　　　　　　　U U

　　いずれVCLのPascalをよまなけりゃいけない場面もあるが
　　Delphiでも結局C++をよまなきゃいけないのと
　　同じことで必要だし。

　　ただ、C++を挫折しかけているならDelphiをやるのがヨシ


　　>>88
　　スレたてるまでもない質問スレをさがせ。


　 ∧∧　　　／￣￣￣￣￣￣￣￣￣￣￣￣￣
　(,,ﾟДﾟ)　＜　 浮動小数点系の話。大変ためになりました
Π￣￣￣|　＼　
|つ 感謝 ()　 　￣￣￣￣￣￣￣￣￣￣￣￣￣￣
| |＿＿＿.| 　教えてくれたりしたひと、みなさんにひとまず感謝。
　　∪∪

　　グッスリ眠れそうだ。

でもBCBってコンパイル遅くて氏ぬ。
Delphiと違いすぎ。

>>88
http://natto.2ch.net/hp/index.html

>>90
ＢＣＢとＤｅｌｐｈｉで同じ物作ると
ｅｘｅのサイズは違うの？

透明のウインドウを作るにはどうしたらよいでしょうか？

FormのプロパティーのVisibleをFalseにしても消えませんでした。

BorderStyle を bsNone にして　Width と Height を 0 にすれば
見えないウインドウができましたが、これではタスクバーに表示されて
しまうようです。

　　　　∧ ∧　　・・・・。
　　　　( ﾟДﾟ)
　　〜（　uu）

IsSameというのはD6のSameValueの事か。

> function SameValue(const A, B: Extended; Epsilon: Extended = 0): Boolean;
> overload;
>
> SameValue 関数を呼び出すと，2 つの浮動小数点値が等しいかどうか，またはおよそ等し
> いかどうかを確認できます。
> A と B は比較対照の値です。
> Epsilon は，A と B が同じ値であると判断される最大の差です。

自作する場合もD5以前では0を代入してしまえばいいのか？

>>93
タスクバーになくてかつ、見えなければよいのか？

タスクバーから消す方法はあるよ。

>>93
このあたりでどうでしょう。

http://www.nifty.ne.jp/forum/fdelphi/faq/00038.htm
http://www.nifty.ne.jp/forum/fdelphi/faq/00030.htm

ごめんなさい。
解決しました。
ヘルプに「メインフォームを非表示にする」って項目がありました。

>>96
ありがとうございます。
FAQのページも参考にさせてもらいます。

８９さん９１さんありがとうございます。

昔から変わってないが、

>Borland Delphi 6 使用許諾契約
>『ボーランドのナンセンスでないライセンス規定』および制限付保証

このタイトルはジョークなのか？？

　　-下手人--∧ ∧ 　／￣￣￣￣￣￣￣￣￣￣
〜□□ □□ ( ﾟДﾟ)＜　>>100 ﾅｳなﾔﾝｸﾞにﾊﾞｶｳｹだと思ったんでしょう
　 (Ｏ)----(O)U-U)　＼＿＿＿＿＿＿＿＿＿＿

　　　 ∧ ∧　　　／￣
　　∩(,,ﾟДﾟ)　＜　たしか、バカウケってお菓子が・・・・・・・
⊂,,⌒　,,つつ.　　＼＿
　　￣￣

>>102
ちょっと笑ってしまった・・・

ところで…

テキスト形式の外部データファイルを実行時に取り込み、
利用するプログラムがある。当然、実行ファイル以外に
いくつかのデータファイルも配布するのだが、
このデータファイルというのがどれも1KB未満ぐらいの
ごく小さなもので、なんとなく無駄に感じる。

なので、１つのファイルに結合してしまい、
そこから自由に指定のデータ文字列を得られるような関数は
ないだろうか。

たとえば、
hoge1.dat hoge2.dat hoge3.dat をまとめた hoges.dat が
あったとして、

Hoge1Strings := ExtractFileText( 'hoges.dat', 'hoge1.dat' )

のような感じでアーカイブから自由に取り出したり、また
アーカイブに追加したり、編集したりする関数…
つくりかた教えて。。。

>>104
TInifileじゃだめ？

データファイルってのが、HTML等のテンプレートファイルなのね。
アプリで扱っているデータを出力する際のフォーマットを決めるためのファイルなのよ。

だから、改行ありまくりだし、アーカイブの状態でも
テキストエディタでの編集が楽になるようにしたい…
%begin hoge1.txt

hoge1.txt の内容　％はエスペープに置き換え

%end
%vefin hoge2.txt

hoge2.txt の内容　％はエスケープに置き換え

%end
てな感じで。

>>106
やり方判ってるならその通りの動作をするように作ればいいじゃん。

だって面倒なんだもん。

リソースにでもしたら?

がいぞんのアーカイバのソースを参考にしてはどうだ？
ソース公開されているものは結構あるぞ

つってもファイル結合して取り出すくらいなら自力で組めると思うんだが・・・。

　　-下手人--∧ ∧ 　／￣￣￣￣￣￣￣￣￣￣
〜□□ □□ ( ﾟДﾟ)＜　>>100 無料で賃金GETするなｺﾞﾙｧ
　 (Ｏ)----(O)U-U)　＼＿＿＿＿＿＿＿＿＿＿

<?xml version = "1.0" encoding = "Shift_JIS"?>
<!element テンプレート(ファイル名)>
<!element ファイル名(内容)>
<!element 内容(#PCDATA)>

<テンプレート>
　<ファイル名>hoge1.txt</ファイル名>
　　<内容>
　　　内容が無いよう
　　</内容>

　<ファイル名>hoge2.txt</ファイル名>
　　<内容>
　　　やるきも無いよう
　　</内容>

</テンプレート>

これでいいのかｺﾞﾙｧｺﾞﾙｧ

　　-下手人--∧ ∧ 　／￣￣￣￣￣￣￣￣￣￣
〜□□ □□ ( ﾟДﾟ)＜　100じゃなくて>>104だｽﾏﾝぞｺﾞﾙｧ
　 (Ｏ)----(O)U-U)　＼＿＿＿＿＿＿＿＿＿＿

>なんとなく無駄に感じる。
これが実際どれだけ無駄なのか、
許容できないくらい無駄なのか
きっちり検証して、クライアントや周りに
意見を聞いてみたほうがいいよ。

勝手な想像で言わせてもらえば
数百以下ならファイル単位で管理したって
全然問題にならないと思うよ。

XMLもどきの独自フォーマットを導入することはできるけど
お気軽に編集してタグ壊されたらどうすんの？

半分ヤケクソで”面倒だから”と書いたのだが、
怒らずにマジレスしてくれた２ｃｈねらーにちょっと感動。

アーカイブ化関数、分解関数
まじめに考えてみるＹＯ。

ひとつのファイルの内容をひとつの String 型変数に代入し、
それを保持するコンポーネントを作ってしまえばよい。

保持実体を String の動的配列にしておけば、増減も簡単。

>115
いまいち

Sections: TStringListってしといて
Sections.Strings[]にセクション名・ファイル名一覧を
Sections.Objects[] as TStringListにセクション名に対応した本文を格納
ってのが良いね。

第一段階：複数ファイルの（ヘッダ尽きでの）結合。

{Files で指定されたファイルをヘッダ付きで結合する
ファイル名は２５６バイトまでで、それ以上は切り捨てられる
上書き確認はしない}
procedure MakeArchive(const Files:TStrings; const Newfile:string);
var
i,p,Size:integer;
Source:TMemoryStream;
Dest:TMemoryStream;
Buf:array [0..256-1] of Char;
SizeBuf:array [0..16-1] of Byte;
Name:string;
begin
Source:=TMemoryStream.Create;
Dest := TMemoryStream.Create;

try
for i:=0 to Files.Count-1 do
begin
{ファイルを読み込む}
if not FileExists( Files[i] ) then
begin
showmessage('FILE NOT FOUND'+#13+Files[i]);
Exit;
end;

Source.LoadFromFile( Files[i] );


{ファイル名をBufにセット}
Name := ExtractFileName( Files[i] );
StrPLCopy( Buf, Name, SizeOf( Buf ) );

{ヘッダ：最初の256バイトはファイル名を示す}
Dest.WriteBuffer( Buf, 256 );

{ヘッダ：次の 16 バイトはファイルサイズを示す}
Size := Source.Size;
for p:=0 to High( SizeBuf ) do
begin
SizeBuf[p] := Size and $FF;
Size := Size shr 8;
end;

Dest.WriteBuffer( SizeBuf, 16 );

{データ：バイナリを書き込む}
Dest.CopyFrom( Source, 0 );
end;

Dest.SaveToFile( Newfile );

finally
Dest.Free;
Source.Free;
end;
end;

すまん、インデント忘れ。

{Files で指定されたファイルをヘッダ付きで結合する
ファイル名は２５６バイトまでで、それ以上は切り捨てられる
上書き確認はしない}
procedure MakeArchive(const Files:TStrings; const Newfile:string);
var
　i,p,Size:integer;
　Source:TMemoryStream;
　Dest:TMemoryStream;
　Buf:array [0..256-1] of Char;
　SizeBuf:array [0..16-1] of Byte;
　Name:string;
begin
　Source:=TMemoryStream.Create;
　Dest := TMemoryStream.Create;

　try
　　for i:=0 to Files.Count-1 do
　　begin
　　　{ファイルを読み込む}
　　　Source.LoadFromFile( Files[i] );

　　　{ファイル名をBufにセット}
　　　Name := ExtractFileName( Files[i] );
　　　StrPLCopy( Buf, Name, SizeOf( Buf ) );

　　　{ヘッダ：最初の256バイトはファイル名を示す}
　　　Dest.WriteBuffer( Buf, 256 );

　　　{ヘッダ：次の 16 バイトはファイルサイズを示す}
　　　Size := Source.Size;
　　　for p:=0 to High( SizeBuf ) do
　　　begin
　　　　SizeBuf[p] := Size and $FF;
　　　　Size := Size shr 8;
　　　end;

　　　Dest.WriteBuffer( SizeBuf, 16 );

　　　{データ：バイナリを書き込む}
　　　Dest.CopyFrom( Source, 0 );
　　end;

　　Dest.SaveToFile( Newfile );

　finally
　　Dest.Free;
　　Source.Free;
　end;
end;

続き。>>103 で結合したファイルを分離。

{ MakeArchive関数で結合されたアーカイブ Filename を分離し
DestPath ディレクトリ内に保存する ファイル名は 256 バイトまででそれ以上は切り捨て
上書き確認はしない}

procedure SeparateArchive(const Filename, DestPath:string);
var
　Filesize:Int64;
　i:integer;
　Source:TMemoryStream;
　Dest:TMemoryStream;
　Buf:array [0..256-1] of Char;
　SizeBuf:array [0..16-1] of Byte;
　Name:string;
begin
　Source:=TMemoryStream.Create;
　Dest := TMemoryStream.Create;
　try
　　Source.LoadFromFile( Filename );

　　repeat
　　　{ヘッダ：最初の２５６バイトをＧＥＴ}
　　　Source.ReadBuffer( Buf, 256 );
　　　Name := Buf;

　　　{ヘッダ：次の１６バイトをＧＥＴ}
　　　Source.ReadBuffer( SizeBuf, 16 );
　　　Filesize:=0;
　　　for i:=0 to 16-1 do
　　　　Inc( Filesize, SizeBuf[i] shl (i*8) );

　　　{ファイルを抽出}
　　　Dest.Clear;
　　　Dest.CopyFrom( Source, Filesize );

　　　{保存}
　　　Dest.SaveToFile( IncludeTrailingPathDelimiter(DestPath) + Name );
　　until Source.Position >= Source.Size;
　finally
　　Source.Free;
　　Dest.Free;
　end;
end;

>>119

>続き。>>103 で結合したファイルを分離。
103じゃなくて118だ…

両関数とも動作確認済み。
もうすこし効率よくかけそうなのでアドバイスキボン。

さらにつくってみた。動作確認済み。

{ MakeArchive関数で結合されたアーカイブ Filename をから、
Target で指定されたファイルを探し出し Stream に抽出する。
アーカイブ内に目的のファイルが存在するならば True を返す}
function ExtractFromArchiveToStream(Stream:TStream;const Archive, Target:string):Boolean;
var
　Filesize:Int64;
　i:integer;
　Source:TMemoryStream;
　Dest:TMemoryStream;
　Buf:array [0..256-1] of Char;
　SizeBuf:array [0..16-1] of Byte;
　Name:string;
begin
　result := False;

　Source:=TMemoryStream.Create;
　Dest := TMemoryStream.Create;
　try
　　Source.LoadFromFile( Archive );

　　repeat
　　　{ヘッダ：最初の２５６バイトをＧＥＴ}
　　　Source.ReadBuffer( Buf, 256 );
　　　Name := Buf;

　　　{ヘッダ：次の１６バイトをＧＥＴ}
　　　Source.ReadBuffer( SizeBuf, 16 );
　　　Filesize:=0;
　　　for i:=0 to 16-1 do
　　　　Inc( Filesize, SizeBuf[i] shl (i*8) );

　　　{ターゲットファイルかどうか}
　　　if AnsiSameText( Name, Target ) then
　　　begin
　　　　{ファイルを抽出}
　　　　Dest.Clear;
　　　　Dest.CopyFrom( Source, Filesize );
　　　　Dest.SaveToStream( Stream );
　　　　{終了}
　　　　Result := True;
　　　　Exit;
　　　end
　　　else
　　　　{POSITION をサイズぶんだけ移動}
　　　　Source.Position := Source.Position + Filesize;
　　until Source.Position >= Source.Size;
　finally
　　Source.Free;
　　Dest.Free;
　end;
end;

コレで最後。

{ MakeArchive関数で結合されたアーカイブ Filename をから、
Target で指定されたファイルを探し出し DestPath ディレクトリ内に保存する
アーカイブ内に目的のファイルが存在するならば True を返す}
function ExtractFromArchive(const Archive, Target, DestPath:string):Boolean;
var
　Stream:TMemoryStream;
begin
　Result := False;

　Stream := TMemoryStream.Create;
　try
　　if ExtractFromArchiveToStream(Stream,Archive,Target) then
　　begin
　　　Stream.SaveToFile( IncludeTrailingPathDelimiter(DestPath)+Target );
　　　result := True;
　　end;
　finally
　　Stream.Free;
　end;
end;

うーむ、ソースＵＰ板に書くべきだったか…？
しかし、これに圧縮関数を組み合わせれば
相当いろんな事ができると思うのだが。

有益な関数だと自負するぞ。

さらに調子に乗ってみた。動作確認済み。

{ MakeArchive関数で結合されたアーカイブ Archibve から
Target で指定されたファイルを削除する。アーカイブ内に目的のファイルがない場合は
Falseを返す}
function RemoveFromArchive(const Archive, Target:string):Boolean;
var
　Filesize:Int64;
　i:integer;
　Source,Dest:TMemoryStream;
　NameBuf:array [0..256-1] of Char;
　SizeBuf:array [0..16-1] of Byte;
　Name:string;
begin
　result := False;

　Source:=TMemoryStream.Create;
　Dest := TMemoryStream.Create;
　try
　　Source.LoadFromFile( Archive );
　　repeat
　　　{ヘッダ：最初の２５６バイトをＧＥＴ}
　　　Source.ReadBuffer( NameBuf, SizeOf( NameBuf ) );
　　　Name := NameBuf;
　　　{ヘッダ：次の１６バイトをＧＥＴ}
　　　Source.ReadBuffer( SizeBuf, SizeOf( SizeBuf ) );
　　　Filesize:=0;
　　　for i:=0 to High( SizeBuf ) do
　　　　Inc( Filesize, SizeBuf[i] shl (i*8) );
　　　{ターゲットファイルかどうか}
　　　if AnsiSameText( Name, Target ) then
　　　begin
　　　　{ position をサイズ分だけ移動し、読み飛ばす}
　　　　Source.Position := Source.Position + Filesize;
　　　end
　　　else
　　　begin
　　　　{新アーカイブへ内容をコピー}
　　　　Dest.WriteBuffer( NameBuf,SizeOf( NameBuf ) );
　　　　Dest.WriteBuffer( SizeBuf,SizeOf( SizeBuf ) );
　　　　Dest.CopyFrom( Source, Filesize );
　　　end;
　　until Source.Position >= Source.Size;
　　Dest.SaveToFile( Archive );
　finally
　　Source.Free;
　　Dest.Free;
　end;
end;

とどめだ。動作確認済み。

{ MakeArchive関数で結合されたアーカイブ内のファイル名リストを得る
Files.strings にファイル名が、
Files.objects にファイルサイズ（バイト）が格納される}
procedure ArchivedFiles(const Archive:string; Files:TStrings);
var
　Filesize:Int64;
　i:integer;
　Source:TMemoryStream;
　NameBuf:array [0..256-1] of Char;
　SizeBuf:array [0..16-1] of Byte;
begin
　Files.Clear;
　Source:=TMemoryStream.Create;
　try
　　Source.LoadFromFile( Archive );
　　repeat
　　　{ヘッダ：最初の２５６バイトをＧＥＴ}
　　　Source.ReadBuffer( NameBuf, 256 );

　　　{ヘッダ：次の１６バイトをＧＥＴ}
　　　Source.ReadBuffer( SizeBuf, 16 );
　　　Filesize:=0;
　　　for i:=0 to 16-1 do
　　　　Inc( Filesize, SizeBuf[i] shl (i*8) );
　　　{ファイル名とサイズを追加}
　　　Files.AddObject( NameBuf , TObject(Filesize) );
　　
　　　{ position をサイズ分だけ移動し、読み飛ばす}
　　　Source.Position := Source.Position + Filesize;
　　until Source.Position >= Source.Size;
　finally
　　Source.Free;
　end;
end;

>>117-125
しかしなんだな。もう少し考えて書くべきだった。
同じようなコードがほぼ全ての関数に含まれている…
指定した position を基点に、ファイル名ーサイズー内容
を取り出す関数を一つ作っておくべきだった…

鬱だ。ねむいので、あとは任せた。

ファイルネーム長が256固定はヘッダでかすぎるから、可変でもいいかもしれんな。

　　∧ ∧　　　 ／￣
　　( ﾟДﾟ)っ　＜　>>126　何時に寝てるんだよ！
　　|''Ｕ￣|　　　＼＿
　　|￣￣|
　/　　　　ﾞヽ
（ 　　ﾟДﾟ　　） ＜ｷｾﾂ ﾉ ｶﾜﾘﾒ ｶｾﾞ ﾋｸﾅ
人＿_＿＿ノ

　 oooo
　│　│
　∧＿l　　　∫　　　／￣￣￣￣￣￣￣￣￣￣￣
　(,,ﾟДﾟ)　　 ∬　　＜ 　朝スパゲチを3日連続つくる
　 |∪ |つ＝●　　　＼＿＿＿＿＿＿＿＿＿＿＿
〜|￣｜
　 U U 　　ｲｲ ｵﾖﾒ ｻﾝ ﾆﾅﾚﾙｿﾞ
　　　　　　 ﾀﾞﾚｶ ﾓﾗｯﾃｸﾚ
　　　　　　ｴｲｷｭｳ ｼｭｳｼｮｸ ｻｾﾛ

もしかしたらあほな俺を笑ってくれ！

Buf:array [0..255] of Char をゼロで初期化するのに

SetPLCopy( Buf,StringOfChar(#0,SizeOf(Buf)),SizeOf(Buf));

こう書いている俺を笑え。ああ、笑うがいいさ。
他の書き方知らないんだよ！！教エレ

>>129 あはは
FillChar(Buf, SizeOf(Buf), #0);

　　∧∧ 　　　 ／￣￣￣￣￣￣￣￣￣￣￣
　　(,,ﾟДﾟ)　　＜ >>116　オブジェ嗜好的にはその通りだ
　ヽ/つ且~~　　＼
　 （__　_） まるでＸＭＬパーサー作成方法のような木が・・・

>>104
ＨＴＭＬテンプレートならテキストだと思うが
汎用的にバイナリも扱いたかった？

一回一回の関数呼び出しでファイルアクセスせずに
こんなの作れば綺麗くない？


アーカイブクラス
　private
　　FFileText: TStringList;
　　//ファイル名を管理 Objectsプロパティでファイル内容を示すTStringListにアクセス可能
　public
　　procedure SaveToアーカイブファイル(XMLファイル名: String);
　　procedure LoadFromアーカイブファイル（XMLファイル名: String);
　　procedure SaveTo複数ファイル(複数ファイル名: TStrings);
　　procedure LoadFrom複数ファイル(複数ファイル名: TStrings);
　　property Text[Index: Integer]: String;
　　property FileText: TStringList; read FFileText write FFileText;
　end;

これなら複数ファイルに展開せずとも
アーカイブファイルを取り出して中身をイジクリたおしてから
アーカイブに書き込むという事も可能だよ。

プログラムのデータをアーカイブと複数ファイル同時に書き出したりも出来るし。

アーカイブファイルの構造って
ファイル名[改行]
ファイルの中身.CommaText[改行]
...
ってやってReadlnでいいんじゃない。
ファイルなんていらないような。

　　-下手人--∧ ∧ 　／￣￣￣￣￣￣￣￣￣￣
〜□□ □□ ( ﾟДﾟ)＜　ﾍﾞﾀﾍﾞﾀ
　 (Ｏ)----(O)U-U)　＼＿＿＿＿＿＿＿＿＿＿

http://do.sakura.ne.jp/~junkroom/cgi-bin/megabbs/readres.cgi?bo=lounge&vi=999661367&res=1

>>133 サンクス。テキスト版参考にしてみるよ。

アーカイブ関連関数をちょっと改良して
全体量を減らしてみたけど、どうよ？
どうせ作るなら、一般的にしたほうが良いと思って。

http://do.sakura.ne.jp/~junkroom/cgi-bin/megabbs/readres.cgi?bo=lounge&vi=999663627

　　-下手人--∧ ∧ 　／￣￣￣￣￣￣￣￣￣￣
〜□□ □□ ( ﾟДﾟ)＜　>>134 ﾔﾊﾟｰﾘ文字制限が気になるな
　 (Ｏ)----(O)U-U)　＼＿＿＿＿＿＿＿＿＿＿

要求仕様的には問題無いんだろうけど、一般的とは言わないだろうな

ところで、with ってすごく便利なんだけども

with TStringList.Create do
begin
　//この場所で、TStringList を引数にするような
　//関数を呼び出す事が出来ないんだよね
end;
律儀に Hoge:=TStringList.Create ってやって、
関数に引数として Hoge を渡してやる以外に
スマートなやり方ってないのかな。

ファイル名の長さに応じた、ヌル文字終端文字列ってどうやって
生成するんだ？

NameBuf:PChar;
Filename:string;
Dest:TMemoryStream;
-------------------------
NameBuf:=PChar( FileName );
Dest.WriteBuffer( NameBuf , Length(Filename)+1 );
だとダメだし、

P:Pointer;
NameBuf:array of Char;
Filename:string;
Dest:TMemoryStream;
-------------------------
SetLength(NameBuf,Length(Filename)+1);
P := @NameBuf;
StrPCopy( P, FileName );
Dest.WriteBuffer( P , Length(Filename)+1 );
だと当然エラーだ
なんかわけわかんなくなってきたＹＯ

>>137 微妙に面白い・・・

>>138
Stream が出てくるのがよくわからんが

buf: PChar;
j: integer;

j := Length(Filename) + 1;
buf:=StrAlloc(i);
try
// 諸々の処理
finally
StrDispose(buf);
end;

で、PChar から参照するのはダメなの？
はずしてる？

　　 ﾍ ﾍ
　　(；ﾟДﾟ) 全然わからんが
　　（つつ
　　 U U

PChar(Str)じゃだめ？

Streamにnull終端文字列として書き出したいのかな?
dest.WriteBuffer( pchar(filename)^, Length(filename)+1 );
でよくないすか?
pointerではなく参照を渡さないといかん程度

ありがとう、まさにそのとおり >>142
おかげでファイル名長を制限しない
アーカイバができました

>>133 あはは
ZeroMemory(@Buf, SizeOf(Buf));

真面目な話をすると、#0とやってnull文字を指定するより、
手続き名で直感的に分かるので視認性の向上にも繋がると思われ。
でも内部では FillChar 呼び出してるのは秘密(藁

>>144 誤爆？
ちょっと教えて。
ZeroMemoryってD6から？ 手許のD5にはないんだけど。

>>145
Win API

>>146
Σ（ﾟдﾟlll)ｶﾞｰﾝ
そうだったのか。気づかなかった。
さんきゅ。

　　-馬鹿垂--∧ ∧ 　／￣￣￣￣￣￣￣￣￣￣
〜□□ □□ ( ﾟДﾟ)＜　ｳﾌﾟCGIを腐らせてしまっているので、お待ちください
　 (Ｏ)----(O)U-U)　＼＿＿＿＿＿＿＿＿＿＿

＞ZeroMemory
つっても、実際の実装はFillChar(,,0)だけどな。Windows.pas参照。

　　　∧ ∧
　　　(*ﾟДﾟ)
　　　/つ□ 　やっとD6を手に入れた。
　〜（　　ノ 　　CLXで遊んでみよう。
　　　U U

　　　　　∧ ∧　　／￣￣￣￣
　　　 　（ﾟДﾟ ,,）＜ 　アプリケーションWindowはどこかへ逝ってる
　 ＿|￣￣||＿）　＼＿＿＿＿
／旦|――||/／ ／|
|￣￣￣￣￣|￣| . |
|＿＿＿＿＿|三|／

タスクバーボタンの表示がForm1だ。
いったいどうなってるんだろう･･･？？

既存のコンポーネントは動作するんだろうか？

　　-馬鹿垂--∧ ∧ 　／￣￣￣￣￣￣￣￣￣￣
〜□□ □□ ( ﾟДﾟ)＜　 一部復旧
　 (Ｏ)----(O)U-U)　＼＿＿＿＿＿＿＿＿＿＿

原因は、調子に乗って差別用語登録しまくったら(w
EUC非対応漢字？書いちまったらしい。んでﾁｪｯｶｰがコケてた

�d�jデータはバックアップから修復中なんで大丈夫だと思います。
迷惑かけて正直ｽﾏﾝ
やっぱり差別は良くないと体で覚えたーよ

　　∧ ∧　　　　　　　　　　／￣￣￣￣￣￣￣￣￣￣￣￣￣
　　(,,ﾟДﾟ),＿＿＿_＿＿_＜　ウニコードなんとかならん？
　 ./ つ＿||￣￣￣￣￣|　＼＿＿＿＿＿＿＿＿＿＿＿＿＿
　（,　　|＼||　　ＶAＩO 　 |
　 　 　'＼,,|==========|
　　　　　　 ￣￣￣￣￣
D6でも元の形式にならないものだろうか。

とりあえず

object Button1: TButton
　Caption = #12508#12479#12531#65297
end
↑↓
object Button3: TButton
　Caption = 'ボタン１'
end

テキスト相互置換えツールつくってよ！

まぁ、修正を待て。

　∧ ∧　 　／
　(,,ﾟДﾟ)　＜　　VCLとＣＬＸどっちでアプリ作るか悩むぞ。
　 |つ つ　　＼
〜 　　|
　∪ ∪

微妙なライブラリが違いが
別世界のDelphiを使っているみたいだよ
チョイ興奮気味

　　　 ∧ ∧　　　／￣
　　∩(,,ﾟДﾟ)　＜　>>154　修正で治るのかにゃろめー。
⊂,,⌒　,,つつ.　　＼＿
　　￣￣

　∧∧∩゛　 ／￣￣￣￣￣￣￣￣￣￣￣￣￣
　(,,ﾟДﾟ)ﾉ　＜　>>152　ご苦労様
　U　　/　　　＼＿＿＿＿＿＿＿＿＿＿＿＿
　|　　|
ノ∪∪　　ｵﾔｽﾐﾅｻｲ

そーいえば、エディトボクースで、ウニコード入力できるようにするにはどうしたらよいのでしょう。

＿＿_ 　ヽ
＿ ／⊂　｀∧ ∧　　／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
　｜　|　 ＼(　ﾟДﾟ)＜　>>156　CLXならEditのフォントのCharSetを設定だ
　 | ／　　　∪ ∪　　 ＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
￣
fcsUnicode にすると、ハートマークまで表示された。

VCLは氏らん、というか教えろ。

　Delphi6落としてみたけど、TClientSocketとTServerSocketのヘルプがない・・・
　（SockCompユニットの中身はヘルプ全くなし？）
　使い方とかサンプルの載ったurlきぼんぬ。

>158
人を頼らずに自分でやれ。
まあ、他力本願だから、たいしたことも出来ずにデルファイ引退っぽいな。

TClientSocketと検索かけたら大量に出てくるぞ。

158みたいな人間は、どうせろくなプログラムをかけないんだからやめたほうがいいです。
自分で探してみて無ければ聞くのなら分かるけどな。

Delphi6 のヘルプは正直不備がおおいので、
Borland のダウンロードページから Delphi5の
ヘルプ最新版をＤＬして、並行利用したほうが良い。

DelphiってDirectXをバリバリにつかった３Ｄのアクションとか作れます？
まぁ、作れるんでしょうけどゲーム用途に向いていますか？
実行速度とか含めて。

>161
速度が問題にならない限りは普通に使える。
でもチューニングに突入してポインタ（参照にあらず）使い出すと
むちゃくちゃ汚いコードになる。この辺はC/C++の方がすっきりかける。

>>161
ぜんぜんオッケー。
つかむしろDelphiでゲーム作ってる人って結構多くない？

ただ、まともな3Dアクションなんて言語に関係なくそうそう見たことない。
ていうかそんなのはいわれなくてもわかるだろうけど。
いや、なにが言いたいかって言うと、つくれますか？と聞かれて、
ハイ作れますと言えるが、実際にそういうのをいちいち聞いてくる人間が
作ったためしはないということ。
FF作れる言語はなに？と対して変わらん。

>>157
>CLXならEditのフォントのCharSetを設定

ルーチンユニットにはＣＬＸとＶＣＬの２種類があるというのは
わかったんだけど、コンポーネントにも２種類あるの？

　StrToInt('xFF');
　StrToInt64('xFF');

　　　　　　∧∧ 　　どうして上はOKで
　　　　　　( ﾟДﾟ) 　下は"整数じゃあ〜りません"なんだYO
　　　　　　∪　| 　　ﾎﾞﾗﾝﾄﾞのイケズー。
　　　　　〜　　 つ
　　　　　　 ∪"'

　　　∧ ∧ 　　／￣￣￣￣￣￣￣￣
　　　(,, ﾟДﾟ)　＜　>>164
=====U U====＼＿＿＿＿＿＿＿＿
|　　　ギコ　 ｜
|　まっしぐら ｜
￣￣￣￣￣￣
ルーチンユニットではなくて、同じTEditという名前でも
VCLはWindowsのコントロールを
CLXはWinでもLinuでもQtをラッピングしているから、別物だ！

でないとCLXがクロスプラットホームで同じ動作するわけないニャ

虫眼鏡でジーーーットみると微妙にフォントが違うなり。

ちなみにD6PersonalではCLXアプリは作れないよ

>>166
なるほど、Del6Perだからどのタブを見ても
普通のコンポーネントしか見当たらなかったんダネ。

ところで、２つのファイルパスが同じファイルを指
しているかどうかを判定したいのだけど、ＷＩＮで
は大小文字を区別しないで比較しないといけないし
、短いファイル名と長いファイル名を考慮しないと
いけないでしょ。でもＬｉｎｕｘでは、そのまんま
パス文字列を比較するだけでよいでしょ。

ＫｙｌｉｘかＤｅｌｐｈｉか、コンパイラによって
｛＄ＩＦＤＥＦ｝で処理を分けたいんだけど、どち
らの環境で何がＤＥＦＩＮＥされているかがわから
ない。そういう一覧ってどこかにない？もしかして
ＨＥＬＰにのってるのか…？

　StrToInt64('-$000FFFF');
　StrToInt('-$000FFFF');

　　　　　　∧∧ 　　ﾔｯﾃﾗﾚﾝ
　　　　　　(#ﾟДﾟ)
　　　　　　∪　|
　　　　　〜　　 つ 　
　　　　　　 ∪"'

どうして上はOKで
下は"整数じゃあ〜りません"なんだ！
いいかげんにしてくれ！

なんか Integer だと、符号 + - と $ を連続しては
付けられないみたいだね。

Val( '-$FF', int, E ); だと２文字目がエラーになるし
Val( '+$FF', int ,E ); でも２文字目がエラー
Val( '-$FF', i64, E ); や
Val( '+$FF', i64 ,E ); はぜんぜん平気ね。

>>168
全部かどうか知らないが
「条件コンパイル指定の使い方」にのっている

>>171
ありがとう、

Delphiプログラマーズガイド→
ＣＬＸをつかったクロスプラットフォーム開発→
クロスプラットフォームアプリケーションの作成

に載っていたよ。

>>163
>ていうかそんなのはいわれなくてもわかるだろうけど。
>いや、なにが言いたいかって言うと、つくれますか？と聞かれて、
>ハイ作れますと言えるが、実際にそういうのをいちいち聞いてくる人間が
>作ったためしはないということ。
>FF作れる言語はなに？と対して変わらん。

うっ、痛い所を突かれた。
でも、ガンバってみます。はい。

>>173

Delでゲーム作りは仲間も多いし、ツールの能力的にも必要十分なので
VCとかでやるよりはやりやすいと思うぞ。

つ〜わけで頑張って下され。

あのー
Ｄｅｌ６ヘルプのＶＣＬ−ＣＬＸ対応表に、

>FileCtrl 使われなくなっている

と書いて歩けど、ＬＩＮＵＸで実現できないとかではなくて、
あくまでも「使われていないから移植しない」て事でしょ？
FileCtrl の SelectDirectory はよく利用してるんだけど、
もしかしてもっと良い別の関数が用意されている？

　　　∧∧　　　／￣
　 ＿(,,ﾟДﾟ)　＜　>>175 overloadされたSelectDirectoryは氏ってる？
⊂,,＿_つつ.　　＼＿

　　　∧∧　　　／￣
　 ＿(,,ﾟДﾟ)　＜　>>173 "Delphi ゲーム"などで検索かけてみろ
⊂,,＿_つつ.　　＼ 折れはBCBをお勧めするけどな。
おもしろいネタがあったらオシエレ。

http://home4.highway.ne.jp/ora_soft/main/ora_prog.htm
http://homepage1.nifty.com/absolute/soft/abs.html
http://www.ceres.dti.ne.jp/~dycoon/
http://www2s.biglobe.ne.jp/~t_harada/index.html

　　　∧∧　　　／￣
　 ＿(,,ﾟДﾟ)　＜　最も有名な2つをリンクしてなかったね。
⊂,,＿_つつ.　　＼＿

DelphiX　http://www.yks.ne.jp/~hori/DelphiX.html
Project Quadruple D　http://www-fu.magma.ne.jp/~hayase/dddd/

　　　∧∧　　　／￣
　 ＿(,,ﾟДﾟ)　＜　だれかDelphi&BCBゲーム開発サイトリンク集
⊂,,＿_つつ.　　＼ つくって

>>176
あ…もしかして、Win3.1ライクなSelectDirectoryが
FileCtrl製であって、もう一つのSelectDirectoryは
FileCtrlではないという事か！

納得。

>>168
LinuxというかUnixではlinkがあるから、ファイルの同一性はパス名だけじゃ
分からない。stat(2)かfstat(2)を使うこと。

Kylixでstat(2)がどういう風に使えるのか知らんし、pascalなんて忘れてるの
で文法的に正しくないかも知れんが。

function identical_file(path1: string, path2: string): boolean;
var
　 s1, s2 : stat;
begin
　 if stat(path1, s1) < 0 then
　　　is_same_file := false
　 else if stat(path2, s2) < 0 then
　　　is_same_file := false
　 else
　　　is_same_file := s1.st_dev = s2.st_dev and s1.st_inode = s2.st_inode;
end;

もし存在しないファイル同士の比較するなら、ファイル名部分を取り出して比
較、一致するならディレクトリ部分に対して同じことを繰り返す。あとUnixで
は/が連続していてもWindowsのようにエラーにはならない。

>>　　　is_same_file := false
しまった。is_same_fileじゃなくてidentical_fileね。途中で関数名変えたも
んでミスった。

　　乖離ｯｸｽ-.∧ ∧ 　／￣￣￣￣￣￣￣￣￣￣
〜□□ □□ ( ﾟДﾟ)＜　 復旧完了
　 (Ｏ)----(O)U-U)　＼＿＿＿＿＿＿＿＿＿＿

問題あったら指摘4649

VBからDelphi（正確にはkylix）に乗り換えました。

分からないところがいっぱいあるので質問させてください。

１．ｖｂのcall命令みたいな物は無いのでしょうか？
　　prosudureで宣言されてる所に飛ぶとかそういうのです。
-------------------------------------------
Prosudure TForm1.Button1click(Sender: Tobject);
begin
　　式1
end;

Prosudure TForm1.Button2click(Sender: Tobject);
begin
　　式1に飛ぶ
end;
-------------------------------------------
こんなのです

>>182
Button1Click(Sender);
だが、
イベントハンドラ直接呼ぶのはちと痛いので

Procedure TForm1.Shiki;
begin
式1;
end;

Procedure TForm1.Button1click(Sender: TObject);
begin
Shiki;
end;

// Button2の処理も同じならButton2のOnClickはButton1Clickを選んでおく /

みたいにしたいところ

>>173
ゴメンいいすぎた。これじゃ俺も厨房丸出しだ。
せっかくDelphiに来たというのにきついこといってすまん。

>>182
関数間goto(ｲﾔｰﾝ)じゃなくて単なる関数呼び出しなら

Prosudure TForm1.Button2click(Sender: Tobject);
begin
　　Button1click(Sender);
end;

かぶった('д`;)
182の方法の方がいいね

＞182の方法の方がいいね
183の方法の方がいいね

もういい。氏んでくる

　　

　　　　　 　 ∫
　　　∧,,∧ ∬　　　　 　 ／￣￣￣￣￣￣￣￣￣
　　 ミ,,ﾟДﾟノ,っ━~　　＜　氏なんでよろし。
＿と~,,,　　~,,,ﾉ＿.　∀　　＼＿＿＿＿＿＿＿＿＿
　　　 .ﾐ,,,/~),　　.|　┷┳━
￣￣￣ .し'J￣￣|...　┃
￣￣￣￣￣￣￣ 　 .┻
　酒でも飲んで落ち着け

…TListView でアイテム部分をオーナードローしようとして、
コード書いて実行したらそのままＯＳ巻き込んでフリーズ。
それ以来 TListView のオーナードローは鬼門だと思い
手を出さなかったが…

そうか、ＶＣＬのバグだったのか…

　　∧∧ 　　／￣￣￣￣￣￣￣￣￣￣￣
　¶(,,ﾟДﾟ) ＜、、、>>189　聞いてみりゃよかったのに。
　ゝ|し　|┐　＼＿＿＿＿＿＿＿＿＿＿＿
　（_|./　|┘
　　 U U

　情報は大切ね、
　当然、既にリークしない用のD5用ListViewは
　配布されている。

　　∧∧ 　　／￣￣￣￣￣￣￣￣￣￣￣
　¶(,,ﾟДﾟ) ＜、Button1Click(nil)でもいいんだな
　ゝ|し　|┐　＼＿＿＿＿＿＿＿＿＿＿＿
　（_|./　|┘
　　 U U

読んどけ
http://hp.vector.co.jp/authors/VA009712/take/delphi/kabedel.htm#sender

　　--下手人-∧ ∧ 　／￣￣￣￣￣￣￣￣￣￣
〜□□ □□ ( ﾟДﾟ)＜　 >>190 あまり参考にはならん鴨
　 (Ｏ)----(O)U-U)　＼＿＿＿＿＿＿＿＿＿＿

http://do.sakura.ne.jp/~junkroom/file/piclistv.lzh

>>179
stat ってなに？？

こんにちハハハ。
Tリストビューを使っています。
クリックイベントとダブルクリックイベントの両方を使っているのですが、
ダブルクリックをしてもクリックイベントが走ります。（当たり前）
クリックのときは、クリックイベント、
ダブルのときは、ダブルクリックイベント「のみ」を実行したいのですが、
どうすればできるでしょうか？
クリックイベントで非常に重い処理をしているので、ダブルクリックするたびにガッカリします。
チェンジとかセレクトイベントは、使いたくないです。（マウスでクリックのときだけ処理をしたい）
デルファイのすごいひと教えて！！

　　　　　 ∧∧　　／￣￣￣￣￣￣￣￣￣￣￣
　＠' ― (,,ﾟДﾟ) ＜　このへんみろ
　 　し― し-Ｊ　 　＼＿＿＿＿＿＿＿＿＿＿＿

http://www2.big.or.jp/~osamu/Delphi/delphi-browse.cgi?index=007392
おそらく詳しく見ると分かると思うが
わからなかったらまた質問してくれ

重要な質問です。

TRect は

TRect = record
case Integer of
0: (Left, Top, Right, Bottom: Integer);
1: (TopLeft, BottomRight: TPoint);
end;
と宣言されていますね。

ARect.TopLeft := Point( 30, 40 );

としたあとで

ARect.Left
ARect.Top

を参照すると、どうして Left Top にも値がちゃんと代入されていますか。
いくら共用体とはいえ TopLeft と Top, Left には関連性は
ないと思っていたのですが。RightBottom と Right, Bottom に関しても
同様ですね。こういったことはクラスのプロパティでないと
実現できないものと思っていましたが。

>0: (Left, Top, Right, Bottom: Integer);
>1: (TopLeft, BottomRight: TPoint);
各変数のアドレス調べてみなよ。
「たまたま」ぴったりあうようにデザインされてるんだよ。

　　　∧ ∧ 　∧∧
　　　（ ﾟДﾟ) （　　 ）　　　／￣￣￣￣￣￣￣￣
　　　 |つ つ⊂　　| 　　＜　ぴったりんこ
　　〜　　｜　|　　、〜　＼＿＿＿＿＿＿＿＿
　　　∪ ∪ 　∪∪

ヘルプの『レコードの可変部分』を見るといいかも。

>いくら共用体とはいえ TopLeft と Top, Left には関連性はない
じゃなくて，
TopLeft と Top, Left に関連性を持たせるのが，共用体なの。

なるほど、サイズが合っていないとダメなのか。
ということは、

TPointEx = object
　X,Y:Extended;
　procedure MoveTo(AX,AY:Extended);
end;

TRectEx = object
　case Integer of
　0: (Left, Top, Right, Bottom:Extended);
　1: (TopLeft,BottomRight:TPointEx);
　end;
　procedure Center:TPointEx;
　function Width:Extended;
　function Height:Extneded;
end;

なんてやってたりすると、サイズが違うからできないってことね。
つーか、クラスを使えって突っ込みが入りそうだが…

♪ ∧ ∧　∧ ∧♪
　　(,,ﾟДﾟ) (ﾟДﾟ,,)　　IDｶﾞ ｷｴﾃﾙ ﾆｬ
　　/つつ⊂⊂ヽ
〜　　ﾉ　　　| 　|〜
　(/ し　　　∪∪


ﾔﾒﾄｹ∧∧　∧∧ 　 ／￣￣￣￣￣￣￣￣
　　　( ﾟДﾟ) ( ﾟДﾟ) ＜　　思う存分自作自演出来ル！
　　　 | ⊃|⊃ゞ　|⊃　＼＿＿＿＿＿＿＿＿
　　〜| _　|ｶﾞｼｯ!!|″
　　　 ∪∪　∪∪

あっ

いつのまに…？

いやー
ＩＤ無いと精神的にのびのびできてイイネー

>194
その文章、DelphiMLの初期の頃にいたイズミなんとかを思い出す。

>>204
本人と思われ(ﾜﾗ

>>195
ありがとう。まだ試してないけど、うまくいきそうな感じ。

>>204-205
ちちがうっつーの。

関係ないけど、>>195 のスレの質問者を見てちょっとガッカリ。

若かりし日の戸田さんだ〜

すっげー謎。

unit Unit1;

interface

type
　TEPoint = object
　　X,Y:Extended;
　　function DistanceTo(const p: TEPoint): Extended;
　end;

implementation

function TEPoint.DistanceTo(const p: TEPoint): Extended;
begin
end;

end.

これでどうして
'DistanceTo' の宣言がすでに定義されているものと異なります

ってえらーが起きる？？

>>209
よくわからんが、自分自身のオブジェクトを引数の型に使っているのが
いけないんじゃ？ type PEPoint = ^TEPoint; として PEPoint 型を
引数の型に使ったらコンパイル出来た。

>>210
ああ、なるほどそういうことか。
クラスにするか…

すまねぇ・・・何となく素人質問です。
stringlist の items をクリップボードに入れたいのだですが
それらしいメソッドが無いのです。
アイテムごとに改行で区切るって事で。
最初は assign か savetostream のような気がしたんだが。
教えてくだせぇ。

自己レス。
よくわかんないから　非表示の memo に assigh して copyToClipboard　してみた。
どうも美しくない気がする。

>>213
言いたいけど初心者だから言えない。
引きこもってよっと。

>>214 assign の事かな・・・

学校逝ってきます！

>>212
Clipboard.AsText := StringList.Text;
で出来るよ。

>217
OpenとClose忘れちゃアカンと思われ、、、
クリップボードは詳しくないのでアレだが、
OpenとCloseの処理は try..except..end でまとめて、
クリップボードが開けなかったときの対策は必須と思われ。

って、漏れが慎重すぎるのか？

重要な質問！！

for i:=0 to 8 do
...

の部分をステップ実行しながらデバッグしていたら、
i の値がどうも 9→0 と変化している。
監視式にはそう書いてあるのよ。

でも、その他の変数の変化を見ると、実際には
i は 0→8 と、ちゃんと変化しているらしい。

これってバグ？

>>219
バグではありません。コンパイラの最適化によりそうなります。

　∩ ∩
　| ∪ |
　|　 〜
　|∧ ∧　　　／￣￣￣￣￣￣￣￣
　( ,,ﾟДﾟ)つ ＜　重要な質問とかいうな。
　Ｕ　　　　　　＼＿＿＿＿＿＿＿＿

はっきりいって>>219の質問は
今まで数十回は聞いた事がある。

聞くなとはイワナーイが、重要扱いされるとｳｻﾞｯ
質問者以外には重要でもなんでもなし。

>>218
　　　 ∧∧　ﾌﾟﾊｰ
　　　(,, ﾟДﾟ) =3　＜　VCLソースみるとSetAsTextでは
　　　/つ日 　　　　　　例外処理はキチンとやってる。
　〜（＿_ﾉ

procedure TClipboard.SetBuffer(Format: Word; var Buffer; Size: Integer);
みるといいかも。

AsTextでＯｐｅｎ/Ｃｌｏｓｅする必要はない(ﾀﾌﾞﾝ)

気になったのでテスト。
一つのアプリにはボタン1個のみぽとり。

クリップボードのオープン/クローズのみする。
厨房的コードでスマソ。
最初のCaptionは'Open'でよろしこ
//アプリ1
procedure TForm1.Button1Click(Sender: TObject);
begin
　If Button1.Caption = 'Open' then
　begin
　　Clipboard.Open;
　　Button1.Caption := 'Close';
　end else
　begin
　　Clipboard.Close;
　　Button1.Caption := 'Open';
　end;
end;

もう1個のアプリにはMemo1個にボタン1個。
//アプリ2
procedure TForm1.Button1Click(Sender: TObject);
begin
　Clipboard.AsText := memo1.Text;
end;

これでアプリ1でクリップボード開いたときにアプリ2でボタン
クリックすると、ﾔﾊﾟｰﾘ例外発生。
処理次第ではｴﾗｰ処理は必須か……
タダでさえ悪いのに眠い頭で考えてるので、変なこと口走ってたらｽﾏｿ。

ああやっぱり変なこと書いてた鬱だ氏脳。
>>223は無視してOK。慣れない徹夜はつらいっす(;´Д`)
とりあえずOpen/Closeは必要ないです。
MemoはReadOnlyにしないでいろいろやると
わかるっす。

…ところでかちゅの書込時のｴﾗｰはどうにかならないかね。
ウザイしスレごとに名前とか覚えてくれないし…

>>224
Win板のかちゅスレで聞いてみれば？



と悪魔の声をかけてみる。

かちゅの挙動はクライアント環境によりけりだな。
仕事場ではわざわざブラウザ開いてカキコしなきゃなんね。

　　　　　　　　　　。°゜　 ／￣￣￣￣￣￣￣￣￣￣
　　　＿＿ ∧ ∧ﾟ　　 　 /　マイルニャ…、ホットゾヌ逝こうかな。
〜⊂＿⊂（　ﾟДﾟ）っ　 ＜＿＿＿＿＿＿＿＿＿＿＿_


　　　　　 ∧ ∧　　／￣￣￣￣￣￣￣￣￣￣￣
　〜' ― (,,ﾟДﾟ) ＜　ところで検証サンクス>>224
　 　し― し-Ｊ　 　＼＿＿＿＿＿＿＿＿＿＿＿

＞とりあえずOpen/Closeは必要ないです。
いいのかな？

>225
仕様なのは分かるってるが…
おみとろんとか、別のローカル串で対処できないかなと。
かちゅへのパッチでも(・∀・)ｲｲ!

おみとろん用フィルタが無いかなと思ったが…
厨房な俺には無理だし…
だれかかちゅ専用ローカル串つくってくれい!
出来ればDel6Personalでも使える、Server/Client Socketを
駆使して作れる猛者のソース公開きぼんｗ

とりあえずスレ違いなので幕。

>226
>>とりあえずOpen/Closeは必要ないです。
>いいのかな？
(・∀・)ｲｲ!!
あれで普通にコピーできるみたい。
メモに適当に文字打ってボタン押してメモ消して
メモで今度はCTRL+Vすると検証可能。

　　--下手人-∧ ∧ 　／￣￣￣￣￣￣￣￣￣￣
〜□□ □□ ( ﾟДﾟ)＜　 >>226 何故に？
　 (Ｏ)----(O)U-U)　＼＿＿＿＿＿＿＿＿＿＿
串pacならpacソース見れ

　　　　∧ ∧　　　　 ／￣￣￣￣￣￣￣￣￣￣￣￣￣
　　　　（ ﾟДﾟ） 目＜　金曜日だよー。
　　　　 |つ つ　||　 ＼ ＿＿＿＿＿＿＿＿＿＿＿＿＿
TTTTTTTT|TTTTTT
￣￣￣￣￣￣￣￣|
::....　　　　 　　　　　　| 　ｻﾃ ｷｮｳﾓ ﾌﾙﾊﾟﾜｰ ﾃﾞ ｼｺﾞﾄ ｻﾎﾞﾙｶ

　　　　　　　∧ ∧　　　 ／￣￣￣￣￣￣￣￣￣￣￣
　　　　　　 （ﾟДﾟ；）　　＜　よくわからん
　　　　 　　⊂ ⊂|　　　　 ＼＿＿＿＿＿＿＿＿＿＿＿
　　　　　 　 |　　 |〜
　　 　 　　　∪ ∪

なぜかちゅがそうなるのかも。よくわからん

>串pacならpacソース見れ
この文章の意味も。よくわからん

ところでメソッドと関数の違いは何でしょうか。

オブジェクトに従属した関数を関数と呼ぶのは間違いですか。

メソッドとメンバ関数は同義ですか。

文字列が整数に変換可能かどうか調べるIsInt
http://do.sakura.ne.jp/~junkroom/cgi-bin/megabbs/readres.cgi?bo=lounge&vi=999491550

　∧ ∧ 　　　／￣￣￣￣￣￣￣￣￣￣￣
　( ﾟДﾟ)　　＜ 　これのテスト部分10の所ってエクストリームﾌﾟﾛｸﾞﾗﾐﾝｸﾞになりますか？
　 |∪ |つ∀ ＼＿＿＿＿＿＿＿＿＿＿＿
　 |　 ｜
　 U U 　ﾖｸﾜｶﾝ ﾆｬｰｲ

こういう手法はMonaUtils見て尻ました。Monazilla.orgの皆さん感謝。

　 　|
電　|
　 　|∧ ∧
柱　|,,ﾟДﾟ)　＜　>>231　フィいリング。
　　⊂　|
　 　| 　|
　 　|∪
, '　,　;　'　;

似たようなもんで似たような使い方はできるけど
場面によってはキッチリ区別をつけよう。

>オブジェクトに従属した関数を関数と呼ぶのは間違いですか。
メソッドと呼んだ方がいいかも。

>メソッドとメンバ関数は同義ですか。
同義かも。
メンバ関数のなかでもPublicのものをメソッドと呼ぶべきかも

＞メンバ関数のなかでもPublicのものをメソッドと呼ぶべきかも
privateだろうがprotectedだろうがメソッドでしょ。
言語ガイドにはそういう区別はないから。

>>231
自分で関数と呼ぶのは構わないけど、他人に理解してもらえないことも
あるから、注意した方がいいと思う。

>>193
stat(2)というのはシステムコールのstat。man 2 statしてみ。

Cだと構造体名の名前空間は分かれてるんで関数名と構造体名両方とも同じな
んだけど、Kylixだとそのへんはどう処理してるのかな。

struct stat st;
if (stat(path, &st)) {
　error();
}

　　　 ∧ ∧　　　／￣
　　∩(,,ﾟДﾟ)　＜　今度はCanStrToFloatだ
⊂,,⌒　,,つつ.　　＼＿
　　￣￣
とやり始めたら
恐ろしいことにきがついた。

'.0001'

というのがStrToFloatで変換可能なのは誰でも分かるが

'0.0000…0を10000個ほど省略…001'

こんな文字列まで一応、変換可能とは、、、、
値がどんなものになるのかは知らんが(どうせ0になるんだろうよ。)

さては少数点以下の桁数判断はしていないな。

桁判断はeで表されるときだけみたいだな。

'3.6e-4999'これは変換可能
'3.6e-5000'これは変換不可能

HELPの記述と全然違うなあ。

○'36.0e-4951'
○'0.36e-4952'
○'3.6e-4999'
×'3.6e-5000'
×'1.0e-5001'
×'36.0e-5000'
○'3.5e-4999'
○'0.1e-4999'
○'0.0001e-4999'

どうやらe-5000よりも桁が下がるとﾀﾞﾒらしい。

○'.000…0を10000個ほど省略…001e-4999'
×'.000…0を10000個ほど省略…001e-5000'

なんとまあ変な仕様だこと。

普段StrToIntはStrToIntDef使うだけで例外なしに判定してる。
例外は処理時間食うので、そこでほんとに処理止めるしかないときには
使うけど、正常系に戻って続くようなのにはあんまり使いたくないな。
しかしStrToFloatには同Def関数ないのか。

>かちゅーしゃの書き込みエラー
かちゅスレで今聞くと、過去ログ読めの荒らしか放置のどちらかがもれなくプレゼントされます。
# あっちのスレ見てるとわかるが、10回近く聞かれてるから住人があきれてる

　　　　　 ∧ ∧　　／￣￣￣￣￣￣￣￣￣￣￣
　〜' ― (,,ﾟДﾟ) ＜　じゃ、スレたてるまでもないかちゅーしゃ質問すれがいるな
　 　し― し-Ｊ　 　＼＿＿＿＿＿＿＿＿＿＿＿

FAQ作って欲しいものだ。

>>238
以前、耐えてた方がいらっしゃいましたので「頑張れ！」とエールを贈りました。

>>239
いや、1に「仕様です」って書いてあるの。

＞'0.0000…0を10000個ほど省略…001'

　　いちまんこ！！
＼　　　
　 ￣￣￣￣￣ |/￣￣￣￣￣￣￣￣￣￣￣￣￣
　　　　　　　　∧ ∧∧∧
　　　　　　　 (,,*ﾟДﾟ) _　,,) ﾊﾆャｰﾝ
　　　ﾊﾟｺﾊﾟｺ/ 　 つ 　 |
　　　　　 ((（ヽ　 ﾉ ／Ｕ
　　　　　　　Ｕ ＵＵ

　 　|
電　| 　
　 　|∧ ∧
柱　|,,ﾟДﾟ)　＜引いた？
　　⊂　|
　 　| 　| 　　ﾀﾏﾆﾊ ｼﾓﾈﾀ ﾃﾞ ﾅｺﾞﾝﾃﾞ ﾓﾗｵｳｶﾄ・・・
　 　|∪
, '　,　;　'　;

>>236
浮動小数点数そのものの仕様/表現可能な数値の範囲と
それの文字列表現値の変換仕様をごちゃ混ぜにしとるな。

　∧ ∧ 　 　　 ／￣￣￣￣￣￣￣￣￣
　(,,ﾟДﾟ)　　＜　　>>244　逝っちゃ割るイが
　 | つ[|lllll］).　＼＿＿＿＿＿＿＿＿＿
〜| 　 |
　 ∪∪

折れのつくりたいのはMyStrToFloatではなく
あくまで、CanStrToFloatだという事を忘れておるな。

既に、MyStrToFloatを作った方がイイという声が
お空の遠くから
聞こえては着ているのだが。聞こえナかったことにする。

じゃ、つくれば？
開発ツールなんだからコードを作ることを否定はしないよ。

ただ、 0.00 --(結果が０になるくらいいっぱい)-- 001 を CanStrToFloat に渡したときの結果をどうする気でいる？
True ? False ?

　 　|
電　|
　 　|∧ ∧
柱　|,,ﾟДﾟ)　＜チュルーで。どう？
　　⊂　|
　 　| 　| 　　if CanStrToFloat(S) then
　 　|∪ 　　　A := StrToFloat(S);
, '　,　;　'　; 結果が0でも。OKじゃない？

CanStrToIntも実際そうしてるし。

CanStrToFloatって？　・・・なんか変な所にハマってんだね

そんな個所がとても大事なんだったら　MyStrToFloat MyCanStrToFloat を作った方がいいように思うぞ

思いつく必要な個所は、何かインタプリタ的な場面か数式処理の一部だろうしね

そんなら
if MyStrToFloat(S, A) then
...;// Aに入ってる値を見る

とかのほうが合理的では?
いちいちチェックと解読それぞれのために
合計2回もパースするのは無意味だ。

Delギコ氏ね

Delギコ氏ねDelギコ氏ねDelギコ氏ねDelギコ氏ねDelギコ氏ね
Delギコ氏ねDelギコ氏ねDelギコDelギコ氏ね氏ねDelギコ氏ね
Delギコ氏ねDelギコ氏ねDelギコ氏ねDelギコ氏ねDelギコ氏ね
Delギコ氏ねDelギコ氏ねDelギコ氏ねDelギコ氏ねDelギコ氏ね
Delギコ氏ねDelギコ氏ねDelギコ氏ねDelギコ氏ねDelギコ氏ね

>>250-251
そうかっかすんな

>>249

//二つ用意すれば全く問題ない。
function IsStrFloat(Str:string;var Value:Extended):Boolean;overload;
function IsStrFloat(Str:string):Boolean;overload;

>>250-251これ使え

　 　　　　　　　　　　　　　 ∧＿∧ 　　／￣￣￣￣￣￣
　　　　　　　　　　　　　　 （´∀｀　）＜ Delギコ逝ってよし！
　　　　　　　　　　　　 　 と　　と 　）　＼＿＿＿＿＿＿
　 　　　　　　　　　　　　　｜　｜ |
　　 ∧∧　／＼　　　 　　（　　（　 ）
　　(ﾟДﾟ／　 ／＼　 　／￣￣￣￣￣
　　　／　 ／　 ／＼ ｜
　　　＼／ 　／ 　／ ｜
　　ゞヾ ＼／ 　／〃 ｜
〜〜〜ヾ∽〃〜〜〜〜〜

　 　　　　　　　　　　　　　 ∧＿∧ 　　／￣￣￣￣￣￣
　　　　　　　　　　　　　　 （´∀｀　）＜ Delギコ逝ってよし！
　　　　　　　　　　　　 　 と　　と 　）　＼＿＿＿＿＿＿
　 　　　　　　　　　　　　　｜　｜ |
　　 ∧∧　／＼　　　 　　（　　（　 ）
　　(ﾟДﾟ／　 ／＼　 　／￣￣￣￣￣
　　　／　 ／　 ／＼ ｜
　　　＼／ 　／ 　／ ｜
　　ゞヾ ＼／ 　／〃 ｜
〜〜〜ヾ∽〃〜〜〜〜〜

　 ／￣￣￣￣￣￣￣
　|　お前が逝け！
　 ＼ ＿　＿＿＿＿＿
　　　　　∨
　　　　　 　　　
　　 ∧ ∧　　　　　　　　 .∧＿∧
　　(,, ﾟДﾟ)　　　　　　　　.(　´∀｀）∵‥プシュ
━━つ━つ━━∞∞∞（　　=======∵‥
〜/　ﾉ 　　　　　　　　　　｜ ｜　|　∵‥
ι' Ｕ 　　　　　　　　 　　（_＿）＿）

　 　　　_ 　､　 , ＿
　　 ／　 　 　 　 　　ヽ
　　l　/　 /　 { 　l　l　 l
　　 / |　・　 ・　 |　|　 | みかんばこ！
　　l {（　 lＩＩＩＩＩl 　 |　| ノ
　　（O｀ー―― ´Ｏ _）

>>254-256
ﾜﾗﾀ

>>245
StrToFloat 関数の戻り値は Extended 型だよね？
で、文字列を Extended 型の浮動小数点値に変換したときに
きちんと元の文字列通りに表現できているかチェックしたいんだよね？

StrToFloatした結果を途中でDouble型なんかに代入したら、さっきの
チェックは全く意味無くなるから当然プログラムでは浮動小数点値の型を
すべて Extended 型で統一してコーディングするんだよね？

これを守れないのなら厳密なチェックをする意味がない。

　　　∧∧　　　／￣
＠＿(,,ﾟДﾟ)　＜　ばらっちににらまれながらも。
⊂,,＿_つつ.　　＼＿


StrToFloatの調査。
文字列からピリオドを消して
先頭0をトリムしたあとに判定して

'1' +
'1897314953572317648499999999999999999999999999999999999999999999999999999999999999999999999999999999' +
StringOfChar('9', 900) +
StringOfChar('9', 3000) +
StringOfChar('9', 900) +
'99999999999999999999999999999999'//全部合わせて4933桁

これは例外発生せずに通過するが

'1' +
'1897314953572317648500000000000000000000000000000000000000000000000000000000000000000000000000000000' +
StringOfChar('0', 900) +
StringOfChar('0', 3000) +
StringOfChar('0', 900) +
'00000000000000000000000000000000' //全部合わせて4933桁

これは例外が発生する。

そんな感じ。

いやあ、面倒だったよ。これ求めるの。

　　　∧∧　　　／￣
＠＿(,,ﾟДﾟ)　＜　>>259　ヲ。フォローサンクス。
⊂,,＿_つつ.　　＼＿

＞きちんと元の文字列通りに表現できているかチェックしたいんだよね？
そではないの。

＞当然プログラムでは浮動小数点値の型をすべて Extended 型で統一してコーディングするんだよね？
それはそうなんだけど
単一のプログラムの事を想定してるのではなくて
標準汎用的関数をつくりたいのさ。

//文字列がFloatに変換可能かどうか調べる関数
　　//実際にStrToFloatを動作させて例外発生を捕らえる方法
　　function TrueCanStrToFloat(const S: String): Boolean;
　　begin
　　 try
　　　　StrToFloat(S);
　　　　Result := True;
　　　except
　　　 on E:EConvertError do
　　　　　Result := False;
　　　end;
　　end;

これの完全互換関数が作りたいわけでしゅわ。
文字列から実数変換するごときで例外が発生するのはウザイからね。

ねずみのはいでる隙もなく完全なヤツね。

これで例外発生せずにStrToFloatDefを作れそうだな。

IDEの設定やブレークポイントでで例外キャッチを無効にするのは
データが完全に保存されないから嫌なのよ。
せめてIFDEFで囲んで例外を捕らえないように
なってればよかったのだが…

VCL ソースコード持ってないの？ 見れば一発で作れるんだけど。

function CanStrToFloat(const S: string): Boolean;
begin
Result := TextToFloat(PChar(S), Result, fvExtended);
end;

>>257 初めて見た。ちょっと感動した。

Delphi6のVCLソース見れ。
Source\Rtl\SysUtils.pas
StrToFloat探すとザクザクと

function StrToFloat(const S: string): Extended;
function StrToFloatDef(const S: string; const Default: Extended): Extended;
function TryStrToFloat(const S: string; out Value: Extended): Boolean; overload;
function TryStrToFloat(const S: string; out Value: Double): Boolean; overload;
function TryStrToFloat(const S: string; out Value: Single): Boolean; overload;

こんなのも出てくるね。

function TextToFloat(Buffer: PChar; var Value;
ValueType: TFloatValue): Boolean;

とか

>>264
Source\Rtl\Sys\SysUtils.pas
だった。

リージョンを扱ったプログラムを実行すると、必ずフリーズします。
これはリージョンを使うなというボーランドの思し召しですか。

　∧ ∧ 　　　／￣￣￣￣￣￣￣￣￣￣￣
　( ﾟДﾟ)　　＜ 　>>262　すこぶるアクセスバイヲが起きるがなぜだろう？
　 |∪ |つ∀ ＼＿＿＿＿＿＿＿＿＿＿＿
　 |　 ｜
　 U U 　ﾁｮｳｻﾁｭｳ


　　 ⊂⊃
　　 ∧ ∧　　 ／￣￣￣￣￣￣￣￣￣￣￣￣
　　 (,,ﾟДﾟ)　＜　 >>266　重い飯です。
　　ﾊ￣￣`　　＼＿＿＿＿＿＿＿＿＿＿＿＿
　　し　╋ .J
　　 |＿_＿| 　ｵﾎﾞｼﾒｼ ﾀﾞｯﾁｭｰﾉ
　　 ∪ ∪
　　∬　∬

>>267
スマヌ。激しくバグが仕込まれていた。正しくは下記の通り…
お詫びとして CanStrToInt, CanStrToInt64 も付ける。

function CanStrToFloat(const S: string): Boolean;
var
　tmp: Extended;
begin
　Result := TextToFloat(PChar(S), tmp, fvExtended);
end;

function CanStrToInt(const S: string): Boolean;
var
　E: Integer;
　tmp: Integer;
begin
　Val(S, tmp, E);
　Result := (E=0) and (@tmp=@tmp);
end;

function CanStrToInt64(const S: string): Boolean;
var
　E: Integer;
　tmp: Int64;
begin
　Val(S, tmp, E);
　Result := (E=0) and (@tmp=@tmp);
end;

趣旨が他人にわからんと、変な雰囲気になるよ＞Delギコ
漏れ的には、もちっとﾏﾀｰﾘしてくれた方がありがたい

　　　 ∧ ∧　 　／￣￣￣￣￣￣￣
　　　(　ﾟДﾟ)＜ 　失礼したーよ。>>269
　 |⌒|U U　　　＼＿＿＿＿＿＿＿
　 川 |　 |
　　　ﾉU.U 　　ちょっと暴走気味でした。。

>>268　検証中だけど。お見事。

それにしても
(@tmp=@tmp); 何これ？暗号みたい。
ｻﾊﾟｰﾘわからない。

E≠0まではVCLを見て把握してたんだけど...すごいニャ。

Del6のSysUtils.pasには
function StrToInt(const S: string): Integer;
function StrToIntDef(const S: string; Default: Integer): Integer;
function TryStrToInt(const S: string; out Value: Integer): Boolean;

function StrToInt64(const S: string): Int64;
function StrToInt64Def(const S: string; const Default: Int64): Int64;
function TryStrToInt64(const S: string; out Value: Int64): Boolean;

なんてのも同様になあるな。
Try〜が全部変換可能かどうかを確認しつつ結果の値も貰う関数ね。

従って作る必要なし。

|　|_∧　　　／￣￣￣￣￣￣￣￣
|　|Дﾟ)　＜ 　 >>264　教えてくれてサンクスコ
|　⊂|　　　＼＿他の皆様もサンクスコYO.
|　|　|
|　|U
￣￣￣￣￣
すっげー。D6。マニア心くすぐりまくり。
(HELPに載ってないあたりがイィd(･ｗ･)

out指令ってなんじゃろか。

調べていると、D6ではStrToDateTimeDef。までもが実装されてる！

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

Delphi６っていいじゃん。よすぎ！

聞いてくれてあーりがと　アロエリーナ♪
＼＿＿＿＿＿　＿＿＿＿＿＿＿＿／
　　　　　　　　　|/ 　　　　　
　　　　　　　　∧∧ 　ｾｯｶｸ ｼﾞｯｿｳ ｼﾀﾉｶﾞ ﾑﾀﾞﾆ ﾅﾀｹﾄﾞ ｲｲﾉ ｿﾚﾃﾞﾓｲｲﾉ
　　　　　　　　( ﾟДﾟ)
　　　　　　　　| っ日　　Ψ
　　　　　　　　と_）_）　　□　ｿﾘｬ ﾖｶｯﾀﾅ
￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣

>>268
> (@tmp=@tmp);

どう見ても無駄だが。なにをしようとした？

ここは厨房の溜まり場か

だから何だっていうんだこのチキン野郎

うるさいぞチカン野郎(･∀･)

　 　　 ヽ( ´∀｀)ノ ＜厨房でーしゅ
　 　　へﾉ　　 /
　 　　　 ε　ノ
　　　　　　 >

　　　　　　∧∧
　 　　 ヽ( ﾟДﾟ) ノ ＜板違
　 　　へﾉ　　 /
　 　　　 ε　ノ
　　　　　　 >

１１よりも２を前にするソートなんでどうやりゃ良いんだクソッ。

>>279
　　　　　Λ＿Λ
　 　　 ヽ(　´∀｀)ノ ＜オマエモナー
　 　　へﾉ　　 /
　 　　　　●ノ
　　　　　　 >

>(@tmp=@tmp)
そろそろ気づいてるだろうけど、tmpが使用されていないというコンパイル時のヒント抑制のためだろう。
{$HINTS OFF}{$HINTS ON}で囲んでもいいと思うが。

>>272 >out指令ってなんじゃろか。

var 指令と（変数宣言の var ではなく、引数指令の var）
と似たような働きをもつが、out の場合は関数に渡される際に
値が破棄される。つまり…

procecure swap(var a, b :Integer );
var
　t: Integer;
begin
　t := a;
　a := b;
　b := t;
end;
の場合は、

a:=0;
b:=6;
swap(a,b);

と書けば a = 6, b = 0 になっているが、
procecure swap(out a, b :Integer );
var
　t: Integer;
begin
　t := a;
　a := b;
　b := t;
end;
の場合は、

a:=0;
b:=6;
swap(a,b);

としても a = 不定, b = 不定 になる。

swap(var ...) の場合は a =0, b =6 という値を保持したまま swap 関数に突入するけど、
swap(out ...) の場合は a と b の値が swap に突入する前に破棄されてしまうからだ。 a, b は 0 になっている保証は無い。

>>280
昇順ソートしてから反転すればいいじゃん

>>284
いくらなんでもそんなところでは悩まない・・・

stlinglist　に 1,　2,　5,　11,　102,　200 とあって sortメソッドを使うと
1,　102,　11,　2,　200,　5 って並ぶじゃない？
これを数字順にしたかったの。

じゃあ、あたまにゼロ文字を保管してからソートし、
そのあと頭のゼロを削除。
もしくは、素直に整数型に直してからソート。

with StringList do
begin
　while Length( Strings[i] ) < 10 do
　　Strings[i] := '0' + Strings[i];
　Sort;
　while Copy( Strings[i], 1, 1) ='0' do
　　Strings[i] := Copy( Strings[i], 2, MaxInt );
end;

varとoutは生成されるコードは同じ
(自分で確認した範囲内では)。

varは値を渡して加工して返すために使い、
outは値を返すためだけに使う。
要するに値を複数返す事のできる関数として使う。
プログラマに対する目印みたいなものだね。

>285
TStringList.CustomSort使えばいいよ。

　 　　 ヽ( ´∀｀)ノ ＜>>285あたま使えよバーカ
　 　　へﾉ　　 /
　 　　　 ε　ノ
　　　　　　 >

>>287
引数にインターフェース型を使うと生成コードが変わるよ。
Delphi 3 でインターフェースサポートのために out 指令が
追加されたと記憶している。

const でクラスを引数にして渡した場合、

procedure Hoge ( const SList : TStringList )
begin
　SList . Add ( 'HOGEHOGE' ) ;
end ;
は可能？Addはただのメソッドだよね。

Delギコ大嫌い

Delphiさぶい
自分はemacsとmakeでJava

>>291

　　　　　Λ＿Λ
　 　　 ヽ(　´∀｀)ノ ＜オマエモナー
　 　　へﾉ　　 /
　 　　　　●ノ
　　　　　　 >

　　　　　Λ＿Λ
　 　　 ヽ(　´∀｀)ノ ＜オマエモナー
　 　　へﾉ　　 /
　 　　　　Фノ
　　　　　　 >

emacsとantとJavaじゃないの？

　　　　　　　　　　　　∧ ∧
　　　　　　〜′￣￣(ﾒﾟДﾟ)つ
　　　　　　　 UU￣￣U 　　　ｲﾐﾅｲ ｱｵﾘ ｲｯﾃﾖｼ ﾂｰｶ ﾂﾈ
＿＿＿＿＿＿∧＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿

　IDが消えたら早速煽りか？

>>290
可能。SList 引数自体を変更することが出来なくなるだけ。

SList := nil; ＜これは駄目だが
SList.Add(.. ＜これは出来る

>>296
つーかここ、自作自演の匂いがプンプンするんだけど
どうよ？

　　 ∧＿∧　　／￣￣￣￣￣
　　（　´∀｀）＜　>>298 自作自演なわけないモナー
　　（　　　　） 　＼＿＿＿＿＿
　　｜ ｜　|
　　（_＿）＿）

　　　　　　　　　／￣￣￣￣￣￣￣￣￣￣￣￣￣￣
　∧∧　　　　＜ 　ふー。IDが消えてから大忙しだぜ
（ﾟДﾟ∧)_∧　　＼＿＿＿＿＿＿＿＿＿＿＿＿
（￣⊃ ´∀｀)
｜ ｜￣|￣
（_＿）＿）

　　　　　　　　　／￣￣￣￣￣￣￣￣￣￣￣￣
　∧∧ﾊｯ!　　＜　なに見てんだｺﾞﾙｧ!!
（#ﾟДﾟ∧_∧　　 ＼＿＿＿＿＿＿＿＿＿＿＿＿
（￣⊃ ´∀｀)
｜ ｜￣|￣
（_＿）＿）

(・∀・) 300 Get you!!!

>>300
ああ〜取られちゃった(￣▽￣|||)

　　　　　　　　　　 ＿＿＿＿＿＿＿＿＿
　　　　∧ ∧　 ／
　　　　（ ﾟ∀ﾟ）＜　>>301 HIROMI・ゴゥー
　　　　 |つ つ　 ＼＿＿＿＿＿＿＿＿＿
　　　〜　　 | 　ｲﾔ ﾅﾝﾄﾅｸ
　　　　∪ ∪

　　　∧∧　　　／￣
＠＿(,,ﾟДﾟ)　＜　out指令　教えてくれてサンクスコ。
⊂,,＿_つつ.　　＼varと独鈷居独鈷居の指令だね。

混乱するかもしれないのでvarだけ考えとコっと。


　　 ∧ ∧　　　／￣
　∩(,,ﾟДﾟ)　＜　先頭ゼロ埋めはFormat関数でもよいよ。
⊂,,＿_つつ.　　＼＿ Format('%.？d', [変数]);

これで動作確認してね。
procedure StrTest(A, B: String); overload;
var
　S: String;
begin
　if A <> B then
　begin
　　S := A + ' ≠ ' + B;
　　ShowMessage(S);
　　Form1.Editor1.Lines.Add(S);
　end;
end;

procedure TForm1.Button7Click(Sender: TObject);
var
　I: Integer;
begin
　I := 1;
　StrTest('0001',　 Format('%.4d' , [I]) );
　StrTest('0001',　 Format('%4.4d', [I]) );
　StrTest('　0001', Format('%6.4d', [I]) );
　StrTest('　　 1', Format('%6d',　 [I]) );

　I := 12345;
　StrTest('12345',　Format('%.4d' , [I]) );
　StrTest('12345',　Format('%4.4d', [I]) );
　StrTest(' 12345', Format('%6.4d', [I]) );
　StrTest(' 12345', Format('%6d',　 [I]) );
end;

　　 ∧ ∧　　　／￣
　∩(,,ﾟДﾟ)　＜　ついでに重箱墨だが
⊂,,＿_つつ.　　＼＿

> 　while Length( Strings[i] ) < 10 do
> 　　Strings[i] := '0' + Strings[i];

Strings[i] := StringOfChar('0', 10 - Length(Strings[i])) + Strings[i];
この一行でいいかも。

分かって使ってらっしゃるならいいですが。

>>300
英語、変。

>>304
わざとだって・・・

I got 300th number at this thread!!!
(なんかこれもおかしいな・・・)

>>287
＞TStringList.CustomSort使えばいいよ。

　まあ！また便利なものが...D6から...
￣￣￣∨￣￣￣￣￣
　　　∧ ∧ 　　　ﾎｶﾎｶ
　　　(,, ﾟДﾟ)∫
　　　/　 つ旦O
　〜（__ｎ ｎ［￣￣￣.］
　　　　　　　 ￣￣￣

　　∧ ∧|||　／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
　　(||ﾟΠﾟ)＜　Formatのトコ。間違えた。前方0を付属したいのは数値じゃなくて文字列だったのね。
〜/J. | |J　 ＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
　ＵＵ | | 　ｷｶﾞﾂｲﾀ ﾋﾄ ﾀﾞｹ ﾑｼ ｼﾃｸﾚ

　∩ ∩
　| ∪ |
　|　 〜
　| ∧ ∧　　／￣￣￣￣￣￣￣￣
　|( ,,ﾟДﾟ) ＜　こんな感じでソートデキる
　Ｕ　Ｕ　　　＼＿＿＿＿＿＿＿＿

function NumberSort(List: TStringList; Index1, Index2: Integer): Integer;
var
　S1, S2: String;
begin
　S1 := StringOfChar('0', 15 - Length(List[Index1])) + List[Index1];
　S2 := StringOfChar('0', 15 - Length(List[Index2])) + List[Index2];

　Result := not AnsiCompareStr(S1, S2);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
　SL: TStringList;
begin
　SL := TStringList.Create;
　try
　　SL.CommaText := '1,2,5,11,102,200';

　　SL.CustomSort(NumberSort);

　　Memo1.Lines.Assign(SL);

　finally
　　SL.Free;
　end;
end;

ソートされた文字列。
　　　　200
　　　　102
　　　　11
　　　　5
　　　　2
　　　　1

普通にStrToInt使って比べりゃいいのに。
負数ははどうするんだ？

>>309
>負数ははどうするんだ？

　　　　ｶﾞﾋﾞｰﾝ
　　∧ ∧|||　／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
　　(||ﾟΠﾟ)＜　　忘れてた。
〜/J. | |J　 ＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
　ＵＵ | |

とつぜん話かえるけど

　　∧∧ 　　　 ／￣￣￣￣￣￣￣￣￣￣￣
　　(,,ﾟДﾟ)　　＜ Delphianでデザパタやってる人いる？
　ヽ/つ且~~　　＼＿＿＿＿＿＿＿＿＿＿＿
　 （__　_）

なんの本を読んだらいいかニャー？

>>305
(I) Got it! でええのでは？
取っちゃった！　解っちゃった！　という意味。

>>311
Delphianというのが、デルファイを使う人という意味なのか、
それとも製品名なのか知らんけど、
デザインパターンは使ってる。
つーか、C++でバリバリ使ってたからね。

バリバリ。。。

すまぬ、中年オヤジだから許しておくれ。

中年Delphiプログラマーオヤジ、ｶｺ（・∀・）ｲｲ!!

>>311
普通にGoFの「デザインパターン」でも読めば？

ちなみに>>317のGoFとはErich Gamma, Richard Helm,
Ralph Johnson, John Vlissides著
「オブジェクト指向における再利用のためのデザインパターン」
知らない人用に、お節介。

Delギコ暇そうだからObject Pascal版
デザインパターンのサンプル２３本書けや

ギコがデザパタと言うと、これ？(w
http://www.hyuki.com/dp/cat_index.html

>>319
Delギコのデザパタ本欲しい（ｗ
サンプルソースにもAA入ってるんだよね。もちろん。

へこへこ GTK のプログラミングについてききたいよ．
ここじゃだめってときはどこか教えてよ．
Widgetをgtk_container_add などなどした場合 親のポインタから
子このポインタを探る方法がしりたいよぉ．
できれば賢く知る方法がいいよ．

> Delギコ暇そうだからObject Pascal版
> デザインパターンのサンプル２３本書けや

　何せもうすぐ会社辞めるからね。
　フリーだよ、フリー。一日中フリータイムね。

￣￣￣￣∨￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
　　　 ∧∧
　　　（　　 ）
　　　/　　|
　〜（,＿,,ﾉ

　　∧ ∧　 　／￣￣￣￣￣￣￣￣￣￣
　　(；ﾟДﾟ)　＜　…それって無色カモ
　 ./　　|　 　 ＼＿＿＿＿＿＿＿＿＿＿
　（＿__/
／ 　　　ﾋｯｷｰ ﾏｯｼｸﾞﾗ?

delphiの初心者質問スレはどれなんだ・・・

>>287
値を返す目印かぁ．なるほど．
いままで引数名の頭にwをつけたりして区別していたのですが，
out を使うほうがわかりやすくていいですね．

　　--下手人-∧ ∧ 　／￣￣￣￣￣￣￣￣￣￣
〜□□ □□ ( ﾟДﾟ)＜　 必ずInしてこないという事は、初期値は不定値でよろしいか？
　 (Ｏ)----(O)U-U)　＼＿＿＿＿＿＿＿＿＿＿

仕事ﾃﾝﾊﾟｰﾘ中

>>287によるとvar指令とアセンブラレベルで一緒らしいから
実際は呼び出し側の値が引き継がれるのでは？

保証されないという名目で実はvarと同じと思う。

　　　∧∧　　　／￣
＠＿(,,ﾟДﾟ)　＜　わからーんけど。
⊂,,＿_つつ.　　＼＿

>>326-327

>>283にかいてあるじゃん。ヘルプにも。
---------------

呼び出し側で（中略）の内容が解放され，すべてのフィールドが未定義の状態に戻されます。
（中略）
out パラメータの値は必ずしもゼロにクリアされるわけではありません。レジスタに置かれた値は，そのまま呼び出し先に渡ることがあります。しかし，out パラメータ経由で渡された値を使った場合は，予期できないことが起こりえるため，使わないようにしてください。

　　--下手人-∧ ∧ 　／￣￣￣￣￣￣￣￣￣￣
〜□□ □□ ( ﾟДﾟ)＜　 燃え尽きてきたからもう寝るです
　 (Ｏ)----(O)U-U)　＼＿＿＿＿＿＿＿＿＿＿

>>328ｽﾏｿ&ｻｿｹｽ

　∧ ∧　 　／ だから、保証されないけど
　(,,ﾟДﾟ)　＜　　ｼﾞｯｿｳはout=varじゃないのかな？
　 |つ つ　　＼ と考えたんだけど、違うみたいね。
〜 　　| 　　　とりあえず、必ず初期化はしとけよ。ってことで。
　∪ ∪
varがあるからout使わんけどね。

>>330
outっちゅう宣言があれば最適化や警告の足しになるね。
やってるか知らんけど。
COMにおけるoutなんかは、特にリモートの場合に元の値を送信しなくて済む
なんて効果もあるね。

var とか out よりも、
pascal とか register とかの予約語の意味がサパーリ。
まあ、使わないからいいけど…

>>331
リモートアクセスは、単にObjectに触ろうとするだけでコストかかるんで、
色々悩みがあるね。
ローカルなら「最適化よりRADのすばやさを取る」というDel的アプローチでも
(今時の処理速度なら)結構OKだったりするのだが。

あと、 WideChar てのはユニコード文字列なの？
１，２バイトを区別して文字数を取得したい場合は

s : string;
------------
len := Length( WideString( s ) );

でしょ？で、

WideString( s )[1] と書いた場合、これは WideChar なの？
文字コードはどーなってんの？

私はいま、私のツールによってデスクトップ上にあるウインドウを
綺麗に繋ぎ合わせようとしています。
私の理想は、ウインドウが移動したときに、WM_MOVEDメッセージを受け取って
処理を行おうと考えいる事です。しかしながら、私にはその方法が
わかりません。現在、数秒ごとに全ての窓の位置を調べて、
その情報を元にして処理をしています。

どうすれば、ほかのアプリーケションのメッセージを私のプログラムに
よって監視する事が可能ですか。

それWinAmpの窓やAutoWindow(だっけ？)みたいな奴でしょ。
ぜひWin2kに対応して公開してよ。
つーかWin32APIスレのがレス付きそう。

>>335
日本人の口調とは思えない…

ちんこ

画面ぴったりネッチョリツールの副産物として生まれた
ウィンドウ操作関連ＡＰＩのラッパークラス
（と呼んでいいのかな？）です。
このコードが Win2K 上で動作するかどうか確認してくれません？
問題なく動けば、いま私が作っているツールは
そのままＷｉｎ２ｋ対応になりますですハイ。

ユニットコード及びサンプルコードは↓の１と２
http://do.sakura.ne.jp/~junkroom/cgi-bin/megabbs/readres.cgi?bo=lounge&vi=1000013243

>>311
Delｷﾞｺ氏よ
>>320のページの作者が書いている
「Java言語で学ぶデザインパターン入門」
がかなりおすすめだぞ。
俺が勉強してた頃はガンマ本しかなくて苦労したが、
今これを読むともっと楽できたのにと思う。

Delギコは氏んで下さいよ。

　　　　　　∧ ∧　 ／￣￣￣￣￣￣￣￣￣￣￣￣￣
〜′￣￣(　ﾟДﾟ)＜　>>340サンサンサンクス。
　UU￣￣　U U　　＼＿＿＿＿＿＿＿＿＿＿＿＿＿

　　　　　　　　　　　　∧ ∧
　　　　　　〜′￣￣(ﾒﾟДﾟ)つ
　　　　　　　 UU￣￣U
＿＿＿＿＿＿∧＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿

おまえが市ね。下らんｱｵﾘするヒマがあったら首くくれ。

ｶｷﾜｽﾚ
　　∧∧
　¶( ﾟДﾟ)　|| <あﾞ〜
　ゝ|し　|つ||
　（_|./　|　人 342 の後半は341宛てね。
　　 U U　川

くくろうかとオモタヨ。

>>340スマソ

　　　　　　　∧ ∧　　・・・・。 ﾌﾞﾙｰﾆｬ
　　　　　　　( ﾟДﾟ)
　　　　　　　|∪ |
　　　　　 〜|　　|
　　　　　　　U U

じつは、つまずいてころんで
捻挫してしばらく松葉杖生活…

足。痛すぎ。痛み止めないとあまり思考ができない。

医者に骨に小さいヒビ入ってるかも氏れんと言われた

＿＿_ 　ヽ
＿ ／⊂　｀∧ ∧　　／￣￣￣￣￣￣￣￣￣￣￣￣￣
　｜　|　 ＼(　ﾟДﾟ)＜　仕事が忙しすぎるから
　 | ／　　　∪ ∪　　＼＿＿＿＿＿＿＿＿＿＿＿＿＿
￣
　　　　　　　　　 ,,ヽ
　　　　　　　　　⊂, ｀＼⊃　ﾍﾞﾁｬ ／￣￣￣￣￣￣
　　　　　　　　　　 ＼∧∧　　　＜　　怪我でもしたい。
　　　　　　　　　　 ⊂(,,ﾟДﾟ)つ))　 ＼＿＿＿＿＿＿
￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣

　と考えてしまったアナータは
　すでにヤバイ状態なので仕事休めよ。
　これ読んどけ。

ITプロフェッショナルを襲う“心の病”
http://www42.tok2.com/home/from2ch/kokoro/

　実際、怪我したらつらいな。コンビニに出かける事も苦痛だ。

>>346
俺プログラマ志望だけど…
みなさんはこれを読むと「うん、うん、あるある」って
感じ何ですか。

>>347
泣きたいほどあるある

あの…　周りに居るプログラマで心の病気にかかる人の割合は
どのくらいで…

まぁ６０％かな。あとは転業が４０％

>>349
プログラマ板にいくと、その関連のスレッドがいくつかあるぞ。

(ﾟДﾟ) 結局１００％じゃん...
プグラマ版に逝ってきます。

>>352
ぶわぁ〜れたか

不思議に思っているんだけど、

type
PInt = ^Integer;

procedure Swap(a,b: PInt);
var
t:integer;
begin
t:=b^;
b^:=a^;
a^:=t;
end;

という書き方が可能ならば、

procedure Swap(a,b: ^Integer);
var
t:integer;
begin
t:=b^;
b^:=a^;
a^:=t;
end;

も可能であって然るべきだとおもうんだけど、
どうして文法エラーになるの？

Ｃぢゃなぃから

VBで色色な周波数の音を鳴らしたいんですけど、どうしたらいいですか

>>356
まず氏んでください。

>>356
まず適切なスレッドを探す技能を身に付けてください。なぜ Del スレに書く？

>>358
微妙に>>1の書き方が悪いかも。。。

>>359
そーだったのか・・・356すまん。
Delギコ氏んでください。

>>356-360
ｼﾞｻｸｼﾞｴﾝ?(･∀･

　　--下手人-∧ ∧ 　／￣￣￣￣￣￣￣￣￣￣
〜□□ □□ ( ﾟДﾟ)＜　 あいよ >>356
　 (Ｏ)----(O)U-U)　＼＿＿＿＿＿＿＿＿＿＿

http://plaza15.mbn.or.jp/~Kentaro/

このスレは Del *だけ* なの？ >>1

>>361
なんでやねん？

(笑)

(夫)

(供)

(抵)

>>365-368 しょう　ふ　く　てい？

Delギコ氏ね

そろそろDELスレに戻る事を期待する。

>>334
WideCharはユニコード文字です．
WideString( s )[1] でWideCharとして取り出せますね．
ヘルプの記述は見つけられませんでしたが．

procedure TForm1.Button1Click(Sender: TObject);
var
s: string;
wc: widechar;
o: integer;
begin
s := 'ももこ120％'; // (笑)
wc := widestring(s)[1];
o := ord(wc); // 文字型や列挙型を数値に
showmessage(inttohex(o, 4)); // "も"=3082（16進数）
end;

ある文字がユニコードでどの数になるかは
IMEパッドとかで調べられます．
というかこれで確認しました．
（ATOKでも可）

>>362
ありがとうございます。
指定した周波数の音を鳴らす関数が見つからなかったので助かりました。


以下余談
Delphi6personalをダウンロード、インストールしましたがＣＯＭオブジェクトに関するヘルプは無いようです。
professional版を買わないとだめかもしれません。

>>331
outはたしかDel4から出てきたキーワードなので
COMでの使用を想定したものではないかと思います．

>>374
Del3のヘルプにも乗ってる
out パラメータより変数パラメータの方が効率的なため，
out パラメータは COM メソッドに対してのみ使うようにしたほうがいいでしょう。
COM にいての詳細は，「インターフェース」を参照してください。それ以外の点では
out パラメータは変数パラメータと同様に動作します。

OutもCOMも使ったこと無いので詳細は任せる

>>372

おー、なるほど。
やはりウニコードだったんだね。
てことは、ByteType( UnicodeString, ... ) とか
って使い方は出来ないのね。文字コード違うし。

わざわざ愚かな俺の質問に答えてくれてありがとう。

（いや、嫌味っぽく聞こえるかも
知れんけど、嫌味じゃないよ

おお、いつのまにかread.cgiがアップグレードしている…

　　　　　　∧ ∧　 ／￣￣￣￣￣￣￣￣￣￣￣￣￣
〜′￣￣(　ﾟДﾟ)＜　見やすくなってヨシ！
　UU￣￣　U U　　＼＿＿＿＿＿＿＿＿＿＿＿＿＿

　　--下手人-∧ ∧ 　／￣￣￣￣￣￣￣￣￣￣
〜□□ □□ ( ﾟДﾟ)＜　 >>373 ちょいと補足
　 (Ｏ)----(O)U-U)　＼＿＿＿＿＿＿＿＿＿＿

元々WAVEﾃﾞｳﾞｧｲｽは与えられた波形をDA変換するものだから
MIDI/FM音源等と違って、「与えられた周波数を鳴らす」という仕組みは無いっｽ
関数で鳴らすという意味ではVBだろうがVCだろうが、んなこたーできない

んじゃどうするかというと440Hzの音を鳴らすなら
440Hzのサイン波をメモリ上に作って、それをWAVEに渡してるだけっｽ
くわしいﾊﾞｯﾌｧﾘﾝｸﾞ等の仕組みはそのﾘﾝｸに説明あるから読んでちょ

RIFFフォーマットはここに(英文だけど)
http://www.wotsit.org/

DelでCOM使うと便利なのってどんな時？
VCL+Win32APIでカバーできないのはどんな領域？

>>379
IEコンポ

帳票ツールのAPIがCOMになってる場合>>379

>>379
DirectXとかShell関連とか

TListBox に Count プロパティついたんだね。
いままで ListBox1.Items.Count と書こうとして
ListBox1.Count としてコンパイル失敗した事が何度あった事か…

　　　　　 ∧∧　　　／￣￣￣￣￣￣￣￣￣￣￣
　＠' ― (,,ﾟДﾟ)つ ＜　うれしいぞ！！
　 　し― ∪　 　　　＼＿＿＿＿＿＿＿＿＿＿＿

>>378　んじゃどうするかというと440Hzの音を鳴らすなら
たとえば　sound(440)　見たいなことが出来るものとおもってました。
ありがとうございます。

>>379
周辺機器付属のライブラリがＣＯＭオブジェクトとして提供されているので使わざる終えません。

ＯＨ　ＮＯ！

TMemoeyStream を使ってファイル結合ソフト作ったんだけど、２７０ＭＢの動画を５つに分割したファイル、これを
結合しようとしたら、

「メモリ展開中に領域が足りなくなりました」
ってエラーがでた。
どうすりゃいいですか…

>「メモリ展開中に領域が足りなくなりました」
だれが出してるメッセージだい？

　∧∧　 　　／￣￣￣￣￣￣￣￣￣￣￣￣￣
　(,,ﾟДﾟ)　 ＜　足イタイ
　U　 ,つ゛　 ＼＿＿＿＿＿＿＿＿＿＿＿＿
　|　　|
ノ∪∪　ﾘｮｳﾖｳﾁｭｳ

WideCharやCOMやout指令のお話
調べてくれてる人。ありがとう。

勉強になるよ。

|　　　|　　|　　　　　|　　|　|
|　　|゜⌒／..|　＼　|　゜｜
゜　⌒／/　..|　゜　＼　　゜　　|
| ／　/　|　|　|ヽ゜　＼⌒゜　|
| .￣￣￣￣||￣￣￣￣
　|　　∧ ∧|| 　　／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
|　　　(,,ﾟДﾟ)||　＜　みなさま、台風にはお気をつけて。
゜　|　..|∪　つ　　＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿
　|　|.｜　｜　　　|　　　|
＿＿_.Ｕ..Ｕ＿＿＿＿　　　　　゜

台風の時は自動車保険が出ないので
くれぐれも事故には注意！

…14台玉突き事故もあったって。

Delには関係なくてｽﾏｿ

Edit1に番号(例：001)を入力してから、Bottun1をクリックすると
ブラウザ(例：IE5.5)で表示するようなプログラムを作りたいです

サンプルコードありませんか？

×Bottun1
○Button1

　　　 ∧ ∧　　　／￣
　　∩(,,ﾟДﾟ)　＜　　これかﾆｬ？>>389
⊂,,⌒　,,つつ.　　＼＿
　　￣￣
WebBrowser に直接 HTML を表示する方法
http://members.jcom.home.ne.jp/monazilla/document/directwrite.html

ブラウザに何を表示させるのかがわからん。
>>390そんなくだらない訂正はいらないので
質問はもっとわかりやすく書きなさい。

Delギコ氏んでくれ マジで。
かわいこぶりっこしてるとこがむかつく。

>>392
粘着っぷりにﾜﾗﾀ

　∧∧　 　　／￣￣￣￣￣￣￣￣￣￣￣￣￣
　(,,ﾟДﾟ)　 ＜　いいかげん。しつこいな。>>392
　U　 ,つ　 　＼＿＿＿＿＿＿＿＿＿＿＿＿
　|　　|
ノ∪∪　ｵﾏｴ ｶﾞ 氏 ﾝﾀﾞﾗ ｶﾝｶﾞｴﾃ ﾔﾙ
　　　　　ﾏﾀｰｸ 2ch ﾈﾝﾁｬｸ ﾂｰﾉﾊ・・・

　　　∧∧
　　　(,, ﾟД⊆0＿＿＿,,
　　　|⊃二O,---'￣￣
　 〜| 　　|
　　　.∪∪ ﾁﾞｳ ﾉ ｵﾃｲﾚ ｽﾙｶ ﾆｬ

　　--下手人-∧ ∧ 　／￣￣￣￣￣￣￣￣￣￣
〜□□ □□ ( ﾟДﾟ)＜　 ﾏｲﾑﾏｲﾑﾏｲﾑﾏｲﾑ♪ﾏｲﾑﾒｯｻｯｿ♪
　 (Ｏ)----(O)U-U)　＼＿＿＿＿＿＿＿＿＿＿

ﾌｧｲﾙｳﾌﾟ機能の実装中
ﾊﾟﾗﾒﾀをMIMEﾃﾞｺｰﾄﾞにﾊﾞﾗさにゃならん方式変更だけｳﾙﾄﾗめんどい
あとは、きっとなんとかなりそうです
作者にめっさ失礼だがﾍﾞｰｽのｿｰｽがきちゃな過ぎ
共通関数をplに纏めろよって思いまくりsage

　　　∧ ∧　ﾀﾚﾒ ｼｬﾁｮｳ ｺﾗﾑ(ﾀﾞｲ3ｶｲ) ﾖﾝﾀﾞ?
　　　(,,ﾟДﾟ)
　　　U 　U
　 〜|　　|
　　　U U

> 従来からトレーニング、サポート、コンサルティングというサービスビジネスは行って
> いたのですが、さらに拡大して、システム受託、Pilot Programの作成、Feasibility
> Study、プログラマーの派遣等も行います。

金儲けのためとはいえ
一介のJava業務ｱﾌﾟﾘ請負屋なんかにはならないでもらいたいな

>共通関数をplに纏めろよって思いまくり

すんません、ｐｌってなんですか？
私も自分のソースを公開したいと思っているので
とても気になります。

>391
なるへそさんくす

.plってperlのソースコードの拡張子。
つーかperlで汚いは誉め言葉。>395

>>396
気づくのおそかったな。日本のユーザーは見捨てられたんだよ。

>399
サンクス。Perlか…

>>共通関数をplに纏めろよって思いまくり

なんか混乱してるんだけど、Delphiのソースコードを
Perlに埋め込むのか？？？

それともDelphiとはマターク関係ない話なのか。

>>401
マターク関係ないPerlの話だと思われ。

　　　∧∧ ﾌﾟﾊｰ 　／￣￣￣￣￣￣￣￣￣￣￣
　　　(,,ﾟДﾟ) =3 　＜　Perlはソースアップ板の話では？
　　　| つ日~~ 　　 ＼＿＿＿＿＿＿＿＿＿＿＿
　 〜|　　）
　　　U U
置いてよし認定委員会(って題名なのか？)
http://do.sakura.ne.jp/~junkroom/cgi-bin/megabbs/lounge/index.html

あ、なるほど。読解力が足りませんでした。
Delphiソースコードの話じゃなくて
ファイルウプ版ＣＧＩのＰｅｒｌソースの話ね。

日本語修行に逝ってきます。

>>385
TMemoryStreamはメモリ使うんだから
空きメモリが２７０MB異常ないと無理だな。
くっつけるだけでしょ？TFileStreamつかえば？
まぁ、それもHDDの空きが２７０MB異常ないとだめだよ。（ｗ

Delｷﾞｺ氏よ
392なんて無視だよ
反応を楽しんでるだけだよ

たぶん>385は270MBくらい、物理メモリ足りなくても、
スワップしてメモリ確保してくれるだろうという予想を裏切られたのだと思われ。

つまり、 TMemoryStream はメモリ上に展開して
バイナリデータを操作するのに対し、
TFileStream はどこかに作業用ファイルを確保して
そこに展開してからデータ操作するって感じですか。

>>385
はドキュンプログラマなので放っておきましょう

>>409
理由は？

　いやガンバッテね　米ヤフからのダウンツール作ってんでしょ？

>>408
なんつーか。
TFileStreamはどこにも何も展開しないよ。
ただcreate時に指定されたファイルを開き、
Read/Writeで単純にファイルに読み書きをするだけ。
Fileへの単純なアクセスをTStream派生に共通化しただけのものだよ。
特段のバッファリングすらしない。

ところで、TMemoryStream は仮想記憶を使うので、
物理メモリが少なくても「ちゃんと」十分なスワップファイルを定義していれば
（下の例では約 600M くらい定義してあればよし）
var
M : TMemoryStream;
begin
M := TMemoryStream.Create;
M.SetSize(500*1024*1024);
M.Free;
end;

正しく動く。>>385 の「メモリ展開中に領域が足りなくなりました」は
まったく別のえらだと思うよ。だいたいそのエラーメッセじ、VCL で定義されてないぞ。

もういちど確認してみました。
「メモリストリームの拡大中にメモリが足りなくなりました」ってエラーがでてます。ハイ。

飛び入りですいません。初心者は結局何の言語からはいるべきですか？
perlしか書いたことがないので一向にきれいなソースが
書けるようになりません。

やっぱCですか？

スレ違い（藁

綺麗なソースならJavaがええな

Java って with .. of にあたる文ってあるの？
あれがなきゃ無駄に長くなるだけだと思うが…
それとも変数に代入してから使うのか？

Form1.ListBox1.Items.Objetcs[0]
Form1.ListBox1.Items.Objetcs[1]
Form1.ListBox1.Items.Objetcs[2]

こういったものを

TStrings s = Form1.ListBox1.Items;

s.Objects[0];
s.Objects[1];
s.Objects[2];

見たいな感じで書くのか？

withがあるのdelphiだけだからね
こぴぺでgoe

>>419
VBにもあるヨ

　　--下手人-∧ ∧ 　／￣￣￣￣￣￣￣￣￣￣
〜□□ □□ ( ﾟДﾟ)＜　 >>399 じゃあ「ばっちぃ処理」って事で(ﾜﾗ
　 (Ｏ)----(O)U-U)　＼＿＿＿＿＿＿＿＿＿＿

なーんて、偉そうな事いえる職人じゃないのでsage

waveOutOpen やらなんやら、
Delphiで任意の音波形を出力する
サンプルプログラムはありませぬか。

>>403
　　∧ ∧　 　／￣￣￣￣￣￣￣￣￣￣￣￣￣￣
　　(　　,,)　＜　　題名なんて飾りです！
　 ./　　|　　 ＼　それが偉い人にはわからんのですよ
　（＿__/　　　　＼＿＿＿＿＿＿＿＿＿＿＿＿＿
／

　　∧ ∧　 　／￣￣￣￣￣￣￣￣￣￣￣￣￣
　　(,,ﾟДﾟ)　＜　なんつったりして
　 ./　　|　 　 ＼＿＿＿＿＿＿＿＿＿＿＿＿＿
　（＿__/
／

すいません。ＩＤＥで質問なんですが、設計時にコンポーネントを貼り付けると
コンストラクターが呼ばれてその後ＩＤＥに制御が戻ってしまうんですが、
制御が戻った後でもタイマーイベントか何かでコンポーネントに制御を戻す
ことは出来ないんでしょうか？

考えてることは、設計時にフォームにそのコンポを貼り付けると
コーディングを監視できるとか、あるいは簡単なゲームができる
とか、お遊びかもしれませんが出来ないでしょうか？

>>414
「メモリストリームの拡大中にメモリが足りなくなりました」

(仮想記憶 - (OS その他が使うメモリ) ) / 2 までなら確実に処理できるよ？
微妙な場合は， ストリームをちびちび伸ばしていくんじゃなくて，最初にボンとでっかく確保。

>>418-420
JとD両使いだが、最近は

>TStrings s = Form1.ListBox1.Items;
>s.Objects[0];

こっちの書き方のほうが好きだな。変数名はもっとマシなのにするが。
withが対象が明確じゃなくなるから。

Javaは使う場所で変数宣言できるからそれほど不自由しない。
Delphiはvar節で変数宣言しなきゃならんから上のような書き方は多用しにくいわな。
ま、慣れの問題だ。

>>424
コンストラクタで別スレッド生成してそいつが行動すればいいんじゃないか？

コーディング監視はOpenToolsの範疇か？
可能かどうか分からんが。

そういや昔And, Or, Not回路コンポとか作ったな

>>428
なんか電子ブロックっぽくて面白そう

>>426
こっちはC++とD両使いだけど、激しく同意。
間違った対象を読み書きしてハマッた経験もしたし。

Form1.ListBox1.Items.Objetcs[0] = Form2.ListBox1.Items.Objects[0];
こういうとき困るし。

TStrings &s1 = Form1.ListBox1.Items;
TStrings &s2 = Form2.ListBox1.Items;
s1.Objects[0] = s2.Objects[0];
としたい。

>>427
あっ、ありがとうございます。
OpenToolsですか。早速、調べてみます。ｍ(_ _)ｍ

>>424
昔、海外でコンポーネントさがしてたら、
Fireエフェクトを表示するImageコンポがあったが（aboutダイアログに貼り付け用？）、
設計時でもリアルタイムにメラメラ燃えてて笑った覚えがある。

　∧ ∧　 　／
　(,,ﾟДﾟ)　＜　　withのご利用は計画的に。
　 |つ つ　　＼
＠|　　|
　 ∪∪

デバッグ中にwithで指定しているフィールドは
参照できなかったんじゃない？(旧Verでは)

対象が明確じゃなくなりそうになった瞬間に
withやめたりwith内でも明示的に指定した方がいいっす。

あくまでもwithは読みやすくするためだけのキーワードなんですから.
逆に読みにくくなっちゃヤーよ。

そうだったのか…
てっきりタイプ量を減らすためのモノかと。

　　--下手人-∧ ∧ 　／￣￣￣￣￣￣￣￣￣￣
〜□□ □□ ( ﾟДﾟ)＜　 >>433 with使うとmovが１個減りますので微小に速いです(ﾜﾗ
　 (Ｏ)----(O)U-U)　＼＿＿＿＿＿＿＿＿＿＿

>>422
delphian worldに、Wave出力APIをラップしたコンポが幾つか上がってる。
あれを使う(またはソースを参考にする)ってのはどう？

>with使うとmovが１個減りますので微小に速いです(ﾜﾗ

　　　　∧ ∧　 ｿ--ﾅﾝﾀﾞ
　　　　(；ﾟДﾟ)
　　　　/　　|
　　〜'( UUﾉ　

下手人さんサンクス。


>てっきりタイプ量を減らすためのモノかと。
beging..endのPascalなので
タイプ量減らすベクトルは小さいかと…

Form1.BoundRect :=
　Rect(Form2.BoundRect.Top+10, Form2.BoundRect.Left+10,
　　　　 Form2.BoundRect.Bottom+10, Form2.BoundRectRight+10);

よりかは

with Form2.BoundRect do
　Form1.BoundRect := Rect(Top+10, Left+10, Bottom+10, Right+10);

の方が読みやすいってだけでは？

>>437
あまりに長くなる場合は↓のように書くな。

（場合１）

Form1.BoundRect := Rect(
　Form2.BoundRect.Top+10,
　Form2.BoundRect.Left+10,
　Form2.BoundRect.Bottom+10,
　Form2.BoundRectRight+10
);

（場合２）
Form1.BoundRect := Rect(
　Form2.BoundRect.Top+10, //Top
　Form2.BoundRect.Left+10, //left
　Form2.BoundRect.Bottom+10, //bottom
　Form2.BoundRectRight+10 //right
);


（場合３）
with Form2.BoundRect do
begin
　ATop := Top+10;
　ALeft := Left+10;
　ARight := Right+10;
　ABottom := Bottom+10;
end;

Form1.BoundRect := Rect( ATop, ALeft, ABottom, ARight);

関係ないけど left, top , right, bottom の
順番じゃなかったっけ？

前から with で別名定義出来たらいいなって　米ボーランドの要望ページに出したり
してたけどなあ・・・・・

　 with 変数名 is 別名 do

　別名で短い名前が使えると混同も少ないし

with TStringList.Create as s do
try
　s.LoadFromFile(filename);
　・・・
finally
　s.Free;
end;
こんな感じでローカル変数的にも使えて便利

皆も要望出してくれよ

>>439
参照を代入すればいいだけでは？

>>440
classの場合はそれでも効率変わらないけど
recordの場合は効率違うでしょ？

LaBVIEW使ってる人、あれはつかえるのか？

どなたか、このコードが Win2K 上で動作するか
どうか確認してくれません？
サンプルコードが問題なく動けば、いま私が作っているツールは
Ｗｉｎ２ｋ対応になるのです。

ユニットコード及びサンプルコードは↓の１と２
http://do.sakura.ne.jp/~junkroom/cgi-bin/megabbs/readres.cgi?bo=lounge&vi=1000013243

　 ∧ ∧　 　 ／
　 (,,ﾟДﾟ)　 ＜　なんの話？
　 U　 U　　　＼>>442
〜|　　|
　 ∪∪

せめてURLクレ
http://cotangent.ni.com/worldwide/japan.nsf/c362761bd12fc417862564bc006784d3/EDC85C291B1E8A5C862568D20063A7A9?OpenDocument

　 ∧ ∧　 　 ／
　 (,,ﾟДﾟ)　 ＜　がんばって！>>443
　 |⊃ ,⊃　　 ＼
〜|　　|
　 ∪∪　ｲﾏ NTﾅﾉ

Window同士が磁石でくっついたりするの
作ってるのかな？

　　　∧ ∧　　・・・・。
　　　(；ﾟДﾟ) 　　自分でも意味不明だ。
　　　U 　U
　 〜|　　|
　　　U U
>>444
> Window同士が磁石でくっついたりするの
> 作ってるのかな？

Window同士が磁石でくっついたりするような
インターフェースを実現させる
ソフトを作っているのかな？

SmartUIってソフトでデスクトップの隅に対しては行なえるんだけど
http://www7.cds.ne.jp/~hayakawa/
すべてのWindowに対して行なえるとうれしいです。

いままで見たことないのだが、with をこんな風に
使っている人って本当に居るのだろうか。
よけいに混乱しそうな気がするが。
with Form1, Form1.ListBox1 do
　caption := Items[0] + ' ' + Items[1];

ちなみに、

with Label1, Label2 do
　caption := 'giko';

って書くと Label2 の方にくっつくのね…
with 式の右側が優先されるみたいだ。

>>4446

ＨＥＬＰみれ

with obj do 文

または次の構文を使用します。

with obj1, ..., objn do 文

obj の解釈に配列の添字付けやポインタの逆参照が必要な場合は，複合文が実行される前にそれらの処理が 1 回だけ実行されます。このため，with 文は簡潔であるだけでなく効率も優れています。また，このため，with 文の実行中は文内部での変数への代入によって obj
の解釈が影響を受けることはありません。

with の後に複数のオブジェクトまたはレコードを指定すると，文全体が一連のネストした with 文のように扱われます。次の文があるとします。

with obj1, obj2, ..., objn do 文

これは次と同じです。

with obj1 do
　with obj2 do
　　...
　　with objn do
　　　文

>>443
XP RTM では動いたぞ。

ちと亀だが...

>>319
>Delギコのデザパタ本欲しい（ｗ
>サンプルソースにもAA入ってるんだよね。もちろん。
ヲレもほし〜。

どう？＞Delギコ 殿

　　　∧ ∧ 　　　　／￣￣￣￣￣￣￣￣￣￣￣
　　　( ﾟДﾟ)　　　＜　 ｱﾅﾀ ﾓ ｷｮｳｶﾗ Delｷﾞｺ ﾆ ﾅﾛｳ>>449
.=| |==U=U==.| |=　＼＿＿＿＿＿＿＿＿＿＿＿
　| | ｜　 |　　| |
　| | ﾉU U.　　| | ﾁｮｻｸｹﾝ ﾄｶ ﾀﾌﾞﾝﾅｲｼ(ﾜﾗ
　| |　　　　　 .| |

そもそも、新人ギコ氏のパクリだぞっと。

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

の20より
（ ﾟДﾟ)ノ　ギコ猫のプログラム相談室part5
http://piza2.2ch.net/test/read.cgi?bbs=tech&key=980521175
（ ﾟДﾟ)ノ　ギコ猫のプログラム相談室part4
http://piza.2ch.net/tech/kako/971/971446820.html
（ ﾟДﾟ)ノ　ギコ猫のプログラム相談室part3
http://piza.2ch.net/tech/kako/965/965916840.html

　>>446
　出来ることと、すべき事とは違うし。

　いくらなんでも読みにくい&混乱の元の
　withはやめようYO

　もちろん446さんは使ってないだろうけどね。

￣￣￣∨￣￣￣￣￣￣
　　　∧ ∧　　ﾃﾞｻﾞﾊﾟﾀ ﾖﾘﾓ XPｼﾀｲｶﾓ
　　　(,, ﾟДﾟ)
　　　ﾉつl⌒|⌒l 　
　〜(._［￣￣￣.］
　　　　 ￣￣￣

ねえねえ、コンポーネントの名前、どうやってつけてる？

Button1 → btnOK, btnBrowse, btnCancel, ...Edit1 → edtFilename, edtMask, ...Menu1 → mnuOpen, mnuSaveAs, mnuClose, ...

てな感じで、コンポーネントの種類（分類）をあらわすと、

ProgressBar とか StatusBar とか、あまり使わない
コンポーネントのときに破綻する。
まあ、この２つの場合は一つのウィンドウに１つって場合がほとんどだから
あまり気にしなくてよいけど…

>>452
コンポ名を略さずにくっつけてるな。
PlayButtonとかFileNameListBoxとか。
GroupBoxやLabelはプログラムからいじらない場合にはデフォルトのまま
GroupBox1とかになるけど(笑)

でもさ、頭にコンポーネント名がきた方が
オブジェクトインスペクタでソートされて、
種類ごとに表示…

あ

機能名を頭につけた方が機能ごとにソートされるか…

それともＤｅｌ６でオブジェクトツリーが出来て、
オブジェクトインスペクタのソート順序は
どうでもよくなったのか。

　ｱｰﾋｬﾋｬﾋｬﾋｬﾋｬﾋｬﾋｬﾋｬﾋｬﾋｬ
　　　　　　　　∧＿∧
　　　　Λ＿Λﾟ∀ﾟ　 ） ｱｰﾋｬﾋｬﾋｬﾋｬﾋｬ
　　　 （ ﾟ∀ﾟ　⊂　 　 ） ﾋｬﾋｬﾋｬﾋｬﾋｬ!!!
　　　　＼　 ／ Y 　 人
　　　　　（/）　 （＿_）＿）
　 　ι .（／）　|￣￣￣￣￣￣￣￣￣￣￣￣￣
　　　　 （／）っ￣￣￣￣￣￣￣￣￣￣￣￣￣
　 　ι　（/）　 ∧＿∧
　　ι 　/　＼（ﾟ∀ﾟ　 ） ｱｰｯﾋｬｯﾋｬｯﾋｬｯﾋｬｯﾋｬｯ
　　　　人　ヽﾉ⊂　 　 ） ﾋｬｯﾋｬｯﾋｬｯﾋｬﾋｬﾋｬﾋｬ
　　 　 し（＿_）　Y 　 人
￣￣￣￣￣|　（＿_）＿）
￣￣￣￣￣
あーひゃひゃひゃひゃひゃひゃひゃひゃひゃひゃひゃ
ひゃひゃひゃひゃひゃひゃひゃひゃひゃひゃひゃひゃ

ｼﾂﾓｰｿ
　　　∧∧　　　／￣
＠＿(,,ﾟДﾟ)　＜　列挙型の変数から列挙型の名前を取得するの
⊂,,＿_つつ.　　＼どうするのでしたでしょうか。

　　　ｵﾎﾞﾛｹﾞ ﾆ TypeInfoﾕﾆﾄあたりに関数があったような記憶。

　　　 　 　 　 　 　 　　∧ ∧ 　 ／￣￣￣￣￣
　 　 　 　 　 　 　 　　(ﾟДﾟ ,,)＜　　ｶｲｹﾂしました。
　　 　 　 　 　 　 ＿φ＿⊂)__ ＼＿＿＿＿＿
　　 　 　 　 　 ／旦／三／ ／|
　　　　　　　　|￣￣￣￣￣|　 |
　　　　　　　　|千葉ﾋﾟｰﾅｯﾂ|／
　　　　　　　　 ￣￣￣￣￣
http://www2.big.or.jp/~osamu/Delphi/delphi-browse.cgi?index=057555

かちゅーしゃが止まってしまた。

>>456
>ｵﾎﾞﾛｹﾞ ﾆ TypeInfoﾕﾆﾄあたりに関数があったような記憶。

まじで！？
いままでずっと

type
　TSignalColor = (scRed, scBlue, scYellow);
const
　SignalColorString:array [TSignalColor] of string=
　　　　　　　　　　　　　　　　('scRed','scBlue','scYellow');

こうやってたＹＯ！
調べてみるか…

　　　 ∧ ∧　　　／>>458
　　∩(,,ﾟДﾟ)　＜　RTTI関係の強化はﾀﾁｶD5からだから
⊂,,＾＿_つつ.　　＼下位互換コードじゃなくなるのかな。

ヲｷｦﾂｹﾃｰﾃ

たしかプロパティ経由なら取れたような・・・
誰も書かなかったら明日調べて書く、といってみるテスト

上位互換とは、
上位機種でしか使えない機能の事ですか？
「完全上位互換」とは、昔のものはまったくコンパイルできないという意味ですか。

下位互換とは、上位機種でも
下位機種の機能を使う事ができるという意味でしょうか。「完全下位互換」とは、どんな昔のコードでも最新版で
コンパイル可能である事を示しますか。

>>461
綺麗に逆です。

With使いこなしコンテスト！

procedure Form1.Hoge(Sender : TObject);
begin
TForm(Sender).BoundRect := Rect(
　(Form2.BoundRect.Top + Form3.BoundRect.Top) / TForm(Sender).BoundRect.Top,
　(Form2.BoundRect.Left + Form3.BoundRect.Left) / TForm(Sender).BoundRect.Left,
　(Form2.BoundRect.Bottom + Form3.BoundRect.Bottom) / TForm(Sender).BoundRect.Bottom,
　(Form2.BoundRect.Right + Form3.BoundRect.Right) / TForm(Sender).BoundRect.Right,
);
end;

Delギコさん死んじゃってください

>>461
http://wdic.asuka.net/?title=%BE%E5%B0%CC%B8%DF%B4%B9
上位互換
・元となるものとの互換性を維持しながら, より高性能を実現したもの.

http://www.nttpub.co.jp/paso/0418.html
　新しい製品でも、古い製品の機能が使えるようになっていること。
　たとえば、ソフトのバージョンアップがある。あるソフトがバージョン3になったとしよう。
　その前にはバージョン1と2があった。そして普通は、バージョン1や2で作ったファイルを、
　バージョン3でも開くことができる。
　これが典型的な上位互換。上位にある（この場合だとバージョンが新しい）製品は、下位
　（バージョンが古い）製品の機能も持っている、つまり互換性があるということ。

　通常は、バージョンアップがあると、新しい機能が追加される。そのため、新しいバージョ
　ンで作ったファイルは、古いバージョンでは開けないことが多い。しかし、機能を制限する
　ことで古いバージョンのファイル形式で保存できる場合もある。この場合は、下位互換がある
　という。

ビルにｼﾞｪﾄｰ機突っ込みました。
ﾆｭｰｽ見ろ。

うお、マジだ

速報板入れない（´д｀；）

さんきゅ >> 466
ただ、二度とやるな。ここは「プログラム技術」だ。

これでまた、アクセス殺到で 2ch がとまるかな？

これで、ビルの重みを支えきれなくなって崩壊の瞬間が全世界に放映…

事故？攻撃？

>>466-472
ニュース板逝け

>>472
日本語わからないの？

アメリカとんでもない事になってるね。
列挙型の文字列を得るサンプル。あんま厳密でないけど。
フォームにMemo1,Button1があるとして、
uses TypInfo;
procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
　p: PTypeData;
　ps: ^ShortString;
begin
　p := GetTypeData(GetPropInfo(PTypeInfo(Self.ClassInfo), 'Align')^.PropType^);
　ps := @p^.NameList;
　for i := p^.MinValue to p^.MaxValue do
　begin
　　Memo1.Lines.Add(ps^);
　　Inc(Integer(ps), Length(ps^) + 1);
　end;
end;

　∧∧∩゛　 ／￣￣￣￣￣￣￣￣￣￣￣￣￣
　(,,ﾟДﾟ)ﾉ　＜　ニューヨークに行きたいかー!!
　U　　/　　　＼＿＿＿＿＿＿＿＿＿＿＿＿
　|　　|
ノ∪∪


　　　 ∧∧ 　　・・・・.
　　　（　　,,）
　　　/　　|
　〜（,＿,,ﾉ

　　∧ ∧　 　／￣￣￣￣￣￣￣￣￣￣
　　(,,ﾟДﾟ)　＜　全然逝きたくニャイ！
　 ./　　|　 　 ＼＿＿＿＿＿＿＿＿＿＿
　（＿__/
／ 　　
　　

さすがにしゃれになんねーよ。今日は失せろ。

Delギコうざいよね、氏んでほしい

　　|￣￣￣￣￣￣￣|
　　|　しばらく休業
　　|＿＿＿＿＿＿＿|
　 　 ∧ ∧ ||
　　　(,,ﾟДﾟ)||
　　　 /つ つ

>>474ｻﾝｸｽ

>>476-477なんか気にするなDelギコ。

　　|￣￣￣￣￣￣￣|
　　|　事実は小説より奇なり
　　|＿＿＿＿＿＿＿|
　 　 ∧ ∧　||
　　　(,, ﾟДﾟ)||
　　　 /つ つ 　　>>479Sunクスコ

でも、気楽にプログラしてる気分でもないし
変な荒し対策にAA貼る気力もないので
折れはちょっち休むよ。newsに釘付けだし。

このスレでネタになってる話題は
気にせず続けてくださいな。

Delｷﾞｺ氏でも>>475はちょっと。。。
でも御冥福を祈りつつこちらはこちらでマターリとがんばりましょ。
復帰求むＤｅｌｷﾞｺ氏よ。

確信犯はたちが悪いよな。
自分が正しいと思ってるから。
あー怖ひ怖ひ

Delphi似のスクリプト作ってんだけど、
DelphiっつーかPascalのBNFってない？

ネットで探してももどきばっか・・・
さがしかたわるいんかな

Delphiヘルプについてるやつじゃ駄目なの？BNFかどうかは知らんけど。

じゃ、調子にのってもう1問。

１　３　５　７　□　10　□
上の数列（？）はある規則によって並んでいます。
□の中に当てはまる数字を答えなさい。
また、その規則も答えなさい。

１ ３ ５ ７ ９ 10 11

for i=1 to 11 step 2

n次間数の次数nを上げればいくらでも答えがでるんじゃないのか？ >>485

>>485
?

>>485
━┓　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 ＿＿＿_
]　┃　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　／　　　　/
　 ┃　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 ／　2ｃｈ 　/
]　┃　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　／Λ＿Λ　 /
　 ┃　　　　　　逝くぞぬっ!!　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 ／　（´∀｀　） /
]　┃　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　／ ∧∧ 　　　）/
　 ┃　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 ／　(ﾟДﾟ )￣￣ /
]　┃　　　　　 ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿／　　　　U U￣￣/ ＿
　 ┃　　　　／　 　 　 　 　・・・・・|_|・・・・・ Λ＿Λ　∩∩　　／）_／）　i⌒――⌒i　　　　　　￣　| ＿_
]　┃　　　/●　　 ●　　２ｃｈ Ａｉｒｌｉｎｅｓ　（・∀・　） (･x･)ﾉ　（，’ー’） （´（Å__）｀ ）　／￣￣￣￣￣／
　 ┃　 ／　　 　 　 　 _ 　　　　 　 　 _　　（　 　 　） ノ|x| ＿（　Ｕ__Ｕ） /ヽ ／ /_ノ ヽ ￣￣￣　／￣
]　┃　| ▼　　　　　　|_|・・・・・・・・・・|_|・・・・・・ ・・ |_|・・・・＿・・・・|_|・・・／＿/ |_|((.ｌ_ｌｌ）))　　／
　 ┃　|_人＿　 (-＿-)ヽ(´ー｀)ノ／￣￣￣￣￣￣￣￣￣／￣￣￣￣￣　／ （ｌロ-ロｌ) ／
]　┃　 ＼　　　(∩∩)（＿＿＿）＼＝＝　 ／￣￣￣ ／||￣|￣|＼／￣￣　　　ヽ ∀ノ／
　 ┃　　　￣￣￣￣￣￣￣￣￣￣￣￣||￣|￣|＼／￣||　 |　 |　 | ￣￣￣￣￣￣￣
]　┃　　　　　　　　　　　　　　　　　　　 　||　 |　 |　｜ 　 ||　 |＿|／
　 ┃　　　　　　　　　　　　　　　　　　　 　||　 |＿|／　　　￣￣
]　┃　　　　　　　 　 　 　 　 　 　 　 　 　 ￣￣

西向く侍とかいうなよ

プログラム超初心者です。
いろいろわからないことがあるので教えてください。

一応Delphi6を買ってみて動かしてますが以下の部分がわかりません。
------Unit1--------------
if Key = 49 then
begin
　　　処理1
end
else if Key = 50 then
begin
　　　処理2
end
else if Key = 51 then
begin
　　　処理3
end;
-------------------------x10フォーム　　　　　　　　　　　　　　　　　　　　　

上記のコードをFrom10個くらいに同じのを使うので効率悪いです。
友人に聞くと「constでやれば良いよ」と言いますがどうやれば良いのかわかりません。
どう言うことなのでしょうか？

>>485　無駄にレス。
１　３　５　７　８　１０　１２

>>491 constでやればいい　という意味はワカランが
case でやればいいの間違いかな。それならこんなの。
この場合if then else　よりよっぽど解りやすい。
処理が一文なら begin end はいらない。

case key of
49: begin
//処理１
end;

50: begin
//処理２
end;

51: begin
//処理３
end;

>>492
>>490にてｶﾞｲｼｭﾂ

　　--下手人-∧ ∧ 　／￣￣￣￣￣￣￣￣￣￣
〜□□ □□ ( ﾟДﾟ)＜　 処理を１〜３にわける必要がない可能性は無いか？
　 (Ｏ)----(O)U-U)　＼＿＿＿＿＿＿＿＿＿＿

あとマジックナンバー使うなｺﾞﾙｧ

>>491 いっそのことやりたいこと全部書いて見ろ

やべ。MemCheck組み込んだままVectorに登録しちまったぜ

>>493
なんか「Key=　　」の部分をconstにしろとか言ってました。

>なんか「Key=　　」の部分をconstにしろとか言ってました。
的外れ

マジックナンバーつかわず定数にしろって意味かね？

const
　KEY_I = 49; //小文字の i かも
　KEY_J = 50;
　KEY_K = 51;

-------------------

case Key of
　KEY_I: 〜;
　KEY_J: 〜;
　KEY_K: 〜;
end;

const?ようわからんね。
言った本人に聞くのが手っ取り早いと思うが。どうよ。

COMの用途は異言語間で使えるクラスライブラリってことなんですね。
# あまりにあたりまえすぎる結論ですが・・・

ではObject Pascalで完結している場合、interfaceを使うメリットは何でしょう？
一般的なインターフェースのメリットは理解していないわけではないけれど、
VCLなインターフェースとはちょっと合わないような気がしてます。
自前のライブラリでinterface使っている人います？

>>501
ありがとうございました。
出来ました。

491の処理がすっきりしました。
友人の言ってた事はこういう事だと思います。

Del6のサンプルコンポ
ShellListView で、特定の拡張子をもった
ファイルのみを表示するということは出来ないですか？

Win3.1の FileListBox はマスクを指定できて便利だったんだけど…

え、マジであってたの？
49 が I ってのはかなり勘でやってたんだけども。
確か 41 が A だったような。

>>506
いえそのまま使った訳じゃ無く少し変えて使いました。
const
　key1 = 4144;　//F1
　key2 = 4145;　//F2
------中略-------
case key of
　key1　:　btn1Click(nil);
　key2　:　btn2Click(nil);
end;
-----------------
こんな感じです。

もう一つ質問です。
const
　key1 = 4144;　//F1
を全フォームで宣言するのは効率よくないのでモジュールなりで宣言して使い回したいのですが
出来るでしょうか？

>>504
多少マシになるかもしれんが同じコードをForm10個に貼り付ける
ダサさはそのままだろ。だから「的外れ」と言ったんだが。
ま、最初はしょうがないかな。そのうち気づくだろ。
解決策考えようにもなにやりたいのかｻﾊﾟｰﾘ分からんからどうしょうもないが

ちなみに意味のある数字（＝今回のように定数で表せる）を素の数字のまま表記
したものをマジックナンバーという。Delｷﾞｺの言ってたやつだ。
読みにくくて嫌われるな。

例えば、ファイル→新規作成→ユニット

で、interface と書いてある場所の次の行に

const
KEY_F1 = 4144;
KEY_F2 = 4145;

...
と書いていく。そしてユニットを保存する。
(例えば KeyCode.pas としよう)
で、 Form1.pas の uses に KeyCode を追加すれば、
Form1.pas 内で KeyCode.pas の interface 部で宣言されている
定数を使う事ができる。

…が、それ以前の問題で、
ファンクションキーには VK_F1, VK_F2, .. という定数が
既にあったような…

>>509
ありがとうございます
早速やってみます。

＞ファンクションキーには VK_F1, VK_F2, .. という定数が
＞既にあったような…

最初それをやったんですよ。
でもkylixではそれが無効らしくて

それから、ファンクションキーにボタンクリックを対応付けたい
のならば、 TAction の使い方を覚えるといい。
新規 Action を作成し、ボタンイベントの内容はすべて
そちらに書くようにする。例えば、Button1 の処理内容は
Action1, Button2 の処理内容は Action2 といった感じで。

詳しい Action の設定方法はDelネコに任せる.

んで、Action1 の ShortCut プロパティに F1 を、
Action2 の ShortCut プロパティに F2 ... というようにショートカットキーを設定する。

最後に
Button1 の Action プロパティを Action1 に設定、
Button2 の Action プロパティを Action2 に設定すればよい。

>>510
ああ、Kylix かー
それじゃあ VK 定数はむり。あれはWindowsのキーコードだから。

　　--下手人-∧ ∧ 　／￣￣￣￣￣￣￣￣￣￣
〜□□ □□ ( ﾟДﾟ)＜　 VK_F1はwindows.pasに定義済だが
　 (Ｏ)----(O)U-U)　＼＿＿＿＿＿＿＿＿＿＿

　　--下手人-∧ ∧ 　／￣￣￣￣￣￣￣￣￣￣
〜□□ □□ ( ﾟДﾟ)＜　 遅かった
　 (Ｏ)----(O)U-U)　＼＿＿＿＿＿＿＿＿＿＿

Del6 開発者ガイド
　+-- Delphi プログラマーズガイド
　　　　　+-- CLX で異なる機能
　　　　　　　　　　　　その他の違い
--------------------------------
Windows では，〔Enter〕キーの OnKeyDown イベントと
KeyUp イベントのキー値は 13 です。Linux では，
この値は 4100 です。ハードコードされた数値をチェック
する場合（〔Enter〕キーの値 13 など）は，Delphi アプ
リケーションを Kylix に移植するときに数値を変更する
必要があります。

遅かった。

ん？じゃぁKylix/CLXではキーコード定数自分で定義しろってこと？

　|￣￣￣￣￣￣￣￣￣|
　|　そろそろ平常操業　　|
　|＿＿＿＿＿＿＿＿＿|
　　　 ∧∧　||
　　　 (,,ﾟДﾟ)|| 　ﾏﾀｰﾘ ｲｸｶ
　　　 /　 づ||O
　 ＠（＿__ﾉ　　

>>518
おかえり！　待ち兼ねてたよん。

Delｷﾞｺ氏マターリと復活！！

　 　 ∧∧　　　／￣
　 ＿(,,ﾟДﾟ)　＜　>>505　試したけど簡単には無理みたい。
乙,,＿_つつ.　　＼＿ シェルだし。HELPないし…
ﾈｺ ﾆｬ ﾜｶﾗﾝ

出来たら便利なんだけどなあ。
OpenDialogみたいなのが簡単に作成できるよね。

事故レスだ。
ShellListView の AddFolder イベントは、
フォルダだけではなく、どんな種類のファイルでも
とにかくリストビューに追加する時には
いつでも発生するみたい。
故に、以下のようにすればよいと思われる。

procedure TForm1.ShellListView1AddFolder(Sender: TObject;
AFolder: TShellFolder; var CanAdd: Boolean);
var
　Ext:string;
begin
　Ext := ExtractFileExt( AFolder.PathName );
　if AFolder.IsFolder then Exit; //フォルダは無条件でOK
　CanAdd := if AnsiMatchText( Ext, ['.jpg', '.jpeg', '.bmp' ] );
end;

>522
駄レスだが…
判定順序を変えては？
こうした方がフォルダがたくさんあるの時は動作が比較的軽くなるかと思われ。
あと CanAdd := if 〜 のif は不要と思われ。

procedure TForm1.ShellListView1AddFolder(Sender: TObject;
AFolder: TShellFolder; var CanAdd: Boolean);
var
　Ext:string;
begin
　if AFolder.IsFolder then Exit; //フォルダは無条件でOK
　Ext := ExtractFileExt( AFolder.PathName );
　CanAdd := AnsiMatchText( Ext, ['.jpg', '.jpeg', '.bmp' ] );
end;

こんな感じ？

>>523
おお、スマソ。確かに if はいらん…

ShellListView の問題も解決したところで…
ShellTreeView で、指定したフォルダを
開いている状態にするにはどうするんだろうか。

たとえば、 C:\Windwos と指定すると。
デスクトップ→マイコンピュータ→C→windows
が展開されて、かつスクロールインする感じ。

>>524
ShellListViewにはShellTreeViewというプロパティ、
ShellTreeViewにはShellListViewというプロパティがある。
(同様にPopupMenu, ShellComnoBoxというプロパティもあるね)
めぼしいイベントがないから、これで自動でやれということか？
Del6はまだPerしかないからVCLのソース見れないからわからんが…

がいしゅつだったらｽﾏｿ。

／￣￣￣￣￣￣￣￣￣￣￣￣￣
|　>>522-523すごいですやん！(関西風)
＼＿＿＿ 　＿＿＿＿＿＿＿＿＿
　　　　　　∨
♪　　 ∧ ∧　♪
　　　　(,,ﾟДﾟ).　　♪
　　 　 |つ[|lllll］).
　　 〜|　　| 　　ShellListViewﾄﾃﾓ ﾍﾞﾝﾘ ﾆ ﾅﾀ
　　　　Ｕ Ｕ

AddFolder…フォルダの新規作成時に出る
イベントかと思ってしまた。

>>524調査中。

　 ∧ ∧　 　 ／￣￣￣￣￣￣￣￣￣￣￣￣
　 (,,ﾟДﾟ)　 ＜　SampleのVCLはソース月？
　 U　 ,つ゛　 ＼＿＿＿＿＿＿＿＿＿＿＿＿
〜|　　|
　 ∪∪

>>525
(D6ﾊﾟｿﾅﾙでも)TCustomShellTreeViewのソースはこの辺。
$(DELPHI)\Demos\ShellControls\ShellCtrls.pas

TCustomShellTreeView.Pathプロパ辺りがぁゃιぃ。

ソースみるにはProじゃないとつらいな。
つらくなくても、理解には程遠いが。

お昼はありがとう御座いました。
無事解決しました。

起動時に複数あるフォームにあるボタンのフォントサイズをコード内で"11"にしたいのですが
効率の良い方法は無いでしょうか？
例：
-------------------Unit1
Label1.Font.Size := 20;
Label2.Font.Size := 20
Label2.Font.Size := 20
-------------------

このようなコードを全フォームに書くのは見た目的にも汚いのでどこか一つにまとめて
そこから呼び出せないでしょうか？（ユニットやモジュールなど）

本当はオブジェクトインスペクタで設定すれば良いだけのことなのですが、そこで設定しても起動時にフォントサイズが
変わってしまいます。（FontPitchなども関係してくるんでしょうか。）
コード内に書くと固定され大丈夫らしいです。
こちらで解決すれば良いのですが、、、


質問を小出しにすると嫌われるので一度に質問しました。
どうかよろしくお願いします。

>>528
Font.Size の初期値を 20 にした TLabel2ch ってコンポーネントを作ってしまえば？

>>528
1個だけ。
とりあえずこれ見てみ。
ttp://www2.big.or.jp/~osamu/Delphi/Tips/other.cgi#0194.txt

　∧ ∧　 　／ >>528
　(；ﾟДﾟ)　＜　　すごく汚いソースが生成されてる気がする
　 |つ つ　　＼
〜 　　| 　>>508 ﾁｮｳ ﾄﾞｳｲ
　∪ ∪ ﾏｼﾞｸﾅﾝﾊﾞｰ&const ﾅﾝﾃ ﾀｲｼﾃ ﾓﾝﾀﾞｲﾅｲ
　　　　　ｱﾏﾘ ｶｼｺｸﾅｲ ｺﾞﾕｳｼﾞﾝ ｦ ｵﾓﾁﾃﾞｽﾅ

ｺﾝﾄﾛｰﾙ配列ってある程度の人になると
ﾏﾀｰｸ使わなくなるよ。
　　　
LabelのParentFontをTrueにして
FormのFontを変更してみーな(富永)。

もしくは
uses TypInfoを追加して

procedure TForm1.Button3Click(Sender: TObject);
var
　i : Integer;
　f : TFont;
　c : TComponent;
begin
　for i := 0 to Self.ComponentCount -1 do
　begin
　　c:=Self.Components[i];
　　if IsPublishedProp(c,'Font') then
　　begin
　　　f:=TFont(GetObjectProp(c,'Font',TFont));
　　　f.Size:=trunc(f.Size*1.25);
　　end;
　end;
end;
Delphi6CLX&VCLで動作確認。

ComponentsやControlsプロパティを勉強して

　for i := 0 to Self.ComponentCount -1 do
　begin
　　if c is TLabel then
　　　//フォント変更処理

このようにするのも手だね。

　 ∧ ∧　 　 ／￣￣￣￣￣￣￣￣￣￣￣￣
　 (,,ﾟДﾟ)　 ＜　もそっと。質問上手にﾅｰﾚ
　 U　 ,つ　 　＼＿＿＿＿＿＿＿＿＿＿＿＿
＠|　　|
　 ∪∪　　ﾅﾏｴ ﾜｽﾚﾀ

なんにしても、もっと勉強してサンプルの掲載も上手になって欲しい。
情報が無さすぎて答えるのが困難。

まさか、TLabelを複数同時選択して
フォントかえるだけでよかったりしない？>>528

>>532
えーっと、実はDelphiでは無くkylixなんです。
フォントは都合上変更できないんです。（上からの指示で、、）

>>533
>実はDelphiでは無くkylixなんです。
　　　∧∧　　　／￣
＠＿(,,ﾟДﾟ)　＜　そりゃ、わかっちょるって。
⊂,,＿_つつ.　　＼＿

だから、Delphi6CLXで動作確認してるって書いたデソ。


＞変更できないんです。（上からの指示で、、）

　 　　　 ∧＿∧ 　　　 ／￣￣￣￣￣￣￣￣￣￣￣
　 ／＼(　´∀｀／| 　＜　やめてくれー
　＼　（⊇＿_|／∧ ∧＼／￣￣￣￣￣￣￣￣￣￣￣￣￣
　 　|￣　　　 |　(, ﾟДﾟ)＜　その上司捨てとく？
　 　|　ミカンC＝　 ｜　　＼＿＿＿＿＿＿＿＿＿＿＿＿＿
　 　|＿＿＿_|／|　 ｜
　 　　　　　　　　|　　| 〜
　 　　　　　　　　U U

でも、Fontを変えるんじゃなくてFont.Sizeを変えたいんでしょ？
フォントサイズも変えてはだめなの？？（そんなわけないと思うが）

いったいぜんたい、何をしたいのか全然わからない。
ｱﾅﾀがどこまで理解しているかもわからないので。
それが伝わるように注意してｸﾀﾞちｲ。

1つの質問もきっちり相手に伝えられないようじゃ
この業界ﾂﾗｰｲYO

>>534
上でも書きましたが実行時に起動時にフォントサイズがFontsizeが変更されてしまうんですよ。
コード内でフォントサイズを指定すると大丈夫です。
でもLabelの数が大量にあるため全部にフォントサイズを指定するのが大変だと思いまして、、

＜わかりやすく書くと・・・＞
オブジェクトインスペクタで13と指定する
実行すると10のフォントサイズになる
なんとかしたい
コードに書き込もう！
直った！
でもラベルの数が大量にある＆コードが汚くなる、、
教えてください！！

こういう事です。

>上でも書きましたが実行時に起動時にフォントサイズがFontsizeが変更されてしまうんですよ。

　　　 ∧ ∧　　　／￣
　　∩(,,ﾟДﾟ)　＜　それは再現性のあること？
⊂,,＾＿_つつ.　　＼＿

なんらかのほかの原因は考えられない？？
アプリケーションを1から作ったとして、それでも再現するのかどうかを
まず伝えてくれよ。

Formが沢山あるらしいが
ｱﾅﾀが1から作ったもの？引継ぎ？

それがわからないと
＞コード内でフォントサイズを指定すると大丈夫です。
これに対する返事の仕方が出来ないでしょ。

Kylixのバグかもしれないし。

　　　∧∧　　　／￣￣￣￣￣￣￣￣
〜''~（,,ﾟДﾟ）　＜　質問を解読することが疲れるﾆｬﾖ。
　 UU'UU　　　 ＼＿＿＿＿＿＿＿＿

あと、
>>531のレスや>>530さんのリンク先
を応用すれば

全部望むことは出来ると思う。まずはそれを理解してよ。
そこがわからないなら具体的な質問ができるっしょ。
Buttonクリクイベントあたりに
　for i := 0 to Self.ComponentCount -1 do
　begin
　　if c is TLabel then
　　　TLabel(c).Size := TLabel(c).Size + 5;
　end;
書いて実行シテミソ。

Delphiの勉強とともにネットでの質問の仕方。勉強して欲しい。

AboutDelphiって所でdelphiMLの検索をするといい。
http://www2.big.or.jp/~osamu/Delphi/

　 　 ∧∧　　　／￣
　 ＿(,,ﾟДﾟ)　＜　江良そうに、逝たのにﾏﾁｶﾞﾀﾖｰﾝ
乙,,＿_つつ.　　＼＿ ｺﾞﾒﾝﾁｬｲ

失礼しました。

×　　　TLabel(c).Size := TLabel(c).Size + 5;

訂正

○　　　TLabel(c).Font.Size := TLabel(c).Font.Size + 5;

>>536
＞アプリケーションを1から作ったとして〜
あした会社で再現してみます。
家にkylixは無いので、、

＞ｱﾅﾀが1から作ったもの？引継ぎ？
そうです。私が作った物です。
Form数は20以上になります。

もしかしたらkylixのバグかもしれないしKDEの設定かもしれないです。
KDE2.2に上げたあたりからおかしくなったのですが、おかしくなったタイミングが全く一緒じゃ無いんですよ。


余談
kylixはそのほかにもいろいろなバグがあって困ってます。
FormBorderStyleをfbsNoneにするとキープレビューが取れなくなります。
全く同じソースをWindows側に持っていきCLXで動作すると大丈夫なんですけどね。
もちろんブレークポイントかけても引っかかりません。
（これにはまいった・・・）

もしCLXでVCLと同じように逝くなら…
こんな感じのｺｰﾄﾞ書いてはどうよ？
Del6 Per VCLで確認。
これを適当に応用してみそ。

procedure SetBigFontToLabel(Ctrl: TControl);
var
　I, J: Integer;
begin
　If Ctrl is TLabel then
　begin
　　TLabel(Ctrl).Font.Size := 18;
　end
　else
　begin
　　J := Ctrl.ComponentCount - 1;
　　If J >= 0 then
　　　for I := 0 to J do
　　　　If Ctrl.Components[I] is TControl then
　　　　　SetBigFontToLabel(TControl(Ctrl.Components[I]));
　end;
end;

おっと書き忘れた。
適当にLabelをポンポンおいて、PanelやGroupBoxなどの中にも
適当に配置する。

んでFormのOnCreateなどに

SetBigFontToLabel(Self);

などとして使う。

てかログ見たら思いっきりDelギコと被ってた…鬱打スマソ聞き流してくれ

　 　 ∧∧　　　／￣
　 ＿(；ﾟДﾟ)　＜　Kylixはまだまだなのかな？
乙,,＿_つつ.　　＼＿

＞もしかしたらkylixのバグかもしれないしKDEの設定かもしれないです。
そうでしか。そうなるとわからなくなりますね。
悪かったでございます。それも含めて再現性の追及が出来るといいっすね。

余談の内容はチョチ怖い。

KylixMLが寂れに寂れてるので
質問をして盛り上げてみるのはどうですか？
バグだとしたら中村先生ﾀﾝは教えてくれるんじゃないかな。
(あくまでも簡単に再現性を確認できるようにしてね)

>>540さん。サンクスコ。

　 ∧∧∩゛　 ／￣￣￣￣￣￣￣￣￣￣￣￣￣
　 (,,ﾟДﾟ)ﾉ　＜　では。おやすみ、なっさい。
　 U　　/　　　＼＿＿＿＿＿＿＿＿＿＿＿＿
＠|　　|
　 ∪∪

>>540-541　&　Delギコ

ありがとう御座います
いまDelphi6で動きました。
あした会社でkylixで試してみたいと思います。

LabelってTlabelで宣言されてるのでフォーム上の全部のLabelがコード上のフォントサイズになりますよね？
一部のＬａｂｅｌのみ指定フォントサイズにする（もしくはその逆）って出来ないですか？
ＰａｎｅｌやＧｒｏｕｐＢｏｘ使えば出来そうなんですが、、

　∧ ∧ 　　　／
　(,,ﾟДﾟ)　　＜ 　何をもって一部のものか一部以外のものかを
　し　　|つ　　＼わける方法を考えれ。
〜|　 ｜　ｿﾚﾆﾖﾃ ｺﾀｴ ｶﾜﾙｼﾞｬﾅｰｲ
　 ∪∪

・TLabelのTagを設定して振り分ける

・>>530のリンク先のようにFindComponentで名前で切り分ける

・TLavel(c).ParentがPanel1とかで切り分ける

・特定のPanelに載っているかどうか切り分ける
（Panel1.Controls配列をしらべーる。)

親コントロールのフォントを継承するっていう
プロパティがあるから、それをFalseにすればいいのでは。

ParentFont?

ParentFont あるなら
Form1.Font.Size := 13;

とするだけで、フォーム上全てのコントロールのフォントが
サイズ１３になるのでは…

>>524
自己解決しては見たけれど、理想には程遠いのです。
だれか、もっと頭の良いコードに改造してください（；´Д｀）

↓一応問題を解決したコード。実行してみれば分かるけど　…　ねえ
http://do.sakura.ne.jp/~junkroom/cgi-bin/megabbs/readres.cgi?bo=lounge&vi=1000404430

少し改良しましたが、まだなんとも。

http://do.sakura.ne.jp/~junkroom/cgi-bin/megabbs/readres.cgi?bo=lounge&vi=1000404430
の２です。よろしくです。

亀レスですが、OpenToolsAPI、面白いですね。

いろいろ調べてみて
http://www.delphi32.com/vcl/lists/sc_n_73.asp
ここのソースが参考になりました。

IDEClock 1.1ってのが非常に参考になります。
ＩＤＥのメインウィンドウに現在の時刻を表示するだけですが、
このソースを参考にしてタイマーイベントを取って来れました。

何故かDelphi6ではOpenToolsAPIが大幅に変更になったようで
以前のバージョンのソースがそのままでは使えません。

Kylixを意識して改変したのかもしれませんが、それならそれで
Borlandはこれに関する技術情報をきちんと開示してほしいです。

折角なのでわたしの調べた範囲でOpenToolsAPI関連のリンク張っておきます。

[ソース関係]
http://www.tempest-sw.com/opentools/examples.html
http://www.delphi32.com/vcl/lists/sc_n_73.asp

[FAQ,TIPS,LINKS]
http://www.gexperts.org/opentools/
http://cjandia.freehomepage.com/me/works/delphi/articles/newide/newide.html
http://www.geocities.com/SiliconValley/Way/9006/ota.html
http://delphi.about.com/library/weekly/aa033099.htm

他にもあるかも

>>540-541
無事kylixでも動きました。
一部のLabelのみフォントサイズ指定も出来ました。

If Ctrl.Components[I].Tag = 1 Then
で解決です。

>>552
参考になります。アリガト

　　　∧∧　　　／￣
＠＿(,,ﾟДﾟ)　＜　D5-D6のVersion間互換性、低すぎない？
⊂,,＿_つつ.　　＼＿

　Font.Name = #65325#65331' '#65328#12468#12471#12483#12463
この文字列を

　Font.Name = 'ＭＳ Ｐゴシック'
この文字列に変換するのを

OpenToolsで組み込んで欲しいよ。
　　　∧∧　　　／￣
＠＿(,,ﾟДﾟ)　＜　D5-D6のVersion間互換性、低すぎない？
⊂,,＿_つつ.　　＼＿

　Font.Name = #65325#65331' '#65328#12468#12471#12483#12463
この文字列を

　Font.Name = 'ＭＳ Ｐゴシック'
この文字列に変換するのを

OpenToolsで組み込んで欲しいよ。

>555
VCL ソースみりゃ、一発だろ？

　　　　∧ ∧　　・・・・。
　　　　( ﾟДﾟ)
　　〜（　uu） ﾆｼﾞｳ ｶｷｺ ｽﾏｿ

D6入れるスペース作るために
D4アンインストしたら
D5が道連れでお亡くなりになられました。

がんばたけど…ｺｰﾄﾞｴｸｽﾌﾟﾛｰﾗがどうしても現れない…ｶﾅﾁｲ

>>557
D5 再インストールすればよい話では？

>>556
これか！DFM ファイルの形式が今までのと同じになるね。

[HKEY_CURRENT_USER\Software\Borland\Delphi\6.0\FileFormat]
"DFMFormat"=dword:00000000

EJBのsessionBeanでstatelesssessionを作っているのですが、
EJBクラスの中のejbActivate(),ejbPassivate()というメソッドが何のために必要なのかわかりません。
教えて下さい。

>>551
深さ優先で検索してるけど、幅優先で検索したほうが
早いかと。一度 node の items をスキャンして、
パス名に一致する items が見つかれば、そこを掘って行く
てな感じで。

つーか、それ以前にそういうメソッドがありそうで
ならないんだが…
IndexOf ではキャプション文字列での検索が出来ないし…

　　　ﾝﾏｰｰ ﾈｺ ﾋﾞｯｸﾘ
　　∧ ∧∩
　　(ﾟДﾟ,,)ﾉ
　　 | 　つ
　　　|　⊂)〜
　　　 ∪

>>559
すげーよ。ｱﾝﾀが大将♪ｱﾝﾀが大将♪ｱﾝﾀが大将♪

動作確認しました。
FileFormatってキーを自分で作成するのね。

最初、ネ夕かと思ﾃｼﾏﾀ。

大サンクスコ

>>562
某国のことだからそのくらいの細工はしているだろうとは思ったが
ほんとにあるんだね。

ただそれやっちゃうとせっかく UNICODE にした意味がなくなっちゃうんだろうね。

EUC とか Shift-JIS とかを考えなくてすむので、CLX アプリにとっては
大事な機能です。

>>559 はブラクラ。もとい IDE が立ち上がらなくなります。
誰か削除願いを。

>>564
　　　　　 ∧∧　　　／￣￣￣￣￣￣￣￣￣￣￣
　＠' ― (,,ﾟДﾟ)つ ＜　折れのではうまくいってるが？
　 　し― ∪　 　　　＼＿＿＿＿＿＿＿＿＿＿＿

IDEが立ち上がらなくなったら
レジストリ元に戻せばいいことだろ。なぜ削除願いをせねばならん？

デマ野郎なら放置PLAY。

>>560
EJBって何？

>>566
Enterprise JavaBeans?

　　ﾔｯｶｲ ﾅﾘ
　　　　　∧ ∧　　／￣￣￣￣￣￣￣￣￣￣￣
　〜' ― (,,ﾟДﾟ) ＜　例のdesignintf問題が発生した！
　 　し― し-Ｊ　 　＼＿＿＿＿＿＿＿＿＿＿＿

D6のプロパテエデタ分離問題で

[致命的エラー] DesignEditors.pas(517): ファイル 'Proxies.dcu' が見つかりません

これが解決できないニャ。
MLもそれにまつわるの読んだのに…
ろくに答えられてる投稿がない…


TDefaultEditorを継承したプロパティエディタを作成すると
uses に DesignEditors;を追加する必要があるのに
これがコンパイルできないってドユコトYO!!

◆[Delphi:59073] Re: DsgnIntf 周りの変更について
> Borland のニューズグループでは designide.dcpを design time package
> の requires に追加しろ、というレスポンスが付いてました。
これをもう少し詳しく氏ってたら、具体的に教えてくださいな。

◆[Delphi:59359] Re: delphi6>Proxies.dcuが見つかりません
ここは詳しいけど、結局解決方法載ってないね。

　　　　∧ ∧　　／
　　　　（；ﾟДﾟ）＜　　いきなりEJBの話ふられても
　　　　 |つ つ　 ＼
　　　＠　　 | 　　ｴﾝﾀｰﾌﾟﾗｲｽﾞ ﾄ ｲｴﾊﾞ ﾄﾚｯｷｰ
　　　　∪ ∪


　∧ ∧ ──────
　(ﾟДﾟ　) ＜ 　ワープ速度５くらいで、ｶﾞﾝﾊﾞｯﾁｸﾚ>>560
　⊂⊂　＼──────
　　　 ＼　　〜　────
　　　　 し し　─────
　　　ﾋﾞｭｦｰﾝ

>>568
だからぁ。Proxies ユニットは単体で再配布されず、かならず designide パッケージ
内から提供されているものを使え。っていっているの。
この変更は Delphi4 からなんだから、いまさら文句言うなよ。
繰り返し、パッケージを使え。と書かれていたのに、今まで修正しなかったほうが
悪い。

>>568
一回しかやったこと無いんであやふや
Libフォルダにdesignide.dcpがあるから
パッケージのウインドウのRequireの欄に追加したらOKだったような

　　　　　 ∧∧　　　／￣￣￣￣￣￣￣￣￣￣￣
　＠' ― (,,ﾟДﾟ)つ ＜　>>570　全然わからん・・ワン
　 　し― ∪　 　　　＼＿＿＿＿＿＿＿＿＿＿＿
　あ。ﾈｺﾀﾞｯﾀ

＞かならず designide パッケージ
＞内から提供されているものを使え。っていっているの。

っていわれましても具体的なやり方がわかんないがな。

＞今まで修正しなかったほうが悪い。
修正方法わからんのにどうやって直せと…ご無体な


　　　∧∧　　　／￣
＠＿(,,ﾟДﾟ)　＜　>>571　Libフォルダにdesignide.dcp
⊂,,＿_つつ.　　＼＿ あるけど、バイナリﾌｧｲﾙみたいなんですが…
　　　　　　　　　　　これをどうやて、修正すればいいニャ？？

自分のコンポーネントを含んでいるパッケージに
パッケージマネージャ経由でパッケージを追加しろ。っていってんだよ

　　　 ∧ ∧　　　／￣
　　∩(,,ﾟДﾟ)　＜　匍匐前進並に…ちょっぴり進んだ。
⊂,,⌒　,,つつ.　　＼＿ >>573サンクス
　　￣￣

だけど今度は変なエラーが出てきました。

[エラー] : 'EditProperty' の宣言がすでに定義されているものと異なります



なんか、TDefaultEditorのEditPropertyの実装変わってない？

procedure EditProperty(const Prop: IProperty; var Continue: Boolean); virtual;

D6HELPの"EditProperty 例"と違うんだけど。

実装が変わったのか、ヘルプの誤植なのか。
相対的に見ればどちらも正しく、どちらも間違えている。
絶対的に見てどちらが間違えているかは、開発者に聞くしかない。

　　　　＿＿＿＿＿＿＿＿＿
　 　／／／／／／／／／／＼　　　　　　　　　　　ミ☆
　／／／／／／／／／／ ｷﾞｺ.＼　　　ミ☆
　￣┃￣￣￣￣￣￣￣￣￣┃￣
　 　┃☆ 　 　 　 ＿＿＿＿　┃
　 　┠─┐ 　　‖∧ ∧　‖ ┃　 ／￣￣￣￣￣￣
　 　┃ 　│ 　　‖(,,ﾟДﾟ)..‖ ┃＜　　プロパティエディタ。難しいよ
　 　┃°│ 　 　￣∪∪￣　 ┃　 ＼＿＿＿＿＿＿
　━┻━┷━━━━━━━┻━━━━━━━━━━━━

　教えてくれた人。サンクス。
　なんとか解決できました。

　互換性のなくなるコンポ少なきゃいいけどね。

　>>575
　やぱり伝統的にＨＥＬＰがｲﾏｲﾁ出来てないだけかも。
　

MP3のタグ読み書きコンポない？

>>484
灯台下暗し。さんきゅー

質問です。

MDIアプリケーションにおいてメニューをToolBarで代用しているとき、
子ウィンドウを最大化すると「最小化」「閉じる」などのボタンや
子ウィンドウのアイコンが表示されなくなってしまいます。
こいつをうまいこと表示するにはどうすればいいんでしょうか。

Delギコたん萌え

>>575
誤魔化してるだけだな（ｗ

>>572
newsgroups.borland.com
の
borland.public.delphi.opentoolsapi
で
proxiesあたりを検索すれば引っ掛かるよ
あちらでもすでに報告されてますね

　　　 ∧ ∧　　　／￣
　　∩(,,ﾟДﾟ)　＜　英語でこの説明読むのきついね
⊂,,⌒　,,つつ.　　＼＿
　　￣￣
http://newsgroups.borland.com/cgi-bin/dnewsweb?cmd=listall&group=borland.public.delphi.&utag=

webから見れる分の過去ログ数が少ないニャ。

質問があります。

TUIWebBrowserを使ったアプリケーションを作成しているのですが、
OfflineプロパティをTrueにセットしても、オフラインでNavigateして
くれません。ヘルプを見て、DownloadControlにCS_OFFLINEをセット
してみたのですが、それでもダメでした。
TUIWebBrowserを使って「オフライン作業」を実現するにはどうすれ
ばよいのでしょうか。

　 ∧ ∧　　・・・・。
　 (；ﾟДﾟ)
　 U 　U
〜|　　|
　 U U

ActionManegerの使い方が全然わからん。

>>584
とりあえずDelphiのバージョンとIEのバージョンを書こうよ。
とりあえず、質問とかするときは、いろいろとバージョンを
書いておいたほうが良いと思う。

俺は、TUIWebBrowserよりもEmbeddedWbを進めておく。
ttp://www.euromind.com/iedelphi/

　　　　　　∧ ∧ 　　／￣￣￣￣￣￣￣￣￣
　　　　　　( ﾟДﾟ)　＜　わかった！ｱｸﾄﾝ ﾏﾈｼﾞｬ!
　　　　　　/⊃⊃ 　　＼
　　　　〜（　　ﾉ 　　　　 ￣￣￣￣￣￣￣￣￣
　　　　　⊂`Ｊ 　　　ﾋﾟｮﾝ
　　　　　　｜｜
　　　　　　｜｜
　　　　　　ωωω

　　ﾏﾈｼﾞｬﾉ ｶﾃｺﾞﾘ ﾄﾞﾗｯｸﾞｱﾝﾄﾞﾄﾞﾛｯﾌﾟ ｺﾞｸ ﾋﾞﾐｮｳﾆ ﾊﾞｸﾞ ｱﾙﾐﾀｲ
　　ｻｲｼｮ ﾃﾞｷﾅｸﾃ ｳﾛﾀｴﾀ ﾖ

>>584
MLで聞いたら親切な作者さんが出てくる事が多いぞ。

>586
そうですね、迂闊でした。
とりあえずEmbeddedWbをインストールしたので今から
使ってみるです。

以下の仕様を満たしたコンポーネントの作り方を教えてください。

TImage を配置。マウスボタンが押されたらへこんだ状態の
絵(DownedImage)を表示、マウスボタンが離されたら元に戻った状態の
絵(RaisedImage)を表示、マウスカーソルがボタン上にある場合は
アクティブ(ActivateImage)状態を示す画像を表示

これをコンポーネント化したもの。ただし、

コンポーネント上でマウスボタンを押す。
押したままの状態でコンポーネントから離れたい値まで
カーソルを持っていき、そこでマウスボタンを離す。

通常、この場合は MouseUp イベントは発生しない。
これをうまく処理して、普通のボタンのように振舞う
画像コンポーネントをつくりたい。

SpeedButton

　 ∧ ∧　 　 ／￣￣￣￣￣￣￣￣￣￣￣￣
　 (,,ﾟДﾟ)　 ＜　>>589ｼﾞﾌﾞﾝで考えろや。
　 U　 ,つ゛　 ＼＿＿＿＿＿＿＿＿＿＿＿＿
〜|　　|
　 ∪∪　ｼﾞﾌﾞﾝﾃﾞ ﾂｸｯﾀ ｿｰｽ ﾃﾞﾓ ｱｯﾌﾟ ｼﾛ
　　　　ﾋﾄﾉ ｿｰｽ ﾂｸｯﾃ ﾔﾙﾎﾄﾞ ﾋﾏｼﾞｬﾈェ

　　　∧∧ ﾌﾟﾊｰ 　／￣￣￣￣￣￣￣￣￣￣￣
　　　(,,ﾟДﾟ) =3 　＜　ｱｸﾄﾝﾏﾈｼﾞｬ保持のActionが1つもない状態で
　　　| つ日~~ 　　 ＼ActionListのActionｶﾃｺﾞﾘをActionMainMenuBarにD&Dしようとしても
　 〜|　　） 　　　　　　出来ないにゃ。
　　　U U
　　ｺﾚ ﾊﾞｸﾞ ﾁｬｳ?

　　ActionManeger系のGUIかなり使いにくいぞ。

>>589
TSpeedButtonパクれ。

ActionManegerをひととおり使ってみたが･･･
見事なくらいバグだらけというか。使えない、、、はぁ。。。溜息

D6Pro版持ってる人はActMane使えなくても
Demos\ActionBandsをさわってみるとわかります。

　 ∧ ∧　ﾀｲﾍﾝ ｶﾅｼｲ.....
　 (,,ﾟДﾟ)
　 U 　U
〜|　　|
　 U U

FormのDockingもそうだけど。(ﾊﾟｿﾅでも使えるからDemos\Dockingで遊んでみー)
新方式のUIに関しては、なぜいつもこんなにいいかげんな
実装をするんだろう。>>某蘭土

ちゃんとデバッグしてるのか？

開発チームがFormのDockingもActionManegerも同じなのかなあ。
だとしたら、ずいぶんとデバッグをいいかげんにするチームらしい。

一度バグ入りで実装しちゃった部分は
将来的にも治らない事多いし。なんかヤだなあ。

>>593
使い方間違っているんじゃないの？

　　--下手人-∧ ∧ 　／￣￣￣￣￣￣￣￣￣￣
〜□□ □□ ( ﾟДﾟ)＜　 >>594 ﾃﾞﾓsrcの遊び方に間違いも何もないと思うが
　 (Ｏ)----(O)U-U)　＼＿＿＿＿＿＿＿＿＿＿

　 ∧ ∧　 　 ／
　 (,,ﾟДﾟ)　 ＜　ActManegerこんなかんじでどーよ
　 |⊃ ,⊃　　 ＼
〜|　　|
　 ∪∪

Demos\ActionBands\WordPad.exeで
Windowを目イッパイせまくして
Customizeダイヤログ呼び出してそのまま閉じる
　　>>ツールバー太いまま。

また、CustomizeMenuそのものを消してみる。
　　>>settings.datを削除しない限り2度とCustomize不可能。

ダイアログを開いてツールバータブを開いて
EnabledFalseになっているMainMenuActionBar1を選択
[戻す]ボタンヲクリック
　　>>MainMenu消えます。

こんな代物をユーザーさんに使ってもらうわけには....

　　　∧∧　　　／￣￣￣￣￣￣￣￣
〜''~（,,ﾟДﾟ）　＜　それにしても･･･
　 UU'UU　　　 ＼＿＿＿＿＿＿＿＿

あと、Actionのショートカットキーって
ActionManegerではカスタマイズできないみたい。


Borlandって妙な所抜けてない？

IDEのキーバインド変更もいまだに簡単には出来ないし。
GExper氏ラ無い頃はCtrl+Aもなくて苦労したよ。
D6からはCtrl+Aも定義されてるけど。

borlandのプログラマー社員って何人勤めてるのかな？
もう営業しかいないのかな？

↑
社長しかいません。

TSpeedButtonはだめ。
だって、ボタンより小さい画像しか使えないし、
ボタンを現す矩形が表示されてしまうし。

function IntToZeroStr(dt,keta:integer):string;
var i:integer;
begin
// Result:=''; を入れなくてもエラーにならないし
//　単独で試験したら動くからいいのかと思ったけど
// 連続して使うとなんか動作変なんだよね
// つい忘れちゃうから注意しないとダメだな

　for i:=1 to keta do begin
　Result:=char(ord('0')+(dt mod 10)) + Result;
　dt:=dt div 10;
　end;
end;

>>601 そんな面倒なことしなくても、
format の精度指定子と間接指定子で簡単に実現できるよ

function IntToZeroStr(dt,keta:integer):string;
begin
　result := Format('%.*d',[keta,dt]);
end;

>>589
Flatをtrueにしてみ。

うん、だから、Trueにするとね、
マウスカーソルをFlatButton上に持ってきたときに
やはりボタン周囲に影が表示されてしまうでしょ。
それに、どちらにせよボタンより小さい範囲にしか画像が
表示されないし。たとえば、スキンを利用した
ソフトを作りたい場合に、それじゃあ困るわけね。

いや、いいんだけどさ。面倒だから書き込んだだけだし。

＞スキンを利用した ソフトを作りたい場合に

　∧ ∧ 　 　　 ／￣￣￣￣￣￣￣￣￣
　(,,ﾟДﾟ)　　＜　　そんなら結局ﾘｰｼﾞｮﾝも必要だろ？
　 | つ[|lllll］).　＼＿＿＿＿＿＿＿＿＿
〜| 　 |
　 ∪∪ 　ﾁﾞﾐﾁ ﾆ ｶﾞﾝﾊﾞｯﾀﾗ？

一朝一夕で適当に出来るもんじゃないし。
作り方、さらっと教えれるもんでもないが･･･

Compo探した方がよくない？

>>602
それだと入力が 指定した桁数以上あるとズレてしまうから

function IntToZeroStr(dt,keta:integer):string;
begin
　dt:= dt mod power(10,keta);　// こっちを入れるか
　result := Format('%.*d',[keta,dt]);
　result := copy(Result , length(Result)-keta,keta); //こっちを入れる必要があるかと
end;

はじめまして！

疑心暗鬼といいます。
ちょっと質問なんですけど、
下記のVBのプログラムの結果が同じにならないのは
どうしてなのかご教授願えますか？

質問内容

Fix関数でDoubleとVariantで同じ値が
入っているのに、Fixすると結果が違ってしまう。

環境
VB6 + SP6
Win2000

よろしくお願いします。


'********* ここからプログラム
Dim a As Variant
Dim b As Variant
Dim c As Variant
Dim t As Variant

Dim d As Double
Dim e As Double
Dim f As Double
Dim tt As Double

Dim g As Variant
Dim h As Variant
Dim i As Variant
Dim ttt As Variant

a = 24600
d = 24600
g = 24600

b = 24000
e = 24000
h = 24000

'VariantでDoubleの時と同じ結果を出すための苦肉の策
c = a * 1000 / b * 1000 / 10
t = Fix((c + 5) / 10) / 10

'Doubleでの正しい結果が出る
f = d / e * 100
tt = Fix(f + 0.5)

'Variantでは正しい結果が出ない
i = g / h * 100
ttt = Fix(i + 0.5)

MsgBox "ただしい計算結果 " & Str(t) & vbCrLf & _
"ただしい計算結果 " & Str(tt) & vbCrLf & _
"誤ってる計算結果 " & Str(ttt)

'********* ここまで

っていうか
VB専用のｽﾚありましたね。

すいません。逝ってきます。ｍ（＿　＿）ｍ

　 ∧∧∩゛　 ／￣￣￣￣￣￣￣￣￣￣￣￣￣
　 (,,ﾟДﾟ)ﾉ　＜　逝ってらっしゃい。
　 U　　/　　　＼＿＿＿＿＿＿＿＿＿＿＿＿
＠|　　|
　 ∪∪　　ｲﾔ ｲｲｲﾐﾃﾞ ﾃﾞｽ･･･
　　　　　　ｶﾞﾝﾊﾞﾃﾈ

>> 609
ｶﾞﾑﾊﾞﾘﾏｽ
ｱﾘｶﾞﾄｳｺﾞﾃﾞｽ

おれ、まえから言いたくてしょうがなかったんだけど、
COPY関数で、特定の場所から右側の文字列を取得したいときに
以下のようにする人がいっぱい居るよね（このさい
Del6のRightStr関数のことは考えずに）

S := Copy( S, Index, Length(s)-Index+1 );

でも、これって

S := Copy( S, Index, MaxInt );

というふうに、長さ指定に式を使わなくても簡単に
実現できるんだよね。S の範囲を超えた部分は
自動的に無視されるから。
つーか、VCLのソースでもこういう使いかたしてる。

>>606

Del6を使っているならば、

result := RightStr( Format('%.*d',[keta,dt]), keta );

でOKかと思われますが。

　　　　　 ∧∧　　／￣￣￣￣￣￣￣￣￣￣￣
　＠' ― (,,ﾟДﾟ) ＜　また重箱墨つつき。
　 　し― し-Ｊ　 　＼＿＿＿＿＿＿＿＿＿＿＿

D6のTControlbarのバンドがTCoolbarと同じになってる。
・・・話題に出てたっけ？

TCuteControlbarがあるからどうでもいいけど。(D6で動くかな)


>>611
微妙に知ってるが、時々書いてしまう。癖かもね。

しぶとく、D6お試しレビュー
　　　　　　　　　　 ＿＿＿＿＿＿＿＿＿
　　　　∧ ∧　 ／
　　　　（ ﾟ∀ﾟ）＜　をっ！TToolBar.Customizableケッコ。ｲｲかも。
　　　　 |つ つ　 ＼＿＿＿＿＿＿＿＿＿
　　　〜　　 |
　　　　∪ ∪

　　WinAPIのToolbarカスタマイズダイアログがラップされてる
　　TActMngよりも、こっちの方がよさそうだよ。
　　ん？保存先はRegistryだけなのかな？
　　あれ？ﾔﾊﾟﾘ微妙なﾊﾞｸﾞだらけ･･･
　　どんどん、Toolbuttonが消えるぞ。　
　　OnCustomize系イベントが沢山あって何とかなりそうだけど。

　　そういえばTMenubarを使わなくても
　　TToolbar.Menuプロパが存在するね。
　　これまたAltに対応しないという、ﾊﾞｸﾞありまくり｡｡

　　なんだかなあ。

>>614
TToolBar.Customizable系は，コード見ると分かるけどWindowsコモンコントロールを
直接呼んでいるからOSのバグじゃないかな？

　まだ、ｿｰｽは見てないんだけど。そなんだ。>>615ｸｽｺ

　普通のアプリ(WWWCとかBecky2)みたいに
　ｶｽﾀﾏｲｽﾞﾀﾞｲｱﾛｸﾞの左項目に
　元々のデフォルトButtonを表示させることは出来るのかな？

￣￣￣∨￣￣￣￣￣
　　　∧ ∧ 　　　ﾏﾀｰﾘ
　　　(,,ﾟДﾟ)∫
　　　/　 つ旦O
　〜(.＿［￣￣￣.］
　　　　　 ￣￣￣