トップページ⇒tech
937コメント455KB

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

レス数が900を超えています。1000を超えると表示できなくなるよ。
0001DelギコNGNG
　　　　　 ∧∧　　／￣￣￣￣￣￣￣￣￣￣￣
　＠' ― (,,ﾟДﾟ) ＜　Delphiのことなら聞いてヨシ
　 　し― し-Ｊ　 　＼＿＿＿＿＿＿＿＿＿＿＿
0002DelギコNGNG
／￣￣￣￣￣￣￣￣￣￣￣￣￣
|　新米ギコ亡き後のギコ猫は折れだ
＼＿＿＿ 　＿＿＿＿＿＿＿＿＿
　　　　　　∨
♪　　 ∧ ∧　♪
　　　　(,,ﾟДﾟ).　　♪
　　 　 |つ[|lllll］).
　　 ～|　　|
　　　　Ｕ Ｕ
0003DelギコNGNG
　∧ ∧ 　 　　 ／￣￣￣￣￣￣￣￣￣
　(,,ﾟДﾟ)　　＜　　逝ってヨシとか言うナ
　 | つ[|lllll］).　＼＿＿＿＿＿＿＿＿＿
～| 　 |
　 ∪∪

逝ってよし
http://freezone.kakiko.com/omaemoner/ite.swf
000423区NGNG
残念だが、君の役目はおわった。
そこはもう、おちている。
0005デフォルトの名無しさんNGNG
　∩ ∩
　| ∪ |
./| 　　|
　| ∧ ∧　　　／￣￣￣￣￣￣￣￣
　| i ,,ﾟДﾟ) ＜　　落ちてヨシこさん
　Ｕ　Ｕ　　　　＼＿＿＿＿＿＿＿＿
0006DelギコNGNG
／￣￣￣￣￣￣￣￣￣￣￣￣￣
| 　あ・もしもし、、ヒロユキ？
| 　もうちょっと、盛り上がるように
| 　ネタ提供者を募ってくれんかな。
＼＿＿＿＿＿　＿＿＿＿＿＿＿
　　　　　　　　 ∨
　　　　　　　　 C∧ ∧
　　 ___　　　　○(ﾟДﾟ#)
　／◎＼……C｜　 ＼
==============================================
0007芸能人脱がせましたNGNG
__
　　　　　　　　　〃　_｀__
　　 　 ,,-＝-､､l｛,_'´..._　｀ヽ、、
　　　〃. ',.´二W´- ‐-｀＼　＼ヽ、＿__
　　 _{l,'.'´　　　　　　、　ヽ ヽ　ヽ彡ｋ､ヽ＼
　 .//`／ 　 i l.　　　 ＼ ､ヽ ｀､　i彡}ヽ`' ´ ▲女優,アイドル、脱がしました▲
. ／| / i {　 |ｌ {＼ {ヽ、_!..ヽ」_/｝ .}./ |__〉、
　＼l.{. l.ヾ _.ゝ_土. ゝ　-'ｆT;;ヽ,|　ｌﾃ｝| ||__〉
　　 /iヽゝヽ/{~);;:l　　 　 {:..''ﾉ'ﾉノ|{ﾉ |_!!女優,女子高生のエッチ画像ばかりを厳選収集！スクール水着,女優,画像ばかり。
　　.|_|l」ヽ. ヽ ゞ‐' 　 、　 ￣`ノﾚヽｿ|　　
　　　　　（.ｿ.ゝ 　 　 --　　 　/'　{=}ﾉ　◆アイドル画像秘宝館◆
　　　　　（=| l へ､　　　 　 ／ﾉﾉ（(.)）.　http://www.futomomo.com/netidol/idolhappy/maki/　
　　　　　（(!）ヾヽヽ｀ ;.- ' ´ |'' ''"'´◆アイドラー◆
　　 　 　 　 ｀~^``／'l　　　 ゜>＼_ http://www.futomomo.com/netidol/idoler/megu/
　　　　 , -‐〃"´　|＿＿_／　　　＞- ､ ◆セーラー服◆
　　　／ ./〃　　　 |＝／　　　 〃／　　＼ http://www.futomomo.com/netidol/sailor/miku/
　　/　　 | ||, ‐-､_,...!､/_ ,..、　.〃/　　　 　 ヽ ◆人妻◆
　 〈　　　／　-ー.{ { {.＝ 　ヽ､|| l　　　　　　| http://www.futomomo.com/netidol/waif/mai/
　　|　　　ヽ　　／|　|＼　　　/ i 〉　 　 　 　 | ◆スイート倶楽部◆
　 〈　　∧ l_／./ | 　|　＼ _/　 /　　　　 　 / http://www.futomomo.com/netidol/sweetclub/miyuki/

thtyytyu
0008デフォルトの名無しさんNGNG
ギコ猫さん、自転車乗れる？
0009DelギコNGNG
　　∧∧ 　　　／￣￣￣￣￣￣￣￣￣￣￣
　　(,ﾟДﾟ)　　＜ 茶でも飲め
　ヽ/つ且~~　 ＼＿＿＿＿＿＿＿＿＿＿＿
　 （__　_）
0010DelギコNGNG
　　∧∧ ﾌﾟﾊｰ 　／￣￣￣￣￣￣￣￣￣￣￣
　¶( ﾟДﾟ) =3 　＜　暑い時こそ暑い茶ｳﾏし
　ゝ| つ日~~ 　　 ＼＿＿＿＿＿＿＿＿＿＿＿
　（,|/　 ）
　　U U
0011DelギコNGNG
　∧ ∧ ──────
　(ﾟДﾟ ) ＜ 自転車乗らずに高速移動
　⊂⊂＼──────
　　　＼　～　────
　　　　 し し　─────
0012DelギコNGNG
　 ＿＿
　J＿†_|　　 ／￣￣￣￣￣￣￣￣￣￣￣￣￣￣
　 (,,ﾟДﾟ)　＜　Delphiマンセー
Π￣￣￣|　＼
|つ 布教 ()　 　￣￣￣￣￣￣￣￣￣￣￣￣￣￣
| |＿＿＿.|
　　∪∪
0013DelギコNGNG
　　|￣￣￣￣￣￣￣|
　　|　さびしんぼー！|
　　|＿＿＿＿＿＿＿|
　 　 ∧_∧ ||
　　　(;ﾟДﾟ)||
　　　 /つ つ 　　　　　　　
0014デフォルトの名無しさんNGNG
で、何のスレなんだっけ？
0015DelギコNGNG
　　　　　　∧ ∧ 　　／￣￣￣￣￣￣￣￣￣
　　　　　　( ﾟДﾟ)　＜ 　ネタスレじゃねーぞ
　　　　　　/⊃⊃ 　　＼
　　　　～（　　ﾉ 　　　　 ￣￣￣￣￣￣￣￣￣
　　　　　⊂`Ｊ 　　　ﾋﾟｮﾝ
　　　　　　｜｜
　　　　　　｜｜
　　　　　　ωωω
0016デフォルトの名無しさんNGNG
跳べるんですね。
泳ぎも得意ですか？
0017デフォルトの名無しさんNGNG
んー。どういうレスつけりゃいいかわからん。類似スレないのか？
0018デフォルトの名無しさんNGNG
Del厨はここに隔離決定
0019デフォルトの名無しさんNGNG
／￣￣￣￣￣￣￣￣￣￣￣￣￣
|　この際だから
|　Delphi以外の質問も受け付けるぞ
＼＿＿＿ 　＿＿＿＿＿＿＿＿＿
　　　　　　∨
♪　　 ∧ ∧　♪
　　　　(,,ﾟДﾟ).　　♪
　　 　 |つ[|lllll］).
　　 ～|　　|
　　　　Ｕ Ｕ
　　　　　　∧
／￣￣￣　￣￣￣￣￣￣￣￣￣
|　答えられないけどな
＼＿＿＿＿＿＿＿＿＿＿＿＿＿
0020デフォルトの名無しさんNGNG
　 ∧∧　　　／￣￣￣￣￣￣￣￣￣￣￣￣￣
　(,,ﾟДﾟ)　＜　>>17 由緒正しきスレなんだぞ
Π￣￣￣|　＼
|つ　ｳｿ　()　 　￣￣￣￣￣￣￣￣￣￣￣￣￣￣
| |＿＿＿.|
　　∪∪

（ ﾟДﾟ)ノ　ギコ猫のプログラム相談室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
0021デフォルトの名無しさんNGNG
　　 ∧＿∧　　／￣￣￣￣￣
　　（　・∀･）＜　>>19-20 名前忘れてるよ
　　（　　　　） 　＼＿＿＿＿＿
　　｜ ｜　|
　　（_＿）＿）
0022DelギコNGNG
　　　　　　　　　／￣￣￣￣￣￣￣￣￣￣￣￣
　ΛΛ　　　　＜ ふぅー、ｼﾞｻｸｼﾞｴﾝもつかれるぜ
（ﾟДﾟΛ)_Λ　　 ＼＿＿＿＿＿＿＿＿＿＿＿＿
（￣⊃・∀･))
｜ ｜￣|￣
（_＿）＿）

　　　　　　　　　／￣￣￣￣￣￣￣￣￣￣￣￣
　ΛΛﾊｯ!　　＜　なに見てんだｺﾞﾙｧ!!
（ ﾟДﾟΛ_Λ　　 ＼＿＿＿＿＿＿＿＿＿＿＿＿
（￣⊃・∀･))
｜ ｜￣|￣
（_＿）＿）
0023DelギコNGNG

　　　　∧ ∧　　 ／
　　　　（ ﾟДﾟ）＜　>>18 Del厨ゆうなッ
　　　　 |つ つ　 ＼
　　　～|　 |
　　　　∪ ∪
0024デフォルトの名無しさんNGNG
Del DQN
0025デフォルトの名無しさんNGNG
＞Delギコくん
暴れすぎ。往年の新米ギコよりもひどいぞ。
0026デフォルトの名無しさんNGNG
AA黙認駄スレ
0027デフォルトの名無しさんNGNG
もう終わりでしょうか？
0028DelギコNGNG
　　∧∧ 　* 　／￣￣￣￣￣￣￣￣￣￣￣
　¶( ﾟДﾟ) / ＜　質問まってるぞ
　ゝ| つ●)　　 ＼＿＿＿＿＿＿＿＿＿＿＿
　（.| 　 |　　
　　U U
0029DelギコNGNG
　　　∧ ∧ 　　　　／￣￣￣￣￣￣￣￣￣￣￣
　　　( ﾟДﾟ)　　　＜　Delphi相談室よりagaりますように
.=| |==U=U==| |= ＼＿＿＿＿＿＿＿＿＿＿＿
　| | ｜　 |　 .| |
　| | ﾉU U 　 | |
　| |　　　　　 | |
0030デフォルトの名無しさんNGNG
どんな質問がいい？
0031DelギコNGNG
　|
　|
　| ∧　はじめは、やさしくしてっ
　|Дﾟ)
　⊂|
　|　｀～
　|∪
￣￣￣￣￣￣￣
0032デフォルトの名無しさんNGNG
　|
　|
　| ∧　itaku naiyo 3byo de owaru kara
　|Дﾟ)
　⊂|
　|　｀～
　|∪
￣￣￣￣￣￣￣
0033デフォルトの名無しさんNGNG
死んでくれ
0034デフォルトの名無しさんNGNG
Del某とVB使いがウザイです。なんとかしてください。＞ギコ
0035デフォルトの名無しさんNGNG
CoolBarの状態をINIファイルに待避・復帰するコードおせーて
0036DelギコNGNG
　 ∧∧　　　／￣￣￣￣￣￣￣￣￣￣￣￣￣
　(,,ﾟДﾟ)　＜　>>33 80年後くらいにはな
Π￣￣￣|　＼
|つ 騙れ ()　 　￣￣￣￣￣￣￣￣￣￣￣￣￣￣
| |＿＿＿.|
　　∪∪
0037DelギコNGNG
　　　　　（ ）
（　）
　（ ）　　　（　）
　 　 ∧ ∧　ﾎﾟゎ～￣￣￣￣￣￣￣￣￣￣￣￣￣
　 　 (*ﾟДﾟ)　 　＜　>>34 風呂入って体を暖かくしてから寝ろ
|￣￣∪∪￣| 　　＼＿＿＿＿＿＿＿＿＿＿＿＿＿
|　　┼─┼ .|　
|　　　／＼　.|
|　 ／　ホ ＼|
＼＿＿＿_／
　　└─┘
0038DelギコNGNG
　 ∧∧　　　／￣￣￣￣￣￣￣￣￣￣￣￣￣
　(,,ﾟДﾟ)　＜　>>35 質問ありがとう
Π￣￣￣|　＼＿＿＿＿＿＿＿＿＿＿＿＿＿
|つ 感謝 ()
| |＿＿＿.|
　 ∪∪

TCoolBarを用いたツールバーの位置保存
http://www2.big.or.jp/~osamu/Delphi/Tips/key.cgi?key=15#0178.txt
CoolBarの位置を保存 (BCBだ)
http://noraneco.pos.to/program/tips/106.html
0039デフォルトの名無しさんNGNG
Delのフリー版っていつからダ嘘可能なのさ？
0040DelギコNGNG
　∩ ∩
　| ∪ |
./| 　　|
　| ∧ ∧　　／￣￣￣￣￣￣￣￣
　| i ,,ﾟДﾟ) ＜　　>>39 ﾎﾟｰﾗﾝﾄﾞ社員じゃないからようわからんッ
　Ｕ　Ｕ　　　＼＿＿＿＿＿＿＿＿

2001年9月までに同社のWebサイトでPersonal版の無償ダウンロード・サービスを開始するということ。
http://nsw.nikkeibp.co.jp/nsw/newsshow.asp?ID=981
0041DelギコNGNG
　　　 ∧ ∧　 　　　　　 　／￣￣￣￣￣￣￣￣￣
|￣￣（ ﾟДﾟ)￣￣|　　　＜　　おやすみ
|＼⌒⌒⌒⌒⌒⌒＼ 　　＼
|　 ＼ 　　　　　 　 　 ＼ 　　￣￣￣￣￣￣￣￣￣
＼　 ｜⌒⌒⌒⌒⌒⌒｜
　 ＼ |＿＿＿＿＿＿＿|

http://nsw.nikkeibp.co.jp/nsw/newsseek.asp
'Delphi'で検索して一晩中楽しめ
0042デフォルトの名無しさんNGNG
Delギコって単にリンクポイントしてるだけじゃん
0043デフォルトの名無しさんNGNG
モナー板にｶｴﾚ(´ー｀)
0044DelギコNGNG
　　　　　＿＿　　ｵﾊﾖ
　　　　 J＿†_|＿＿
　　　 ／(*ﾟДﾟ)/)／＼
　　／|￣∪∪￣|＼／
　　　 |　　 ╋ 　 |／
　　　　￣￣￣￣
腹減った
0045DelギコNGNG
　∧ ∧ 　　　／￣￣￣￣￣￣￣￣￣￣￣
　( ﾟДﾟ)　　＜ 　ワインと言えばお笑い漫画道場
　 |∪ |つ∀ ＼＿＿＿＿＿＿＿＿＿＿＿
　 |　 ｜
　 U U
0046デフォルトの名無しさんNGNG
わたしは、すきだ。このﾉﾘ
0047DelギコNGNG
ﾏﾀｰﾘ？　　　　　　　　　　ｳﾝ
　　 ∧ ∧　　　　　　∧_∧
　　 (,,ﾟДﾟ) 　　　　　(ﾟーﾟ*)
　　　/つ目　　　　~旦⊂|
　～（＿_ﾉ　　　　　 （（__つ
0048Delギコ＠練習中NGNG
>>8
>ギコ猫さん、自転車乗れる？

　　　　　 ∧∧　
　　　　 ｃ(ﾟДﾟｃ ､
　　　　　７⌒,ｕ　）～　ｷﾞｺｷﾞｺ
　　　　（＊）＝（＊）

かろうじて
0049DelギコNGNG
　　　　 ∧ ∧ ﾋﾙｺﾞﾊﾝ
　 ～(⌒( ﾟДﾟ)
　　 ヽ￣￣￣/
　　　|＿＿＿|
0050DelギコNGNG
　　ΛΛc､　ｷｮｳﾓ ｱﾂｲﾅ・・・
　 (,, ﾟДﾟ).|
　 （|　　 ノ
　～　　|
　　∪∪
0051デフォルトの名無しさんNGNG
>>48
ボートなんかも漕げそうだね。
0052DelギコNGNG
>>16
>泳ぎも得意ですか？

>>51
>ボートなんかも漕げそうだね。

　　　　　　　∧ ∧　　・・・・。
　　　　　　　( ﾟДﾟ)
　　　　　　　|∪ |
　　　　　 ～|　　|
　　　　　　　U U
0053DelギコNGNG
　　　　　　○。　　　　　。

　　　　　　　　　　　　　　　　　　　　　。
　　　　　　　　　ｏ

　　　　　　　　○
　　　　　　　　　　　　　　○
　　　　　　　　　Ｏ　　　　。　　。
　　　　　　　　　　　　。o
　　　　　　　　　　ｏ
　　　　　　　　　　　　。　　　　　
　　　　　　　　　　　o　　　　　　　　　　
　　　　　　　　　　　　　　　　　　　　　　　　
　　　　　　 ∧∧　。　　　ゴボゴボ... 　　　　　
　　　　　　（ ゜Дﾟ）　　　 　　　ｺﾞﾎﾞﾎﾞﾎﾞ,,,　　Ｏ
　　　　　　 ＼　つつ　　　　　　　　　　　　ｏ　　o
　　　　　　　　＼　つつ　　　　　　　　　　　。o
　　　　　　　　　∫￣　　　　　　　　　　　　　。∧♪∧
　　　　　　　　　　　　　　　　　　　　　　　　　 （・∀・；,）
　　　　　　　　　　　　　　　　　　　　　　 　　 .⊂ ⊂　）
　　　　　　　　　　　　　　　　　　　 　　　　 ⊂ ⊂　,ノ　　　　ゴボボ...。

泳げません
0054DelギコNGNG
ｿﾗﾊ ﾄﾍﾞﾙｹﾄﾞ
　　　　　Λ_Λ　　 ノ 　　　　　　　
　　　 ⊂(ﾟДﾟ*) ⌒ヽつ 　　　　　　　　　　　　
　　　　,‐' ⌒∪⌒⌒ヽ＿＿＿＿＿　　　　　　　
　　　（ （　　　　⌒‐　―――― 　　　　　））　
　　　　ヽ、＿ニ_＿__ノノ 　　　　　　　　　）
0055DelギコNGNG
レースゲームの自動操縦
http://piza2.2ch.net/test/read.cgi?bbs=tech&key=996151042

折れのﾄﾞﾗｲﾋﾞﾝｸﾞﾃｸを見せるときがきたか
　　　　　　 _＿＿_　 ∧ ∧
　　　　　／＿＿_/ｐ(ﾟДﾟ__)┓ 　
　 _０ 。￣０ヽ　。|￣￣∪|￣￣(l
　ヽ⊆=⊇__l⌒ｌ_ |＿＿__/__ｌ⌒ｌﾉ　～
　　`--'￣｀--'￣￣￣￣ ｀--'
0056DelギコNGNG
　　　　　 ∧ ∧　　／￣￣￣￣￣￣￣￣￣￣￣
　～' ― (,,ﾟДﾟ) ＜　質問ないかぁ、ｺﾞﾙｧ
　 　し― し-Ｊ　 　＼＿＿＿＿＿＿＿＿＿＿＿
0057DelギコNGNG
　　　　　　　∧ ∧　　・・・・。
　　　　　　　( ﾟДﾟ)
　　　　　　　|∪ |
　　　　　 ～|　　|
　　　　　　　U U

　　　　　　∧∧ ﾁｪｯ
　　　　　　( ﾟДﾟ)
　　　　　　∪　|
　　　　　～　　 つ
　　　　　　 ∪"'
0058デフォルトの名無しさんNGNG
Delphiって何？
0059デフォルトの名無しさんNGNG
じゃあ質問第一号って事で。
HTMLから部分的にテキストを抜き取る方法ってどうやれば良いでしょうね？

たとえばgoogleの検索結果一覧だけを抜き取るとかニュースサイトのトピックスだけを抜き取るとか。

教えてくださいませ。
0060デフォルトの名無しさんNGNG
正規表現で取得すべし
0061デフォルトの名無しさんNGNG
>>60
そんな単純にはできねーって。
たとえば<pre>から</pre>の間に
<h1>なんかがが記述されているとき、
それをタグと誤認せず、きちんとテキストとして
抽出できるように正規表現で処理できるかい？

きちんとパーサを書かないと無理よ。
0062デフォルトの名無しさんNGNG
>>59
初心者にはちょうどいいくらいのテーマだと思うから
自分で工夫してみることが一番のお薦め。
0063デフォルトの名無しさんNGNG
>>61
？
pre タグの間に、h1タグが入ってたら、タグとして認識しなきゃ
ならないだろ。
0064デフォルトの名無しさんNGNG
>>61 は、HTMLも書いたこと無いのに分かったような口をきく厨房。
006560NGNG
>>61
ﾊｧ?
006660NGNG
あついねぇ
0067デフォルトの名無しさんNGNG
猫がいなくなったぞ。
0068デフォルトの名無しさんNGNG
Delphiを仕事に使用している人(Project)、どれぐらいあるんでしょうか？
または、delで書かれた市販softどんなものがありますか？
006959NGNG
自分も最初タグからタグを読む方法を考えたんですけどそれだと
間のタグはどうなるのか？って思ってしまって

たとえば<h1>テストです<b>太字</b>あふん</h1>って言う奴を抜き取る場合
</h1>が来るまで他のタグは無効にすればいいのかな？
0070デフォルトの名無しさんNGNG
>>69
よく分からんのだけど、
メタタグみたいな特定タグを無視するようにして、
残りのタグを全部とってしまうと何か問題があるのかな？
0071DelギコNGNG
　　∧∧ 　　／￣￣￣￣￣￣￣￣￣￣￣
　¶( ﾟДﾟ) ＜、、、オレもサラリーマン、やるせない
　ゝ|し　|┐　＼＿＿＿＿＿＿＿＿＿＿＿
　（_|./　|┘
　　 U U
0072DelギコNGNG

　　　　　 ∧∧　　／￣￣￣￣￣￣￣￣￣￣￣
　＠' ― (,,ﾟДﾟ) ＜　ﾏｲﾄﾞｯｯ!!
　 　し― し-Ｊ　 　＼＿＿＿＿＿＿＿＿＿＿＿


・文字の中から『<』と『>』の数を数える
同じならラッキー/同じじゃないならアンラッキー

※ラベルA
・LeftTag := AnsiPos('<',S)
・RightTag:= AnsiPos('>',S)
LeftTagよりRightTagが大きいならラッキー

SからLeftTabからRightTagを削除してSに代入

LeftTagが見付からなくなるまでラベルAに逝って繰り返し
残ったSを取り出せ

HTMLの詳しい仕様なんて知るかｺﾞﾙｧ

つーか。何がしたい？

HTMLパーサーが作りたいのか？
Tパーサーの利用仕方は知らん
作るならTListで木構造作れ。
0073DelギコNGNG
　 ∧∧　　　／￣￣￣￣￣￣￣￣￣￣￣￣￣
　(,,ﾟДﾟ)　＜　age忘れ
Π￣￣￣|　＼
|つ ほげ ()　 　￣￣￣￣￣￣￣￣￣￣￣￣￣￣
| |＿＿＿.|
　　∪∪
0074デフォルトの名無しさんNGNG
>72
>作るならTListで木構造作れ。
実際に木構造作る必要はなくってHTMLなドキュメントを
木構造に「見立てて｣解釈すればよいだけ

TMonaHtmlParserなんてのがあるよ
http://www.geocities.co.jp/SiliconValley-Oakland/9028/src/MonaUtils20010709.lzh
007574NGNG
前半はまるっきり意味不明だな。もう寝よ。
0076DelギコNGNG
　 ∧∧　　　／￣￣￣￣￣￣￣￣￣￣￣￣￣
　(,,ﾟДﾟ)　＜　>>74 おやすみなさい
Π￣￣￣|　＼＿＿＿＿＿＿＿＿＿＿＿＿＿
|つｽﾊﾞﾗｼ ()
| |＿＿＿.|
　 ∪∪
0077DelギコNGNG
　　　　　　　　　ﾌﾞｲ～ﾝ
　　　　　　　　　　　　　　 ＿
　　　　∧ ∧　　　　～　 ,||/ヽ_
　　　　( ﾟДﾟ)　　～　　 |=0＝|_]
　　　　⊂　　つ　　～　　'||`ノ|
　　　　　ゝ　　⊃　　　　　　　||
　　　　～ ` ⊃　　　　　　　[二]
　　　ﾈﾋﾞｴ ｽﾙﾅﾖ
0078デフォルトの名無しさんNGNG
煽り口調ながらも解説してくれるのがいい
0079デフォルトの名無しさんNGNG
>>49
ギ、ギコ猫丼!?
0080デフォルトの名無しさんNGNG
>>68
delphiで作られた有名ソフトって何がある？
http://piza.2ch.net/test/read.cgi?bbs=tech&key=990056026
0081デフォルトの名無しさんNGNG
もとい
http://piza2.2ch.net/test/read.cgi?bbs=tech&key=990056026
0082デフォルトの名無しさんNGNG
　 ∧∧　　　／￣￣￣￣￣￣￣￣￣￣￣￣￣
　(,,ﾟДﾟ)　＜　たまには食われて三田佳子
Π￣￣￣|　＼＿＿＿＿＿＿＿＿＿＿＿＿＿
|つｼｽﾞｶﾅﾙ()
| |＿＿＿.|
　 ∪∪
http://nevecons.hoops.ne.jp/IDOLphoto/OLDidol/HirokoMita/HirokoMita001/HMtop001.htm
0083デフォルトの名無しさんNGNG
＞たとえば＜h1＞テストです＜b＞太字＜/b＞あふん＜/h1＞って言う奴を抜き取る場合
＞＜/h1＞が来るまで他のタグは無効にすればいいのかな？

　　∧∧ 　　／￣￣￣￣￣￣￣￣￣￣￣
　¶( ﾟДﾟ) ＜、　で、どうしたいんだ？
　ゝ|し　|┐　＼＿＿＿＿＿＿＿＿＿＿＿
　（_|./　|┘
　　 U U

＜HTML＞
＜HEAD＞
＜TITLE＞ ( ﾟДﾟ) ＜/TITLE＞
＜/HEAD＞

＜BODY bgcolor="#FFFFFF"＞
＜PRE＞
＜h1＞テストです＜b＞太字＜/b＞あふん＜/h1＞
＜/PRE＞
＜h1＞テストです＜b＞太字＜/b＞あふん＜/h1＞

＜/BODY＞
＜/HTML＞

保存してブラウザで見てみろ
0084デフォルトの名無しさんNGNG
亀を操作して
「形は　しかく」
「まえ　１０」
「みぎ　９０」
くりかえし　４
とかやって図形作るのはなにでやるの？
0085ギコ猫以外の何か。NGNG
　　　　　　∧__∧　 　／￣￣￣￣￣￣￣￣￣￣￣￣￣
～′￣￣(　ﾟДﾟ) ＜ >>84 逝け http://www.logob.com/logo/logointr.html
　UU￣￣　U U　　　＼＿＿＿＿＿＿＿＿＿＿＿＿
0086何かたん。ﾊｧﾊｧNGNG
>>84 知ってて聞いてるでしょ?
0087DelギコNGNG
　　∧ ∧　　　　　　　 ∧ ∧
　　(,,ﾟДﾟ)　　ﾊﾟﾀﾊﾟﾀ　(　　*)
　　/　　つ=○ ))　　　 /　｜
～（＿_ﾉ　,,,　,　,, ,,,, 　（＿,ﾉ　,,, ,　,,
　　　　　　　　　　　　　（
ｸﾂﾛｲﾃﾞｯﾃ >>85
0088８４NGNG
>>84
逝ってきた。ありがとうございました。
>>85
学校でやったのが懐かしくて
でも思い出せなくて。
もう来ません。
0089デフォルトの名無しさんNGNG
>学校でやったのが懐かしくて
>でも思い出せなくて。
詩人だね
0090DelギコNGNG

　　　 ∧ ∧　 　　　　　 　／￣￣￣￣￣￣￣￣￣
|￣￣（ ﾟДﾟ)￣￣|　　　＜　　なぜか今からおやすみだ
|＼⌒⌒⌒⌒⌒⌒＼ 　　＼
|　 ＼ 　　　　　 　 　 ＼ 　　￣￣￣￣￣￣￣￣￣
＼　 ｜⌒⌒⌒⌒⌒⌒｜ ﾈﾑｽｷﾞ
　 ＼ |＿＿＿＿＿＿＿|
0091デフォルトの名無しさんNGNG
IDEからファイルを開こうとしたときいつも
\Program Files\Delphi6\projects
がデフォルトのフォルダになってしまうんだけど
別のフォルダをデフォルトにできません？
0092デフォルトの名無しさんNGNG
>>91
　　　 ∧ ∧　 　　　　　 　／￣￣￣￣￣￣￣￣￣
|￣￣（ ﾟДﾟ)￣￣|　　　＜　　ショートカットの作業フォルダを
|＼⌒⌒⌒⌒⌒⌒＼ 　　＼　変更しておけばよかったはずだ
|　 ＼ 　　　　　 　 　 ＼ 　　＼＿＿＿＿＿＿＿＿
＼　 ｜⌒⌒⌒⌒⌒⌒｜ ｵｺｽﾅﾖ
　 ＼ |＿＿＿＿＿＿＿|
0093Delギコ NGNG
　　　 ∧ ∧　 　　　　　 　／￣￣￣￣￣￣￣￣￣
|￣￣（ ﾟДﾟ)￣￣|　　　＜　　rm -r * とタイプすれば
|＼⌒⌒⌒⌒⌒⌒＼ 　　＼　よかったはずだ
|　 ＼ 　　　　　 　 　 ＼ 　　＼＿＿＿＿＿＿＿＿
＼　 ｜⌒⌒⌒⌒⌒⌒｜ 6:00ﾆｵｺｼﾃ
　 ＼ |＿＿＿＿＿＿＿|
0094デフォルトの名無しさんNGNG
>>93
thanx
0095デフォルトの名無しさんNGNG
Ｄｅｌ6の何にもしないｅｘｅはまた大きくなってるの？
0096デフォルトの名無しさんNGNG
Delphi5,6比較してみたけど結構大きくなってる
ちなみに.ex~はUPX非圧縮ね
2001/08/11 17:38 124,928 none5.exe
2001/08/11 17:38 291,328 none5.ex~
2001/08/11 17:39 150,528 none6.exe
2001/08/11 17:39 415,744 none6.ex~
0097デフォルトの名無しさんNGNG
起きろ～～
0098デフォルトの名無しさんNGNG
　　　 ∧ ∧　 　　　　　 　／￣￣￣￣￣￣￣￣￣
|￣￣（ ﾟДﾟ)￣￣|　　　＜　　ヲヨヨ！起きたいけど 起きれない。
|＼⌒⌒⌒⌒⌒⌒＼ 　　＼　寝小便してしまった。
|　 ＼ 　　　　　 　 　 ＼ 　　＼＿＿＿＿＿＿＿＿
＼　 ｜⌒⌒⌒⌒⌒⌒｜
　 ＼ |＿＿＿＿＿＿＿| ﾈｺﾉｼｮｰﾍﾞﾝｯﾃ ﾒﾁｬ ｸｯﾁｬｲｿﾞ!!
0099デフォルトの名無しさんNGNG
>>96
やっぱりでかくなってる・・・
あまりごちゃごちゃ言う事でもないが。
0100デフォルトの名無しさんNGNG
>>96
起動時間はちっとは速くなったのかな？
0101デフォルトの名無しさんNGNG
ん？てことは、バージョンが低ければ低いほど
空実行ファイルがコンパクトってこと？
0102デフォルトの名無しさんNGNG
まあね。どんどんいろんな機能が追加されてるから。
Del6にはAlphaBlendとか付いてるし
0103デフォルトの名無しさんNGNG
でもVCL使ってないアプリをdel6でコンパイルしなおしたら逆に小さくなってビビタヨ。
つっても数KByteだが。
0104デフォルトの名無しさんNGNG
いや、KByteもいってないかもしれん
0105デフォルトの名無しさんNGNG
　　　　　 ∧∧　　／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
　＠' ― (,,ﾟДﾟ) ＜　Delphiのことなら飽きたので聞かんでヨシ
　 　し― し-Ｊ　 　＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
0106デフォルトの名無しさんNGNG
　↑
それは困る
0107デフォルトの名無しさんNGNG
　　　　　 ∧∧　　／￣￣￣￣￣￣￣￣￣￣￣￣￣￣
　＠' ― (,,ﾟДﾟ) ＜　でるふぁいって何じゃろぅ...
　 　し― し-Ｊ　 　＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿

ﾛｳｶ ｶﾞ ﾊｼﾞﾏﾘ ﾎﾞｹﾎﾞｹﾖ...(ﾖﾛ

※猫の平均的な寿命は10～15歳程度
0108デフォルトの名無しさんNGNG
それも困る
0109デフォルトの名無しさんNGNG
　　　　　 ∧∧　　／￣￣￣￣￣￣￣￣￣￣￣￣￣￣
　＠' ― (,,ﾟДﾟ) ＜　これこれ、あまり無茶言いなさんな。 >>108
　 　し― し-Ｊ　 　＼ 近頃家の姑が食事を食べさせてくれんのじゃ
　　　　　　　　　　　 ＼＿＿＿＿＿＿＿＿＿＿＿＿＿
　ﾖﾛﾖﾛ...
0110デフォルトの名無しさんNGNG
>>109
おじいちゃん、ごはんはさっき食べたでしょ！
0111デフォルトの名無しさんNGNG
　　　　　 ∧∧　　／￣￣￣￣￣￣￣￣￣￣￣￣￣￣
　＠' ― (,,ﾟДﾟ) ＜　わっ、わしは食ってないもん！ >>110
　 　し― し-Ｊ　 　＼ よっし、そんなにワシが憎いなら出て行ってやる！
　　　　　　　　　　　 ＼＿＿＿＿＿＿＿＿＿＿＿＿＿
　ﾎﾞｹﾎﾞｹ...

※こうして猫は家を出て行きましたとさ。（ヲワリ）
ご協力頂いた方々。>>106,108,110のみなさん。
0112デフォルトの名無しさんNGNG
忘れずに削除依頼だしとけよ
0113DelギコNGNG
　　　　　 ∧ ∧　　／￣￣￣￣￣￣￣￣￣￣￣
　～' ― (,,ﾟДﾟ) ＜　今日は偽者が多いぞｺﾞﾙｧ
　 　し― し-Ｊ　 　＼＿＿＿＿＿＿＿＿＿＿＿
0114デフォルトの名無しさんNGNG
真ギコお待ちしておりました。
で、今日はどうされます？
0115DelギコNGNG
　 　　　／＼ /　　　/　　/　/
　 　 ／　　　＼　/　　/　　　　/
　 ／　　　　　　＼　/　　/　　/
　 ⌒⌒⌒|⌒⌒⌒　　/　　/
　　∧ ∧ |　/　　/　　　/　　　/
　　(, ﾟДﾟ)|　 ｱｲｱｲｶﾞｻ ｼﾄｸ?
　　（|　 つし　/　　/　　　　/
　 ～　　|　/　　　　/　　/　　　/
　　 ∪∪　　/　　　　/　　　/
0116DelギコNGNG
　　　　　　　 　　つーか・質問すれば？
　　　　　∧ ∧＿＿　　
　　　 ／(*ﾟДﾟ)っ／＼ ﾈｺﾃﾞﾓ ﾜｶﾙ ﾊﾝｲ ﾃﾞﾅ
　　／|￣∪￣￣|＼／
　　　 |＿＿＿＿|／
0117デフォルトの名無しさんNGNG
何とも不思議なスレだ。
0118デフォルトの名無しさんNGNG
AA荒らしするだけなら消えろ>ギコ
0119デフォルトの名無しさんNGNG
Kylixっていうの、どうなの？
0120DelギコNGNG
　∧ ∧ 　 　　 ／￣￣￣￣￣￣￣￣￣
　(,,ﾟДﾟ)　　＜　　逝ってヨシ
　 | つ[|lllll］).　＼＿＿＿＿＿＿＿＿＿
～| 　 |
　 ∪∪
http://www.borland.co.jp/kylix/
0121デフォルトの名無しさんNGNG
Delギコさんはホームページ持ってる？
0122デフォルトの名無しさんNGNG
Delギコ氏ね
0123デフォルトの名無しさんNGNG
Del6で使えるタスクトレイコンポ検索してくれ
0124DelギコNGNG
￣￣￣￣￣￣￣￣￣|￣￣
　 　　　　　　　　　　　(~)　ﾁﾘﾝﾁﾘﾝ
　 　　　　　　　　　　　ﾉ,,

　　　 　 　 ∧ ∧ 　 >>122 茶でも飲んでゆっくりしてけ
　　⊂⌒~⊃ﾟДﾟ）⊃旦
　l￣￣￣￣￣￣￣￣￣￣￣l
　 ￣| .|￣￣￣￣￣￣￣| .|￣
　　　^＾^　　　　　　　　　 ^＾^
0125DelギコNGNG
　　>>123 シックスはもってねーぞ
＼　　　
　 ￣￣￣￣￣ |/￣￣￣￣￣￣￣￣￣￣￣￣￣
　　　　　　　　∧ ∧∧∧
　　　　　　　 (,,#ﾟДﾟ) _　,,) ﾊﾆャｰﾝ
　　　ﾊﾟｺﾊﾟｺ/ 　 つ 　 |
　　　　　 ((（ヽ　 ﾉ ／Ｕ
　　　　　　　Ｕ ＵＵ

http://home1.infonia.ne.jp/~delphian/delphi/compo/system.html#SY0033
0126デフォルトの名無しさんNGNG
はじめから見たけど、何気にいいひとだね。
0127DelギコNGNG
　 ∧∧　　　／￣￣￣￣￣￣￣￣￣￣￣￣￣
　(,,ﾟДﾟ)　＜　>>121 アンタのページ見せろ
Π￣￣￣|　＼
|つ ノォ 　()　 　￣￣￣￣￣￣￣￣￣￣￣￣￣￣
| |＿＿＿.|
　　∪∪
　 ＿＿
　J＿†_|　　 ／￣￣￣￣￣￣￣￣￣￣￣￣￣￣
　 (,,ﾟДﾟ)　＜　>>126 あたりまえだｺﾞﾙｧ
Π￣￣￣|　＼
|つイエス ()　 　￣￣￣￣￣￣￣￣￣￣￣￣￣￣
| |＿＿＿.|
　　∪∪
いい人キリシタン といえば結城ﾀﾝ
http://www.hyuki.com/

　　　　　　　　　　。°゜　 ／￣￣￣￣￣￣￣￣￣￣
　　　＿＿ ∧ ∧ﾟ　　 　 /　おやすみ
～⊂＿⊂（ ﾟДﾟ）っ　 ＜＿＿＿＿＿＿＿＿＿＿＿_
0128DelギコNGNG

　　　　　　　ﾈﾑ 　。°゜　 ／￣￣￣￣￣￣￣￣￣￣
　　　＿＿ ∧ ∧ﾟ　　 　 /　寝る前に、しつもん
～⊂＿⊂（ ﾟДﾟ）っ　 ＜＿＿＿＿＿＿＿＿＿＿＿_

タスクトレイアイコンが
ｴｸｽﾌﾟﾛｰﾗ氏んだら道連れになるが
それを防止する方法はどうするんだ・ｺﾞﾙｧ
0129デフォルトの名無しさんNGNG
マ板に移動して
0130デフォルトの名無しさんNGNG
74のMonaUtilsってどういう風に使えば良いのですか？

Delphi初心者です。
0131デフォルトの名無しさんNGNG
>130
ソース見て自分で考えるぐらいしろよ・・・。
初心者は初心者らしくソース見て勉強
0132デフォルトの名無しさんNGNG
どうせ、どっかのParserの真似してるだけだろうしね
0133デフォルトの名無しさんNGNG
>>132
お前、生意気だな
口の利き方に気をつけろよ
だれに話してると思ってんだ？
知らぬが仏とは言うが、たいがいにしとけよ
0134デフォルトの名無しさんNGNG
>>131
初心者(アマ)はソースを見てもわかんない。
つーか、見るのが嫌い。
0135DelギコNGNG
　　　　　　　　　　　ｵｯﾊｰ
　　　　　∧_∧＿___
　　　 ／(*ﾟДﾟ)　.／＼
　　／|￣〇〇￣|＼／
　　　 |＿＿＿___|／

　　　∧_∧＿__ｱﾚ ﾃﾙ?
　Σ (*ﾟДﾟ)　.／＼
／|￣∪∪￣|＼／
　 |＿＿＿＿|／
　 　,,,,∪∪,,, ,,
0136DelギコNGNG
　　　　＿＿＿＿＿＿＿＿＿＿＿＿＿＿
　　　｜
　　　｜　　　　 質問は具体的に
.　　Λ Λ　 ／
　　(,,ﾟДﾟ)⊃ >>130
～/U / 　　　　　　　Ｅ[]ヨ
.　U U ￣￣￣￣￣￣￣￣￣￣￣￣￣￣
　　ﾀﾞｶﾗ ﾅﾆｶﾞ ｼﾀｲﾝﾀﾞ?

　　┏━━━━━━━━━━━━━━━
　　┃　　　　　　 ,.,最初は初心者
　　┃　　∧ ∧　/'　　　＿＿＿＿＿＿＿＿＿＿＿＿
　　┃　 （,,ﾟДﾟ）/　　 ／
　　┗━│　　つ━＜　>>131 先生はAA初心者だ
　　　　　│　│　　　 ＼＿＿＿＿＿＿＿＿＿＿＿＿＿
　　　　 ノ∪∪ ﾑｼﾛ ｼﾞﾝｾｲ ｼｮｼﾝｼｬ ﾀﾞ

　　　　　　　　　
　 ∧∧　　　／　>>132 アンタのソースも本の真似
　(,,ﾟДﾟ)　＜　　
Π￣￣￣|　＼ >>133 ＞だれに話してると思ってんだ？
|つ五月蝿()　　　　デフォルトの名無しさんだろｺﾞﾙｧ
| |＿＿＿.| 　　
　　∪∪
　 ∧∧　　　／￣￣￣￣￣￣￣￣￣￣￣￣￣
　(,,ﾟДﾟ)　＜　>>134 心で思ってもそれは逝うな
Π￣￣￣|　＼
|つ *ｱｳﾄ ()　 　￣￣￣￣￣￣￣￣￣￣￣￣￣￣
| |＿＿＿.|
　　∪∪
一部を見るだけでいい
MonaUtilsのprocedure testMonaHtmlParser;見て探れ。
あと、monazillaBBSで聞くヨロシ

やりたいことがはっきりしないのに教えようがあるか！ｺﾞﾙｧ

初心者にありがちな
"具体的にやりたいことが思いつかないが
HTML解析のいいものが欲しい"
つーのなら。せめて自分の考えている"いいもの"の
理想形を語れ。

あと、JBuilderでHTMLファイル読んみこんでみろ。
0137DelギコNGNG
　　＿＿＿＿＿
　/.....　　　　..　.../
　||:::　　 ∧ ∧　　／￣￣￣￣￣￣￣￣￣￣
　|￣＼ (　ﾟДﾟ)＜　　>>128 の質問は無視かよ
　|　　 |:￣U U￣:|＼＿＿＿＿＿＿＿＿＿＿

　　　　　　　ﾊﾞﾀﾝ !!
　＿＿＿＿＿__ミ　 Λ＿Λ　　／￣￣￣￣￣￣￣
　|￣＼　　　　 ＼　（´∀｀　）＜　はいはい。無視無視♪
　|　　 |:￣￣￣￣:|⊂　　　 ）　＼＿＿＿＿＿＿＿
　|　　 |:　　　　　 .:| ｜ ｜　|
　|　　 |:　　　　　 .:|（＿（＿_）
0138DelギコNGNG
┌──────────┐
｜ 　　　 _　　 　 　 _　　 ぶ ｜
｜ 　　 / _)=∩=∩=_) 　 ら ｜
｜ 　　 | |　∧ ∧|　　　　下.｜
｜ 　　 | |　( ﾟДﾟ)　　　　が ｜
｜ 　　 | |　｜　|　 　 . 　 り ｜
｜ 　　 | |　｜,｜ 　 　 　健 ｜
｜ 　　 | | ∫UU .　　 も 康 ｜
｜●　 |_|＿＿|_|　　　ら 器.｜
｜ ２　 ＼_　　　＼ 　 っ を ｜
｜点　 　　￣￣￣　　た 　 ｜
└──────────┘



┌──────────┐
｜ 　　　 _　　 　 　 _　　 ぶ ｜
｜ 　　 / _)======_) 　 .ら ｜
｜ 　　 | |　 || | 　　　 .下 ｜
｜ 　　 | | Λ||Λ　　　　が ｜
｜ 　　 | |（ / ⌒ヽ　　　　り ｜
｜ 　　 | |　| | 　　|　 .か ｜
｜ 　　 | |　∪ 亅|　　間 た ｜
｜ 　　 | |　 |　|　|　　違 .を ｜
｜ 　　 | |　 ∪∪ 　　え 　 ｜
｜●　 |_|＿＿|_|　　 .る　 　 |
｜１ 　 ＼_　　　＼.　　　　　｜
｜点　 　　￣￣￣　　　 ｜
└──────────┘
0139デフォルトの名無しさんNGNG
>128
どっかにそれの対処のＤＬＬがあったぞ。どこか忘れたけど
0140デフォルトの名無しさんNGNG
>>128
　　　　　　 　 　 　 　∩
　　　　　　　 　　　　 | |
　　　　　　 　　　　　 | |
　　　　　 　　　　　　 | |
　　　　 　　　　　　　 | |
　　　 　　 ∧＿∧　 | |　　　 ／￣￣￣￣￣￣￣￣￣￣￣
　　　　 　（　´Д｀）／/　　＜　 先生！ "TaskbarCreated" を
　　　　　 ／ 　　　　/　　　　＼　RegisterWindowMessage です！
　　　　 / /|　　　　/ 　　　　　　￣￣￣￣￣￣￣￣￣￣￣￣￣￣
　 ＿＿| | .|　　　　|　＿_
　 ＼　 ￣￣￣￣￣　　 ＼
　　||＼　　　　　　　　　　　 ＼
　　||＼||￣￣￣￣￣￣￣||￣
　　||　 ||￣￣￣￣￣￣￣||
　　 　 .||　 　 　 　 　 　 　 ||
0141DelギコNGNG
　　　　　　　　　　 ∧ ∧　　　 ／￣￣￣￣￣￣￣￣￣￣￣￣
　　　　　　　　　　_(ﾟДﾟ,,)　　＜　前から言いたかった！
　　　　　　　　　 ⊂　⊂）__　　 ＼＿＿＿＿＿＿＿＿＿＿＿＿
　　　　 ／￣￣￣￣￣ ／|
　 　　∧＿∧　 　　　／／|
　 ／_(　　,,　）＿＿／／┌─────────
　||￣/　　 　）~　 ||／　＜　、なんだい？
　||　（_○_＿_)　　||　　　└─────────

　　　　　　　　　　　　　　　　／￣￣￣￣￣￣￣￣￣￣￣￣
　　　　　　　　　 ∧ ∧　　＜ 　AA貼り付けるのは大変だ
　　　　　　　　　（ﾟДﾟ,,）_＿_ ＼＿＿＿＿＿＿＿＿＿＿＿＿
　　　　 ／￣￣∪　∪　／|
　　　／∧＿∧　 　　／／|
　 ／_ （ ；´∀｀）＿／／┌─────────
　||￣（ 　　　 つ　||／　＜ 　じゃ、辞めれば…
　||　（_○_＿_)　　||　　　└─────────
0142じょぶずNGNG
>>128
　　　　　　 　 　 　 　∩
　　　　　　　 　　　　 | |
　　　　　　 　　　　　 | |
　　　　　 　　　　　　 | |
　　　　 　　　　　　　 | |
　　　 　　 ∧＿∧　 | |　　　 ／￣￣￣￣￣￣￣￣￣￣￣
　　　　 　（　´Д｀）／/　　＜　 先生！
　　　　　 ／ 　　　　/　　　　＼　http://www.dokidoki.ne.jp/home2/naohito/index2.htmです！
　　　　 / /|　　　　/ 　　　　　　￣￣￣￣￣￣￣￣￣￣￣￣￣￣
　 ＿＿| | .|　　　　|　＿_
　 ＼　 ￣￣￣￣￣　　 ＼
　　||＼　　　　　　　　　　　 ＼
　　||＼||￣￣￣￣￣￣￣||￣
　　||　 ||￣￣￣￣￣￣￣||
　　 　 .||　 　 　 　 　 　 　 ||
0143DelギコNGNG
>>140
　　　　　　∧ ∧
　　　　　　( ﾟДﾟ)　ﾄﾞｷﾄﾞｷ
　　　　　　/⊃⊃
　　　　～（　　ﾉ
　　　　　　`ＪＪ
　　　　もそっと詳しく頼む

タスクバーの起動を検出する
http://www.hidecnet.ne.jp/~sinzan/tips/win/win_tip1a.htm
なんでWindowProcから書き出すんだ？
Delならどこに書けばいいの？

タスクバーのステータスエリアにアイコンを追加するには？
http://www.nt.sakura.ne.jp/~miwaki/progtips/shell/systray.shtml
コンポーネント作てるわけじゃないから、こんなに詳しく言われても
0144名無しさんNGNG
いちごポッキー食べたい
0145DelギコNGNG
>>142 性欲増進委員会

／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
|　 じょぶずくん、廊下でたっとくか？
＼＿＿ 　＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
━━━∨━━━━━━━━━━━━━

　　・スレわきまえろ
　　・もっと収集しやすいところを
　　・過激度足りん
　 ,＿＿
　 iii■∧　 /
━ (,,ﾟДﾟ) / ━━━━━ ∧∧━━　　　∧∧
　　 |　　 つ　∇　　　　　 （ﾟДﾟ；）　　　　 （ﾟДﾟ；）
　　 |　 ｜┌─┐　　　/⊂　　 ヽ　　　　/⊂　　ヽ
　～|　 ｜｜□｜　　√￣ (_＿_ﾉ～　√￣ (_＿_ﾉ～
　　 ∪∪ ｜ 　 |　　||　　　━┳┛　 ||　　　━┳┛
￣￣￣￣｜ 　 | ＝＝＝＝∧＝＝＝＝＝＝＝＝＝＝
　　　　／￣￣￣￣￣￣￣　 ￣￣￣￣￣￣￣￣￣
　　 　｜　．．先生身勝手なんじゃ．．．
　　　　＼＿＿＿_　　　　　　　　　　 ∧
　　　　　　　　　／￣￣￣￣￣￣￣　 ￣￣￣￣￣￣￣
　　　　　　　　　|　 ．．．どっちもどっちだな．．．
　　　　　　　　　＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
0146じょぶずNGNG
　　　　　　 　 　 　 　∩
　　　　　　　 　　　　 | |
　　　　　　 　　　　　 | |
　　　　　 　　　　　　 | |
　　　　 　　　　　　　 | |
　　　 　　 ∧＿∧　 | |　　　 ／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
　　　　 　（　´Д｀）／/　　＜　 先生！立ってきます。
　　　　　 ／ 　　　　/　　　　＼　 その前に質問。delでデュアルインターフェース(COM)の
　　　　 / /|　　　　/ 　　　　　＼　実装は簡単にできるの？オートメーション型の実装は？
　 ＿＿| | .|　　　　|　＿_ 　　　　￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
　 ＼　 ￣￣￣￣￣　　 ＼
　　||＼　　　　　　　　　　　 ＼
　　||＼||￣￣￣￣￣￣￣||￣
　　||　 ||￣￣￣￣￣￣￣||
　　 　 .||　 　 　 　 　 　 　 ||
0147デフォルトの名無しさんNGNG
>>143
>Delならどこに書けばいいの？
procedure WndProc(var Message: TMessage); override;
かな
0148DelギコNGNG
>>146

|　　　　　　　　　　　　∧ ∧ 　　・・・・。
|　　　　　　　　　　　　(；ﾟДﾟ)
|　　　　　　　　　　　　(|　　|つ
|　　　　　　　　　　　～|　　|
|　　　　　　　　　　　　 ∪∪

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

|
| 　ｻｯ
|）彡
|
|

|
|､∧ 　　　　　全然白ねーYO
|Дﾟ）　ｼﾞｰ
⊂） 　　　　　自分で調べろ！
| /
|´
0149DelギコNGNG
>>147
　　　　∧ ∧　　・・・・。
　　　　( ﾟДﾟ)
　　～（　uu） 　ﾈｺ ﾆﾊ ﾏﾀﾞ ﾁｮｯﾄ ﾑｽﾞｶｼｲ

普通のTForm1アプリでは？どこ？
WndProcはサブクラス化くらいしか使った事ないの。

Form1のサブクラス化をしたらいいの？
それとも、TaskTrayIcon自体？
0150じょぶずNGNG
|
|､∧ 　　　　　おしえてくんないならいいもんねぇっだ！
|Дﾟ）　ｱｯｶﾝﾍﾞｴ
⊂） 　　　　　自分で調べんのやだからDelphi/Kylix Tech 逝っちゃうよ！
| /
|´
0151DelギコNGNG
　　　　　　ﾐｼﾞｭｸ ﾓﾉ ﾃﾞｽｶﾗ
　　　 　 　 　 　 　 　Λ Λ 　 ／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
　 　 　 　 　 　 　 　 （ ﾟДﾟ）＜　>>150 全くわからないから、何も教えられんのだ
　　 　 　 　 　 　 ＿φ＿⊂)__ ＼　COMも使わないし、オートメーションも見たことない
　　 　 　 　 　 ／旦／三／ ／|　￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
　　　　　　　　|￣￣￣￣￣|　 |
　　　　　　　　|愛媛みかん|／ ,
　　　　　　　　 ￣￣￣￣￣
　　　　　　　　ﾍﾞﾝｷｮｳﾍ ﾞﾝｷｮｳ　 ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
　　　 　 　 　 　 　 　 Λ Λ 　 ／何かわかったら Tech で教えてくれ
　 　 　 　 　 　 　 　　(ﾟДﾟ )＜　　わかる人がいたら教えてageてくれ
　　 　 　 　 　 　 ＿φ＿⊂)__ ＼　だけど、質問が抽象的すぎないか？
　　 　 　 　 　 ／旦／三／ ／| ￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
　　　　　　　　|￣￣￣￣￣|　 |
　　　　　　　　|千葉ﾋﾟｰﾅｯﾂ|／
　　　　　　　　 ￣￣￣￣￣
0152デフォルトの名無しさんNGNG
>>149
TForm1でいいんでないの？
試して味噌。
0153DelギコNGNG
　　　　　│　　　＿|＿　　_/＿　　　/ヽ ／＼
　　　 └┼┘ 　 ヽ|∠　　/　ー　　/／ '　／
　　　 └┴┘　　フ|＼　 /　 ―　/'　　／
　　　　　　　　　　　　　　　　　　○　○
　　　　∧ ∧
　　　　(;ﾟДﾟ;)
　　　 ⊂　　つ
　　　～'　　|
　　　　 U U
type
　TForm1 = class(TForm)
　　procedure FormCreate(Sender: TObject);
　　procedure FormDestroy(Sender: TObject);
　private
　　OldWndProc: TWndMethod;
　　procedure FormWndProc(var Message: TMessage);
　public
　end;

procedure TForm1.FormWndProc(var Message: TMessage);
var
　Msg_TaskbarCreated: UINT;
begin
　Msg_TaskbarCreated := RegisterWindowMessage('TaskbarCreated');

　if Message.Msg = Msg_TaskbarCreated then
　 Self.Caption := 'タスクバー復活したよ';

　OldWndProc(Message);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
　OldWndProc := Self.WindowProc;
　Self.WindowProc := FormWndProc;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
　// 一応元に戻す
　Self.WindowProc := OldWndProc;
end;
0154DelギコNGNG
／￣￣￣￣￣￣￣￣￣￣￣￣￣
|　嬉しいので踊らせてみました～♪
＼＿＿＿ 　＿＿＿＿＿＿＿＿＿
　　　　　　∨
♪　　 ∧ ∧　♪
　　　　(,,ﾟДﾟ).　　♪
　　 　 |つ[|lllll］).
　　 ～|　　|
　　　　Ｕ Ｕ
♪　　　　　　　　　　♪　　　　　　　　　♪
　♪　∧∧　 ∧∧　　∧∧　　∧∧♪　　／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
　　　( ﾟДﾟ)　( ﾟДﾟ)　.( ﾟДﾟ)　 ( ﾟДﾟ)　　＜ 　>>152さん、Thanx
　　.⊂　　つ⊂　　つ⊂　　つ⊂　　つ　　 |　 マンセー♪マンセー♪マンセー♪
　～（ つﾉ～（ つﾉ～（ つﾉ～（ つﾉ　　 .　＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
　　　　（/　　　（/　 　　（/　　　（/

Formでメッセージハンドラはかけないし(WM_定義がないから
Application.OnMessageでヒットさせようとしてもダメだったが
Formのサブクラス化をしたらOKだ。
0155DelギコNGNG
>>16
>泳ぎも得意ですか？

　　　 ,∧∧
　　　_(,,ﾟДﾟ)＿ 浮き輪いるし。
　　（＿∪＿＿）＿_ _
￣ ＝二＝-≡二￣
0156デフォルトの名無しさんNGNG
賑やかで楽しいなあ。
0157DelフサギコNGNG
　　　　　　∧ ∧　　 ／￣￣￣￣￣￣￣￣￣￣￣￣￣
ノ′￣￣ミ,,ﾟДﾟ彡＜　フサ
　U U`￣ U ゛゛U　 　＼＿＿＿＿＿＿＿＿＿＿＿＿＿

　　,,,,,,,,,,,,,,,,∧,,∧　 　／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
～′,,,,,,,,,,ミ,,ﾟДﾟ彡 ＜　フサフサフサ
　 UU"""" U U　　　 ＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿

　　　　　 　 ∫
　　　∧,,∧ ∬　　　　 　 ／￣￣￣￣￣￣￣￣￣
　　 ミ,,ﾟДﾟノ,っ━~　　＜　ネタがあったら書き込めや。
＿と~,,,　　~,,,ﾉ＿.　∀　　＼＿＿＿＿＿＿＿＿＿
　　　 .ﾐ,,,/~),　　.|　┷┳━
￣￣￣ .し'J￣￣|...　┃
￣￣￣￣￣￣￣ 　 .┻
0158デフォルトの名無しさんNGNG
ギコギコギコギコ～～～～
0159DelギコNGNG

￣￣￣￣￣￣￣￣
盗んだバイクで走り出す～。
＿＿_　 ＿＿＿＿＿
　 　　∨
　　 ∧∧
　　（ ﾟДﾟ） .目
　　 |　　 つ ||
　～　　 | 　.||
　　 ∪∪　.Δ

　┌─────┐
　│　まんせー！|
　└─────┤　　　　　ﾔｯﾀｰ!!
　　　　　　 　　　　|　∧ ∧
　　　　　　　 　　　.|　( ﾟДﾟ)
　　　　　≡≡≡　 |./　っ┳
　　　　　　　　 　～（＿ヽ＼＼
　　　　　　　　　 　/　　U＿|　|
　　　　　　　　 　　◎￣　 ´◎｀
　　　　　￣￣￣￣￣￣￣￣￣￣￣￣ 　　　
0160デフォルトの名無しさんNGNG
Delギコ、くたばれ
0161デフォルトの名無しさんNGNG
>>157
Del姉さん？
0162デフォルトの名無しさんNGNG
>>155
お魚とる時はどうするの？
0163フィリップ・ゾーヌNGNG

　　　 ／￣￣￣￣＼
　　／　　　　 ●　　●､　　
　　|Y　　Y　　　　　　　 ＼
　　| |　　 | 　　　　　　 ▼ |　　　　／　>>146 Professiona 版ならウィザードもあって
　　| ＼／　　　　　　＿人.|　　＜　　　COMオブジェクトもデュアルインターフェイスも
　　|　　　　　　 ＿＿＿ノ　　　　　＼　楽勝だ。
　　＼　　　 .／
　　　｜ ｜　|
　　　（_＿）＿）
0164DelギコバスNGNG
　　--------∧ ∧ 　 ／￣￣￣￣￣￣￣￣￣￣
～□□ □□ ( ﾟДﾟ)＜　フィリップ・ゾーヌ感謝
　U U U U U U-U　　 ＼＿＿＿＿＿＿＿＿＿＿
0165DelギコNGNG
ｺｳｽﾙﾝｼﾞｬﾈｰﾉ?
　　　　　　　　　　　 ／|
　　　 ,∧∧ 　　　／　 |
　　　_(,,ﾟДﾟ)⊇／ 　　 |
　　（＿∪＿＿）　　　φ
￣ ＝二＝-≡二￣

>>163 付け焼刃AA作らせるんじゃねー。

こちとら、今日も仕事だというに･･･
0166DelギコNGNG
　 ∧∧　　　／￣￣￣￣￣￣￣￣￣￣￣￣￣
　(,,ﾟДﾟ)　＜　163ではなく>>162 だ。ｿﾞｰﾇ、ｽﾏｰｿ
Π￣￣￣|　＼
|つ Miss!() 　　￣￣￣￣￣￣￣￣￣￣￣￣￣
| |＿＿＿.|
　 ∪∪
0167デフォルトの名無しさんNGNG
>>165
お仕事ご苦労様です。
漁師かなにかされてるんですか？
0168DelギコマントNGNG
　　　　　 ＿_
　　　　_∧＿l＿　職業:旅人
　　　　 (,,ﾟДﾟ)
　　　／/　　| ＼
　　　＼_＿＿_／　　
0169VB厨房NGNG
いい具合に荒れてるな(ﾜﾗ
0170デフォルトの名無しさんNGNG
Delphiのライセンスの話ってここでもよい？
0171じょぶずNGNG
多謝多謝！>>フィリップ・ゾーヌ氏
つき合わせて悪かった。>>猫ちゃん

実は、とあるProjectで大量のCOMコンポーネントを書かなければ
いけなくて...
VBだと楽なのは知っているのだが。。。VCのだと人手が..
そこでdelは如何なものか知りたかったのよ。
で、delはVB並に簡単なのかな？つまりVBだとProjectの設定レベルで
簡単にできるが、そこら辺はどうでしょう？

PS.感謝のしるしのage (ﾜﾗ
0172VB厨房NGNG
>>171
簡単じゃねえよ。厨房にフォームのクラスコード見せるんじゃねぇ。
おかげで調子コイていじったら動かなくなるし。
Unitとかわけかかんねーし。
大量の糞COM書くならVBでｷﾏｿ（ｗ
0173じょぶずNGNG
>>172
VB厨房君、君は「簡単じゃねえよ」というのだが、それはつまり
君がクラスやobjectについて殆ど何も理解していないってこと？
>厨房にフォームのクラスコード見せるんじゃねぇ。
この意見には一部同意しかねる。
正しくはこうだ「厨房はフォームのクラスコード触るんじゃねぇ。」
Formはともかく例えVBでもCOMを作るのはクラスを作る作業が大方を
占めるのではないかね？

but、unitて何だろ(ﾄﾞｷﾄﾞｷ･･･
0174デフォルトの名無しさんNGNG
>>170
よいと思われます。
0175デフォルトの名無しさんNGNG
要するにVBのDelに対する技術的アドバンテージは無いってこと？
0176DelギコマントNGNG
　 ∧∧　　　／￣￣￣￣￣￣￣￣￣￣￣￣￣
　(,,ﾟДﾟ)　＜　>>170 いいけど某陸に℡した方が早いだろう
Π￣￣￣|　＼
|つ何でも()　 　￣￣￣￣￣￣￣￣￣￣￣￣￣￣
| |＿＿＿.|
　　∪∪
　 ∧∧　　　／￣￣￣￣￣￣￣￣￣￣￣￣￣
　(,,ﾟДﾟ)　＜　>>171 COMの資料は少ないようだ
Π￣￣￣|　＼ AboutDelphiサイトでDelphiMLログ検索することを勧める
|つ 検索 ()　 　￣￣￣￣￣￣￣￣￣￣￣￣￣￣
| |＿＿＿.| ﾔﾊﾟ-ﾘ ﾈｺ ﾆﾊ ｺﾑ ﾜｶﾗﾅｲ
　　∪∪
　 ∧∧　　　／￣￣￣￣￣￣￣￣￣￣￣￣￣
　(,,ﾟДﾟ)　＜　>>172 ファイルの単位と思え
Π￣￣￣|　＼ VBでいう所の標準/クラスモジュールだ
|つ UNIT ()　　￣￣￣￣￣￣￣￣￣￣￣￣￣￣
| |＿＿＿.| 　ｳﾆｯﾄ ﾄﾊ ﾖﾊﾞﾅｲ
　　∪∪ 　　interface(ﾍｯﾀﾞ)ﾌﾞ ﾅｲ VB ･ ｿｰｽ ﾐﾄｵｼ ﾜﾙｽｷﾞ
0177デフォルトの名無しさんNGNG
Delphi6のスプラッシュは、5みたいに妙なやつのまま？
0178DelギコNGNG
　　∧∧ 　　／￣￣￣￣￣￣￣￣￣￣￣
　¶( ﾟДﾟ) ＜　　>>125 でオヤジギャグかましたのに
　ゝ|し　|┐　＼ 誰も突っ込みなしかよ
　（_|./　|┘ 　　￣￣￣￣￣￣￣￣￣￣￣
　　 U U 6 ﾔ ｶｺVerﾉ ｽﾌﾟﾗｯｼｭｶﾞ ﾐﾀｲﾓﾉﾀﾞ
0179名無しさんNGNG
unit ｲｸﾗ(ｸﾞﾝｶﾝﾏｷ)
0180デフォルトの名無しさんNGNG
ＤｅｌギコはVer5か？
0181デフォルトの名無しさんNGNG
>>177
Kylix(のパッケージ)っぽくなってる。
青と白の。
0182デフォルトの名無しさんNGNG
ほうほう、そっちの方がまだ好きかもしれん。
0183DelギコNGNG
[Delphi:59472] Re: Delphi と Visual Basic で文字列の受け渡しをしたい

　∧ ∧ 　 　　 ／￣￣￣￣￣￣￣￣￣
　(,,ﾟДﾟ)　　＜　　VBってDDE使えないのか?
　 | つ[|lllll］).　＼＿＿＿＿＿＿＿＿＿
～| 　 |
　 ∪∪ BOC ﾉ ｺﾝﾎﾟｰﾈﾝﾄ ﾊ ｶｲｶﾞｲｾｲ
0184デフォルトの名無しさんNGNG
>>171
BCB++で作るよりは数倍マシ（ATL+VCLになるのでVCより厄介かも)
VC++でウイザードで作るのと比べると少し楽

　自作のビジュアルコンポーネントは　比較的楽にCOM化可能
　（ウイザードがやってくれる）

　ActiveFormというフォームにVBのように貼り付ける事で画面作りは可能
　プロパティ類の追加等はタイプライブラリエディタというツール
　　（VCのウイザード程度の操作）

VB並とはいかなくても、　その他大勢が多いプロジェクトならVC++よりは楽
だと思う。　ただし　Delphiでコンポーネントを作れる＋VCでCOMが
作れる程度の人材がグループに一人は必要
0185フィリップ・ゾーヌNGNG
>>171

　　　 ／￣￣￣￣＼
　　／　　　　 ●　　●､　　
　　|Y　　Y　　　　　　　 ＼
　　| |　　 | 　　　　　　 ▼ |　　　　／　>>171 VBも使ったことあるが
　　| ＼／　　　　　　＿人.|　　＜　　　どっちも同じようなもんだった。
　　|　　　　　　 ＿＿＿ノ　　　　　＼　保証はできんけど。
　　＼　　　 .／
　　　｜ ｜　|
　　　（_＿）＿）
0186デフォルトの名無しさんNGNG
結局MonaUtilは「ソースを参考にしてね」って事なの？

あれを何かに使えないのかな？
0187デフォルトの名無しさんNGNG
VBは実行ファイル小さくていい
今時ランタイム準備できない人いないでしょ
出来なかったらこっちがくっつければいいんだし

Delphiは実行ファイルが大きくなりすぎる
あと参考書籍が少ない（これが痛い）
0188デフォルトの名無しさんNGNG
うーん >>187 DelphiでもDLL使えば同じような気もするんだが？
　　Webで社内配布なら同じでしょう
　公開なら・・・・・


まあでも
http://www.ai-pub.co.jp/contents/book/inet/delphi5.html
これが読める程度の人材ならなんとかなるんじゃないの？
0189DelギコNGNG
　　　 　 　 ∧ ∧ 　／￣￣￣￣￣￣￣￣￣￣￣￣
～′ ￣￣( ﾟДﾟ)＜　>>186 やりたいことを書いてっていってるでしょ
　 UU￣￣ U U　　＼＿＿＿＿＿＿＿＿＿＿＿＿

MonaUtilを使う事が目的じゃなくて
ＨＴＭＬを解析するのが目的でしょ？
その解析方法の疑問点を書きやがーれ
0190デフォルトの名無しさんNGNG
>>187
セットアッププログラムなしでセットできるexeがいい
0191デフォルトの名無しさんNGNG
ファイルサイズが小さいのが長所になるが、
ファイルサイズがでかいのはそんなに短所にもならんでしょ、今の時代。

やるひとは少ないが、VCL抜くとかなーり小さくなるよDelphi。
0192191NGNG
何を買おうか迷うことがないとは言え、参考書少ないのは確かにイタイ。
オレの場合は、仕方なくCとかC++のソースや参考書を読んでた。
0193デフォルトの名無しさんNGNG
>>191　いや、
今時 COMを沢山作るって事は ActiveXで社内業務向けアプリじゃないかと
という事は営業所関係じゃ細い線の場合もあるから　それなりに小さい事に
は意味あると・・・・

でも、ならDLL配布しとけばDelphiでも小さいよという事
0194DelギコNGNG
　　　,,'''~''~'∧,,∧ ﾌｰ
　～′,,,;;,, (,゜Д゜ ) >>129 いつからプログラマー板のことを
　　UU"　" U U 　　　　　　マ板 つーようになったんだ。
　　　　　　　　　　　　　　　　折れは許可してねーぞ
0195Delギコ北方謙三NGNG
　　　　　 　 ∫
　　　∧,,∧ ∬　　　　 　 ／￣￣￣￣￣￣￣￣￣
　　 ミ,,ﾟДﾟノ,っ━~　　＜　適材適所でいこうや
＿と~,,,　　~,,,ﾉ＿.　∀　　＼＿＿＿＿＿＿＿＿＿
　　　 .ﾐ,,,/~),　　.|　┷┳━
￣￣￣ .し'J￣￣|...　┃
￣￣￣￣￣￣￣ 　 .┻
0196DelギコNGNG
／￣￣￣￣￣￣￣￣￣￣￣￣￣
|　インター♪ フェースの♪しつもんだ♪ｺﾞﾙｧ？x266b;
＼＿＿＿ 　＿＿＿＿＿＿＿＿＿
　　　　　　∨
♪　　 ∧ ∧　♪
　　　　(,,ﾟДﾟ).　　♪
　　 　 |つ[|lllll］).
　　 ～|　　|
　　　　Ｕ Ｕ

ﾈｺｱﾀﾏで
DelマガのＤｅｌｐｈｉGems by ﾅｶﾑﾗ先生ﾀﾝの記事で勉強したよ

TInterfacedObjectを継承すると
QueryInterfacex _AddRef, _Release
を書かなくて済むが面倒なことがあるという事
だから気をつけるのは理解できたが

それなら一度自分で
ＴMyInterfaceObjectを作って
QueryInterfacex _AddRef, _Release
を先にかかれているTStringsStoreと同じ実装にしてしまえば
今後Interfaceを実装するときにTMyInterfaceから継承したら
Interfaceを使うのがずいぶん楽になると思うのだが
どうなんだ？考え方として正しい？
0197DelギコNGNG
　∧ ∧ 　 　 ／￣￣￣￣￣￣￣￣￣
　( ﾟ∀ﾟ)　　＜　　？x266b;音符は出ないのか?♪
　 | つ[|lllll］).＼＿＿＿＿＿＿＿＿＿
～| 　 |
　 ∪∪
0198デフォルトの名無しさんNGNG
Threadの使い方が、ＤＥＭＯを見ても良く分からないのです。
以前試してみたら、一つの処理関数が終わらないと
次の行に逝かないといった
普通の実行しかされませんでした。
0199デフォルトの名無しさんNGNG
TAction.ShortCut := 1としてもテンキーの1押しても無視されてしまうんだけど
テンキーの１をショートカットにできないの？
0200DelギコNGNG
　　∧∧ 　* 　／￣￣￣￣￣￣￣￣￣￣￣
　¶( ﾟДﾟ) / ＜　オブジェクトインスペクタじゃ無理ﾗｼｲ
　ゝ| つ●)　　 ＼＿＿＿＿＿＿＿＿＿＿＿
　（.| 　 |　　
　　U U
>>199
procedure TForm1.Button3Click(Sender: TObject);
begin
　Action1.ShortCut := VK_NUMPAD0;
end;
0201DelギコNGNG
　　∧∧ 　* 　／￣￣￣￣￣￣￣￣￣￣￣
　¶( ﾟДﾟ) / ＜　簡単なスレッドから作って逝け
　ゝ| つ●)　　 ＼＿＿＿＿＿＿＿＿＿＿＿
　（.| 　 |　　
　　U U
>>198
http://www.borland.co.jp/tips/delphi/dh004/index.html
隅から隅までずずずぃっと、嫁
0202デフォルトの名無しさんNGNG
warata。ネタ出ないとしたらｺﾞﾒｿ
0203デフォルトの名無しさんNGNG
>>199ね
0204DelギコNGNG
　∧ ∧ >>202 どこに藁うﾎﾟｲﾝﾄがぁ？
　(；ﾟДﾟ)
　(|　　|つ >>203 教育的氏怒汚
～|　　|
　 ∪∪

　∧∧∩゛　 ／￣￣￣￣￣￣￣￣￣￣￣￣￣
　(,,ﾟДﾟ)ﾉ　＜　ではまただ！
　U　　/　　　＼＿＿＿＿＿＿＿＿＿＿＿＿
　|　　|
ノ∪∪
0205デフォルトの名無しさんNGNG
Delギコ、くたばれ
0206デフォルトの名無しさんNGNG
しつもんです。
コンポーネントを作っていて、以下のようなプロパティを
設定したのです

TMargin = record
　Left, Top, Right, Bottom:Integer;
end;

THoge = class( おや )
private
　FMargin:TMargin;
　FPiyo:Integer;
publiched
　propetry Margin:TMargin read FMargin write FMargin;
　property Piyo:Integer read FPiyo write FPiyo;
end;

でも、この Margin プロパティがオブジェクトインスペクタに
表示されないんです。

Piyo の方はちゃんと表示されているので、Margin が
構造体である事が原因かと思っているのですが…
どうすればよいのでしょうか。
0207DelギコNGNG
　　　　∧ ∧　　 ／
　　　　（ ﾟДﾟ）＜　>>206 それはFormのBoundRectや
　　　　 |つ つ　 ＼ Top/Left/Height/Widthと似ているぞ
　　　～|　　|
　　　　∪ ∪

VCLから

　TControl = class(TComponent)
　private
　　function GetBoundsRect: TRect;
　　procedure SetBoundsRect(const Rect: TRect);
　public
　　property BoundsRect: TRect read GetBoundsRect write SetBoundsRect;
　published
　　property Left: Integer read FLeft write SetLeft;
　　property Top: Integer read FTop write SetTop;
　　property Width: Integer read FWidth write SetWidth;
　　property Height: Integer read FHeight write SetHeight;
　end;
0208DelギコNGNG
procedure TControl.SetLeft(Value: Integer);
begin
　SetBounds(Value, FTop, FWidth, FHeight);
　Include(FScalingFlags, sfLeft);
end;

procedure TControl.SetTop(Value: Integer);
begin
　SetBounds(FLeft, Value, FWidth, FHeight);
　Include(FScalingFlags, sfTop);
end;

procedure TControl.SetWidth(Value: Integer);
begin
　SetBounds(FLeft, FTop, Value, FHeight);
　Include(FScalingFlags, sfWidth);
end;

procedure TControl.SetHeight(Value: Integer);
begin
　SetBounds(FLeft, FTop, FWidth, Value);
　Include(FScalingFlags, sfHeight);
end;

function TControl.GetBoundsRect: TRect;
begin
　Result.Left := Left;
　Result.Top := Top;
　Result.Right := Left + Width;
　Result.Bottom := Top + Height;
end;

procedure TControl.SetBoundsRect(const Rect: TRect);
begin
　with Rect do SetBounds(Left, Top, Right - Left, Bottom - Top);
end;

つまーり、構造体のメンバーを設定するよりかは
個々のpropertyを作る事をVCLは選んでいる

プロパティエディタを作るといいかもしれないが、
FontやAnchorsのように展開できるような形には出来ないかも。

オブジェインスペの詳しい事はあまりわからん。

氏ってたら、ﾈｺにも教えて。
0209DelギコNGNG
　　　　　 ∧∧　　／￣￣￣￣￣￣￣￣￣￣￣
　＠' ― (,,ﾟДﾟ) ＜　リアルDelギコだ、ｺﾞﾙｧ
　 　し― し-Ｊ　 　＼＿＿＿＿＿＿＿＿＿＿＿

http://shopping.yahoo.co.jp/images/books/ee/71/30837225.JPG
0210デフォルトの名無しさんNGNG
>>209
このオライリーの本、買った人いる？
いい感じ？
0211デフォルトの名無しさんNGNG
これって、構造体をそのままプロパティに
使う事は出来ないという事？
0212206NGNG
ヒントをありがとう！TMarginの宣言を
以下のようにしたらうまくいきました。

TMargin = class( TPersistent )
private
FLeft, FTop, FRight, FBottom : Integer;
published
property Left:Integer read FLeft write FLeft;
property Top:Integer read FTop write FTop;
property Right:Integer read FRight write FRight;
property Bottom:Integer read FBottom write FBottom;
end;
0213デフォルトの名無しさんNGNG
>212
TWinControl継承すれば最初からLeftとかがついてくるよ

はずしてたらごめんちゃい
0214デフォルトの名無しさんNGNG
>>211
んだね。結局プロパティ化をサポートされてるのは、
プリミティブ型とClass型(のうちPersistent系)だけだ、と。

古いほうのObject型の冷遇を見れば判る(藁)ように、
構造体とかも捨て捨てっていう方針なのでしょう。
実際それで失うものは殆ど無いし。
recordやObject(まさかね)を使ってるプログラムを
Classで書き直したら、しばしば嬉しいことになるよ。
0215デフォルトの名無しさんNGNG
>古いほうのObject型の冷遇を見れば判る(藁)ように、
この方針はちょっと納得しかねるね。
パフォーマンスやヒープのフラグメントが
問題になるような場合には普通に使ってるので。

C#でも正式にサポートしてるのにね。
0216デフォルトの名無しさんNGNG
コンポーネントのソースコードに
ブレークポイントを設ける事は出来ないのですか？

自前のコンポーネントがうまく働かないので
ブレークポイントつけたが止まらず、
実行中にソースを見てみたら
ブレークポイントにＸ印がついていて無効になっていました。
0217デフォルトの名無しさんNGNG
プロジェクトの設定でコンポーネントのソースディレクトリにパスを通せばいいかも
0218216NGNG
ちなみにブレークポイントつけたのは、
コンポーネントの描画関数内です。
ちゃんと描画はされているので、
ブレークポイントを通過しないという事は無いと思うのですが。
if 文の行なので、ブレークポイントとして無効な行では
ないと思います。
0219216NGNG
>>217
プロジェクト→オプション→ディレクトリ／条件
→デバッグ用ソース検索パス
にコンポーネントソースのディレクトリを入力したんですが、
事態は一向に変わらないです…
0220217@うろ覚え>219NGNG
デバッグじゃないほうの検索パスに追加してリビルドとか
あと、コンポーネントの登録時のビルドオプションにデバッグ情報がチェックされてないとか
これでだめならもうわからん
0221デフォルトの名無しさんNGNG
>>220
ありがとう！
コンポーネントをコンパイルするときに
オプション→コンパイラ→デバッグにチェックつけたらうまくいきました。
0222デフォルトの名無しさんNGNG
昨夜のMonaUtilの質問の続きです

えーっと何がしたいってわけでも無いんですけど、、
以前言ったようにHTMLサイトから特定の場所ニュースの記事トピックスや2chで言うとスレッドタイトルだけを
くりぬいて表示する方法を知りたいのです。
0223デフォルトの名無しさんNGNG
>>215
おぶぢぇくと指向言語としてスッキリ仕立てるには、旧Object型みたいな奴は捨てる、
ってのがトレンド(ここ10年くらいの)だな。Delもそうした、ということだろう。

C#はまだ良い。というか、この問題を根底から検討しなおした結果だろう。
検討の結果として、プリミティブ型の延長に構造体(?)が有る、という
革新的な(単に誰も気付かなかっただけかも知らぬが)解決策を引っ提げてきた。

逆にいえば、あの考え方が無い限りは、フラグメントという目先(藁)の問題に
囚われてObject型的なものを導入しても、ろくなことにならん。
ならんかった結果がC++(藁

C#のアレは、MSを持ち上げたくは無いのだが(藁)、21世紀的な解法だと思う。
あと5年10年は寿命を持ってもおかしくないパラダイムだ。
地味に良い仕事をしたってことだな。
ただしMSがじゃなくて、某陸から引きぬかれた彼が、だが(藁

とはいっても完璧な答えというわけじゃないが。
実際、多態の問題や同一性の問題は相変わらず放置されたまま。
というか原理的に解決不可能。つまりトレードオフだな。
勿論C++みたいに両方を同一のObjectアーキテクチャの中に
押しこめようなどとするのは、明らかに失敗の元。
一挙両得でも狙ったのかな。御愁傷様っていう感じ。
0224デフォルトの名無しさんNGNG

　　　 ∧ ∧　 　　　　　 　／￣￣￣￣￣￣￣￣￣
|￣￣（ ﾟДﾟ)￣￣|　　　＜　　俺のことは無視か！　ﾁｸｼｮｳ！
|＼⌒⌒⌒⌒⌒⌒＼ 　　＼
|　 ＼ 　　　　　 　 　 ＼ 　　￣￣￣￣￣￣￣￣￣
＼　 ｜⌒⌒⌒⌒⌒⌒｜ ｺﾞﾙｧ
　 ＼ |＿＿＿＿＿＿＿|
0225DelギコNGNG
> んだね。結局プロパティ化をサポートされてるのは、
> プリミティブ型とClass型(のうちPersistent系)だけだ、と。

　∧ ∧
　(,,ﾟДﾟ)
　 |つ⑩Ｏ
～　　 |
　∪ ∪
プロパティ化はサポートされるが
オブジェインスペクた(OI)では設定できないって事だね。

出来るようになるといいのにな。
プロパティエディタ作っても無理かな?
OIで展開できるように作るのはかなり無理なんだろな


　　∧∧ 　　／￣￣￣￣￣￣￣￣￣￣￣
　¶( ﾟДﾟ) ＜　　>>216-221 解決してヨカッタナ
　ゝ|し　|┐　＼＿＿＿＿＿＿＿＿＿＿＿
　（_|./　|┘
　　 U U

　　∧∧ ﾌﾟﾊｰ 　／￣￣￣￣￣￣￣￣￣￣￣
　¶( ﾟДﾟ) =3 　＜　>>222 そのサイトのHTMLソースをメで見て
　ゝ| つ日~~ 　　 ＼　スレッドタイトルを解析するプログラミングせよ
　（,|/　 ） 　　　　　　￣￣￣￣￣￣￣￣￣￣￣￣
　　U U 　　　XMLｼﾞｬｱﾙﾏｲｼ ｿﾝﾅ ｶｲｾｷ ｼﾞﾄﾞｳｶ ﾑﾘﾖ

　∧ ∧ 　 　　 ／￣￣￣￣￣￣￣￣￣
　(,,ﾟДﾟ)　　＜　　>>223 為になる話ｱﾘｶﾞﾀｳ
　 | つ[|lllll］).　＼＿＿＿＿＿＿＿＿＿
～| 　 |
　 ∪∪ 　　ｵｵﾓｼﾞｺﾓｼﾞ ｦｸﾍﾞﾂｼﾅｲﾃﾞｸﾚ >>Cﾁｬｰﾌﾟ

　　　 　 　 ∧ ∧ 　／￣￣￣￣￣￣￣￣￣￣￣￣
～′ ￣￣( ﾟДﾟ)＜　 >>224 おまえはどこのわかめじゃー
　 UU￣￣ U U　　＼＿＿＿＿＿＿＿＿＿＿＿＿
0226DelギコNGNG
　　　∧ ∧
　　　(*ﾟДﾟ) Delマガが届いた
　　　/つ□
　～（　　ノ
　　　U U

　　　　　　　∧ ∧　　　 ／￣￣￣￣￣￣￣￣￣￣￣
　　　　　　 （ﾟДﾟ*）　　＜　たのしみたのしみ
　　　　 □⊂ ⊂|　　　 ＼＿＿＿＿＿＿＿＿＿＿＿
　　　　　 　 |　　 |～
　　 　 　　　∪ ∪

　　　　∧ ∧ ﾊｯ
　　Σ (,, ﾟДﾟ)
　　　　/⊃⊃□
　　～（　　ﾉ
　　　　`ＪＪ

　　　　∧ ∧ 　ｶﾞﾋﾞｰﾝ
　　　　(；ﾟДﾟ)　
　　　　/⊃⊃□ 　　　"るろー"デブすぎ！！
　　～（　　ﾉ 　　
　　　　`ＪＪ
0227デフォルトの名無しさんNGNG
>>226
俺も見た見た。
デルマガがいつまでたっても垢抜けない理由がようわかった。
0228デフォルトの名無しさんNGNG
Delphiマガジン購読したい。これって通信販売ＯＮＬＹ？
0229デフォルトの名無しさんNGNG
...プリミティブ型って何？
0230ひいいいいNGNG
Ｃ＃やっといたほうがいいんかな
0231DelギコNGNG
　　　,,'''~''~'∧,,∧ >>228 いくらなんでも、それくらい検索しろや
　～′,,,;;,, (,゜Д゜) ニャーーー
　　UU"　" U U
http://dmj.psnet.ne.jp/order/index.html

　　　　　 ∧∧　　／￣￣￣￣￣￣￣￣￣￣￣
　＠' ― (,,ﾟДﾟ) ＜　>>229 折れはﾖｸﾜｶﾗｿ.Integerとかの事か？
　 　し― し-Ｊ　 　＼＿＿＿＿＿＿＿＿＿＿＿
JavaのオブジェクトとString型との対比で使われる用語のようだ
http://java-house.etl.go.jp/ml/archive/j-h-b/021998.html

　 ∧∧　　　／￣￣￣￣￣￣￣￣￣￣￣￣￣
　(,,ﾟДﾟ)　＜　>>230 自分で決めろ
Π￣￣￣|　＼
|つ 決断 ()　 　￣￣￣￣￣￣￣￣￣￣￣￣￣￣
| |＿＿＿.|
　　∪∪
0232デフォルトの名無しさんNGNG
ボタンの色変えるコンポって沢山あるけど、
コンポ使わずにコード内で変えるにはどうするの？
0233DelギコNGNG
　 ∧∧　　　／￣￣￣￣￣￣￣￣￣￣￣￣￣
　(,,ﾟДﾟ)　＜　>>232 Windows標準コントロールの仕様だｺﾞﾙｧ
Π￣￣￣|　＼
|つ 無理 ()　 　￣￣￣￣￣￣￣￣￣￣￣￣￣￣
| |＿＿＿.|
　　∪∪
TBitBtn.Captionに'■'をセットして
FontSizeを激大にしてFontの色変えろ
0234ジーコNGNG
再帰って気持ちよくないか？
0235デフォルトの名無しさんNGNG
>>232
まずボタンの色を変える前にその必要性があるかどうか検討して味噌。
変なセンス丸出しのUIにならないように注意。
参考
http://www.geocities.co.jp/SiliconValley-Oakland/8192/
0236名無しさんNGNG
>>234
まぁｵﾅｰﾆだな
気持ちは良い
0237デフォルトの名無しさんNGNG
>>232
素直に TImage を使ったほうが早いのでは。
通常状態と押した状態２つのビットマップを保持しておき、
OnMouseDownで押した状態のＢＭＰを、
OnMouseUp で通常状態のビットマップに変更すればよい。
これをコンポーネント化すればなお良し。
0238DelギコNGNG
　　∧ ∧　 　　　　>>232,>>237
　　(　ﾟДﾟ)旦~~ 　リージョンに対応してくれたらお茶あげる
　　/　つつ
～（　　　|
　　し´し´
0239デフォルトの名無しさんNGNG
つか、なんで大文字小文字区別しね―んだよ！
0240232NGNG
アドバイスサンクスです。
またよろしく。
0241232NGNG
>>239
仕様です。
0242デフォルトの名無しさんNGNG
俺は大文字小文字区別しないからこそＰａｓｃａｌが好きだ。
他人の書いた関数名や変数名でスペルはともかく、
大小文字までやつらに合わせなきゃならないのが気に食わない。

面倒なときは全部小文字でもオッケーだし。
0243215NGNG
>>223
>おぶぢぇくと指向言語としてスッキリ仕立てるには、旧Object型みたいな奴は捨てる、
>ってのがトレンド(ここ10年くらいの)だな。Delもそうした、ということだろう。
もちろんclassが主であることは間違いないし
いまさらobjectをnew, disposeする気もさらさらないけど
やはりclassとrecordの間を埋めてくれるもobjectは(下位互換とは関係なく)欲しいね。

といってもこれ以上の機能拡張は不要なので
# 密かにprotected, propertyに対応してるし
ただこれを削除してくれるだけでいいんだけど
>オブジェクト型は，下位互換性を保つ目的でのみ残されています。そのため，オブジェクト型の使用はお勧めできません。
0244デフォルトの名無しさんNGNG
俺はプログラム始めたのがDelphiだったから、
大文字小文字の区別無しには慣れてしまっている。
だけど他言語の場合に大文字と小文字で変数とか使い分ける
なんて奴いるか？
0245170NGNG
Del６買って、ライセンス条項みたら、昔と違って、１台にしかインストール
できないように読めるんだけど、どう思う？
昔は、一人が使う限りは、同時使用しないなら何台入れてもよかったはずな
んだけど…。気のせいかな。
0246デフォルトの名無しさんNGNG
>>245
Ｄｅｌ５でも、同時使用でなくても複数インストールには
同数のライセンスが必要となってるが
0247デフォルトの名無しさんNGNG
>>245
ライセンスの問題は他人をあてにしないで自分でぼーらんどに聞きな。

実際には昔から、少なくとも Delphi5 で「本ソフトウェアを１台のコンピュータにインストールし...
インストールされたソフトウェアを他のコンピュータに自由に移動できます。」とある。

D6 ライセンスには、この文言に「お客様ただ一人」が追加になっている。

もとから、複数人での使い回しを許していたわけではないが、D6 でそこら辺を強調するように
なったようだ。
0248DelギコNGNG
　∩ ∩
　| ∪ |
./| 　　|
　| ∧ ∧　　／￣￣￣￣￣￣￣￣
　| i ,,ﾟДﾟ) ＜　　>>245 ポーランドに直接聞け
　Ｕ　Ｕ　　　＼＿＿＿＿＿＿＿＿

> 「Borland Delphi 6 使用許諾契約」より抜粋
> 1. 使用許諾
> a. ＜略＞追加ライセンスをボーランドから購入しない限り、お客様は、本
> ソフトウェアの単一のコピーを1台のコンピューターにインストールし、そのコ
> ンピューター上で使用することのみが出来ます。お客様唯一人が本ソフトウェア
> を使用する限りにおいて、本ソフトウェアを自由に1台のコンピューターから他
> のコンピューターに移すことが出来ます。＜略＞

という事だが、最後の、移す＝写す＝複写すると考えれば
本人が使う限りは複数台のマシンに使えるという事では？

いままでは他人が使っていても
同時使用しなければOKという書籍のようなライセンスだったはずだが

若干厳しくなっているね。

ソフトウェアの特性としていままでのライセンス形態がおかしいとはいえる。
いままでのライセンスでは小規模ソフトハウスでは
不正使用していてもごまかしが聞くからな。

一人の人が複数マシンで使う時に
複数ライセンス買えっつう、理不尽ライセンスは
さすがにBorlandやらんでしょう。


D5ならライセンスはこうなってる。

> ■Borland DELPHI に適用されるライセンス契約の追加条項
> ＜略＞お客様は本ソフトウェアを１台のコンピ
> ュータにインストールし、お客様のみが使用者であれば、インストールされた本ソ
> フトウェアを他のコンピュータに自由に移動することができます。お客様が個人で
> はなく団体の場合、インプライズはお客様の団体内での１人の個人（指名ユーザー）
> に上記に定める本ソフトウェアの使用権を許諾します。

個人使用なら複数台マシンのインストールは可能みたい。
ソフトウェアの移動っというのは複数インストールとして考えたらだけどね。
0249DelギコNGNG
　 ∧∧　　　／￣￣￣￣￣￣￣￣￣￣￣￣￣
　(,,ﾟДﾟ)　＜　　ライセンスのことは℡して確認
Π￣￣￣|　＼
|つﾎﾟｰﾗﾝﾄﾞ()　 ￣￣￣￣￣￣￣￣￣￣￣￣￣￣
| |＿＿＿.|
　　∪∪
> いままでは他人が使っていても
> 同時使用しなければOKという書籍のようなライセンスだったはずだが

変な思い込みかもしれんが、D3-D4時のライセンスだっけ？
曖昧な情報ユルセ。
0250245NGNG
>>247
>ライセンスの問題は他人をあてにしないで自分でぼーらんどに聞きな。
おっしゃるとおりで。

>>248
>個人使用なら複数台マシンのインストールは可能みたい。
>ソフトウェアの移動っというのは複数インストールとして考えたらだけどね。
これが実際にＯＫかどうかが気になってたところ。
やはり、ボーランド次第ってことか…。聞いてみるよ。

みなさんサンキュー。あてにしちゃって悪かった。
0251デフォルトの名無しさんNGNG
ＤｅｌｐｈｉのＩＤＥにＣの＃ＤＥＦＩＮＥのようなプリプロセッサを組み込む事は出来ますか。

{ $REPRACE SQR(X) ((X)*(X)) }
0252デフォルトの名無しさんNGNG
>251 無理。できるのはせいぜいifdef程度
0253デフォルトの名無しさんNGNG
>>252
いや、なんというか、コンパイル直前に
外部プログラムが介入してソースファイルを書き換え、差し戻すって
タイプのやつ。
0254デフォルトの名無しさんNGNG
それができれば、応用して以下のような構文も可能な事になる

const hoge array [] of integer=(1,2,3,4,5,6);

コンパイル直前に解析し、[]の部分を埋める。
0255DelギコNGNG
　　　 ,∧∧
　　　_(,,ﾟДﾟ)＿ 夏だし。
　　（＿∪＿＿）＿_ _
￣ ＝二＝-≡二￣
　　　　　　　　　　　 ／|
　　　 ,∧∧ 　　　／　 |
　　　_(,,ﾟДﾟ)⊇／　　　|
　　（＿∪＿＿）　　 　Φ 釣りでも
￣ ＝二＝-≡二￣

プリプロセッサ？

聞いたことがないけど。無理じゃネーの。
0256デフォルトの名無しさんNGNG
それが出来れば、応用してテンプレートもどきも出来そうだな
0257デフォルトの名無しさんNGNG
いまどきプリプロセッサは流行んないよ
0258デフォルトの名無しさんNGNG
>>255
ギコ猫さん、お魚釣れた？
0259DelギコNGNG
　　　　　　　　　　　 　 ＿＿＿＿＿＿＿＿＿
　　　　∧_∧ 　　　 ／ >>258
　　　　(*ﾟДﾟ)　　 ＜　 もう食っちまった
　　 >';）∪++彡　　 ＼
　　　～O　つ 　　　　 ￣￣￣￣￣￣￣￣￣
0260DelギコNGNG
　　　　　　　　　⊂⊃ 　　 　 　　＿＿＿＿＿＿＿＿＿
　　　+ 　　　* 　∧ ∧　　+　 ／
　　　　　　　　　( ﾟДﾟ)　　　＜　　食いすぎて逝ってよし
　* 　　　　　 |⌒/つつ　　　　＼　　　　　　　　　　　　　　　ﾙﾛｰ
　　　+ 　　　 川　　ﾉ　　* 　　　 ￣￣￣￣￣￣￣￣￣
　　　　　　　　ι´U　 　　　　+
0261DelギコNGNG

　　　　　　　　　　 ∧ ∧　　　 ／￣￣￣￣￣￣￣￣￣￣￣￣
　　　　　　　　　　_(ﾟДﾟ,,)　　＜　そろそろ足りない！
　　　　　　　　　 ⊂　⊂）__　　 ＼＿＿＿＿＿＿＿＿＿＿＿＿
　　　　 ／￣￣￣￣￣ ／|
　 　　∧＿∧　 　　　／／|
　 ／_(　　,,　）＿＿／／┌─────────
　||￣/　　 　）~　 ||／　＜　なにが？
　||　（_○_＿_)　　||　　　└─────────

　　　　　　　　　　　　　　　　／￣￣￣￣￣￣￣￣￣￣￣￣
　　　　　　　　　 ∧ ∧　　＜ 　ｱｽｷ-ｱｰﾄ収集せねば。
　　　　　　　　　（ﾟДﾟ,,）_＿_ ＼＿＿＿＿＿＿＿＿＿＿＿＿
　　　　 ／￣￣∪　∪　／|
　　　／∧＿∧　 　　／／|
　 ／_ （ ；´∀｀）＿／／┌─────────
　||￣（ 　　　 つ　||／　＜ 　何やってんだ、この人
　||　（_○_＿_)　　||　　　└─────────
0262DelギコNGNG
　 ∧∧　　　／￣￣￣￣￣￣￣￣￣￣￣￣￣
　(,,ﾟДﾟ)　＜　>>196 のインターフェースはダメだった
Π￣￣￣|　＼
|つ ダメ　()　 　￣￣￣￣￣￣￣￣￣￣￣￣￣￣
| |＿＿＿.|
　　∪∪
**************************************
unit StringsInt;
interface
uses Classes;
type
　IStringsInt = interface
　　['{ヒミチュ}']
　　procedure SetStringItems(Strings: TStrings);
　end;
const
　IStringsInt_IID: TGUID =
　　'{ヒロミチュ}';
implementation
end.
**************************************
unit UseInterface;
interface
　type
　　TUseInterfaceObject = class(TObject, IUnknown)
　private
　protected
　　function QueryInterface(const IID: TGUID; out Obj): HResult; stdcall;
　　function _AddRef: Integer; stdcall;
　　function _Release: Integer; stdcall;
　public
　end;
implementation
{ TUseInterfaceObject }
function TUseInterfaceObject._AddRef: Integer;
begin
　Result := -1;
end;
function TUseInterfaceObject._Release: Integer;
begin
　Result := -1;
end;
function TUseInterfaceObject.QueryInterface(const IID: TGUID;
　out Obj): HResult;
const
　E_NOINTERFACE = Hresult($80004002);
begin
　if GetInterface(IID, Obj) then
　　Result := 0
　else
　　Result := E_NOINTERFACE;
end;
end.
0263DelギコNGNG
**************************************
uses
　UseInterface, StringsInt追加

　TStringStore = class(TUseInterfaceObject, IStringsInt)
　private
　　FStrings: TStrings;
　　procedure SetStrings(const Value: TStrings);
　public
　　constructor Create;
　　destructor Destroy; override;
　　procedure SetStringItems(Items: TStrings);
　　property Strings: TStrings read FStrings write SetStrings;
　end;
{ TStringStore }
constructor TStringStore.Create;
begin
　FStrings := TStringList.Create;
end;
destructor TStringStore.Destroy;
begin
　FStrings.Free;
　inherited;
end;
procedure TStringStore.SetStringItems(Items: TStrings);
begin
　FStrings.Assign(Items);
end;
procedure TStringStore.SetStrings(const Value: TStrings);
begin
　FStrings.Assign(Value);
end;
procedure SetScreenFontNames(Obj: TObject);
var　i: IStringsInt;
begin
　Obj.GetInterface(IStringsInt_IID, i);
　if i <> Nil then
　　i.SetStringItems(Screen.Fonts);
end;//ここでiがNilになってしまう。なぜ？

procedure TForm1.Button2Click(Sender: TObject);
var　StringStore1: TStringStore;　i: Integer;
begin
　StringStore1 := TStringStore.Create;
　try
　　SetScreenFontNames(StringStore1);

　　for i := 0 to StringStore1.Strings.Count-1 do　　begin
　　　Memo1.Lines.Add(StringStore1.Strings[i]);
　　end;
　finally
　　StringStore1.Free;
　end;
end;
　∧ ∧ 　 　　 ／￣￣￣￣￣￣￣￣￣
　(,,ﾟДﾟ)　　＜　　なぜ、動作せん！？いやがらせか！
　 | つ[|lllll］).　＼＿＿＿＿＿＿＿＿＿
～| 　 |
　 ∪∪
0264デフォルトの名無しさんNGNG
>>261
得意なスポーツでも・・・
0265デフォルトの名無しさんNGNG
Mozilla のＨＴＭＬレイアウトエンジンをコンポーネント化したものって
ないっすかね？
0266デフォルトの名無しさんNGNG
>>265
MozillaにActiveX入ってる。
0267デフォルトの名無しさんNGNG
>>262
最近の Windows は MAC アドレスを GUID に含めなくなったから，
消さなくても良いよ。
0268DelギコNGNG
>>267

　　　　　　　　　　　　　　　　　/＿＿＿＿＿＿＿＿_ヽ　　| ΛΛﾏｼﾞ?
　　　　　　　　　 　 　 　 　ｶﾞﾗｯ!!||　 　 三 ||￣￣￣ ||　　　|(;ﾟДﾟ)
　　　　　　　　　　　　 　 　 　 　 || ｴｰｯ!三||　 　 ／ || 　 　|'と |⌒)
　　　 ΛΛﾅﾆｯ!?　　　　　 　 　 || ΛΛΞ||　 ／／ ||　　　|｜ | ノ
　　　(;ﾟДﾟ)ミ　　　　　　　　 　 　|| (;ﾟДﾟ)　||／／ 　 || 　 　|ι ' ~
⊆￣ιノυ　　　　　　　　　　　 ||ι 　 ⊃||／ 　 　 ||　　　|
￣￣|￣￣|￣|　　　　　　　 　 　|| ｜ ｜　||＿＿＿ || 　 　|
￣|￣￣|￣￣|ΛΛﾎﾝﾄｶﾖ…　|￣￣￣￣￣￣￣￣￣|　　 ＿＿＿＿
￣￣|￣￣|￣|;ﾟДﾟ)　　　　　　 ￣￣￣￣￣￣￣￣￣ 　／＼＿＿＿_
￣|￣￣|￣￣|　/U　　　ｽﾞﾎﾞｯ!ΛΛｳｯｿｰﾝ!?　　　　　／ΛΛ＼＿＿_
￣￣|￣￣|￣|　|　　　　　　||　(;ﾟДﾟ) ||　　　　 　 　 　 　|(;ﾟДﾟ) | ￣￣
￣|￣￣|￣￣|∪　　　 　 　||ヾ｜｜,,'|| 　　　　　　п｡｡｡|ﾟι､|　|ｵｲｵｲ…!
＾^＾^＾^＾^＾^＾^＾^＾^＾^＾^＾^＾^＾^＾^＾^＾^＾^＾^＾^＾^＾^＾^＾^＾^＾^＾^＾^＾^＾^＾^＾
0269DelギコNGNG
TMozillaBrowser
http://www02.so-net.ne.jp/~rando/mozilla/
￣￣￣∨￣￣￣￣￣
　　　∧ ∧ 　　　ﾏﾀｰﾘ
　　　(,, ﾟДﾟ)∫
　　　/　 つ旦O
　～（_ηη［￣￣￣.］
　　　　　　　￣￣￣
0270DelギコNGNG
　　　　ｼｪｰ
　　　 ∧⊂ヽ 　　／￣￣￣￣￣￣￣￣￣￣￣￣￣
　　　 (,,ﾟДﾟ)ﾉ ＜　　環境によってAAがズレるのは
　　　　| ⊃| 　　｜　なぜじゃ
　　　　| 　 | 　　　＼＿＿＿＿＿＿＿＿＿＿＿＿＿
　　　　⊂ノ～
　　　　∪
0271デフォルトの名無しさんNGNG
>>270
Ｐフォントの有無が原因では？
0272DelギコNGNG
　 ∧∧　　　／￣￣￣￣￣￣￣￣￣￣￣￣￣
　(,,ﾟДﾟ)　＜　>>262-263 GUIDが1文字違って夕夕ﾞケ夕ﾞ夕!!
Π￣￣￣|　＼
|つ宇津田() 　￣￣￣￣￣￣￣￣￣￣￣￣￣￣
| |＿＿＿.| 氏№ー
　　∪∪
　 ∧∧　　　／￣￣￣￣￣￣￣￣￣￣￣￣￣
　(,,ﾟДﾟ)　＜　>>270 単純な問題ではないようだ
Π￣￣￣|　＼
|つPｺﾞﾂｯｸ() 　￣￣￣￣￣￣￣￣￣￣￣￣￣￣
| |＿＿＿.|
　　∪∪
0273デフォルトの名無しさんNGNG
　　　　　　　　　　　　　　　　 　＼　 ｜　/
　　　　　　　　　　　　　　　　　＼　　　　 　／
　　　　　　　　　　　　　　――　　（´∀｀）　　―
　　　　　　　　　　　　　　　　　／ 　　　　 ＼
　　　　ヽ　/ /⌒＼　　　　　　　　/　｜
　　 ／ヽヽ|/⌒＼ii|＼　　　　 ノ⌒ヽ、_ノ⌒
　／ ／ヾゞ//／＼＼|　　 　/
　|／　　 |;;;;;;|　 ＼|　　 　　（　行間と文字間の
　　 　 　 |;;;;;|　　　　　　　　 ） スタイルシートの問題か？
　　 　 　 |;;;;;|　　　　　　 　 /
　　 　 　 |;;;;;|　　　 ∧∧　（　　　　　　　　(⌒
　　 　 　 |;;;;;|　　　 (,,ﾟДﾟ)　⌒ヽｌ⌒ヽ、＿）　
　　 　 　 |;;;;;|　　　ι＿つ　　　　　　　。　　　
　　 　 　 |;;;;;|　　 (＿＿＿)　　＿＿／
　 　 ....／......＼....,,,,,..U U.....,,,,［iii◎［］.......,,,
　　　　　　　　　　　　　　　　　　　　　　 　ヽゞ～～～～～～～～～
0274デフォルトの名無しさんNGNG
Delギコの炸裂ぶりが好きです。
0275DelギコNGNG
　　　　　　 ∧∧　　 ／￣￣￣￣￣￣￣
ﾁｬﾌﾟ　　＿( ﾟДﾟ)_＜　 ＩＥ５．５の問題だ!!
　ﾁｬﾌﾟ (＿ U U＿)　＼＿＿＿＿＿＿＿
　　￣ ＝二＝-≡二￣
0276DelギコNGNG
　　　>>274　告白か？順番待ちだぞ
＼　　　
　 ￣￣￣￣￣ |/￣￣￣￣￣￣￣￣￣￣￣￣￣
　　　　　　　　∧ ∧∧∧
　　　　　　　 (,,#ﾟДﾟ) _　,,) ﾊﾆャｰﾝ
　　　ﾊﾟｺﾊﾟｺ/ 　 つ 　 |
　　　　　 ((（ヽ　 ﾉ ／Ｕ
　　　　　　　Ｕ ＵＵ
0277デフォルトの名無しさんNGNG
>>275
具体的にどういうこと？
0278DelギコぞにっくNGNG
（　　/＼/＼　　／￣￣￣￣￣￣￣
　〃⌒　ﾟДﾟ）＜　氏った事か
　｀ＪJ~ＪＪ　　　＼＿＿＿＿＿＿＿
http://piza.2ch.net/mona/kako/978/978524343.html
http://piza.2ch.net/mona/kako/964/964142287.html

ぐるぐるで検索するヨロシ
http://www.google.com/search?hl=ja&safe=off&q=%83M%83R%94L+AA+IE5.5&lr=
0279デフォルトの名無しさんNGNG
ちょっと質問なんだけど、
スタートボタンに時計やらアイコンやら表示するのあるけど、
あれってどうやればいいんですか？
簡単にできますか？
0280DelギコぞにっくNGNG
（　　　 へへ　　／￣￣￣￣￣￣￣
　〃⌒　ﾟДﾟ）＜ 　マッハで逝くぜ！
　｀ＪJ~ＪＪ　　　 ＼＿＿＿＿＿＿＿

今月号のDelマガにCOMサーバーの
作り方が載っている

D6の紹介記事もなかなか葦
0281DelギコぞにっくNGNG
（　　　/＼/＼　　／￣￣￣￣￣￣￣￣￣￣
　〃⌒（　ﾟДﾟ）＜　>>279 TClockのソースみレ
　｀ＪJ~ＪＪ　　　　＼＿＿＿＿＿＿＿＿＿＿

そしておもむろにアキラメロ
0282うほほNGNG
#include <stdio.h>

main()
{
char *str = "abc";
int i, j, k;

for ( i = 0; i < 3; i++ )
for ( j = 0; j < 3; j++ )
for ( k = 0; k < 3; k++ )
printf("%c%c%c\n", *(str+i), *(str+j), *(str+k));
}
--
このプログラムでは"abc"の組み合わせを全て印刷しますが、
もっとうまい方法がありそうです。たとえば１０文字になったら
どうするんでしょうか。i,j,k,l,m,,と増やし続けるんでしょうか。

再帰でしょうか？ヒントください。
0283デフォルトの名無しさんNGNG
>282
abcを数字列に見立てて繰り上がりで処理せよ
aaa
aab
aac
aba
...

つかスレ違い
0284DelギコNGNG
／￣￣￣￣￣￣￣￣￣￣￣￣￣
|　考え中
＼＿＿＿ 　＿＿＿＿＿＿＿＿＿
　　　　　　∨
♪　　 ∧ ∧　♪
　　　　(,,ﾟДﾟ).　　♪
　　 　 |つ[|lllll］).
　　 ～|　　|
　　　　Ｕ Ｕ
0285名無しさんNGNG
>>283
３進数を処理するんだね
0286ジーコNGNG
ではa-zを処理するとしたら、２６進数を処理するってことですね。
000 = aaa
001 = aab
..
.
026 = aaz
となる？
0287283NGNG
スレタイトルよく見たらＤｅｌ専じゃなかったのね
ごめんよ>282 紛らわし～じゃね～か >Delギコ

実装としては直接整数と対応させる必要は特になくって
与えられた文字列を普通にchar[]として処理すればいいと思う

スクリプト言語にはこんな関数がある。参考までに

　以下のような次の文字列を返します．

　"aa".succ => "ab"
　"99".succ => "100"
　"a9".succ => "b0"
　"Az".succ => "Ba"
　"zz".succ => "aaa"
0288283NGNG
>スレタイトルよく見たらＤｅｌ専じゃなかったのね

>1みたらやっぱDel専じゃん
わけわからん
0289DelギコNGNG
／￣￣￣￣￣￣￣￣￣￣￣￣￣
|　>>282　出力が10^10=10000000000=100億になるので
|　考えてモノ言え
＼＿＿＿ 　＿＿＿＿＿＿＿＿＿
　　　　　　∨
♪　　 ∧ ∧　♪
　　　　(,,ﾟДﾟ).　　♪
　　 　 |つ[|lllll］).
　　 ～|　　|
　　　　Ｕ Ｕ
理論的には出来たんだが
5文字程度が限界、高速化は自分でシロ

　　function Power(A: Integer; B: cardinal): Int64;
　　var
　　　i: Integer;
　　begin
　　　if B=0 then
　　　begin
　　　　Result := 1; Exit;
　　　end;

　　　Result := A;
　　　for i:=2 to B do
　　　begin
　　　　Result := Result * A;
　　　end;
　　end;

//Id = 3, CharCount = 3, Loop = 3, Tbl = '123'とすると
//111222333111222333111222333という文字列を返す
//Id = 3, CharCount = 1, Loop = 3, Tbl = '123' とすると
//123123123という文字列を返す
function MakeCharTbl(Id, CharCount, Loop: Integer; Tbl: String): String;
var
　i,j,k: Integer;
begin
　if Length(Tbl) <> Id then Exit;

　Result := '';
　for k:=1 to Loop do
　begin
　　i := 1;
　　while (i <= Id) do
　　begin
　　　for j:=1 to CharCount do
　　　　Result := Result + Tbl[i];
　　　Inc(i);
　　end;
　end;
end;
0290DelギコNGNG
procedure TForm1.Button3Click(Sender: TObject);
const
//　S: String = 'abcdefghij';
　S: String = 'abcde';
var
　Len: Integer;
　i, j, k, l: Integer;
　Ext: Extended;
　OutputStr: String;
　OutputStringList: TStringList;
　Id, CharCount, Loop: Integer;
begin
　Len := Length(S);

　OutputStringList := TStringList.Create;
　for i := 1 to Len do
　begin
　　Id := Len;
　　CharCount := Power(Len,i-1);
　　Loop := Power(Len, Len) div (Id*CharCount);
　　OutputStringList.Add( MakeCharTbl(Id, CharCount, Loop,S) );
　end;
　//テーブルを作る

　for j := 1 to Power(Len,Len) do
　begin
　　OutputStr := '';
　　for i := Len-1 downto 0 do
　　begin
　　　OutputStr := OutputStr + OutputStringList.Strings[i][j];
　　end;

　　Memo1.Lines.Add(OutputStr);
　end;
end;

　∩ ∩
　| ∪ |
　|　 ～
　| ∧ ∧　　　／￣￣￣￣￣￣￣￣
　| i ,,ﾟДﾟ) ＜　>>283 >>19 ミロ あんたがワケワカメ
　Ｕ　Ｕ　　　　＼＿＿＿＿＿＿＿＿
0291DelギコNGNG
　　∧∧ ﾌﾟﾊｰ 　／￣￣￣￣￣￣￣￣￣￣￣
　¶(　ﾟДﾟ) =3 　＜　ｱﾀﾏが熱暴走してまうぞ
　ゝ| つ日~~ 　　 ＼＿＿＿＿＿＿＿＿＿＿＿
　（,|/　 ）
　　U U 　　ﾄﾞｳｻ ｹｯｶ 堕

aaa / aab / aac / aba / abb / abc / aca / acb / acc /
baa / bab / bac / bba / bbb / bbc / bca / bcb / bcc /
caa / cab / cac / cba / cbb / cbc / cca / ccb / ccc /

aaaa/aaab/aaac/aaad/aaba/aabb/aabc/aabd/aaca/aacb/aacc/aacd/aada/aadb/aadc/aadd/
abaa/abab/abac/abad/abba/abbb/abbc/abbd/abca/abcb/abcc/abcd/abda/abdb/abdc/abdd/
...
dcaa/dcab/dcac/dcad/dcba/dcbb/dcbc/dcbd/dcca/dccb/dccc/dccd/dcda/dcdb/dcdc/dcdd/
ddaa/ddab/ddac/ddad/ddba/ddbb/ddbc/ddbd/ddca/ddcb/ddcc/ddcd/ddda/dddb/dddc//dddd
0292DelギコNGNG
　 ((∽)) 　　　　　　　　　　　　　　　　　　　　　　　
　 ∧|∧　　　／￣￣￣￣￣￣￣￣ 　　　　　　　　　　　　　　　　　　　　　　　
　 ( ﾟДﾟ)　＜　コンパイル出来んとか言うナ　　　　　　　　　　　　　　　　　　　　
　 ⊃　つ　　 ＼＿＿＿＿＿＿＿＿ 　　　　　　　　　　　　　　　　　　　　　　　
　 |　　| 　　　　　　　　　　　　　　　　　　　　　　　
丿U U 　お盆明けにはD6PersonalがDL可能だ　　　　　　　　　　　　　　　　　　　　　　
　　　　　　少し待ってろ
0293DelギコNGNG
／￣￣￣￣￣￣￣￣￣￣￣￣￣
|　スレタイトルはやっぱりわかりにくいか、ｽﾏｿ
|　しかし、スレの目的なんぞ定義せんでもよし
|
|　新米ギコの帰りを願うスレでもなんでも。
＼＿＿＿ 　＿＿＿＿＿＿＿＿＿
　　　　　　∨
　　　　　ΛΛc､　ｿﾛｿﾛ ﾋｸﾞﾚ
　　　　 (　ﾟДﾟ).|
　　　　 （|　　 ノ
　　　　～　　| 　　新米ギコカムバーック
　　　　　∪∪

ところで、ﾈｺでもわかる理論的考察。
aaa
aab
aac
aba
abb
abc
aca
acb
acc
baa
bab
...
縦の列に注目してミレ
a b c a b c a b c a b c a b c a b c a b c a b c a b c
a a a b b b c c c a a a b b b c c c a a a b b b c c c
a a a a a a a a a b b b b b b b b b c c c c c c c c c
この文字列を作成して
縦にピックアップしてみただけ。
0294デフォルトの名無しさんNGNG
Delphiのコンポーネントパレットを見てください。
Windows標準にちかい色設定をしているならば、
メモコンポーネントのアイコンは、
紙の部分が白っぽい灰色になっているとおもいます。

さて、ここでウィンドウの色設定を赤にかえてみてください。
メモコンポーネントのアイコンは、
紙の部分が白っぽい赤色に変わっていませんか？

このように、環境によってボタンアイコンの色を変えるのはどういう風に
しているのでしょう。自前のコードで、環境に応じてその都度
描画しているのでしょうか。
0295名無しさんNGNG
／￣￣￣￣￣￣￣￣￣￣￣￣￣
|　どうよ
＼＿＿＿ 　＿＿＿＿＿＿＿＿＿
　　　　　　∨
♪　　 ∧ ∧　♪
　　　　(,,ﾟДﾟ).　　♪
　　 　 |つ[|lllll］).
　　 ～|　　|
　　　　Ｕ Ｕ

const
keta=3;
hanni=24;
var
Max,BaseCount,MathCount,Thirdagon:Integer;
Result:String;
begin
Max := Round(Power(hanni,keta));
for BaseCount := 0 to Max-1 do
begin
Result := '';
Thirdagon := BaseCount;
for MathCount :=0 to Keta-1 do
begin
Result := Chr($61 + Thirdagon mod hanni) + Result;
Thirdagon := Thirdagon div hanni;
end;
Memo1.Lines.Add( Result );
end;
end;
0296DelギコNGNG
>>294
　 　∧ ∧　 　／￣￣￣￣￣￣￣￣￣￣￣￣￣￣
　 　(,,ﾟДﾟ)　＜　アレはシステムのButtonHilightの色だな
　 ／つ　つ 　|　手持ちのソフトではEmEditorや
／＿|　　| 　 ｜ KHIconStudioがそのような描画方式をとっている
￣ ノU U　　　＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿
　　　　　
ほとんどのソフト、Office2000やBecky2でさえ
そういう描画方式にはなっていない。

まさか環境に応じて描画はしていないだろう。

普通のImageListを使ったToolButton設定方法ではまず無理だが
自前でclBtnHighLightでアイコン部分を描画したら
ヨシと思われ。

やり方はｻﾊﾟｰﾘわからんが
0297DelギコNGNG
　 ∧∧　　　／￣￣￣￣￣￣￣￣￣￣￣￣￣
　(,,ﾟДﾟ)　＜　>>295　素敵
Π￣￣￣|　＼
|つ ナイス()　 　￣￣￣￣￣￣￣￣￣￣￣￣￣￣
| |＿＿＿.|
　　∪∪
0298DelギコNGNG
　　　 ,∧∧
　　　_(　ﾟДﾟ)＿ 夏だし。
　　（＿∪＿＿）＿_ _
￣ ＝二＝-≡二￣
　　　　　　　　　　　 ／|
　　　 ,∧∧ 　　　／　 |
　　　_(　ﾟДﾟ)⊇／　　 .|
　　（＿∪＿＿）　　 　Φ 釣りでも
￣ ＝二＝-≡二￣

　　　　∧ ∧　　
　　　　（　ﾟДﾟ）　欝だし
　　　　 |つ つ　
　　　～|　　|
　　　　∪ ∪

　　　 　　 ||
　　　 　Λ||Λ
　　　 （ / ⌒ヽ
　　　 　| | 　　|
　　　 　∪ 亅|
　　　 　 |　|　|
　　　 　 ∪∪
　　　 　　 ：
　　　 　　 ：
　　
　　　 　‐ニ三ニ‐
首でも
.＿＿＿＿＿＿＿＿＿
|　　　　　　　　　　　　　|
|　とりあえずＣＭです .|
|＿＿＿＿＿＿＿＿＿|
　　 ∧,,∧　||
⊂ミ.,,ﾟДﾟ彡つ
0299DelギコNGNG
　　　　　　　ﾐ'''',,
　　　　 （(　 ﾐ , ',　 )）
　　 ∧ ∧　 ﾐ , ', 　　　∧ ∧　ﾅﾝﾀﾞｺﾚ？
　　 (,,ﾟДﾟ)　　 ||　　　　(ﾟーﾟ*)
　　　|つつ　 　||/| 　　⊂　|
　`～|　 |　　 ／/　　　　|　～
　　　U U　　　|/ 　　　　UU
　　　　
　　　　　　　ﾐ'''',,　　ﾌﾟﾙﾌﾟﾙ
　　　　 （(　 ﾐ , ',　 )）
　　 ∧ ∧　 ﾐ , ', 　　　∧ ∧
　　 (,,ﾟДﾟ)　　 ||　　　　(ﾟーﾟ*)
　　　|つつ　 　||/| 　　⊂　|
　`～|　 |　　 ／/　　　　|　～
　　　U U　　　|/ 　　　　UU

・・・・。　　　ﾐ'''',,　　ﾌﾟﾙﾌﾟﾙﾌﾟﾙﾌﾟﾙ
　　　　 （(　 ﾐ , ',　 )）
　　 ∧ ∧　 ﾐ , ', 　　　∧ ∧　・・・・。
　　 (；ﾟДﾟ)　　||　　　　(ﾟーﾟ；)
　　　|つつ　 　||/| 　　⊂　|
　`～|　 |　　 ／/　　　　|　～
　　　U U　　　|/ 　　　　UU
0300DelギコNGNG
　　　ﾋﾟｮﾝ!　　
　　　　　　　　　　　　ﾋﾟｮﾝ!
　　　　　　∧ ﾐ''''
　　　　　　(,,ﾟДﾐ∧∧
　　　　　　|　つﾐーﾟ*)
　　　　`～ヽつ||⊂　|
　　　彡　　　　 |⊂ ' ～　ミ
　　　　　　　　／/
　　　　　　　　|/

　　　　　　！！
　　　　　　
　　　　　　∧ ﾐ''''
　　　　　　(,,ﾟДﾐ∧∧
　　　　　　|　つﾐーﾟ*)
　　　　`～ヽつ||⊂　|
　　　　　　　　 .|⊂ ' ～
　　　　　　　　／/
　　　　　　　　|/

　　　ﾈｺ･･･　　　　　　　　　　　　　　　彡
　　　　ｼﾞｬﾗｼ･･･?
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　彡
　　　　　　∧ ﾐ'''' 　　　　　　　　　　　　ﾋｭｳｳｳｳ～
　　（(　 　(；ﾟДﾐ∧∧ 　　　　　　　彡
　　　　　　|　つﾐーﾟ*)
　　　　`～ヽつ||⊂　|　　　)）　　　　　　　　　　　彡
　　　 　　　　　|⊂ ' ～
　　　　　　　　／/
　　　　　　　　|/
　　　￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
0301デフォルトの名無しさんNGNG
>>296
ありがとう、やはり自前で書くしかなさそうですね。
ＢＭＰアイコンを編集する際に
通常の色、反転色、透過色のほかに、
システムカラーなんてものを用意しておき、
システムカラー属性でかかれた部分を
コンポーネント側で自動調整するようなボタンコンポーネント
＋専用画像エディタをつくるのがベストですか。
0302デフォルトの名無しさんNGNG
>>292
>お盆明けにはD6PersonalがDL可能だ　　　　　　　　　　　　　　　　　　　　　

ガセだよ
0303デフォルトの名無しさんNGNG
>>302
ガセでもないと思われ。年末になっても盆明け。(ﾜﾗ
0304DelギコNGNG
　　　　　　 ∧∧　　 ／￣￣￣￣￣￣￣
ﾁｬﾌﾟ　　＿( ﾟДﾟ)_＜　 >>301 あまりｺﾀﾞﾜﾗﾝDEMO
　ﾁｬﾌﾟ (＿ U U＿)　＼＿＿＿＿＿＿＿
　　￣ ＝二＝-≡二￣

ベキー2でもButtonFaceやBtnHilightが影響してするよう夕ﾞ。

でも、それほど気にすることでもないことない？
それこそ、フレームワーク依存って事で
少しあきらめるのが現実的だと思うな。

実際、DelフィーIDEでもコンポパレットは
そういう描画仕方だけど、Toolbarは違うし

Emもベキも起動時にアイコンの白色(?)部分に
システム色を読み取っているようです。

APIの仕様？

　 　　∧∧　　／￣￣￣￣￣￣￣
　 　　( ﾟДﾟ)＜　>>302-303 マヅ！ ダマされた？
　 　　|⊃|⊃＿＼＿＿＿＿＿＿＿
　　（＿￣＿＿）
￣ ＝二＝-≡二￣
030518才の◇◇◇（新）芸能人彼氏と芸能人NGNG
◆◆◆（新）芸能人彼氏とＨ芸能界の表裏画像動画大公開◆◆◆
◆アイドル画像秘宝館◆
http://www.futomomo.com/netidol/idolhappy/maki/
◆綺麗なおねぇさんは好きですか？◆
http://www.futomomo.com/netidol/sister/megu/
◆セーラー服◆
http://www.futomomo.com/netidol/sailor/miku/
◆モーニング娘 ◆
http://www.futomomo.com/netidol/morning/mai/

◆◆◆（新）芸能人彼氏とＨ芸能界の表裏画像動画大公開◆◆◆
◆アイドラー◆
http://www.futomomo.com/netidol/idoler/momo/
◆綺麗なおねぇさんは好きですか？◆
http://www.futomomo.com/netidol/sister/megu/
◆アイドラー◆
http://www.futomomo.com/netidol/idoler/momo/
◆モーニング娘 ◆
http://www.futomomo.com/netidol/morning/mai/

hjyhjukuku
0306DelギコNGNG
‰　 ‰／　‰ 　　　　　　か
　|／‰　‰ 　　　　　　　 ち
　　／￣ 　　　　　　　　　　ゅ
　　|　　Δ＿ Δ 　　透　　｜
　　|　（ ★ﾟДﾟ★） 　明　　し
　　|　　 |つ⑩Ｏ 　　あ　　 ゃ
　　|Θ～　　 | 　　　ぼ　　で
　　| 　　∪ ∪ 　　　｜
￣￣￣￣￣￣￣ 　ん
ﾌﾕｼﾞﾀｸ
0307デフォルトの名無しさんNGNG
ギコ猫さん、ご先祖様のお参りした？
0308DelギコNGNG
／￣￣￣￣￣￣￣￣￣￣￣￣￣
|　　夜のお墓怖い♪
＼＿＿＿ 　＿＿＿＿＿＿＿＿＿
　　　　　　∨
　　δ　　　　　　δ
♪　　 ∧ ∧　♪ 　　δ
　　　 （、ﾟДﾟ)　　♪
　　 　 |つ[|lllll］).
　　～(　　/ 　　　　　δ
　　　　）,ノ
　　　 υ
0309DelギコおしゃれマントさんNGNG
　　　 ＿_
　　_∧＿l＿　／￣￣￣￣￣￣￣￣￣￣￣￣￣￣
　 　(,,ﾟДﾟ)　＜　D6のLabelEditのような物を
　 ／つ　つ 　|　TComponentで実装してみたいが
／＿|　　|＼ ｜ ｵﾗやりガたわかんネ
￣ ノU U ￣　＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿

2つのプロパティで設定したControlの位置を合わせたい。

プロパティでMainControlとSubControlを設定するのはできるんだが
それらが移動したりResizeしたりするときの
メッセージを横取りするなどはどうやって実装したらいいの？

{ TCompoPosition }

procedure TCompoPosition.Notification(AComponent: TComponent;
　Operation: TOperation);
begin
　inherited Notification(AComponent, Operation);
　case Operation of
　　opRemove:
　　　begin
　　　　if (Operation = opRemove) and (AComponent = MainControl) then
　　　　　MainControl := nil;
　　　　if (Operation = opRemove) and (AComponent = SubControl) then
　　　　　SubControl := nil;
　　　end;
　end;
end;

procedure TCompoPosition.SetMainControl(const Value: TControl);
begin
　if FMainControl <> Value then begin
　　FMainControl := Value;
　　if FMainControl <> nil then
　　begin
　　　FMainControl.FreeNotification(Self);
　　end;
　end;
end;

procedure TCompoPosition.SetSubControl(const Value: TControl);
begin
　if FSubControl <> Value then begin
　　FSubControl := Value;
　　if FSubControl <> nil then
　　　FSubControl.FreeNotification(Self);
　end;
end;
0310デフォルトの名無しさんNGNG
メニューアイテムのキャプションにハイフンを入力すると、
これは単なる区切り線として機能し、選択する事は出来ません。

同じ事をコンボボックスのリスト表示部でやりたいのですが、
区切り線はオーナードローで書くとして、
特定のアイテム（この場合はハイフン）を
”選択させない”という事は可能ですか？
0311名無しさんNGNG
>>310
／￣￣￣￣￣￣￣￣￣￣￣￣￣
|　選択されたら上ないし下に逃がすってのはどうよ？
＼＿＿＿ 　＿＿＿＿＿＿＿＿＿
　　　　　　∨
♪　　 ∧ ∧　♪
　　　　(,,ﾟДﾟ).　　♪
　　 　 |つ[|lllll］).
　　 ～|　　|
　　　　Ｕ Ｕ
0312デフォルトの名無しさんNGNG
>>310
これ、意外と需要あるんじゃないですかね？
ボーダーをnone にしたウィンドウのキャンバスにリストを描画し、
これをTEditと組み合わせてコンボボックスを
エミューレートしてやれば…
選択不可能な項目もOK
リストからサブリストを出す事もできるかもしれないYO!!!!
0313DelギコNGNG
　　∧∧ 　　　／￣￣￣￣￣￣￣￣￣￣￣
　　(,ﾟДﾟ)　　＜ 需要あるかな？？
　ヽ/つ且~~　 ＼＿＿＿＿＿＿＿＿＿＿＿
　 （__　_）

やってる人はやってると思われ
Editに[...]ボタンや[▼]ボタン付コントロールは
沢山あるだろうね。

ComboBoxにChkListBox付けてしまうとか簡単だな。
0314DelギコNGNG
　　　　　　　∧ ∧　　・・・・。
　　　　　　　(　ﾟДﾟ)
　　　　　　　|∪ |
　　　　　 ～|　　|
　　　　　　　U U

　あまーり、他言語に関わる批判はしたか、ないが
　別にVC++が悪いと言うわけじゃないんだ。決して
　しかし、このデブちゃんは・・・・・

我が愛しのVisual C++
http://www.atmarkit.co.jp/fdotnet/opinion/kawamata/2001_08.html

このデブちゃん曰く

> 　そんな状況からスタートしたので、開発ツールというものの存在意義には非常
> に敏感である。何しろ、開発ツールが改善されることにより、劇的にプログラミン
> グの労力が軽減されるという事態を何度も体験したのである。プログラムを作る
> という行為は面白いものだが、何も好きこのんで、苦行まで受け入れる必要はな
> い。楽してプログラムが組めれば、それに越したことはないのである。

とからしい・御説ごもっとも、でも誰が敏感なんだ？

> 　過去の経験上、開発ツールのなかで最もキーポイントになるのはデバッガだと
> 感じる。デバッガだけは他のツールと違って特別なのだ。

> Visual Studio .NETは、Webアプリケーションの開発をサポートしているが、デバ
> ッガまでこれに真正面から対応している。ちょっとしたサーバ・サイドのスクリプト
> を、実際にWebサーバとWebブラウザを動作させながら、それでいてソースコード
> デバッグできるというのは強烈な体験と言える。これで、Windows対応で乗り越え
> たハードルに匹敵する大きなハードルを超えたような気がする。

いやあ、Webアプリケーションを
Windowsだけで終結させられるという
素敵な思い込みで逝きつづけられるのは
有る意味大変幸せですね。視野狭窄な奴は。

このおでぶ・Ｊａｖａとか全くしらなさそう。
ﾈｺもよく氏らんが
サーブレットのデバッグがちゃんとできることくらい氏てーるぞ

Topページの紹介文が
> Webコンテンツ制作とプログラミングは、次世代開発環境で融合するのではない
> か？　その根本的な変革の可能性をVisualStudio .NETに感じる
だというが、こういう記事書くならせめてWebアプリの現状認識くらいしたらどうだ？

つーか何このタイトル（ｗ・『我が愛しのVisual C++ 』

こんなｵﾅﾆ-記事なら誰でも書けるじゃねーか。
『我が愛しのDelphi』『我が愛しのVisual Basic』
『我が愛しのRuby』『我が愛しのHSP』

記事かくまえに痩せろ！
0315DelギコNGNG
　　　　　 　 ∫
　　　∧,,∧ ∬　　　　 　 ／￣￣￣￣￣￣￣￣￣
　　 ミ,,ﾟДﾟノ,っ━~　　＜　ドイツもこいつも逝ってﾖｼ……ﾌﾟﾊｧ
＿と~,,,　　~,,,ﾉ＿.　∀　　＼＿＿＿＿＿＿＿＿＿
　　　 .ﾐ,,,/~),　　.|　┷┳━
￣￣￣ .し'J￣￣|...　┃
￣￣￣￣￣￣￣ 　 .┻

川俣君の経歴を見るとよし
http://www.atmarkit.co.jp/fdotnet/opinion/kawamata/2001_08.html
大層な役職についているが

> 卒業後はマイクロソフト株式会社に入社、
> Microsoft Windows 2.1～3.0の日本語化に従事。

ああ、元社員の自社礼賛記事なわけか。

> Java、XML、C#などの先進性をいち早く見抜き、率先して取り組んできている。
ほんとかよ。本人の思い込みじゃネーノ

ﾊｯﾀﾘ野郎がのし上がるという社会の縮図を見た気がする
0316デフォルトの名無しさんNGNG
この手の業界ではハッタリが重要ということでないの？
0317DelギコNGNG
　∧ ∧ 　 　 ／￣￣￣￣￣￣￣￣￣
　( ﾟ∀ﾟ)　　＜　　憎まれっ子世にはばかる
　 | つ[|lllll］).＼＿＿＿＿＿＿＿＿＿
～| 　 |
　 ∪∪
川俣氏の公開オンラインソフト一覧
http://www.piedey.co.jp/softs/index.html
典型的な単なる昔のCUI屋のオヤジだね。

個人叩きもﾂﾏﾗﾝので辞めとこかー。
0318デフォルトの名無しさんNGNG
なんつーかこう、暑すぎ。
Delギコは車の下なんかで涼んでるのか？
0319デフォルトの名無しさんNGNG
ギコ猫さん、こういうの好き？

http://www.watch.impress.co.jp/akiba/hotline/20010811/image/nfish1.html
0320DelギコNGNG
　∧ ∧ 　　　／￣￣￣￣￣￣￣￣￣￣￣
　( ﾟДﾟ)　　＜ 　D6がまもなくﾀﾞｳｿ可能はデマ？
　 |∪ |つ∀　＼＿＿＿＿＿＿＿＿＿＿＿
　 |　 ｜ 　
　 U U 　　という情報そのものがデマの気がしてきた。
　　　　　　2chだし。
　　　　　　マ、9月まで気長に。
　　　　　　　　　　　 　 ＿＿＿＿＿＿＿＿＿
　　　　∧_∧ 　　　 ／
　　　　(*ﾟДﾟ)　　 ＜　>>319 骨までうまそう
　　 >';）∪++彡　　 ＼
　　　～O　つ 　　　　 ￣￣￣￣￣￣￣￣￣
http://www.watch.impress.co.jp/akiba/hotline/20010811/etc_fishbone.html

魚と骨といえば明和電機
0321DelギコNGNG
　暑いのは・・・・・

　　∧ ∧　　　　　　　 　　　。｡o｛　ｺﾞｸﾗｸ､､
　　(　ﾟДﾟ)　　ﾊﾟﾀﾊﾟﾀ　∧_∧
　　/　　つ=○ ))　　　(*- -)⌒ヽ～
～（＿_ﾉ　,,,　,　,, ,,,,　 ⊂⊂⊂⊂　,,, ,　,,

　　夏だから
0322デフォルトの名無しさんNGNG
>>320
http://www.borland.co.jp/news/del6personal.html
で書いてる通り。年末でも盆明けはネタ。
９月入れば出るでしょ。
0323DelギコNGNG

　　♪　　　　ﾄﾞﾝ ﾄﾞﾝ ﾄﾞﾝ ﾀｶﾀｯﾀ
　　　　∧ ∧　　 ,，──,－､　 ♪
　　　　(,,ﾟДﾟ) / （：　　：（　　） ))
　　 　 |つ／つ　 `ー─``ー'
　　 ～|　　|　　　┣━━┫┨
　　　　Ｕ Ｕ　　　┠┤　 ┣┫

　　夏だから、

　　　浴衣姿のネーチャンも見れる
0324DelギコNGNG
　　　　　　　　　　　 Λ Λ
　　　　　　　　　　　 (,,ﾟДﾟ)　ｦﾖﾖ
　　　　　　　　　　　/　つつ
　　　　　　　⌒ ⊂　　 /
　　　　　　⌒　　　 　Ｊ

>>309　の質問、よろしくね。

参照コントロールの移動&リサイズタイミング
どやって取得するかしら。
0325デフォルトの名無しさんNGNG
D6Personalって
英語版と日本語版の違いはメッセージ（ヘルプ）が
英語か日本語かの違いだけ？
0326DelギコNGNG
　　∧∧ 　　／￣￣￣￣￣￣￣￣￣￣￣
　¶( ﾟДﾟ) ＜　　しーらない
　ゝ|し　|┐　＼＿＿＿＿＿＿＿＿＿＿＿
　（_|./　|┘
　　 U U
0327デフォルトの名無しさんNGNG
「ＴｅｃｈＷｉｎ」って雑誌の次号予告(９月８日発売？)に
Delphi6Personal最速収録(予定)なんて書いてあったぞ。
0328DelギコNGNG
　　　>>309 またサブクラス化でできたぞ。
　　　　　サブクラス化マンセー(ウゾ)

　　.￣￣∨￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
　　 　.　∧,,∧
　　 　 ミ　ﾟДﾟ ミ
　　　 　(ﾐ 　ﾐ)
　　　 ～ﾐ 　ﾐ
　　　 　 ∪∪

　　ソースアップ板はどこかにないかのお。

type
TCompoPosition = class(TComponent)
...
published
property MainControl: TControl read FMainControl write SetMainControl;
property SubControl: TControl read FSubControl write SetSubControl;
end;

MainControlとSubControlを指定して
設計時でも実行時でもMainControlが移動すると
その分、SubControlも移動してくれる。
単にMainControlのWM_MOVEを見てるだけ。

どんなコントロールでもOKだから、D6のLabelEditより使いやすかろう。

それにしても、サブクラス化メンドウね。
あと他ｺﾝﾎﾟｰﾈﾝﾄの参照プロパティの
削除考慮コーヂングも、ｳｻﾞｲなあ。こんなのコーディングしたくねえ。

各コンポーネントにOnMessageイベントでもあればいいのに。そうはならんのか。
0329295NGNG
／￣￣￣￣￣￣￣￣￣￣￣￣￣
|　速度的には、この辺が限界だたよ
＼＿＿＿ 　＿＿＿＿＿＿＿＿＿
　　　　　　∨
♪　　 ∧ ∧　♪
　　　　(,,ﾟДﾟ).　　♪
　　 　 |つ[|lllll］).
　　 ～|　　|
　　　　Ｕ Ｕ

const
　Keta=3;
　Hanni=24;
　AlphabetTop=$61;
var
　BaseCount,MathCount,BaseNumber:Integer;
　Result:Array of Char;
begin
　SetLength(Result,Keta);
　for BaseCount := 0 to Round(Power(hanni,keta))-1 do
　begin
　　BaseNumber := BaseCount;
　　for MathCount :=0 to Keta-1 do
　　begin
　 　Result[MathCount] := Chr(AlphabetTop + BaseNumber mod Hanni);
　 　BaseNumber := BaseNumber div Hanni;
　　end;
　　Memo1.Lines.Add( String(Result) );
　end;
end;

ｵﾅｰﾆﾀﾞﾅ
0330DelギコNGNG
　　　　　　∧ ∧ 　　／￣￣￣￣￣￣￣￣￣
　　　　　　( ﾟДﾟ)　＜ 　>>327 情報ThanX
　　　　　　/⊃⊃ 　　＼
　　　　～（　　ﾉ 　　　　 ￣￣￣￣￣￣￣￣￣
　　　　　⊂`Ｊ 　　　ﾋﾟｮﾝ
　　　　　　｜｜
　　　　　　ωωω

　　TechWinは坊ランドの才才ノ夕ｿも連載していたから
　　こういう情報が早いのかもね。
0331デフォルトの名無しさんNGNG
>>330
またＤｅｌｐｈｉ講座が始まるかもね。
0332DelギコNGNG
　　　　　 ∧∧　　／￣￣￣￣￣￣￣￣￣￣￣
　＠' ― (,,ﾟДﾟ) ＜　人生ｵﾅｰﾆ
　 　し― し-Ｊ　 　＼＿＿＿＿＿＿＿＿＿＿＿

　　ｵﾅｰﾆAA貼るのは自粛
0333デフォルトの名無しさんNGNG
>>328
ここ時々見てるけどＤｅｌｐｈｉは全然増えない・・・

http://www.layer-8.com/sce/
0334DelギコNGNG
　ｱｯﾌﾟ板
　BBS形式がいいのだが・・・
　2ch似のしたらばとかでないのかちら

￣￣￣∨￣￣￣￣￣￣
　　　∧ ∧　　ﾄﾞｸｼｮ㊥
　　　(　ﾟДﾟ)
　　　ﾉつl⌒⌒l
　～(.＿［￣￣￣.］
　　　　　￣￣￣
0335デフォルトの名無しさんNGNG
Delphi6の盆明けリリースのネタはここからでは・・・。
http://hpcgi2.nifty.com/boheme/bbs/nwmsg.cgi

というか、英語版ずっと使ってるけどただ単にヘルプとインターフェースが
英語くらいで、別に何も支障は無いのだが・・・・。
英語出来ないあら、それまでだけど

自分は、読むことぐらいは出来るので支障なく使ってますです。
0336デフォルトの名無しさんNGNG
>>335
機会があったら VCL ソース比較してごらん。
結構修正が入っているよ
0337DelギコNGNG
　　　　∧ ∧　　サブクラス化しまくりコードって
　　　　( ﾟДﾟ) 　Kylixで動作するんかいな。
　　～（　uu） 　そもそも、メッセージハンドラメソッドは
CLXではサポートしないの？？

早く、D6買わなきゃハドソン
0338デフォルトの名無しさんNGNG
>>337
ハドソンってどっかの傘下になったよね。
0339デフォルトの名無しさんNGNG
>338
ＳＯＮＹじゃないの？
0340デフォルトの名無しさんNGNG
コナミだっけ
0341shigeNGNG
いや、rubyですよ。
0342dddddNGNG
>>341
つまんないですよ
0343shigeNGNG
__ruby__
0344デフォルトの名無しさんNGNG
>>343
__それなに？__
0345デフォルトの名無しさんNGNG
エラー E2451 ruby.c 1: 未定義のシンボル __ruby__(関数 main )
*** 1 errors in Compile ***
0346shigeNGNG

　　,,,,,,,,,,,,,,,∧,,∧　 　／￣￣￣￣￣￣￣￣￣
～′,,,,,,,,,,ミ,,ﾟДﾟ彡＜ 　Ruby以外は逝ってよし
　UU"""" U U　　　 ＼＿＿＿＿＿＿＿＿＿
0347デフォルトの名無しさんNGNG
>>346
C が逝ったら Ruby インタプリタ書けないんですけど、それでも
C も逝ってよしなの？
0348デフォルトの名無しさんNGNG
Ｒｕｂｙ作った人は凄いと思うけど、
shigeみたいなのがいるとユーザー増えないね。
気の毒・・・
0349メタレスNGNG
>>348
いちいち下らんレスつけんなよ。基地は虫。
0350デフォルトの名無しさんNGNG
>>347
そのうちOSからゲームまで全部rubyで掛かれるようになるんだろ。
0351デフォルトの名無しさんNGNG
>>349
下らんレスはおまえも一緒
0352名無しさんNGNG

　　　　　　∧ ∧　 ／￣￣￣￣￣￣￣￣￣￣￣￣￣
～′￣￣( ﾟДﾟ)＜　>>341-351まとめて逝けや
　UU￣￣　U U　　＼＿＿＿＿＿＿＿＿＿＿＿＿＿
0353DelギコNGNG
／￣￣￣￣￣￣￣￣￣￣￣￣￣
|　逝ってよし♪
＼＿＿＿ 　＿＿＿＿＿＿＿＿＿
　　　　　　∨
♪　　 ∧ ∧　♪
　　　　(,,ﾟДﾟ).　　♪
　　 　 |つ[|lllll］).
　　 ～|　　|
　　　　Ｕ Ｕ

実に詰まらんレスだな、ｵｲ

Rubyならアポロの事とか

Rubyの優れた所と他言語の比較とか
回りが楽しめるレスはいくらでも書きようがあるだろｺﾞﾙｧ

そもそもルービでGUIアプリ作れるの？
0354デフォルトの名無しさんNGNG
ギコ猫さん、遅かったですね。
デートしてたの？
0355ぎこるびNGNG
GUI アプリは SGmail くらいしか知らなかったり……
http://www.sgmail.org/jp/
0356名無しさんNGNG
／￣￣￣￣￣￣￣￣￣￣￣￣￣
|　SVGで全部描画するとかどうよ？
＼＿＿＿ 　＿＿＿＿＿＿＿＿＿
　　　　　　∨
♪　　 ∧ ∧　♪
　　　　(,,ﾟДﾟ).　　♪
　　 　 |つ[|lllll］).
　　 ～|　　|
　　　　Ｕ Ｕ
0357デフォルトの名無しさんNGNG
クラスを継承して作った際、
継承したイベントＩに、子のメソッドＭを代入し、
イベントＩが発生したら子のメソッドＭが実行されるように
関連付けたとします。

OnParentEvent := ChildMethod;

という感じで。


これをコンポーネント化しました。
オブジェクトインスペクタからイベントＩを選択し、
イベントコードを記述した場合
どーなるんですか？実行したらちゃんと動いたんですが、
どうも納得いかないです。

イベントＩには、メソッドＭとフォームに記述したイベントの
両方が関連付けられているのですが…

フォームイベントを書いた時点で、メソッドＭへの
関連付けは失われると思ったんですけど
どういう仕組みになっていますか。
0358デフォルトの名無しさんNGNG
自分で調べろバカめが。
おまえの厨房質問にこたえてやるほどひまじゃねーんだよ
ここでバカ丸出しの初心者相手に
まともなレスつけてる奴らはどうせヒッキーだろ (ﾌﾟｯ
0359デフォルトの名無しさんNGNG
>>358
つまんない。
ネタとして。


>>357
どういうって、自分で試したほうが早い。
0360デフォルトの名無しさんNGNG
Del厨うざい
0361DelギコNGNG
／￣￣￣￣￣￣￣￣￣￣￣￣￣
|　今日は客先♪
＼＿＿＿ 　＿＿＿＿＿＿＿＿＿
　　　　　　∨
♪　　 ∧ ∧　♪
　　　　(,,ﾟДﾟ).　　♪
　　 　 |つ[|lllll］).
　　 ～|　　|
　　　　Ｕ Ｕ

メソッドポインタを理解しとけ。

inheritedで呼び出してるんじゃねーのか？

メソッドポインタだけじゃなく、
関数/手続きポインタも用意してほしいぞ>>ﾎﾞﾗﾝﾄﾞ
0362>361NGNG
「手続き型」参照
0363デフォルトの名無しさんNGNG
>>361

　　|￣￣￣￣￣￣￣|
　　|　とんちんかん！|
　　|＿＿＿＿＿＿＿|
　 　 ∧_∧ ||
　　　(;ﾟДﾟ)||
　　　 /つ つ 　　　　　　

まあ勘違いは誰にでもある　＞関数/手続きポインタも用意してほしいぞ
0364shigeNGNG
　　　　　　　 ＿＿＿＿__
　　　　 ヾ／::::::::::::::::::::::::::ヾヽ
　　　　　ｉ:::::::::（（（（（（（（（⌒);)
　 　　 　|:::::::/ 　　　　　　　.iﾉ
　 　　 　|::::/　　　　ヘ　　/ |　　　 ／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
　　　　,⊥|:|----（＝・)-(=・)　　　| おぉぉぉっと、ここで荒し厨房の登場だ！
　　　　l 　!:;　 　　 ⌒´⊃｀ | 　 　 | 目をつぶれば浮かんでくる･････。
　　　　ゝ_┃ 　　　　´__＿/　 　＜ 何もする事が無く、暇を持て余す毎日･････。
　 　　 　 |┗━⊃<二二ｙ' 　 　 　| 二十歳で世捨人同然の荒し厨房の姿だぁぁぁ！
　　　　 　|　　 ＼＿二／　　　　　 ＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
　　　　／ト、　　　／７:`ヽ､_
　　／::::::::|　~''x‐''''~~　/::::::::::::::`ー
／::::::::::::::::| ,,イ;;;;>､　/::::::::::::::::::::::::::
::::::::::::::::::::::|　/:::::|　/:::::::::::::::::::::::::::::::
0365ﾙﾋﾞ厨撲滅委員会NGNG

　　　　　 ∧∧　　／￣￣￣￣￣￣￣￣￣￣￣
　＠' ― (,,ﾟДﾟ) ＜　仕切り直し！
　 　し― し-Ｊ　 　＼＿＿＿＿＿＿＿＿＿＿＿
0366sageNGNG
rubyrubyrubyrubyyyyyyyyyyyyyyyyyyyyyyyyyy
0367デフォルトの名無しさんNGNG
コンストラクタをオーバーロードしている際に、
あるコンストラクタ内で別の
コンストラクタを呼ぶにはどうしたらよいのでしょうか？
単に Self.Create('hoge', 1); というように呼び出してやれば
良いのでしょうか？
(・・・試したら思い通りに動いたのですがこれで良い？)
0368367NGNG
ああああ、ヘルプにありました。
class referenceでしかコンストラクタを呼べないと勘違いしていましたが、
object referenceでコンストラクタよ呼べばヒープに新たに領域を確保せずに
そのobject referenceが指しているオブジェクトに対して操作がなされるのですね！
0369DelギコNGNG

　　　　　 ∧∧　　／￣￣￣￣￣￣￣￣￣￣￣
　＠' ― (　ﾟДﾟ) ＜　>>362-363　サンクスコ
　 　し― し-Ｊ　 　＼＿＿＿＿＿＿＿＿＿＿＿
0370657NGNG
なんかよくわかんないんですけど
0371DelギコNGNG
　　　　　 ∧∧　　／￣￣￣￣￣￣￣￣￣￣￣
　＠' ― (　ﾟДﾟ) ＜　>>362-363　サンクスコ
　 　し― し-Ｊ　 　＼＿＿＿＿＿＿＿＿＿＿＿
0372DelギコNGNG

　　　　　 ∧∧　　／￣￣￣￣￣￣￣￣￣￣￣
　＠' ― (　ﾟДﾟ) ＜　客先はつらい。>>2チャソネル
　 　し― し-Ｊ　 　＼＿＿＿＿＿＿＿＿＿＿＿
0373名無しさんNGNG
／￣￣￣￣￣￣￣￣￣￣￣￣￣
|　>>312ｺｿﾎﾞﾎﾞｯｸｽ押したらﾎﾟｯﾌﾟｱｯﾌﾟﾒﾆｭｰを
|　表示させれば良いと思うがどうよ？
＼＿＿＿ 　＿＿＿＿＿＿＿＿＿
　　　　　　∨
♪　　 ∧ ∧　♪
　　　　(,,ﾟДﾟ).　　♪
　　 　 |つ[|lllll］).
　　 ～|　　|
　　　　Ｕ Ｕ
0374デフォルトの名無しさんNGNG
>>373
え、そんな事が可能なの？
0375DelギコNGNG
　∧ ∧
　(；ﾟДﾟ) 　すっかり知識が抜け落ちて
　(|　　|つ
～|　　|
　 ∪∪ 　ﾏｲｯﾁﾝｸﾞﾏﾁｺ 先生

手続き/関数型って昔からアタ～の？？
procedure of Object はしてたんだが....
驚いたーネ


procedure ItteYoshi;
begin
　ShowMessage('逝'+#13+'っ'+#13+'て'+#13+'よ'+#13+'し')
end;

procedure TsuukaShine;
begin
　ShowMessage('っ'+#13+'つ'+#13+'う'+#13+'か'+#13+'、'+#13+'氏'+#13+'ね')
end;

procedure TripleProcedure(Proc: TProcedure);
var
　i: Integer;
begin
　for i:=1 to 3 do
　　Proc;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
　Proc: TProcedure;
begin
　Proc := ItteYoshi;
　TripleProcedure(Proc);
　Proc := TsuukaShine;
　TripleProcedure(Proc);
end;
0376デフォルトの名無しさんNGNG
□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□
□■■□□■■■□■□□□□■□■□■□□■■■□■■■■■■■□□□■□□□□□
□■□■□■□□□■□□□■■■□■□■□□□■□□■□□■□□□■■■■■□□□
□■□■□■■■□■□□□□■□□□□□□□□■□■□■□■■■□□■■□□■□□
□■□■□■□□□■□□□■■■□□□□□□□■□□■■□■□□□■□■□■■■□
□■■□□■■■□■■■□□■□□□□□□■■■□■□□□■■■□□□■□■■□□
□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□
0377デフォルトの名無しさんNGNG
荒らしうざい
逝ってよし
0378DelギコNGNG
　　　　　　　　　　　　　　ﾌﾞｩｩｩｩﾝ…! !
（￣￣￣￣￣￣＼　 　　⊂⊃　　/￣￣￣￣￣￣）
　￣（￣／／／￣＼　∧ ∧　/￣＼＼＼￣）￣
　　　（／／／￣＼＼( ゜Д゜)/￣＼＼＼) ￣
　　　　　 　　（／／／(⊃※⊂＼＼＼）
　　　　　　　　　（／（／|　　|＼）＼）
　　　　 　 　　　　（／ 　|　　|　＼）
　　　　　　　　　　　　　　U U
　　　　　　　　（＼
　　　　　　　　　＼＼
　　　　　　 　　　（＼＼
　　　　 　　　　　　＼＼＼
　　　　 　　　　　　（＼＼＼＼
　　　　 　　　　　　（＼＼＼＼＼
　 　　　　　　　　　　＼＼ ｜｜｜
（￣￣￣￣￣￣￣￣￣＼ ｜ ⊂⊃
　￣￣（￣￣／／／／￣＼　 ∧ ∧　 　 ／￣￣￣￣￣￣￣￣￣￣￣￣￣
　　　　　￣（／／／／￣＼＼( ゜Д゜) ＜　親鸞会氏ねや　ゴルァ !!
　　　"．;":　　（／（／／／￣（つ　つ 　 ＼＿＿＿＿＿＿＿＿＿＿＿＿＿
"．;":　　　　　　　　　（／（／｜ 　＼＼
　．;"．;":　．．;"．;;:　　（／（（/ ∧｜＼＼　　　　　　　．;"．;":　．．;．;"．;
　　　．;"．;":　．．　　；　　　 ∪　∪　　＼＼　　　　　　　　　．;"．;":　．．;．;"．
．;"．;"　　　　．;"．;　　　　　　　　　　　　 ＼＼
　　　ゴ　オ　ォ　ォ　……　！　！　　 　　　＼＼　　　;":　．．;．;"．;":
　　　　　　　　　　．;"．;":　＿．;．;__　　　　　 　＼＼　　　ド　カ　ァ　ン　！
　．;"．;":　．．;．;"．;　ζ /＿．;＿/|　．;"．;"＿　＼＼　　．;"．;．;"．;":
．;"．;":　．．;．;"．;":　;:'．;| ΓΓ |　|;":从へ＿/|　　＼＼．;"．;"＿．;_＿．．:
从へ从へへ从　　;　ζ 　| Γ从 |　|;:..　|从Γ | |　　　 ＼＼　∠＿＿_／|
　　　 （　⌒（　⌒　）　ζ　| 从Γ |　|.:;.　|从Γζ．;"．＿ ＼＼|ΓΓΓ|　|
（　　　⌒　⌒　　⌒　）;　　| ΓΓ | |．;;::|ΓΓ | |　　（　从へ;: |从ΓΓ|　|
　Σ（　⌒（　⌒　）　ζ　　（　（　）　）⌒　）　（　从へ从）_．;;:．;|Γ从Γ|　|
　（　（（　（　⌒　））　）　　从　Σ（　⌒（　　从へ从）　∠＿＿_／|
Σ　（（　（　⌒　））　）　）（（　⌒　（　从へ从）　．;"．;:;|ΓΓΓ|　|
　（（　⌒　（　（　）　）⌒　）;:;　　　．;"．;":　．．;．;"．;":|从ΓΓ|　|

　∧ ∧ 　 　　／￣￣￣￣￣￣￣￣￣
　(,,ﾟДﾟ)　　＜　　>>376 手書きはｼｮﾎﾞｲ
　 | つ[|lllll］).　＼＿＿＿＿＿＿＿＿＿
～| 　 | 　　　
　 ∪∪
　荒らすのに必死になるのもいいが
　手作業はだるいだろ。下手文字だし。
　プログラマなら綺麗なAA文字を生成
　できるようなツールを作るのに必死にな～レ♪


　∧∧∩゛　 ／￣￣￣￣￣￣￣￣￣￣￣￣￣
　(,,ﾟДﾟ)ﾉ　＜　ではまただ！
　U　　/　　　＼＿＿＿＿＿＿＿＿＿＿＿＿
　|　　| 　　此れからｵﾃﾞｶｹ
ノ∪∪
0379DelギコNGNG
　　 ||
　Λ||Λ
（ / ⌒ヽ
　| | 　　|
　∪ 亅|
　 |　|　|
　 ∪∪
　　 ：
　　 ：

　‐ニ三ニ‐

コピペ、ﾐすだ。氏のう

なんだよ、親鸞会って.......
0380あびNGNG
Delphiのパーソナル版のダウンロードサービスっていつ始まるんですか？
今月、来月？
0381デフォルトの名無しさんNGNG
>>380
あわよくば今月の模様。
0382デフォルトの名無しさんNGNG
>>380
Ｃマガの来月号の付録ＣＤ－ＲＯＭ
0383デフォルトの名無しさんNGNG
動的配列と静的配列って
そのまま置き換えできないんだね
一日はまっちまったよ
0384DelギコNGNG
　∧ ∧ 　 　　／￣￣￣￣￣￣￣￣￣
　(　ﾟДﾟ)　　＜　　>>383 もそっと具体的に書いたら？
　 | つ[|lllll］).　＼＿＿＿＿＿＿＿＿＿
～| 　 | 　　
　 ∪∪

レスつけようがねーぞｺﾞﾙｧ
0385DelギコNGNG
　　　　∧ ∧　 ／
　　　　（ ﾟ∀ﾟ）＜　ｱｹﾞｲ
　　　　 |つ つ　 ＼＿＿＿＿＿＿＿＿＿
　　　～　　 |
　　　　∪ ∪
0386383NGNG
マニュアルに
動的配列変数は暗黙にポインタであり，長い文字列型と同じ参照カウントの方法を使用して管理されます。
ってかいてあるから
var
InBlock, Block: array[0..8191] of Byte;
を
var
InBlock, Block: array of Byte;
に直すだけじゃだめなんだね
内部の違いが知りたいYO!!
0387DelギコNGNG
　　　 　 　 ∧ ∧ 　／￣￣￣￣￣￣￣￣￣￣￣￣
～′ ￣￣( ﾟДﾟ)＜　 普通に使うには単純に直すだけだが？
　 UU￣￣ U U　　＼＿＿＿＿＿＿＿＿＿＿＿＿

まさか、本当にvar部分の置き換えだけしてる？
SetLengthとかって使ってる？

内部の違いって意識する必要あるコードなら
それを示してくれ。

折れも内部の仕組みは知らないが
そんなの、知る必要があるの？
0388名無しさんNGNG
>>374
／￣￣￣￣￣￣￣￣￣￣￣￣￣
|　今のＰＪ片付いたらＶＣＬ練ってみるよ
＼＿＿＿ 　＿＿＿＿＿＿＿＿＿
　　　　　　∨
♪　　 ∧ ∧　♪
　　　　(,,ﾟДﾟ).　　♪
　　 　 |つ[|lllll］).
　　 ～|　　|
　　　　Ｕ Ｕ
0389名無しさんNGNG
／￣￣￣￣￣￣￣￣￣￣￣￣￣
|　>>386 array of Byteのｻｲｽﾞはどうするよ？
＼＿＿＿ 　＿＿＿＿＿＿＿＿＿
　　　　　　∨
♪　　 ∧ ∧　♪
　　　　(,,ﾟДﾟ).　　♪
　　 　 |つ[|lllll］).
　　 ～|　　|
　　　　Ｕ Ｕ
0390383NGNG
var
　InBlock, OutBlock: array[0..8191] of Byte;
begin
　Move(src[1], InBlock, Length(src));
暗号化処理
　Result := string(PChar(@outBlock));

こんな感じで
string変数とやりとりしたいんだけど

var
　InBlock, OutBlock: array of Byte;
begin
　Setlength(InBlock, Length(src));
　Move(src[1], InBlock[0], Length(src));
暗号化処理
　Result := string(PChar(@outBlock[0]));

微妙に修正しないとだめなので
いまいち理解して無いなぁ
それと関数から戻るとき
Finalize(InBlock);
とかしたがいい？
0391デフォルトの名無しさんNGNG
InBlock := nil;
だよ。
0392名無しさんNGNG
／￣￣￣￣￣￣￣￣￣￣￣￣￣
|　>>386 stringはクラスだろ？
＼＿＿＿ 　＿＿＿＿＿＿＿＿＿
　　　　　　∨
♪　　 ∧ ∧　♪
　　　　(,,ﾟДﾟ).　　♪
　　 　 |つ[|lllll］).
　　 ～|　　|
　　　　Ｕ Ｕ
0393デフォルトの名無しさんNGNG
AC: array [1..60] of char;
S:string;

S → AC は StrPLCopy(AC,S,Min(Length(S),Length(AC)));　で出来ますが

AC → S に変換する関数なんぞありませぬか？
0394デフォルトの名無しさんNGNG
s := AC;
でいいんじゃない？
0395デフォルトの名無しさんNGNG
var
  obj: TObject;

procedure a;
begin
  obj := TObject.create;
end;
procedure b;
begin
  obj.free;
end;
procedure c;
begin
  if objが生きているか？ then;
end;
処理(a)(b)が行われたときに、処理(c)内でobjがfreeされているのか
されていないのかを判断するにはどうしたらいいでしょうか？
nilを突っ込むのは面倒なので、それいがいで。
0396デフォルトの名無しさんNGNG
>>395
>nilを突っ込むのは面倒なので、それいがいで。
オブジェクトとは結局のところヒープ上に
確保された単なるメモリイメージに過ぎないので
そのメモリ領域が本当にオブジェクトであるかどうかすら
厳密には判定できません。
ですからobjがfreeされたかどうかを判定するような方法は
正式には無いはずです。

ここはやはりnilかどうかで判断するのが無難です。
FreeAndNil使ってみたらどうでしょう。
0397393NGNG
すいません
AC: array [1..60] of char;
S:string;

S → AC は StrPLCopy(AC,S,Min(Length(S),Length(AC)));　で出来ますが

嘘でした。いまやってみたら、array と PChar は互換性が…
といわれました。

ってことは、s→AC は自前のコードで処理するしかありませんか。

i:=1;
while i< Min( Length(s), Length(ac) ) do begin
　ac[i] := s[i];
　inc(i);
end;
ac[i] :=#0;
0398>>395NGNG
TObjectを継承して
TObject2=class
public
procedure free;override;
end;

procedure TObject2.free;
begin
self.free;
self:=nil;
end;

これじゃだめですか。
0399デフォルトの名無しさんNGNG
>嘘でした。いまやってみたら、array と PChar は互換性が…
array が 0 から始まっていないからだね。PChar の構造を考えてごらん。

AC: array [0..59] of char;

としといたら？
0400名無しさんNGNG
／￣￣￣￣￣￣￣￣￣￣￣￣￣
|　これで駄目な理由がわからんのだが、興味の世界なのか？
＼＿＿＿ 　＿＿＿＿＿＿＿＿＿
　　　　　　∨
♪　　 ∧ ∧　♪
　　　　(,,ﾟДﾟ).　　♪
　　 　 |つ[|lllll］).
　　 ～|　　|
　　　　Ｕ Ｕ

var
　s:string;
　Mem:PChar;
　i:integer;
begin
　s := memo1.Lines.Text;
　Mem := PChar(s);
　for i:=0 to SizeOf(Mem) do
　begin
　　Mem[i] := Char(Byte(Mem[i]) +1);
　end;
　memo1.Lines.Text := s;
end;
0401400NGNG
／￣￣￣￣￣￣￣￣￣￣￣￣￣
|　for i:=0 to SizeOf(Mem)-1 do　だなｽﾏｿ
＼＿＿＿ 　＿＿＿＿＿＿＿＿＿
　　　　　　∨
♪　　 ∧ ∧　♪
　　　　(,,ﾟДﾟ).　←ｼｯﾀｶ厨
　　 　 |つ[|lllll］).
　　 ～|　　|
　　　　Ｕ Ｕ
0402400NGNG
／￣￣￣￣￣￣￣￣￣￣￣￣￣
|　for i:=0 to Length(s)-1 do　鬱死
＼＿＿＿ 　＿＿＿＿＿＿＿＿＿
　　　　　　∨
♪　　 ∧ ∧　♪
　　　　(,,ﾟДﾟ).　　♪
　　 　 |つ[|lllll］).
　　 ～|　　|
　　　　Ｕ Ｕ
0403デフォルトの名無しさんNGNG
こういう症状に合っているのですが、原因が見当もつきません

cが integer で、MessageInfos が TList を継承したものです。
MessageInfso.Count メソッドはオーバーライドしていません。

c := MessageInfos.Count-1;

とかくと、MessageInfos.Count がどんな値でも、
Ｃに195948557という値が入ってしまいます。
0404デフォルトの名無しさんNGNG
>398
それじゃだめ。selfはローカル変数みたいなもので
それにnil設定しても意味がない。

>400
何がやりたいのかわかってないんだけど
>　　Mem[i] := Char(Byte(Mem[i]) +1);
はこう書ける
Mem[i] := Succ(Mem[i]);
0405403NGNG
実行中にオブジェクトインスペクタを使い値を調べましたが、

MessageInfos.Count が 1 でも 4 でも 8 でも、Cの値は同じです。
また、実行→評価｜変更をしてみたところ、

MessageInfos.Count は 8
MessageInfos.Count-1 は 7 とでましたが、
C:=MessageInfos.Count-1 とするとやはり195948557と表示されます
0406>403NGNG
ShowMessage(Format('%d', [MessageInfos.Count]))の表示はどうなる？
MessageINfos.Clearした後では？
0407>403NGNG
最適化スイッチをOFFにしてみるとか
0408403NGNG
>>406
正しい値が表示されます。
ShowMessage(Format('%d', [MessageInfos.Count]));
ShowMessage(Format('%d', [MessageInfos.Count-1]));とすると、2 、1 と表示されますが、
やはりＣには195948557が入っています…
0409403NGNG
！！！
おかしいです。
ShowMessage(Format('%d', [c]));
とすると、ちゃんとした値が表示されます。
しかしながら、その直後の
PInfo.UnfinishedIndex:=c;
で実行時エラーが起こります。
「EAccessViolationクラスの例外を生成しました」
しかし、この文は
if PInfo.UnfinishedIndex >= 0 then ...
の else 部に書いてあるものなので、不正なアクセスであれば
if の条件で既に引っかかってると思うのですが…

とりあえず EAccessViolation について調べてみます。
0410403NGNG
EAccessViolation は無効なメモリ操作だそうですが、
代入文の直前で

ShowMessage(Format('%d', [ PInfo.UnfinishedIndex]));
とするとエラーにならず値が表示されるのは何故でしょう。
エラーはこの直後の
PInfo.UnifinishedIndex := c ; という部分で起きています。
0411403NGNG
はあ…　どうも、お騒がせしました。バカすぎる理由でした。

PInfo はクラスなのですが、これを取り出すときに

PInfo := TPInfo( PInfoList[i].Data );
とするべきところを、構造体を取り出すときの癖で
PInfo := TPInfo( PInfoList[i].Data^ );
としていました。
この PInfo のメンバに対して代入しようとしてエラーが起きてました。あたりまえですね。
どうもありがとうございました。
0412デフォルトの名無しさんNGNG
>403
なにわともあれ自己解決おめでとう。
0413デフォルトの名無しさんNGNG
犬歯老は多重継承ですか?
0414デフォルトの名無しさんNGNG
一指送電では？
0415DelギコックNGNG
　 oooo
　│　│
　∧＿l　　　∫　　　／￣￣￣￣￣￣￣￣￣￣￣
　(,,ﾟДﾟ)　　 ∬　　＜ 　今朝、お好み焼きをﾂｸﾀ
　 |∪ |つ＝●　　　＼＿＿＿＿＿＿＿＿＿＿＿
～|￣｜
　 U U
0416DelギコNGNG

　　　 ∧ ∧　　 ┌────────────
　　 __(,, ﾟДﾟ)＿＜　で、配列の人は解決したのか？
　／　/　づ ／| └────────────
. |￣￣￣￣|／
0417DelギコNGNG
∧ ∧　　　／￣￣￣￣￣￣￣
(　ﾟДﾟ)っ＜　agaらんぞ？？
|￣￣￣|　＼＿＿＿＿＿＿＿
|二二二|
|＿＿＿|
从从从从:
0418DelギコNGNG
　　　　　∧ ∧　　／￣￣￣￣
　　　 　（ﾟДﾟ ,,）＜ 　明日も仕事か....
　 ＿|￣￣||＿）　＼＿＿＿＿
／旦|――||/／ ／|
|￣￣￣￣￣|￣| . |
|＿＿＿＿＿|三|／
0419383NGNG
>>416
一応できたけど
文字列とデータのやりとりはめんどくさいね
いい勉強になったよ
0420DelギコNGNG
.　　　　　　　♀　　　＿＿＿＿＿＿＿＿
　　　　　　 ／＼　 （　あの帽子かぶりたい・・・
.　　　　　　|∧ ∧ .。○ ――――――
　　＿＿＿|(,,ﾟДﾟ)＿＿_
　　|　　　 ⊂　　⊃　　　|
　　￣￣￣|.|　 ||￣￣￣　＿＿
'|. 　　　　　|.|　 ||　　　　　|__†＿ﾚ　　／￣￣￣￣￣￣￣￣￣￣￣￣￣￣
'|. 　　　　　|.ＵＵ|　　　　　(ﾟДﾟ,,)　＜　迷える子羊よ、お訊きなさい・・
'|. 　　　　　|　　 | ∧ ∧⊂￣￣ﾊ　　＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿
'|. 　　　　　|　　 |.(　　 ,)　| ╋　Ｊ
　　　　　|￣￣￣./⌒ヽ￣￣￣|
　　　　　|　　　　（ 　ノ ）　　　　|
　￣￣￣￣￣￣￣￣￣￣￣￣￣￣
0421デフォルトの名無しさんNGNG
なんかこう、静かになってきたね。
0422DelギコNGNG
＿＿＿＿＿＿＿＿＿＿＿_
￣￣￣￣￣￣￣￣￣|￣￣
　　　　　　　　　　　　　(~)　ﾁﾘﾝﾁﾘﾝ
　　 　　　　　　　　　　　ﾉ,,

　　　 　 　 ∧ ∧ 　　　 盆明けの月曜だからな、
　　⊂⌒~⊃ﾟДﾟ）⊃旦 　　ﾏﾀｰﾘいこう
　l￣￣￣￣￣￣￣￣￣￣￣l
　 ￣| .|￣￣￣￣￣￣￣| .|￣
　　　^＾^　　　　　　　　　 ^＾^
0423デフォルトの名無しさんNGNG
delがわかりません。
0424デフォルトの名無しさんNGNG
でぇれぇと
0425デフォルトの名無しさんNGNG
deldeldeldelついにdel
0426デフォルトの名無しさんNGNG
TEdit コンポ　で　もじれつ　にゅうりょく　ご　に
えんたー　きー　で　とくてい　の　しょりを　おこないたい。

このとき　えんたー　きー　に　より　べる　が　なって　しまう　が　、
これを　そし　するには　ＩＦ　ＫＥＹ＝＃１３　ＴＨＥＮ　ＫＥＹ＝＃０　と
して　やれば　よい。　が
ＣＴＲＬ＋ＥＮＴＥＲ　ならば　ＫＥＹ　は　＃１０　になる。
では　ＳＨＩＦＴ　キー　と　くみあわせて　つかいたい　ばあいは
どうすれば　よろしい　か。
0427デフォルトの名無しさんNGNG
正規表現での置換及び検索が可能なコンポーネントってありませんか。
0428デフォルトの名無しさんNGNG
case AString of
'tokyo' : ....;
'nagoya':....;
'sapporo':...;
'delphi':...;
'pascal':....;
'borland':...;
'turbo pascal':...;
end;

こういう感じの処理を、なるべく簡単に、見た目にすっきり済ませたいです。
0429DelギコNGNG
　 　 ∧∧　　　／￣
　 ＿(,,ﾟДﾟ)　＜　>>426　SHIFT+ENTERを押したときの
乙,,＿_つつ.　　＼＿ IF KEY=xxx THEN のKEYの中身を自分で調べろ
　　　　　　　　　　　　　だめならダメだったと報告してくれ
　 　 ∧∧　　　／￣
　 ＿(,,ﾟДﾟ)　＜　>>427　2chのどこかのスレで話題になってたから
乙,,＿_つつ.　　＼＿ 　各スレを見て検索してみれ

　 　 ∧∧　　　／￣
　 ＿(,,ﾟДﾟ)　＜　>>428　if then elseでやるのが一番マシ
乙,,＿_つつ.　　＼＿ StringListのNames&Valusも役立つかもしれんが。
0430名無しさんNGNG
／￣￣￣￣￣￣￣￣￣￣￣￣￣
|　>>426 GetKeyState(VK_SHIFT)でどうよ
＼＿＿＿ 　＿＿＿＿＿＿＿＿＿
　　　　　　∨
♪　　 ∧ ∧　♪
　　　　(,,ﾟДﾟ).　　♪
　　 　 |つ[|lllll］).
　　 ～|　　|
　　　　Ｕ Ｕ
0431出張あさはかマンNGNG
TWinSockStreamでRead()メソッドしたとき
例外は発生しないと思いますが、
TCPのFinパケットを受けたとき
即ち接続相手がソケットをクローズしようとしたときにReadすると・・・

1.バッファの何処かにEOFが返って来ているのでしょうか？
2.すると、組み込み関数のeof()で調べるって事でしょうか？

・・やっぱりどう考えても2.は違いそうな気がするんですが。

あほな質問で済みません。
2台で実験すれば良いのですが、開発環境が一台しかなくて、
わざとCloseする実験をするとマシンが止まりかけるので
ここでお尋ねします。
0432デフォルトの名無しさんNGNG
>>428
一応考えてみた。

procedure TForm1.Button1Click(Sender: TObject);
　function StrIndex(
　　　const S:　　　String;
　　　const Scases: array of String
　　　): Integer;
　var
　　I: Integer;
　begin
　　　Result := -1;
　　for I := 0 to High(Scases) do
　　　if S = Scases[I] then
　　　begin
　　　　Result := I + 1;
　　　　Exit;
　　　end
　end;
begin
　case StrIndex('ABC', ['CDF','ABC','OBC']) of
　1: ShowMessage('1番め');
　2: ShowMessage('2番め');
　3: ShowMessage('3番め');
　end;
end;
0433名無しさんNGNG
／￣￣￣￣￣￣￣￣￣￣￣￣￣
|　>>428 見易いか疑問だがどうよ？
＼＿＿＿ 　＿＿＿＿＿＿＿＿＿
　　　　　　∨
♪　　 ∧ ∧　♪
　　　　(,,ﾟДﾟ).　　♪
　　 　 |つ[|lllll］).
　　 ～|　　|
　　　　Ｕ Ｕ

const
　Addr:string = '"tokyo","nagoya","sapporo","delphi","pascal","borland","turbo pascal"';
var
　List:TStringList;
begin
　try
　　List := TStringList.Create;
　　List.CommaText := Addr;

　　case List.IndexOf(Edit1.Text) of
　　　0 : //
　　　1 : //
　　　2 : //
　　　3 : //
　　　4 : //
　5 : //
　　　6 : //
　　else
　　　　　//無い
　　end;
　finally
　　List.Free;
　end;
end;
0434DelギコNGNG
　 　 ∧∧　　　／￣
　 ＿(,,ﾟДﾟ)　＜　　MLに載っていた誕生日から年齢求める関数
乙,,＿_つつ.　　＼＿　バグってやーんの。

つーか。2月29日に生まれてんじゃねー。

客先、ハングって、びくーりしたね
0435DelギコNGNG
http://www2.big.or.jp/~osamu/Delphi/browse.cgi?index=33755

　∧ ∧ 　 　　／￣￣￣￣￣￣￣￣￣
　(,,ﾟДﾟ)　　＜　誰か検証しておいてくれよ
　 | つ[|lllll］).　＼＿＿＿＿＿＿＿＿＿
～| 　 |
　 ∪∪
EncodeDateでありえない日付を生成しようとしてしまうとはな。
33757だったら、ヨカッタノ？

2/29生まれの人の年齢はどうやって求めるのかなんて
しらねーよ。
0436名無しさんNGNG
Delの基本を学んだ程度なのですが、
これからさらにDelを学んでいくにあたって、
ためになりそーな書籍などあったら、おしえてください。
0437フィリップ・ゾーヌNGNG

　　　 ／￣￣￣￣＼
　　／　　　　 ●　　●､　
　　|Y　　Y　　　　　　　 ＼
　　| |　　 | 　　　　　　 ▼ |　　　　／　Del 6 Personal 日本語版は
　　| ＼／　　　　　　＿人.|　　＜　　　8/24からダウンロード開始だ
　　|　　　　　　 ＿＿＿ノ　　　　　＼　http://www.borland.co.jp/news/del6personal_j.html
　　＼　　　 .／
　　　｜ ｜　|
　　　（_＿）＿）
0438DelギコNGNG
　　∧∧ 　　／￣￣￣￣￣￣￣￣￣￣￣
　¶(,,ﾟДﾟ) ＜、、、>>431　全然わからん
　ゝ|し　|┐　＼＿＿＿＿＿＿＿＿＿＿＿
　（_|./　|┘　ｺﾞﾒｰﾝﾈ
　　 U U 　

　　　　∧ ∧　　・・・・。
　　　　(,,ﾟДﾟ)
　　～（　uu） 　ﾊﾟｿﾅﾙ ﾀﾞｳｿ ﾖﾘ ﾊﾟｯﾁ
0439>>435NGNG
もう2月28日生まれにしちゃうのはだめなの？
0440デフォルトの名無しさんNGNG
えーと、法律上では（戸籍関連）誕生日を過ぎないと歳は増加しません。
2000/2/29 日生まれの赤ちゃんは
2001/2/28 ではだめで 3/1 になって一歳となります。
で、2/29 日が存在する場合は、2/29 に達した時点で年齢が増加するので
2004/2/29 で四歳になる。
0441DelギコNGNG
　∩ ∩
　| ∪ | ｱﾗﾖｯﾄ
　|　 ～
　|∧ ∧　　　 ／￣￣￣￣￣￣￣￣
　( ,,ﾟДﾟ)つ ＜　>>439　客先ではそうして帰ってきた・とりあえず
　Ｕ　　　　　　＼＿＿＿＿＿＿＿＿

　>>440 情報サンクス
　つー、事は2/29誕生日はうるう年以外は 3/1誕生日
　として処理するのがよいのか？

　ネットで探しても見付かりにくい。

ここなどは、逆の事を逝ってるようだ。
http://www3.ocn.ne.jp/~matuura/kisanbi_to_nenreikeisan.html
> 　　　　＊閏年の2月29日(月末)生まれの人は、翌年の2月28日(月末)が誕生日ですのて゛、毎年2月末日
> 　　　　　 (誕生日)の前日(閏年は2月28日、平年は2月27日)に当該年齢に達(満了)します。

より正確な情報ﾌﾟｯﾘｰｽﾞ
0442DelギコNGNG
　　∧∧ 　　　 ／￣￣￣￣￣￣￣￣￣￣￣
　　(,,ﾟДﾟ)　　＜ 　ここなどがよいかのぉ
　ヽ/つ且~~　　＼＿＿＿＿＿＿＿＿＿＿＿
　 （__　_）
http://www.nnh.to/02/29.html

やっぱ、3/1が誕生日？
0443デフォルトの名無しさんNGNG
まっ、つーか誕生日云々は別スレだな。
0444出張あさはかマンNGNG
>>438
レス有難うございます。
なんか解決策見つかったらカキコするかも。
0445デフォルトの名無しさんNGNG
↓これではいかんの？
procedure TForm1.Button1Click(Sender: TObject);
var
　nBirthYear: Integer;
　nThisYear : Integer;
　nAge 　　　: Integer;
begin
　nBirthYear:=StrToInt(Copy(edtBirthYear.Text, 1, 4));
　nThisYear :=StrToInt(Copy(edtThisYear.Text, 1, 4));
　nAge:=nThisYear-nBirthYear;
　if Copy(edtThisYear.Text, 6, 5)<Copy(edtBirthYear.Text, 6, 5) then
　　Dec(nAge);
　edtAge.Text:=Format('%d歳', [nAge]);
end;
0446DelギコNGNG
　　　　　＿　　　ｸﾀﾊﾞﾚﾊﾞァ
　　　　｜　∧ ∧
　　　　｜　(,,ﾟДﾟ)　　　　　ﾍﾟｯ
　　　　｜　⊂　｜　　ヽ。
　　　　｜　⊂__ノ＠
　　　　｜　｜
　　　　　　∧
／￣￣￣　 ￣￣￣￣￣￣￣￣￣
|　HTMLから文字列を抜き出したいとか
|　意味わからん質問を繰り返してた厨房
|
|　・・・・
|
|　'VB初心者質問スレPart2'に登場してる…
|　ずいぶんと、おつむの弱い教えてクンだな。
|
|　VBだろうと、Delだろうと
|　何をしたいのかわからないなら何も出来んだろう。
＼＿＿＿＿＿＿＿＿＿＿＿＿＿
0447フォトランNGNG
fotranです。誰か助けて。
　　　icn = 5
icl = 20
pa = 4.0d0
pa2 = pa**2
pa22= 2.d0*pa**2
ix0 = 6.25D0
iy0 = 6.25D0
pc0 = 4.0d0
am0 = pc0/pa2
do 80 i=0,99
x0=i/8.0
do 80 j=0,99
y0=j/8.0
do 80 i0=1,icn
dx=x0-real(ix0 + icl*(i0-3))
do 80 j0=1,icn
dy=y0-real(iy0 + icl*(j0-3))
r2=(dx**2+dy**2)/pa22
fx(i,j)=fx(i,j)-am0*exp(-r2)*dx
80 fy(i,j)=fy(i,j)-am0*exp(-r2)*dy
0448DelギコNGNG
　∧ ∧ 　　>>445
　(；ﾟДﾟ) 　ｶｷｺ ｱﾘｶﾞﾄｳ
　(|　　|つ 　ｾｯｶｸ ﾅﾉﾀﾞｶﾞ
～|　　|
　 ∪∪

　Edit.text 直うちとかされると、ｱﾉｰｿﾉｰ汎用性なさすぎなので…

　そういうコードは、実に仕事で頻繁に出会う事になるので
　正直みたくないな…

　それに…

if Copy(edtThisYear.Text, 6, 5)<Copy(edtBirthYear.Text, 6, 5) then

　なぜ6番目の文字から5個取得してるの？
　2000/02/29の中の02/29とかで比較してる?
　その形式で文字列が正しければいいんだけど

procedure TForm1.Button8Click(Sender: TObject);
begin
　ShowMessage( DateToStr( StrToDate('8/21') ) );
　ShowMessage( DateToStr( StrToDate('01/8/21') ) );
　ShowMessage( DateToStr( StrToDate('1/8/21') ) );
　ShowMessage( DateToStr( StrToDate('01/08/21') ) );
　ShowMessage( DateToStr( StrToDate('2001/8/21') ) );
　ShowMessage( DateToStr( StrToDate('1901/8/21') ) );
end;

ｺﾝﾊﾟﾈの地域の日付タブの短い形式も変えてみれ。
0449DelギコNGNG
　　∧∧ 　　／￣￣￣￣￣￣￣￣￣￣￣
　¶(,,ﾟДﾟ) ＜、、やるなら、こうだろう。
　ゝ|し　|┐　＼＿＿＿＿＿＿＿＿＿＿＿
　（_|./　|┘
　　 U U 　
2つ作ってみた。

function Age1(BirthDay, CheckDay:TDateTime):Integer;
var
　Year1,Month1,Day1,Year2,Month2,Day2: Word;
begin
　DecodeDate(BirthDay, Year1, Month1, Day1);
　DecodeDate(CheckDay, Year2, Month2, Day2);

　Result := Year2 - Year1;

　if not IsLeapYear(Year2) then
　begin
　　if (Month1=2) and (Day1=29) then
　　begin
　　　Month1 := 3; Day1 := 1;
　　end;
　end;

　If ( EncodeDate(Year2, Month2, Day2)
　　　 < EncodeDate(Year2, Month1, Day1) ) then
　　Result := Result - 1;
End;

function Age2(BirthDay, CheckDay:TDateTime):Integer;
var
　Year1,Month1,Day1,Year2,Month2,Day2: Word;
begin
　DecodeDate(BirthDay, Year1, Month1, Day1);
　DecodeDate(CheckDay, Year2, Month2, Day2);

　Result := Year2 - Year1;

　if (Month2 < Month1) then
　begin
　　Dec(Result);
　end else
　if (Month2 = Month1) then
　begin
　　if (Day2 < Day1) then
　　　Dec(Result);
　end;
End;

XPのテスチングフレムワークで検証したくなる所だ。
0450445NGNG
>>448
ご説ごもっとも。

あれはサンプルとして動かしてみたもので
実際にはFormatDateTimeを使うでしょうね。

要は、数値計算は年だけで行い
日付を文字列で比較するというわけです。
0451デフォルトの名無しさんNGNG
>>447
なにが言いたいのだろう？この人
0452DelギコNGNG
教訓です。

　　┏━━━━━━━━━━━━━━━
　　┃　　　　　　 ,.,助けられない人もいる
　　┃　　∧ ∧　/'　　　＿＿＿＿＿＿＿＿＿＿＿＿
　　┃　 （,,ﾟДﾟ）/　　 ／
　　┗━│　　つ━＜　一線超えちゃった人はときどきいる。
　　　　　│　│　　　 ＼＿＿＿＿＿＿＿＿＿＿＿＿＿
　　　　 ノ∪∪

　関数名に日本語使いたいとか。某ML
　BorlandにVCLを本気でサポしろと難癖つける。某NG
0453デフォルトの名無しさんNGNG
p ちゃん？ > 452
0454DelギコNGNG
　|
　| ∧　>>453 ・・・・・８９３屋さん?
　|Дﾟ)
　⊂| 　　ｺﾜｨ...
　|　｀～
　|∪
￣￣￣￣￣￣￣
0455デフォルトの名無しさんNGNG
>>452
＞BorlandにVCLを本気でサポしろと難癖つける。某NG
ﾜﾗﾀ
中村さんをわずらわせんじゃねーよ、なあ？
0456WILLNGNG
年齢計算の話に
ちょっと興味があったんで調べてみた。
年齢計算に関する法律(明治３５年１２月２日施行)
では

２　 　民法第143条ノ規定ハ年齢ノ計算ニ之ヲ準用ス

とあって

その百四十三条の中に

>但月又ハ年ヲ以テ期間ヲ定メタル場合ニ於テ最後ノ月ニ応当日ナキトキハ
>其月ノ末日ヲ以テ満期日トス

と、あるので
どーも２月２８日が本当らしい。

参考：
http://www.houko.com/00/01/M35/050.HTM
http://www.houko.com/00/01/M29/089.HTM#143
0457DelギコNGNG
＞どーも２月２８日が本当らしい。

　∧ ∧　 　 ／ >>456 情報Tanx
　(,, ﾟДﾟ)　＜　　しかし、全然、本当らしくない。
　 ｜つ つ　　 ＼ ﾈｺでもわかるような平易な文で説明しちる所ない？
～｜　　｜
　∪ ∪ 　　もしくは、2chのどこか専用板で聞いてみん？

ここで、ﾄｰｼﾛが判断しようとしても無理みたいだし。
DelphiMLででも聞くか？
0458DelギコNGNG
　　　　　 ∧∧　　／￣￣￣￣￣￣￣￣￣￣￣
　＠' ― (,,ﾟДﾟ) ＜　ﾆｬｰゴ
　 　し― し-Ｊ　 　＼＿＿＿＿＿＿＿＿＿＿＿

>>456、改めてだが442のリンク先は
みてくれてる？

非閏年の2/28の満期日までが同じ年齢で
3/1から年齢が変わるとなると
誕生日は3/1とするのが自然では？

実際、2/29生まれの人は
そうやっているようだが。
0459デフォルトの名無しさんNGNG
ここ、詳しそう.
http://www.h3.dion.ne.jp/~sakatsu/period_topic2.htm
0460DelギコNGNG
　∩ ∩
　| ∪ |
　|　 ～
　| ∧ ∧　　　／￣￣￣￣￣￣￣￣
　|( ,,ﾟДﾟ) ＜　>>459　情報サンクスコ
　Ｕ　Ｕ　　　　＼＿＿＿＿＿＿＿＿
0461デフォルトの名無しさんNGNG
> BorlandにVCLを本気でサポしろと難癖つける。某NG

単にDelphiのEnterprise版を安く買いたいだけって感じがしないでもないけど（ｗ

某ランドも企業なんだから開発費稼ぐには高額商品も置いとかにゃやってられないだろ
貧乏人はProfessional版で我慢しろ！ってことだろ
0462デフォルトの名無しさんNGNG
全部某ランドでやってほしいてのは
なんか日本人的な発送だな
0463DelギコNGNG
＞なんか日本人的な発送だな

　　　　　　 ∧ ∧ 　　ｼﾞｬﾊﾟﾝ
　　　　　＿(ﾟДﾟ )__
　　　 ／|　 ∪∪ ／＼
　　／|￣￣￣￣|＼／
　　　 |＿＿＿＿|／

　　　　　∧ ∧＿＿　　　 ﾏﾝ
　　　 ／(*ﾟДﾟ)っ／＼
　　／|￣∪￣￣|＼／
　　　 |＿＿＿＿|／

　　　　　＿＿＿___
　　　 ／Λ Λ/).／＼ 　　ｾｰ
　　／|￣￣￣￣|＼／
　　　 |＿＿＿＿|／

　　　　　＿＿＿___
　　　 ／　　／　 ／|　　　送ってください。
　　　 |￣￣￣￣|.　|
　　　 |＿＿＿＿|／　　　どこ江でも


発送というより、梱包だな、ｱｰｺﾘｬｺﾘｬ
0464デフォルトの名無しさんNGNG
δελφ正規表現取扱コンポないか。
δελφ開発環境色設定保存方法ないか。
ＤＥＬΦオブジェクトインスペクタコンポないか。
継承ＰＵＢＬＩＣ，ＰＵＢＬＩＣＳＨＥＤメソッド及びプロパティ隠蔽方法ないか。
0465DelギコNGNG
　　　　　＿＿＿___
　　　 ／　　／　 ／|
　　　 |￣￣￣￣|.　|
　　　 |＿＿＿＿|／

　　　　Delギコさん、質問でーす



　　　　ｶﾞﾊﾞｯ
　　　　　　∧ ∧　　 　┌────────────
　　　　　__(,, ﾟДﾟ)＿　＜　他は氏らん
　　　 ／　/　づ ／＼└────────────
　　／|￣￣￣￣|＼／
　　　 |＿＿＿＿|／

>δελφ開発環境色設定保存方法ないか。
HKEY_CURRENT_USER\Software\Borland\Delphi\5.0\Editor\Highlight
0466たろNGNG
４４７ の文のやってることがわかりません。
親切なかた、プログラムの説明してください。
0467ｼｭﾚｼﾞﾝｶﾞｰDelギコNGNG
┏━━━━━━━━━┓
┃|￣￣￣|～|￣ ▼ ￣|..┃
┃|□□□|　 | 　 ● 　 |..┃
┃|＿＿＿|　 | ▼　 ▼ |..┃
┃ζ　　　　　￣￣￣￣...┃
┃ζ　　　　　　　　∧∧ .┃
┃ζ　 ◆ 　 　　 （ﾟДﾟ ）.┃ ﾓｳｽｸﾞ ｼﾇﾝｼﾞｬ ﾅｲ?
┃ 　／＿＿_ 　　 Ｕ　Ｕ .┃
┃ ● （青酸Ю 　 |　　|　┃
┃　　　￣￣　　　 Ｕ Ｕ~ ┃
┗━━━━━━━━━┛
0468デフォルトの名無しさんNGNG
>>466=467?
Delじゃないことは確かだな
0469デフォルトの名無しさんNGNG
確かにFORTRANだね
0470DelギコNGNG
　　-------- ∧ ∧ 　 ／￣￣￣￣￣￣￣￣￣￣
～□□ □□ ( ﾟДﾟ)＜　フォートラン氏らん
　U U U U U U-U　　 ＼＿＿＿＿＿＿＿＿＿＿

Delじゃなくてもいいけど
答えられないの。
0471DelギコバスNGNG
　　--------∧ ∧ 　 ／￣￣￣￣￣￣￣￣￣￣
～□□ □□ ( ﾟДﾟ)＜　見る木も失せる
　U U U U U U-U　　 ＼＿＿＿＿＿＿＿＿＿＿

つーのは、本音>>FORTRAN
0472デフォルトの名無しさんNGNG
Ｄｅｌ６のスレ盛り上がってるけど、
ギコ猫さんは24日ダウソする？
0473デフォルトの名無しさんNGNG
24 日のいつからかな？
0474DelギコばすNGNG
　　--------∧ ∧ 　／￣￣￣￣￣￣￣￣￣￣
～□□ □□(,, ﾟДﾟ)＜　そろそろD6Pro買うか
　 (Ｏ)----(O)U-U)　＼＿＿＿＿＿＿＿＿＿＿

すでーに、ﾊﾟｿﾅるでは満足できんし。
かといって無料の者より機能が劣ると気に食わんC～
0475WILLNGNG
>>458

むむ、どうやら誕生日３月１日が正しいみたいです・・・。
#弁護士の友達に聞いてみた。

亀レス&&スレ汚しすまん。
0476デフォルトの名無しさんNGNG
ま、これでコンポーネント作るときに古いバージョンやもっていない物を
気にする負担がだいぶ減った。

とりあえず、D6 と BCB5/D5 で動くように調整しておけば、後は入手者が
ソースを変更するか D6 Personal を入手してもらえば良いのだから。
0477デフォルトの名無しさんNGNG
var
icn,icl,ix0,ix1,i,j,iy0,: integer;
x0,dx,dy,pa,pa2,pa22,pc0,am0,r2: real;
fx,fy:array [0..?, 0..?] of real;
begin
icn = 5
icl = 20

pa = 4.0d0
pa2 = pa * pa
pa22= 2.d0 * pa * pa

ix0 = 6.25D0
iy0 = 6.25D0

pc0 = 4.0d0
am0 = pc0/pa2

for i:=0 to 99 do begin
x0 := i/8
for j:=0 to 99 do begin
y0 := j/8
for i0:=1 to icn do begin
dx := x0 - ix0 + icl*(i0-3)
for j0:=1 to icn do begin
dy := y0 - iy0 + icl*(j0-3)
r2 := (dx*dx + dy*dy )/pa22
fx[i,j] := fx[i,j] - am0 * exp(-r2) * dx
fy[i,j] := fy[i,j] - am0 * exp(-r2) * dy
end
end
end
end
end
0478DelギコばすNGNG
　　--------∧ ∧ 　／￣￣￣￣￣￣￣￣￣￣
～□□ □□(,, ﾟДﾟ)＜　>> 475　気にすんな、むしろ感謝。
　 (Ｏ)----(O)U-U)　＼＿＿＿＿＿＿＿＿＿＿

ネット上の情報は疑わしいものでも
議論する事で質を高めていけるのだから
どんどん、逝って教えてくれぃ。

かの、誕生日、年齢問題は、
誕生日前日の24時=誕生日当日の0時と解釈できなかった
ドキュ裁判官が一度、前日の24時というものを
拡大解釈してしまった判決があるから変な事になっているんだな。

4/1生まれのガキが3/31生まれのガキと同じ年代に
なるというのがそもそもおかしいわ。

ま、その判決に従いつつ
一般的には誕生日前日は、まだ年齢があがってなくて
その次の日には年齢があがるとして処理をしようかのお。
0479デフォルトの名無しさんNGNG
>>478
その判決の出典、希望。

日本はアメリカのような判例主義ではないので、過去に変な判決が
あったからといってそれに影響されることはないはずだが？
0480デフォルトの名無しさんNGNG
Delphiでmdbファイルを扱うにはどうしたらええですか？

DAOに相当するものを使いたいのですが。
SQLなども使用したいと思います。

BDEを見たら一応Accessが定義されてるんですけど。
0481デフォルトの名無しさんNGNG
ADOExpress
0482デフォルトの名無しさんNGNG
そういうコントロールがあるんですか？
0483DelギコばすNGNG
>>479
　　--------∧ ∧ 　 ／￣￣￣￣￣￣￣￣￣￣
～□□ □□(　ﾟДﾟ)＜　ここに書いてある誕生日リンク先を全部見ろ
　U U U U U U-U　　 ＼＿＿＿＿＿＿＿＿＿＿
0484デフォルトの名無しさんNGNG
>>482
コントロールじゃなくてコンポーネントね。

ところでお使いの Delphi のバージョンは？
0485DelギコばすNGNG
　　--------∧ ∧ 　／￣￣￣￣￣￣￣￣￣￣
～□□ □□(,, ﾟДﾟ)＜　ADOExpressよりBDE！
　 (Ｏ)----(O)U-U)　＼＿＿＿＿＿＿＿＿＿＿

ODBC経由の方が…楽ちやう？

ADOExpressは
TADOConnection/TRDSConnection/
TADOTable/TADOQuery/TADOStoredProc/
TADODataSet/TADOCommand/
これらで構成されているみたいだよ。

D5Entで標準付属、D5Proで別売りらしいね。
0486DelギコばすNGNG
　　--------∧ ∧ 　 ／￣￣￣￣￣￣￣￣￣￣
～□□ □□(,, ﾟДﾟ)＜　インデントは全角ｽﾍﾟｰｽ
　U U U U U U-U　　 ＼＿＿＿＿＿＿＿＿＿＿
　　　　ｷﾎﾝｷﾎﾝ
var
　icn,icl,ix0,ix1,i,j,iy0,: integer;
　x0,dx,dy,pa,pa2,pa22,pc0,am0,r2: real;
　fx,fy:array [0..?, 0..?] of real;
begin
　icn = 5
　icl = 20

　pa = 4.0d0
　pa2 = pa * pa
　pa22= 2.d0 * pa * pa

　ix0 = 6.25D0
　iy0 = 6.25D0

　pc0 = 4.0d0
　am0 = pc0/pa2

　for i:=0 to 99 do begin
　　x0 := i/8
　　for j:=0 to 99 do begin
　　　y0 := j/8
　　　for i0:=1 to icn do begin
　　　　dx := x0 - ix0 + icl*(i0-3)
　　　　for j0:=1 to icn do begin
　　　　　dy := y0 - iy0 + icl*(j0-3)
　　　　　r2 := (dx*dx + dy*dy )/pa22
　　　　　fx[i,j] := fx[i,j] - am0 * exp(-r2) * dx
　　　　　fy[i,j] := fy[i,j] - am0 * exp(-r2) * dy
　　　　end
　　　end
　　end
　end
end

変数の命名則見ると泣けるね。
何をやっているか知りたくもないので、折れはﾊﾟｽ1
0487デフォルトの名無しさんNGNG
>>486やらなんやら
でも、結局もとのプログラムの意味はわからん…せめて変数名がちゃんとしてればなあ。
これだから機械的変数名は嫌なのさ。
いくらPascal風味に味付けしてインデントなんぞ
混ぜても、元があれじゃあネエ…

張本人もあれから来てないみたいだし。
0488DelギコばすNGNG
　　--------∧ ∧ 　／￣￣￣￣￣￣￣￣￣￣
～□□ □□(,, ﾟДﾟ)＜　>>487　元はつまんない荒らしなんじゃないの？
　 (Ｏ)----(O)U-U)　＼＿＿＿＿＿＿＿＿＿＿

化ルーク、気にせず足ラットコ。

それより、
Delphi相談室その２　　　　の283
　IsDebuggerPresent

Delph6の話でもはじめますか　の687
　WM_COPYDATAよりCOMを

とか言ってるのに
その後のフォローなしの方が気になる。

教える気がなくて、知識をひけらかすだけなのなら
逝ってよし。
0489482NGNG
Delphi6Proです
0490デフォルトの名無しさんNGNG
>>488
そこまでヒントをもらったのなら自分で調べれば？
くれくれ君か？
0491DelギコばすNGNG
　　--------∧ ∧ 　 ／￣￣￣￣￣￣￣￣￣￣
～□□ □□(　ﾟДﾟ)＜　>>490　はいはい。
　U U U U U U-U　　 ＼＿＿＿＿＿＿＿＿＿＿

知識自慢したい君よりまし。

ツーか。価値のあるヒントかよ。
0492Delギコばすﾄﾗﾝｽﾌｫｰﾏ-NGNG
　　 　 ＿＿＿＿_＿＿_
　　　/□□ □□|∧∧|
　～（　　　　　　　( ﾟДﾟ)＜　ギコバス
　 ≡`(Ｏ)----(O)U-U)
￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
0493Delギコばすﾄﾗﾝｽﾌｫｰﾏ-NGNG
　 　 　 　 　 ／＼∧ ∧
　 　 　 　 ／◇∩( ﾟДﾟ)＜　トランス
　 　 　 ／◇　(O)　　 ∩
　 　 ／　 　 ／／　／( .)
　 ／◇　 ／ フ　∠／
／◇　 (Ｏ)／ .／／
|＿　 ／　　 ／／
＼ ＼＼　　 (　)
　 ＼ ＼＼／
　　　￣￣
0494Delギコばすﾄﾗﾝｽﾌｫｰﾏ-NGNG
　　∧ ∧　 　 　 　 ／￣￣
＿_(, ﾟДﾟ)∩,.、　＜　フ
|□(O)⊃ |,/∪　　 | ォ
|□|　　　 |　　　 　 | ｜
|□|　　　 |,.、 　 　 |　|
|□l(Ｏ)　 |U　　　　| ム
`ｰ.┤l―l l　　　　　＼＿＿
　　 U.　 U ｼｬｷｰﾝ!

これで発言もﾊﾟﾜｰｱｯﾌﾟ
0495Delギコばすﾄﾗﾝｽﾌｫｰﾏ-NGNG
ﾌﾟ　　?
ﾁ　∧ ∧
＿_(, ﾟДﾟ)∩　　　＜ ？
|□(O)⊃ |,/ﾎﾟﾛｯ
|□|　　　 |
|□|　　　 |,.、
|□l(Ｏ) .| |U
`ｰ.┤l―l l
　　 Ｕ　 Ｕ　　⊂⊃
0496Delギコばすﾄﾗﾝｽﾌｫｰﾏ-NGNG
　　　　　　ﾌﾞﾁ　　∧ ∧ ｱ･･
　　　　　　　　　 ,(ﾟДﾟ ,,)　　　＜ ？
.　　　 　 　 　 　 |(O)⊃ |⊃
.　　　 　 　 　 　 |　　　 |
.　　　 　 　 　 　 |　　　 |,.、
　　　　　　　　　｜| |　.| |U
　 ＿＿＿＿＿.└l l―l l.　,.、
／□[(O) □□|　 Ｕ　 Ｕ
￣￣￣￣￣￣
　　　　⊂⊃
0497Delギコばすﾄﾗﾝｽﾌｫｰﾏ-NGNG
　　　　　　　　　　_______
　　　　　　　　　 ,(　　　)、
.　　　 　 　 　 　 |∨ ∨ |
.　　　 　 　 　 　 |l.l　　　|ヽ
.　　　 　 　 　 　 |U　 　 |U
　　　　　　　　　｜| |　.| |
　 ＿＿＿＿＿.└l l―l l.　,.、
／□[(O) □□|　 Ｕ　 Ｕ　U⊂⊃
￣￣￣￣￣￣
　　　　⊂⊃
0498故Delギコばすﾄﾗﾝｽﾌｫｰﾏ-NGNG
　　　　　　　　　　　　　　　　　　　　　 ∧ ∧　ｲｯﾃﾖｼ
　　　　　　　　　　　　　　　　　　　　　 (,,ﾟДﾟ)　
　　　　　　　　　　　　　　　　　　　　　　|∪∪　ｵﾏｴｶﾞﾅ-
　　　　　　　　　　　　　　　　　　　　～(　ノ
　　　　　　　　　　　　　　　　　　　　　ν　
　　　　　　　　　　　　　ﾊﾞﾀ　　　　ノノノ　
　 ＿＿＿＿＿.　　　　＿＿＿＿　∧ ∧　　
／□[(O) □□|　 ～⊂コ＿⊂＿（ xДx）っ
￣￣￣￣￣￣ 　　　　　　　　　　　　 ,.、
　　　　⊂⊃ 　　　　　　　　　　　　　　U⊂⊃
0499Delギコ地縛霊NGNG
δ
　∧ ∧　δ
　(,,ﾟДﾟ)　　＜　気分も新たに
　∪∪ヽ　　　　なんでも相談しろやｺﾞﾆｬｧｰ
　 丶　ﾉ～
　　 ν


バスのAA貼りたかっただけだったりして…
0500デフォルトの名無しさんNGNG
(・∀・)500!!!
0501Delギコ地縛霊NGNG
／￣￣￣￣￣￣￣￣￣￣￣￣￣
|　>>500 キリ番とらーれちゃた。
＼＿＿＿ 　＿＿＿＿＿＿＿＿＿
　　　　　　∨
　　δ　　　　　　δ
♪　　 ∧ ∧　♪ 　　δ
　　　 （,,ﾟДﾟ)　　♪
　　 　 |つ[|lllll］).
　　～(　　/ 　　　　　δ
　　　　）,ノ
　　　 υ

うごいちまったよ。APIの宣言方法氏らなかったのに...

interface

function IsDebuggerPresent: Boolean;
　external kernel32 name 'IsDebuggerPresent';

imple...

procedure TForm1.Button1Click(Sender: TObject);
begin

　if IsDebuggerPresent then
　　Caption := 'デバッグモードだｺﾞﾙｧ'
　else
　　Caption := '普通の実行だｺﾞﾙｧ'

end;

ただし、Win95ではダメらしい。
Win95のIsDeguggerPresent関数の実装を教えろヤ・ｺﾞﾙｧ
0502デフォルトの名無しさんNGNG
>>501
IsDebuggerPresentの定義
JEDIのWinAPI.Zipで見つけたYO!
WinBase.pasにあった
Win95のやり方見つからなかった
0503Delギコ地縛霊NGNG
　　　　 ⊂⊃　
　　　　 ∧ ∧　　 ／￣￣￣￣￣￣￣￣￣￣￣￣
　　　　 (,,ﾟДﾟ)　＜　サン9>>502
　　　　　|∪∪　　|　501の書き方でOKなのかな。自信なし。
　　　～(　ノ　　　 |　もともとBooleanではなくBOOLだし
　　　　ν　　　　　＼＿＿＿＿＿＿＿＿＿＿＿＿
　　　ノノノ　
0504デフォルトの名無しさんNGNG
>>503
試してみたけどＯＫだったよ
ただ、BooleanとBOOLはバイト数もFalseの時の値も異なるので
（動作には支障ないみたいだけど）
BOOLにしておいた方が確実なんじゃない？
0505デフォルトの名無しさんNGNG
>>503
こんな感じ
function IsDebuggerPresent: BOOL; stdcall;
{$EXTERNALSYM IsDebuggerPresent}
implementation
const
　kernel32 = 'kernel32.dll';
function IsDebuggerPresent; external kernel32 name 'IsDebuggerPresent';
一部抜粋です。
0506デフォルトの名無しさんNGNG
>>504 訂正
×Falseの時の値も異なるので
○Trueの時の値も異なるので
0507Delギコ地縛霊NGNG
δ
　∧ ∧　δ
　(,,ﾟДﾟ)　＜　最初,Windows.pasを真似て折れも
　∪∪ヽ　　　>>505のように書いていたんだけど
　 丶　ﾉ～　　適当にやったら>>501でも動いたから
　　 ν　　　　いっかなーとおもって。

ﾔｯﾊﾟﾀﾞﾒ?

BOOL=LongBoolなのねん。

kernel32 定数はWindows.pasで定義されてるんだね。
stdcallや{$EXTERNALSYM IsDebuggerPresent}
こんなの、なくてもいいんだろうか？
0508デフォルトの名無しさんNGNG
>stdcallや{$EXTERNALSYM IsDebuggerPresent}
>こんなの、なくてもいいんだろうか？

stdcall
は普通は付けるものだけど
IsDebuggerPresentには引数が無いから結果的に大丈夫

{$EXTERNALSYM IsDebuggerPresent}
はC++Builder使わない人には関係ないみたい

だと思うけど
0509Delギコ地縛霊NGNG
　　　　 ⊂⊃　
　　　　 ∧ ∧　　 ／￣￣￣￣￣￣￣￣￣￣￣￣
　　　　 (,,ﾟДﾟ)　＜　>>508　サンクスコ
　　　　　|∪∪　　|　大変勉強にナター
　　　～(　ノ　　　 |　これで成仏できるぞ。
　　　　ν　　　　　＼＿＿＿＿＿＿＿＿＿＿＿＿
　　　ノノノ　
0510Delギコ天使NGNG
;:･･．∴○;･.:∴　　　　　　　*　　　　　☆
　　　　　ﾟ　　　　　⊂⊃　　　。
　　　 　　　 ☆,,　∧ ∧　　　　　　*
　　ﾟ　　　 　　ヽ（ﾟДﾟ*）ﾍ 　ﾒｻﾚﾏｼﾀ
　　　 　*　 　　（□ノ）ﾉﾉ　ﾟ.・∴..*.☆＋
　　　　⌒⌒⌒∪∪⌒⌒⌒⌒
　　　　⌒　 ⌒　　　 　⌒　⌒　
0511Delギコ天使NGNG
　　　 ∧ ∧　 　／￣￣￣￣￣￣￣
　　　(　ﾟДﾟ)＜ 　背筋まがってヨシ
　 |⌒|U U　　　＼＿＿＿＿＿＿＿
　 川 |　 |
　　　ﾉU.U

　ギコAAがたまり過ぎて…探しきれない
　DBで管理しようかしら(ﾜﾗ
0512デフォルトの名無しさんNGNG
http://www.expertgig.com/
なんか面白そうな会社。
0513デフォルトの名無しさんNGNG
>>511
作ったら是非公開をｷﾎﾞｿ。
0514デフォルトの名無しさんNGNG
>>512
Delphi魔法のTIPS もうすぐ下旬なんですけど出るのかな
つーか定価 8,500円たかすぎ
しかも
CD-ROM販売　価格 2,800円
合計一万越えるぼったくりか？
0515デフォルトの名無しさんNGNG
>>513
できれば Web サービスで公開して。
誰でも使えるようにしようよ。

AA の類似性評価コードって誰か研究した人いない？
0516デフォルトの名無しさんNGNG

ボーランド、Delphi 6とKylixの無償ダウンロード版を24日に公開
http://www.watch.impress.co.jp/pc/docs/article/20010822/borland.htm
ボーランド，8月24日からDelphiとKylixの無償ダウンロード・サービスを提供
http://nsw.nikkeibp.co.jp/nsw/newsshow.asp?ID=1008

・コード支援機能、ソースレベルデバッガ、オンラインヘルプ
・Windows 98/NT/2000対応・ビジュアル統合開発ツール
・顧客満足度調査で常に高い評価

・32bit最適化ネイティブコードコンパイラ
・80種類以上のコンポーネント
・生産性と高速性を両立

・無制限・無償ダウンロード
・学習や趣味の開発が自由

　∩ ∩
　| ∪ |
　|　 ～
　| ∧ ∧　　／￣￣￣￣
　|( ,,ﾟДﾟ) ＜　やった！
　Ｕ　Ｕ　　　＼＿＿＿＿
0517Delギコ天使NGNG
　　　　　　　　　⊂⊃ 　　　　　　　＿＿＿＿＿＿＿＿＿
　　　+ 　　　*　∧ ∧　　+　　 ／
　　　　　　　　　(,, ﾟДﾟ)　　　＜　いくらなんでも高すぎ
　* 　　　　　 |⌒/つつ　　　　 ＼
　　　+ 　　　 川　　ﾉ　　* 　　　　￣￣￣￣￣￣￣￣￣
　　　　　　　　ι´U　 　　　　+

商売だし市場が小さいから
値段高くなるのは当然なんだけど
にしても････

せめて8000円でCDROMもつけようよ
あ、でも書籍買った人はDL可能ってあるから
CDROMは純粋に配布手数料か。

これからDelphi/Kylixをソッコウで企業戦力として
使う会社にとってはいいかもだが、

2chやMLを常時みている
Delphianなら必要ないでしょ。
、、、魔法のTips山ほど知ってるでしょ＞＞ﾐﾅｻﾝ

それにしても情報はPCで検索したいよな。
MSDNしかり、、
そういう意味でDelphi4Tech200は、なかなか良い書籍だ。
0518Delギコ神父NGNG
　　 ⊂⊃
　　 ∧ ∧　　 ／￣￣￣￣￣￣￣￣￣￣￣￣
　　 (,,ﾟДﾟ)　＜　 >>515　だって専用線とかレンタ鯖とか持ってない
　　ﾊ￣￣`　　＼＿＿＿＿＿＿＿＿＿＿＿＿
　　し　╋ .J
　　 |＿_＿| 　　どうせならDelphi/Kylixで作りたいね。
　　 ∪ ∪
　　∬　∬

通常文章と2ch用AAを判断するのは実に簡単そうだ。
全角スペースの文字列中の割合をしらべれば一発ね。
0519DelギコNGNG
|　| ⊃
|　|､∧
|　|Дﾟ）へ 　　　　ﾌｩ。
|　|⊂）ﾉﾉ
|　|∧|
￣￣￣￣￣
引用age

> ボーランド、Delphi 6とKylixの無償ダウンロード版を24日に公開
> http://www.watch.impress.co.jp/pc/docs/article/20010822/borland.htm
> ボーランド，8月24日からDelphiとKylixの無償ダウンロード・サービスを提供
> http://nsw.nikkeibp.co.jp/nsw/newsshow.asp?ID=1008
>
> ・コード支援機能、ソースレベルデバッガ、オンラインヘルプ
> ・Windows 98/NT/2000対応・ビジュアル統合開発ツール
> ・顧客満足度調査で常に高い評価
>
> ・32bit最適化ネイティブコードコンパイラ
> ・80種類以上のコンポーネント
> ・生産性と高速性を両立
>
> ・無制限・無償ダウンロード
> ・学習や趣味の開発が自由
0520デフォルトの名無しさんNGNG
↑がいしゅつだけど普及のため便乗age
0521デフォルトの名無しさんNGNG
>>519
何時からだろう…ドキドキ。
0522デフォルトの名無しさんNGNG
>>520
引用って書いてあるよ。
0523デフォルトの名無しさんNGNG
24日ちょうどにサービス開始だよね。
じゃないと配布ページの「24日から開始する予定です」ってのもおかしいもんね。
0524デフォルトの名無しさんNGNG
さあ24日になったよ。
無償ダウンロードサービス始まりだよ～。
0525デフォルトの名無しさんNGNG
そんな、深夜勤務なんかできるかよ。
予定では昼から。
たぶんその前に FTP 上で見つかってしまうだろうが。

しかし、40M 以上あるよ。本気で落とすの？
0526DelギコNGNG
　。゜..∧ ∧　　　／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
　　　(,,ﾟДﾟ,,)　＜　えーただいま、偽装ボウランド社員の発言がありました
　 ／｜　G|つ□＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
|￣￣￣￣￣￣|
|　２ｃｈギコＴＶ |


おいおい、ブロードバンドしてる奴だっているだろうに。
40MBくらい、で本気とか言うなよ、寒いし
0527デフォルトの名無しさんNGNG
>>525
ふっ。
俺たちは日ごろ割れで鍛錬してんだぜ！
40Mくらいへでもないわ！
0528ギコかわいい！NGNG
>>526
ギコかわいい！
0529デフォルトの名無しさんNGNG
40Mなんてすいてりゃ５分もかからんし
なんですいてから落とすつもり
0530デフォルトの名無しさんNGNG
マジで40Ｍ程度なの？
0531デフォルトの名無しさんNGNG
40MBなんて数秒なんですが
0532デフォルトの名無しさんNGNG
borland.co.jpが重くなってた。
群れてるようだ。
0533デフォルトの名無しさんNGNG
> 40MB数秒
いーなぁ
0534デフォルトの名無しさんNGNG
>>531
あんまり速いと小さなファイル転送した時に不安にならない？
0535デフォルトの名無しさんNGNG
>>534
なるなる。
0536デフォルトの名無しさんNGNG
>>535
DelDel
0537DelギコNGNG
　　　 ∧ ∧　 　／￣￣￣￣￣￣￣
　　　(　ﾟДﾟ)＜ 　NGのｷﾃｨ、まだいたのか。
　 |⌒|U U　　　＼＿＿＿＿＿＿＿
　 川 |　 |
　　　ﾉU.U 　　ﾁｮｯﾁ ｼﾌﾞﾄｲ ﾈ

ﾄﾞﾅﾀｶﾉ ｲｳﾄｵﾘ Ent ﾔｽｸ ﾃﾆｲﾚﾀｲ ﾀﾞｹ ﾐﾀｲﾀﾞﾈ
0538デフォルトの名無しさんNGNG
>>537
エンタープライズは高すぎて手が出ません。
WAREZに走ることになりそうです。
だれか私を止めてください。
0539Delギコ天使NGNG
　　　　　　／￣￣￣￣￣￣￣￣￣￣￣￣
　　　　　　|　逝ってヨシ・犯罪は公言せずにﾔﾚﾖ
　　　　　　＼＿＿_＿＿__　＿＿＿＿＿_＿
　　　　　　　　　　　　　　 ∨
（￣￣￣￣￣＼　　　　r⊂⊃　　/￣￣￣)
　￣／ ／　／￣＼　　∧ ∧　/ ＼) ￣)
　 （／（／ ／ ￣＼＼ (,,ﾟДﾟ)/　 ＼)＼)
　 （／（／／／　　　(｀ヽ　yノつ＼)＼)
　　 　　（／（／（／（ ∪ | † |＼)＼ﾉ
　　　 　 （／（ /（ /　/　人　|
　　　　　　　　　　　 ∫U U

　勝手に犯罪者なっとけ。折れの知ったことか。

　かね払うのがヤなのなら
　Entの機能、自分で実装しろ。
0540デフォルトの名無しさんNGNG
>>538
俺の余ったライセンスやるから犯罪だけはやめろ
0541DelギコNGNG
　　　　　　ｺﾞﾙｧ
　　　　　　　　ｺﾞﾙｧ　 ∧ ∧　　　　　　 ﾎﾝﾄﾆ ﾋﾙｶﾗ ﾅﾉ? >>525
　　　　　　　　　　　　(,, ﾟДﾟ)　　　　　
━━━━━━━━━つ━つ━━━━━━
　　　　　　　　　　～/　乂 　ヽつ　　　　　　　｜|　　　　　
　　　　　　　　　　ι' Ｕ ゞＵ"＼ 　　　　　　　｜|　　　　　
　　　　　　　　　　　　　　　　　　　　　　　 　　｜|

　　　　　　　　　　　～　つ 　　　　　　　　　　　　　　ｷﾞｬﾌﾝ
━━━━━━　⊂　　＼━━━━━━━━
　　　　　　　　　　　　＼ ∧ ∧　　　つるっ 　｜|
　　　　　　　　　　　　Σ(,; ﾟДﾟ)つゞ.　　 　 　 ｜|
　　　　　　　　　　　　　し　　Ｕ乂　　　　　 　 ｜|
　　　　　　　　　　　　 　 　 　 　 　 　 　 　 　 ｜|
　　　　　　　　　　　　 　 　 　 　 　 　 　 　 　 ｜|
0542DelギコNGNG
　　　　　　　　　　　　　 ,,＿
　　　　　　　　　　　　　⊂,　＼⊃　ﾍﾞﾁｬ ／￣￣￣￣￣￣￣
　　　　　　　　　　　　　　 ＼∧∧　　　＜　　へぎゃっ！？
　　　　　　　　　　　　　　 ⊂(,,ﾟДﾟ)つ))　 ＼＿＿＿＿＿＿
0543デフォルトの名無しさんNGNG
40MBｲｼﾞｮｳってナニヨ？
0544DelギコNGNG
　∧ ∧　 　 ／￣￣￣￣￣￣￣
　(,, ﾟДﾟ)　＜　YahooのDelphi復活してるね。
　 | っっヾ 　＼＿＿＿＿＿＿＿
～| 　 | ﾊﾟﾁﾊﾟﾁ
　 ∪∪ 　ﾖｶﾖｶ

http://www.yahoo.co.jp/Computers_and_Internet/Software/Programming_Tools/Programming_Languages/Delphi/
0545デフォルトの名無しさんNGNG
>543

42.2MB (44,331,358 byte)
0546デフォルトの名無しさんNGNG
>544
復活はしたけど、メンテはされていませんね。
元に戻しただけのようだ。ひでぇや。
0547DelギコNGNG
　　特攻逝っとく？
　　＿ ∧∧ ＿＿
　 （ 　(,,ﾟДﾟ)　 （○
　　￣/ つノ￣￣
　　～ ,,つ
　　　(/


　関係ないが、ここ読んでいた。
http://slashdot.jp/search.pl?topic=programming
　ひどいな。。。。いや内容じゃなくて。。。
　いちいち1スレみるためにクリックしなきゃならんのは
　読みにくすぎ。。。。
0548DelギコNGNG

　　　 ∧ ∧　 　　　　　 　／￣￣￣￣￣￣￣￣￣
|￣￣（ ﾟДﾟ)￣￣|　　　＜　　さてねるぞ。
|＼⌒⌒⌒⌒⌒⌒＼ 　　＼
|　 ＼ 　　　　　 　 　 ＼ 　　￣￣￣￣￣￣￣￣￣
＼　 ｜⌒⌒⌒⌒⌒⌒｜ 明日は遅刻かも(w
　 ＼ |＿＿＿＿＿＿＿|
0549デフォルトの名無しさんNGNG
現在Borlandは56kでdelをアップしています。少々お待チください。
0550デフォルトの名無しさんNGNG
>>547
スレッド化しないで、ネストすれば見やすいかと。
0551デフォルトの名無しさんNGNG
現在Borlandは56kでエロ動画をDLしています。薄消しです。あと少しお待ちください。
0552デフォルトの名無しさんNGNG










　　　※無償ダウンロードサービスは、8/24 から開始する予定です。









　
0553デフォルトの名無しさんNGNG










　　　　　　　　　　　　　　　　（　´_ゝ`）予定ですー









　
0554デフォルトの名無しさんNGNG





　　　　　　　　　　　　　　　無期延期になりました...
0555DelギコNGNG
>>552-554

　　　　　||　　||￣￣||￣￣￣||
　　　　　||　　||　 　 ||　 　 ／||
　　　　　||..Λ||　 ／||　 ／／||
　　 ｼﾞｰ ||..(:゜||／／||／／ 　||
　　　　　||　|つ／　 ||／ 　 　||
　　　　　||　|. || 　 　||＿＿＿||
　　　　|￣￣￣￣￣￣￣￣￣|

　　　　/＿＿＿＿＿＿＿＿_ヽ
　　　　　||　 　 三 ||￣￣￣ ||
　 ｶﾞﾗｯ! ||ｼﾈ!...三 ||　 　 ／ ||
　　　　　|| ΛΛΞ||　 ／／ ||
　　　　　||（ﾟДﾟ ） .||／／ 　 ||
　　　　　||ι 　 ⊃||／ 　 　 ||
　　　　　|| ｜　｜ ||＿＿＿ ||
　　　　|￣￣￣￣￣￣￣￣￣|

　　　　/＿＿＿＿＿＿＿＿_ヽ
　　　　　||￣￣￣ ||￣￣￣ ||
　　　　　||　 　 ／ ||　 　 ／ ||
　ﾋﾟｼｬ!　||　 ／／ ||　 ／／ ||　ｹｯ!　ｳﾞｧｰｰｰｶ
　　　　　||／／ 　 ||／／ 　 ||
　　　　　||／ 　 　 ||／ 　 　 ||
　　　　　||＿＿＿ ||＿＿＿ ||
　　　　|￣￣￣￣￣￣￣￣￣|
0556DelギコNGNG
|
|　ちょっと遅刻だぞ
|
￣￣￣￣￣V￣￣￣￣￣￣￣

　　　　∧ ∧
.　　　 （；ﾟДﾟ）　　　 　_＿＿＿　
　　　　 |つ つ◇　／＝＝　／.|
　　　～　　 |　　　||￣￣￣||　 |
　　　　∪ ∪　...　||　9:35　||　 |

>>550
ｻﾝｸｽ...............はコンビニだ。
0557デフォルトの名無しさんNGNG
もう１０時やんけ！今日が始まって、もう半日近くやんけ！
どないなっとんねん。
暇すぎてHSPに手つけても～たわアホ！！







　　　　　　　　　　　　　　　結構、おもろい、、、やんけ
0558デフォルトの名無しさんNGNG
>>557
英語版じゃなくてHSPに行くトコが（・∀・）ｲｲ!!
0559デフォルトの名無しさんNGNG




　　　　　　　　　　　※無償ダウンロードサービスは無期限延期となりました。
0560関係者NGNG
おい。まだ公開していないのに、FTP のユーザーが埋まっちゃったよ。
同時 50 ユーザーがひとつもあいていない。

おれがログインして、属性変えなきゃ公開できないのに....
0561DelギコNGNG
>>560
　　＿_　　　　　　 　＿_　　　　　　　＿_
　 |よし|　ΛΛ　　|よし| ΛΛ　　　|よし|　ΛΛ 　　／￣￣￣￣￣￣￣￣￣￣￣￣￣
　〃￣∩ ﾟДﾟ）　〃￣∩ ﾟДﾟ）　　〃￣∩ ﾟДﾟ） ＜　全員一致で逝ってよし！
　　　　ヾ.　 　）　　　　ヾ.　 　）　　　　　ヾ.　 　） 　　＼＿＿＿＿＿＿＿＿＿＿＿＿＿
￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣＼
＼　　　 　　　　　　　　　　　　　　　　　　　　　　　　 　　　　　　　　　　　　 ＼
　 |￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣ |
　 |　　 　　　　　　　逝ってよし認定委員会　　　 　　　　　　　　　　　　　　|
　 |　 　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 　|
＼| 　　 　　　　　　　　　　　　　　 　　　　　　　　　　　　　　　　　　　　　 　　|

あんた、本物なら朝一からログインしとけよ！ｺﾞﾙｧ
0562関係者NGNG
ftp ホストの管理会社に電話して、裏口をあけてもらうことに。
0563デフォルトの名無しさんNGNG
みんなDelphiがすきなんだなぁ。
ところでDel6が最終バージョンってのは本当？
0564DelギコNGNG
こんな時の為のAA

　　　　　　　　　　　　　　　　　　　　　　　　ﾃﾞﾙﾛｸ ｶﾞ 　ｻｲｼｭｳﾊﾞｰ　　ｯﾃ ﾎﾝﾄ?
　　　　　　　　　　　　　　　　　　　　　　　　　∧＿∧　　 .∧＿∧　　∧＿∧
　　　　　　　　　　　　　　　　　　　　　　　　 （ ﾟ∀ﾟ　 ）　 （ ﾟ∀ﾟ 　）　（ ﾟ∀ﾟ　 ）
　　　　　ｶﾁｶﾁｶﾁｯ　　 　,＿＿　　　　　　 ⊂　　　　つ⊂　　　　つ⊂　　　　つ
　　（　　　∧_∧ｲｯﾃﾖｼ!! |_|＿_|　　　　　　　　 Y　 人　　　Y　 人　　　Y　 人
　⊂ ´⌒つ ﾟДﾟ)つ≧　　/∫ ヽ　　　　　　　　（＿） Ｊ　　 （＿） Ｊ　　 （＿） Ｊ
￣￣￣￣￣￣￣￣~~~~~~~￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣


　　　　　　　　　　　　　　　　　　　　　　　　　　　　　ﾋﾞｼｭ!!　　　　　　ﾋﾞｼｭｼｭｼｭｼｭｼｭｼｭ!!!!
　　　　　　　　　　　　　　　　　　　　　　　　　ﾋﾞｼｭ!!　　∧　　　。＿∧　；ζﾟ 　）;；*∴；
　　　　　　　　　　　　　　　　　　　　　　　。　 。　∧;：,∴。＿　つ　 ∧_　：*;：,∴ ∧＿∧：*;：,∴
　　　　　　　　　　　　　　　ｽﾞﾊﾞﾝ!!!　　。　。・　　;（ ﾟ∀ζ*　）（ﾟζ；　　*）　从（ ﾟ＜：;：,∴
　　　　　　　　　　　　　 　 , ﾉ从ゝ　　　　。　⊂　　∴　。　*　γ；　∴つ ⊂　：;：,*∴　：;：∪
　　（　　　∧_∧　　　　　 ||　　　Σ　。　　。。从从 ； 人。：*;：,∴　从Yζ　；人　　　Y　 人
　⊂ ´⌒つ ﾟДﾟ)つ≧　　/∫Wヽ　　　　。　（,∴＿）　。;：,∴　 Ｊ　（＿,∴） 　Ｊ　,∴（＿） Ｊ：*;：,∴
￣￣￣￣￣￣￣￣~~~~~~~￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣

備えあれば憂いなし
0565デフォルトの名無しさんNGNG
デル６がまだないから、カイリックスでもDLしようよ
ftp://ftpa.borland.co.jp/kylix/open_edition/kylix_oe_jp.tar.gz
0566デフォルトの名無しさんNGNG
>>565
どうやって落とすの？
0567デフォルトの名無しさんNGNG
アップロードしている最中じゃないかい？
0568566NGNG
あ、おとせた
0569デフォルトの名無しさんNGNG
こっちのほうが早いよ

http://210.81.93.107/products/kylix/open_edition/kylix_oe_jp.tar.gz
0570デフォルトの名無しさんNGNG
３６００KBしかない。まだアップ中だ。やめたほうがいいかも
0571デフォルトの名無しさんNGNG
＞５６９
サンクス！こっちのほうが軽くて良い！
秒間２２２KB出てて２分で終わるぞ！
0572デフォルトの名無しさんNGNG
>>569
なんとiriaで落とせるよ
0573デフォルトの名無しさんNGNG
本命のデルファイ６がまだかな。これデカイからDLするの大変だ
0574デフォルトの名無しさんNGNG
ftp://ftpa.borland.co.jp/delphi/personal/BorlandDelphiPersonalEditionJP.exe

こっちもまだアップ中っぽい。１１MBしかない
0575デフォルトの名無しさんNGNG
>>574
12:06に見てみると14M弱だった。

3MB/2分＝200kbit/s…ｵﾂｶﾚｻﾏﾃﾞｽ(;´Д`)
0576デフォルトの名無しさんNGNG
BorlandはISDNだった！？
0577デフォルトの名無しさんNGNG
BorlandはADSLで、
でも距離が3kmくらいあって全然速度が出ないとかいうオチです。
0578DelギコNGNG
　　　　　 ∧∧　　／￣￣￣￣￣￣￣￣￣￣￣
　＠' ― (,,ﾟДﾟ) ＜　オチは落とせるようになってから家
　 　し― し-Ｊ　 　＼＿＿＿＿＿＿＿＿＿＿＿
0579DelギコNGNG
　　　 ∧∧　ﾌﾟﾊｰ
　　　(,, ﾟДﾟ) =3　＜　やっぱこっちの方が落ち着くな。
　　　/つ日 　　
　～（＿_ﾉ

　ようやくMLでも話題になってきた。
0580デフォルトの名無しさんNGNG
なぜ落とせない！？
Borlandは俺を嫌ってるのか？
0581DelギコNGNG
>>580
>Borlandは俺を嫌ってるのか？

　　　　　　　　　　　ｾ～　　　　　　　　 ｲ～　　　　　　　　ｶ～　　　　　　　ｲ～
　　　（　　 ∧_∧　　 　　　○　　 ∧_∧ 　　　　（　　 ∧_∧ 　　　　　○　 ∧_∧
　　⊂ ´⌒つﾟーﾟ)つ 　　⊂ ´⌒つ´∀｀)つ　　⊂ ´⌒つﾟДﾟ)つ　　⊂ ´⌒つ・∀・)つ
￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
0582580NGNG
∧∧∧∧∧∧∧∧∧∧∧∧∧∧∧∧∧∧∧∧∧∧
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　.
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　.
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　.
　　　　　ウエーーーーーーーーーーーン！！　　　　　　.
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　.
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　.
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　.
∨∨∨∨∨∨∨∨∨∨∨∨∨∨∨∨∨∨∨∨∨∨

　　　　　　　　　 　∧＿∧
　　　　　　　　　　（ ´Д⊂ヽ
　　　　　　　　　⊂　　　　ノ
　　　　　　　　　　 人　 Ｙ
　　　　　　　　　　し （＿）
0583　NGNG
リトライ回数が合計５００を突破しそうです。
あきらめた方がいいですか？
0584デフォルトの名無しさんNGNG
>>583
みんな整理券つかって順番に落とさない？
0585BorlandNGNG
整理券ftp、整理券ftpa、整理券ftpb、整理券ftpcと４種類ありますが、
ftp以外の3つは刷り忘れてしまいました。申し訳ありません。

再試行回数を65535回にして、もう一度おためし下さい。
0586デフォルトの名無しさんNGNG
4800円だして買う気にならない？
0587デフォルトの名無しさんNGNG
落とせてるけど、マニュアル欲しさに今度買うかも。
0588デフォルトの名無しさんNGNG
見事にDelphiユーザが増えてるな。
VB危うしなのか？
0589デフォルトの名無しさんNGNG
>>588
いやいや、まだ単なるお試し族にすぎんだろ。
そこから先にいけばポーランドもうれしいかもね。
0590デフォルトの名無しさんNGNG
ＶＢ．ＮＥＴで嫌気がさしたユーザーは
お試し族かな？
0591DelギコNGNG
　　∧ ∧　　　 ／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
　　( ﾟДﾟ)っ　＜　すごいことなってるな。
　　|''Ｕ￣|　　　＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
　　|￣￣|
　/　　　　ﾞヽ
（ 　　ﾟДﾟ　　）
人＿_＿＿ノ

試しユーザーだけでも
一応のユーザーとしてｶｳﾝﾄされるからシェア拡大して
VBとユーザー数変わらなくなるな。ワラ

このお試し人が
どこまでVBからDelに移行するか、
企業はどこまでDel採用するかは
おたのしみだな。

既存のDelphiﾕｳｻﾞは
初心者バカ笛なので質問攻めに
答えれるように準備だ、準備。
0592DelギコNGNG
　∧∧∩゛　 ／￣￣￣￣￣￣￣￣￣￣￣￣￣
　(,,ﾟДﾟ)ﾉ　＜　ではまただ！
　U　　/　　　＼＿＿＿＿＿＿＿＿＿＿＿＿
　|　　|
ノ∪∪

ｷｮｳﾊ ﾖﾙ ﾖｳｼﾞ ｱﾙﾖ
0593デフォルトの名無しさんNGNG
>>591
厨房レベルＶＢユーザーの頓珍漢な質問は勘弁しろよ
0594デフォルトの名無しさんNGNG
みんなこれ目当てで
バージョンアップしてなかったりして
実はユーザー全然増えてない
0595デフォルトの名無しさんNGNG
>>594
一理あり。
かなーり古いバージョンで止まってる人も使うんでない？
0596デフォルトの名無しさんNGNG
こーゆーのこそ共有でタライ回しにしろよ。
みんなで幸せになろーよ。
0597デフォルトの名無しさんNGNG
>>596
今だけのことだ。
そのうちあちこちの雑誌に付いてＤｅｌまみれになる。
0598↓の849NGNG
>>596
http://piza2.2ch.net/test/read.cgi?bbs=tech&key=989950788&st=847&to=849
0599デフォルトの名無しさんNGNG
　　　　　＿＿＿＿_＿
　　　 ／＿　　　　　　|
　 　 /.　＼￣￣￣￣|
　　/　　／　 ―　― |
　　|　 /　　 　-　　- |
　 ||| (6　　　　　　>　|
　| | |　　　　 ┏━┓|　　 ／￣￣￣￣￣￣￣￣
| | | | 　　　　┃─┃|　 ＜　正直、まだVer4だ。
|| | | | 　＼　┃　 ┃/　 　 ＼＿＿＿＿＿＿＿＿
| || |　|　　　￣　￣|
0600デフォルトの名無しさんNGNG
Ver4ならまだ救われるぞ、俺はVer3だ。
0601デフォルトの名無しさんNGNG
>>596
そういう事を言う人には更正ビーム！

　更正ビーム！！
￣￣￣∨￣￣￣￣￣
　　 Λ_A_Λ　　ｼﾋﾞﾋﾞﾋﾞ
　　（　・∀・）　/／＿＿＿∧＿＿＿∧＿＿＿∧＿＿∧＿＿
　　（ つ ｏ/つ。　　ﾏ　ﾓ　ﾛ　ｳ　ﾏ　ﾝ　ﾅ　ﾉ　ｷ　ﾏ　ﾘ　ｺﾞ　ﾄ　♪
　　ノ∧)∧）　＼￣￣∨￣￣￣∨￣￣￣∨￣∨￣∨￣
　（_＿）（＿）
0602デフォルトの名無しさんNGNG
＞初心者の質問
PersonalだとVCLのソース読め！で終わらせられないのがイヤだな
0603デフォルトの名無しさんNGNG
>>602
それどころか全然関係ない質問が続出すると思われ
0604デフォルトの名無しさんNGNG
あらかじめ、FAQつくっとくか（藁

Q．IDEのエディタでのインデント方法は？
A．デフォルトのキーバインドだと、Ctrl+Shift+I, Ctrl+Shift+Uでインデント、アンインデントできます。
0605デフォルトの名無しさんNGNG
こっちの方がいいな
Q．IDEのエディタで複数行インデントする方法は？
A．デフォルトのキーバインドだと、行を選択後、
　Ctrl+Shift+I, Ctrl+Shift+Uでインデント、アンインデントできます。
0606デフォルトの名無しさんNGNG
>>601
そういう事を言う人には修正ビーム！

　修正ビーム！！
￣￣￣∨￣￣￣￣￣
　　 Λ_A_Λ　　ｼﾋﾞﾋﾞﾋﾞ
　　（　・∀・）　/／＿＿＿∧＿＿＿∧＿＿＿∧＿＿∧＿＿
　　（ つ ｏ/つ。　　ﾏ　ﾓ　ﾛ　ｳ　ﾐ　ﾝ　ﾅ　ﾉ　ｷ　ﾏ　ﾘ　ｺﾞ　ﾄ　♪
　　ノ∧)∧）　＼￣￣∨￣￣￣∨￣￣￣∨￣∨￣∨￣
　（_＿）（＿）
0607名無しさんNGNG
／￣￣￣￣￣￣￣￣￣￣￣￣￣
|　>>604-605 断固ﾍﾙﾌﾟとFAQ読まないのがVB厨だと思うがどぅよ？
＼＿＿＿ 　＿＿＿＿＿＿＿＿＿
　　　　　　∨
♪　　 ∧ ∧　♪
　　　　(,,ﾟДﾟ).　　♪
　　 　 |つ[|lllll］).
　　 ～|　　|
　　　　Ｕ Ｕ
0608名無しさんNGNG
　　　 　 　 ∧ ∧ 　／￣￣￣￣￣￣￣￣￣￣￣￣
～′ ￣￣( ﾟДﾟ)＜　>>607激しくドゥイエ
　 UU￣￣ U U　　＼＿＿＿＿＿＿＿＿＿＿＿＿
0609デフォルトの名無しさんNGNG
決めつけカッコイイよ
ステキ
0610デフォルトの名無しさんNGNG
>>609
ｶｺﾜﾙｲﾖ・・・

607は"VB厨"って書いてあるのに・・・
読むような人は普通、厨にはならないよ。
0611デフォルトの名無しさんNGNG
>>610
そうか

悪かった
0612デフォルトの名無しさんNGNG
>>605
あ～なんでTAB、SHIFT+TABじゃないんだろうと思いつづけて何年経ったことか。
0613デフォルトの名無しさんNGNG
[Q]
プロパティに、お約束のように
property ____ : ____ read ____ write ____ ;
と書くのが面倒なんですが。

[A]
property ____ : _____ まで書いたら、Ctrl+Shift+C コマンドを使いましょう。

[Q]
関数の宣言と定義の位置が離れているのが嫌です。
コードエクスプローラ使うと定義ではなく宣言に飛ぶのが嫌です。
[A]関数の宣言されている行もしくは関数の定義部で
Ctrl + Shift + ↓　を押しましょう。

また、関数名から関数の実装部を辿るときは
Ctrlを押しながらマウスカーソルを関数名部分に持っていきましょう。
0614デフォルトの名無しさんNGNG
>>612
ゲイツはそう。
Borlandは605。
ついでにunixで有名なviはctrl-Tとctrl-D。または(ちょっと使い方が違うのだが) >>と<< 。

つまりエディタの流派ごとに色々だ、というだけのことだろう。
Win上だからってゲイツ流でないと変だということではなく。
0615デフォルトの名無しさんNGNG
（範囲選択をしてから）TABを押すと、
（（TABに置換されそうで）（紛らわしいので））嫌です
0616デフォルトの名無しさんNGNG
ふつうＤＬＬのなかの変数は各プログラムで別々に割り当てられますが
ＤＬＬ内のデータモジュールのインスタンスを共有したいのですが
簡単にできるのでしょうか？
要はメニューでＤＬＬロードしてそのときにＤＢにログインして
メニューから呼ばれたプログラムは新たにログインしたくない
ということです
0617名無しさんNGNG
Delでポインタを明示的に使うときって
どんなとき？
0618デフォルトの名無しさんNGNG
>617
たいていはどっかから取ってきたバッファ（文字列を含む）を操作するとき。
0619デフォルトの名無しさんNGNG
>>616
無理じゃない？DelのObjectはプロセスの外で生きられるようには出来てないよね。
共有メモリ(DelphianWorld辺りに行けば、ラッパーコンポーネント有り)などを使って
排他情報なりDBそのものの情報なりを共有するしかないのでは？

プロセスの外で思い出したが、JDOやCORBAみたいな分散ObjectのDel版って、無いのかなあ？
0620名無しスプリング＠うひぃNGNG
まじぇでLv9999のキャラのIDのハッ○に成功しましたので
好きにしてくださいｗ
ID：PHANTOM　　pass：koujikouji

ゲームはここで落としてね
http://www.joynt.ne.jp/majesty/maje203/index.html
みんなでまじぇを盛り上げようｗ
さけぶとかＰＫとかで煽りまくってねｗ
Lvは最強なんであとはｼﾞﾂﾘｷｗｗ
0621616NGNG
>>619
使ったこと無いんだけど
メモリマップドファイルにごそっとおいておくってのは
だめ？
そんなことできない？
0622デフォルトの名無しさんNGNG
>>617
グラフィック周りを自力でいじるときとか。
0623DelギコNGNG
ﾛｸﾞ読むの大変だから寝よかな。

　　∧ ∧ ∧ ∧
|￣（,,ﾟДﾟ)(*ﾟーﾟ)￣| 　♪
|＼⌒⌒⌒⌒⌒⌒＼
|　 ＼ 　　　　　 　 　 ＼
＼　 ｜⌒⌒⌒⌒⌒⌒｜
　 ＼ |＿＿＿＿＿＿＿|

　 ∧ ∧　／￣￣￣￣￣￣￣￣￣￣
　 (,,ﾟ∀ﾟ)＜　仕込まれ中でち！
　＠uu）　＼＿＿＿＿＿＿＿＿
0624デフォルトの名無しさんNGNG
>>623（Delギコ）
かなり前少年漫画板のギコスレでそのちびギコたんのレスした…
めぐりめぐってこんなとこで会うとは。
0625DelギコNGNG
　　　　　　　　　　。°゜　 ／￣￣￣￣￣￣￣￣￣￣
　　　＿＿ ∧ ∧ﾟ　　 　 /　そいつはかんしゃ。ｷﾞﾆｬ…
～⊂＿⊂（　ﾟДﾟ）っ　 ＜＿＿＿＿＿＿＿＿＿＿＿_

ありあらな場所からギコＡＡを取得してるぞ。

時々自作もするようになって
AA廃人寸前だｺﾞﾙｧ

オリジナルは♪じゃなくてハートだったはずだ。
0626DelギコNGNG
　　　　∧ ∧　ほんとに2chとまるの？？
　　　　(；ﾟДﾟ)
　　　　/　　|
　　～'( UUﾉ　

まいったね、こりゃこりゃ。
かちゅ～しゃ普及とかではダメなのか...
0627名無しさんNGNG
／￣￣￣￣￣￣￣￣￣￣￣￣￣
|　でも穿って見ると、ﾈｯﾄﾜｰｸﾘｿｰｽは有限と口を
|　すっぱく言うくせに自分たちの住処のﾄﾗﾌｨｯｸ放置して、
|　一晩で解決できる改造を怠慢してたUNIXｽﾚ住人の怠慢だとも
|　思うがどうよ？
|　根は感謝感激だけどね
|　しかしgzipで来るとは思わんかったわ。ﾃｷｽﾄならよー効くし
＼＿＿＿ 　＿＿＿＿＿＿＿＿＿
　　　　　　∨
♪　　 ∧ ∧　ｶｲﾃｷ♪
　　　　(,,ﾟДﾟ).　　♪
　　 　 |つ[|lllll］).
　　 ～|　　|
　　　　Ｕ Ｕ
ｾｲｶｸ ﾜﾙｲﾈ ﾊﾝｾｲ sage
0628デフォルトの名無しさんNGNG
>>627
まぁ、それはプログラム板住民についても同じことだぁな。＞怠慢

# かちゅ～しゃとかはgzipで取ってるんだろうか。
# そっちも改善しないと厳しい気もする。
0629デフォルトの名無しさんNGNG
かちゅやホトゾヌはdat直読みだな
0630デフォルトの名無しさんNGNG
Delphi は gzip の圧縮/伸張ライブラリデフォルトで持っているんだから
とっとと対応してもらいたいな
0631デフォルトの名無しさんNGNG
なんか2chがDelコンパイル並(嘘)に爆速になったなあ。例の件のせいか。
現在に感謝すべきか、過去の怠慢に頭を抱えるべきか、悩むところだ…

>>621
データは問題を起こさない可能性も無いでもないが、問題はメソッドだな。

メソッド実装がメモリ上に存在するアドレス(virtual/dynamicならば
VMTを経由するが、結局同じことだ)は、特定プロセスに固有のものなので、
(DLLとかもプロセスごとにMapされるから同一DLLでも違うプロセスだと違うアドレスになると思われ)
Objectを作ったProcessと違うProcessがメソッドを呼んだ瞬間に、InvalidAccess。Processどきゅーん。

delの場合、自分で作ってなくても地味に色んなメソッド使われるじゃん。
propertyのためのメソッドとかもあるし。
それらの地雷(?)を全部回避するのは、結構至難かと。

ああ。だからProcessってウザイんだよな。
0632DelギコNGNG
>>627-628
　∧ ∧　 　 ／￣￣￣￣￣￣￣
　(,, ﾟДﾟ)　＜　とりあえず回避された？
　 | っっヾ 　＼＿＿＿＿＿＿＿
～| 　 | ﾊﾟﾁﾊﾟﾁ
　 ∪∪ 　ﾖｶﾖｶ

過去の怠慢って、2chがそんなやばかったなんて
どの板の住民も知らされてなかったんじゃない？
それを怠慢と言うのは気の毒だし筋違いだお。

こういうのは変かもしれんが、
責任はひろゆきとその周りの管理してる人にあるんだろう。

ひろゆきは”金儲けは考えてない”と各地で逝ってるようだが
通信料払うくらいの金儲けは考えてくれないと利用者の迷惑だね。

資本主義の元では
儲けにならない商売はすべて害悪という
説もあるそうだ。

少しくらい金が取られてもいいから
危ない橋を渡らないでくれと、思う気持ちは2chにも
坊ﾗﾝﾄﾞに対しても同じだな、折れのバヤイ
0633デフォルトの名無しさんNGNG
MS-DOSプロンプトたちあげて　ｌｓi　て入れてEnterキー押しても
「コマンドまたはファイル名が違います」って出ます。
どうなってるのかギコ猫さん教えてください
0634DelギコNGNG
　∧ ∧ 　>>633
　(,,ﾟДﾟ) 　知りま千円
　 |つ⑩Ｏ
～　　 |
　∪ ∪

UNIXのlsはDOSではdirじゃないの？
ってスジ違い？

lsiってそもそも、なんの命令なんだか知らない.

他の人にお任せモｩド。
0635DelギコNGNG
♪教えて>>630　ちょっと言いにくいんだけど
♪教えて>>630

　どうやって使うの？gzip

教えてほしーいな　>>630♪
＼＿＿＿＿＿＿　＿＿＿＿＿＿＿＿／
　　　　　　　　　　|/
　　 　 　 　 　 ∧ ∧
　　 Ψ　　　　（ﾟДﾟ ,,）￣ '～
　　 □　 　 　 Ｕ-Ｕ ―Ｊ
￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
0636デフォルトの名無しさんNGNG
>>634
まったく関係ないけど、漏れのPCでは↓入れているのでlsがあったりする。
ttp://www.piedey.co.jp/softs/ntuxtl.html
便利便利。
0637デフォルトの名無しさんNGNG
>>635
教えるも何も... zlib ユニットって Delphi4 のころから付いているよね？
あれが ZLIB 圧縮/展開ユニットだよ。
ZLIB アーカイバーではないから、純粋にストリームの圧縮/展開のみ。
ファイル名とか、展開後のファイルの大きさも含めて zlib ユニットの外で
処理しなきゃいけないが。

多分、zlib 化された HTTP レスポンスの先頭のヘッダを取り去り
zlib ユニットに渡せば展開可能。
0638DelギコNGNG
　　　　∧ ∧　　>>637
　　　　( ﾟДﾟ) 　ありがと。
　　～（　uu）

でも、ﾈｺには理解不能、、

ｻﾝﾌﾟﾙコードどこかwebにないかﾆｬ-？


確かにusesにzlib追加してもｺﾝﾊﾟｲﾙエラーでないんだね。
0639DelギコNGNG
　　　　　 ∧∧　　／￣￣￣￣￣￣￣￣￣￣￣
　＠' ― (,,ﾟДﾟ) ＜　zlib.dcuしかニャーﾖ???
　 　し― し-Ｊ　 　＼＿＿＿＿＿＿＿＿＿＿＿

D5Proだけど。

zlibconst.dcuツノモある。
0640デフォルトの名無しさんNGNG
/extras を見なさい。
もちろん、CD-ROM は持っているね？
0641DelギコNGNG
　 　 ∧∧　　　／￣
　 ＿(,,ﾟДﾟ)　＜　手元にニャーよ
乙,,＿_つつ.　　＼＿

もち、正規ﾕｰｻﾞｰだけど
ｻﾝﾌﾟﾙあるのか。
期待しつつ、見てみることにしよう。

つーか。D6Pro注文してからにするか。

>>640サンクス。
0642デフォルトの名無しさん01/08/26 21:41ID:x5ukzxQc
>640
MLの過去ログ検索で「ZLib」とやってみんさい。
よくでてくるかのう
0643Delギコ01/08/26 21:52ID:N7yxz83w
Kylixはどうカイリックス
http://cocoa.2ch.net/test/read.cgi?bbs=linux&key=987761097

＿＿_ 　ヽ
＿ ／⊂　｀∧ ∧　　／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
　｜　　 ＼(　ﾟДﾟ)＜　Linux板でもそこそこ人気ﾀﾞｰﾅ
　｜　　　 ∪ ∪　　 ＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
￣

>>642ｻﾝｸｽｺ
0644デフォルトの名無しさん01/08/27 00:37ID:LaYnmZtY
Kylixって、めちゃくちゃ重くないッスか？

それから、DEL5PRO→DEL6PERのメリットは何？
何かが劇的に変わったワケ？
0645デフォルトの名無しさん01/08/27 00:56ID:YPBfiUtM
>>644
PRO版とPersonal版の違いって、付属してるコンポーネントが減ることと、IDEの機能が少し削られてることでしょ？
コンパイラの機能は違わないんじゃないかな？
コンパイラの機能が違わないなら新しい方を使ったほうがいいと思う。

私は５でもLearningだったビンボー人なので正確なことはわからないけど。
0646Delギコ01/08/27 01:17ID:rVnn8PnI
　　　　　　　　　　　 ／|
　　　 ,∧∧ 　　　／　 |
　　　_(,,ﾟДﾟ)⊇／　　　.|
　　（＿∪＿＿）　　 　Φ
￣ ＝二＝-≡二￣

ほんっとに、にわかユーザー増えたな。
折れもｸﾚｸﾚ君だから人のことは胃炎が
せめてDelphi関連のスレのログくらいみたら？


あと
AboutDelphi
http://www2.big.or.jp/~osamu/Delphi/
で、MLのログ全部ダウソして
読みまくれ&検索しまくれって。
たいていの疑問は一瞬で晴れるから。

じゃ、おやすーみ。
0647ヒロユキ＠ギコナビ01/08/27 06:01ID:TcfqnVU.
Delphi6についてきているZlibを利用しているのですが、２ちゃんねるから
gzipで取得したものが復元できません。
下のプログラムはMLからパクったコードです。
そのコードで圧縮したものは復元できます。
自分で圧縮したファイルと、２ちゃんねるからgzipで取得した内容の
ファイルでは明らかに内容が違うようです。
２ちゃんねるで行っているgzipは、delphiのzlibじゃだめなのかな？
だいぶ、いぢくりまわしているのですが、サッパリ上手くいきません。
どなたかZlibに詳しいかた助けてください。

procedure TForm1.Execute(const FileName: TFileName);
const
  BufferSize = 4096;
var
  decode: boolean; // encoding ? / decoding ?
  ifs, ofs: TFileStream; // input/output file stream
  zfs: TCustomZlibStream; // zlib stream
  rs, ws: TStream; // read/write stream
  buffer: array[0..BufferSize-1] of Byte;
  count: Integer;
begin
  // check file ext
  decode := CompareText(ExtractFileExt(FileName), '.z') = 0;
  ifs := TFileStream.Create(FileName, fmOpenRead);
  if decode then begin
    ofs := TFileStream.Create(ChangeFileExt(FileName, ''), fmCreate);
    zfs := TDecompressionStream.Create(ifs);
    rs := zfs;
    ws := ofs;
  end else begin
    ofs := TFileStream.Create(FileName + '.Z', fmCreate);
    zfs := TCompressionStream.Create(clMax, ofs);
    rs := ifs;
    ws := zfs;
  end;
  repeat
    count := rs.Read(buffer, BufferSize);
    if count>0 then
      ws.WriteBuffer(buffer, count);
  until count = 0;
  zfs.Free;
  ofs.Free;
  ifs.Free;
end;
0648ヒロユキ＠ギコナビ01/08/27 06:11ID:TcfqnVU.
ちなみに、２ちゃんねるから取得した内容をファイルに保存するときには、
以下のコードを使用しています。（Indyが必要です。）

var
  url: string;
  ResStream: TMemoryStream;
begin
  ResStream := TMemoryStream.create;
  url := 'http://piza2.2ch.net/test/read.cgi?bbs=tech&key=998845501'
  idHTTP.Request.AcceptEncoding := 'gzip';
  idHTTP.Get(url, ResStream);
  ResStream.SaveToFile('c:\test.z');
end;
0649デフォルトの名無しさん01/08/27 07:18ID:BmN7xGeA
実は俺も今ZLIBを使おうと思って色々調べてる。

ZLibとGZIPはコンパチブルだから互換性はあるということなので、
バッファーサイズが問題なのかな？
4096以外だとか。
0650デフォルトの名無しさん01/08/27 07:22ID:BmN7xGeA
ReadCGIのソース見た限りじゃ2048バイトのバッファーサイズみたいだけど。
どうなんだろ
0651縮め君01/08/27 08:28ID:8Xs.NW3U
>>647
read.cgi のほうって /bin/gzip をそのまんま通してるから、
最初の数バイトはgzipのヘッダが入ってるんじゃないか？

拡張ヘッダは使ってないと思うから、たぶん前10バイトと
後ろ8バイトを無視すればzlibのストリームで行けるのではないかと。
0652ヒロユキ＠ギコナビ01/08/27 09:35ID:TcfqnVU.
>>651
ありがとうございます。
削ってみたけど、ダメでした。
もうちょい、調査してみます。
0653Delギコ01/08/27 09:59ID:z2D9YyEc
　　|￣￣￣￣￣￣￣|
　　|　がんばれ
　　|＿＿＿＿＿＿＿|
　 　 ∧_∧ ||
　　　(,,,ﾟДﾟ)||
　　　 /つ つ 　　　　　

　　　応援するぞい。
0654Delギコ01/08/27 12:47ID:z2D9YyEc
日本のコンピュータ情報
http://jp.fujitsu.com/itj/questions.html

　　　　　　　∧ ∧　　・・・・。
　　　　　　　(,,ﾟДﾟ)
　　　　　　　|∪ |
　　　　　 ～|　　|
　　　　　　　U U

　前から少し気になっているのだが
　どして、ここにはBorland製品は全く登場しないの？

行っちゃ割るイが

＞秀まるお
＞[11:42] 秀シリーズ収録誌情報ページを更新

こんなくだらない情報は掲載されているというのに。
0655Delギコ01/08/27 12:53ID:z2D9YyEc
　　　 ∧⊂ヽ 　　／￣￣￣￣￣￣￣￣￣￣￣￣￣
　　　 (,,ﾟДﾟ)ﾉ ＜　　http://jp.fujitsu.com/itj/
　　　　| ⊃| 　　｜　リンクこっちだった。
　　　　| 　 | 　　　＼＿＿＿＿＿＿＿＿＿＿＿＿＿
　　　　⊂ノ～
　　　　∪
0656デフォルトの名無しさん01/08/27 13:07ID:afsNcMFw
不実厨はVBしか使えません>>654
0657Delギコ01/08/27 13:17ID:z2D9YyEc
　　>>656
　　そうか！！
　　　　∧ ∧
　　　　(;ﾟДﾟ;)
　　　 ⊂　　つ
　　　～'　　|
　　　　 U U

　　だから仕事の質がﾜ・・・

　　いや、、、言うまい。
0658デフォルトの名無しさん01/08/27 14:16ID:A2WFXznU
FはSQL-LINKドライバを提供している数少ない企業の１つなんだけどな・・・
http://software.fujitsu.com/jp/symfoware/products/sqllink-v1/index.html
0659名無しさん01/08/27 14:43ID:u1/DyIZY
>>656
>>不実厨はVBしか使えません

不実厨はVBすら使えません
0660Delギコ01/08/27 15:29ID:z2D9YyEc
　 　 ∧∧　　　／￣
　 ＿(,,ﾟДﾟ)　＜　質問でい！
⊂,,＿_つつ.　　＼＿

任意の文字列が
ファイル名の絶対パスとして
正しい文字列かどうかを判定するのって
いったいどーするのかなー

また、
任意の文字列がファイル名の相対パスとして
正しい文字列かどうかを判定するのって
どうするの？

みなさん、どうやって判定しているの？

あ、そのファイルが存在/非存在関係無しで
お願いします。
0661デフォルトの名無しさん01/08/27 15:54ID:U.RVdQHM
>>660
あれ？
なんかWin32APIにそんなのなかったっけか？
0662Delギコ01/08/27 16:02ID:z2D9YyEc
　 　 ∧∧　　　／￣
　 ＿(,,ﾟДﾟ)　＜　アピにあった？そう？
⊂,,＿_つつ.　　＼＿ おせ-てくれると助かるんだな。

ファイルパスで
相対パスと絶対パスを合わせて
絶対パスを吐き出す関数を作ろうと思ってみた。
（http://www.w-frontier.com/tips.html#21
　などは参考にしている)

http://www2.big.or.jp/~osamu/Delphi/delphi-browse.cgi?index=009893
と同じような事をやろとしてるんだな。

で、
procedure TForm1.Button1Click(Sender: TObject);
begin
　ChDir('C:\Temp');
　Memo1.Lines.Add( ExpandFileName('\') );
　Memo1.Lines.Add( ExpandFileName('\Temp') );
　Memo1.Lines.Add( ExpandFileName('A:\Temp') );
　Memo1.Lines.Add( ExpandFileName('.\Temp\') );
　Memo1.Lines.Add( ExpandFileName('\.\Temp') );
　Memo1.Lines.Add( ExpandFileName('\\\.\Temp') );
　Memo1.Lines.Add( ExpandFileName('.\Temp\\') );
　Memo1.Lines.Add( ExpandFileName('.\Temp\\.\') );
　Memo1.Lines.Add( ExpandFileName('.\.\.\Temp\Temp\.\..\..\Temp') );
　Memo1.Lines.Add( ExpandFileName('.\.\.\Temp\Temp\.\..\..\Temp\..') );
　Memo1.Lines.Add( ExpandFileName('.\.\.\Temp\\\Temp\.\..\..\Temp\..') );
end;
これと互換な関数作成しようとしていたら
非情に不毛な気がしてきたわ。気ぃ、狂うよん

C++の実装でもいいからｶﾞｲｿﾞﾝのソースがあるのなら教えてクレヨン。

ファイルパスはまだいいとして(フォルダ作成して相対アドレス求めてフォルダ消せばいいもんね)
Web時代の昨今、HTTPの相対アドレスから絶対アドレスへの変換は
標準関数として用意してくれていないと困るっつーのよ！
0663デフォルトの名無しさん01/08/27 16:19ID:rH3n9S2o
>662
ちょっと違うかもしれないけど
http://www.sakaki.keiaikai.or.jp/cgi-bin/convroom/webconv.exe/read?No=11629&Response_Root=11621
0664Delギコ01/08/27 16:55ID:z2D9YyEc
情報ｻﾝｸｽ　でも残念ながら。

＿＿_ 　ヽ
＿ ／⊂　｀∧ ∧　　／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
　｜　|　 ＼(　ﾟДﾟ)＜　>>663　エラー処理なさすぎ。
　 | ／　　 ∪ ∪　　 ＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
￣

このあたりは達人レヴェルでも
適当に作っているのか？
0665名無しさん01/08/27 17:22ID:u1/DyIZY
／￣￣￣￣￣￣￣￣￣￣￣￣￣
|　[Delphi-ML:18329] ファイル名の正当性　でどうよ？
＼＿＿＿ 　＿＿＿＿＿＿＿＿＿
　　　　　　∨
♪　　 ∧ ∧　♪
　　　　(,,ﾟДﾟ).　　♪
　　 　 |つ[|lllll］).
　　 ～|　　|
　　　　Ｕ Ｕ
066666501/08/27 17:26ID:u1/DyIZY
相対アドレスは、頑張ってくさい(w
0667Delギコ01/08/27 17:53ID:z2D9YyEc
>>665-666情報サンクス。

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

ファイルに書いた時ダメだったらダメー

という非常に非積極的な解法だなー
MLでこれか…
結局　[Delphi-ML:18333] Re: ファイル名の正当性
でも、ディレクトリ部分のチェックはしてないし、、、チッ
0668Delギコ01/08/27 17:55ID:z2D9YyEc
とある新聞記事に書かれていたのだが

・ある学問にて、ここまでがわかっている、ここからはわかっていない
　という事が分かる人はその学問を修得したと言える

説があるそうだ。なるほどファイル名として
適切なのか否かを判断することが難しいと
わかったので、折れはDelphiを習得しているといえるな、フフフフ

と、悦に入るだけ入ってこの件は忘れたことにしようっと。

　.￣￣∨￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
　　　 　 　 ∧ ∧
～′ ￣￣( ﾟДﾟ)
　 UU￣￣ U U　　ｼﾞﾌﾞﾝ ｶｯﾃ ﾀﾞﾈ-



　C++ではそういう事調べる関数があるのかどうかわからないから
　C++は理解してないことになるな。ｳﾂ--
0669名無しさん01/08/27 18:06ID:u1/DyIZY
／￣￣￣￣￣￣￣￣￣￣￣￣￣
|　>>667　尻尾は見た？
＼＿＿＿ 　＿＿＿＿＿＿＿＿＿
　　　　　　∨
♪　　 ∧ ∧　♪
　　　　(,,ﾟДﾟ).　　♪
　　 　 |つ[|lllll］).
　　 ～|　　|
　　　　Ｕ Ｕ
0670Delギコ01/08/27 18:21ID:z2D9YyEc
　　　　　　　　 ／￣￣￣￣￣￣￣￣￣￣￣￣￣
　　 ∧ ∧　 ＜　ん？？
　　 （,,ﾟДﾟ） 　 ＼＿＿＿＿＿＿＿＿＿＿＿＿＿
　 　｜　⊃くコ:彡
　～（＿⊃⊃

なんか見逃してる？

[18329] ファイル名の正当性
　 [18333] Re: ファイル名の正当性
　　 [18337] Re: ファイル名の正当性
　　 [18350] Re: ファイル名の正当性
　　　 [18377] Re: ファイル名の正当性
　 [18334] Re: ファイル名の正当性(訂正)
0671Delギコ01/08/27 18:25ID:z2D9YyEc
そういえば…>>52-53

ﾊﾟﾁｬﾊﾟﾁｬ
　."（∩ 　∧ ∧
　⊂ ' ⌒つﾟДﾟ)つ
＾＾＾＾＾＾＾＾＾＾＾＾＾＾＾＾＾＾＾

なんとか、泳げるようになったYO

水溜りで遊んでいるだけにも見えるｹﾄﾞ
0672Delギコ01/08/27 18:31ID:z2D9YyEc
　　　　　　 ∧∧　　 ／￣￣￣￣￣￣￣
ﾁｬﾌﾟ　　＿( ﾟДﾟ)_＜　今日蒸し暑いね
　ﾁｬﾌﾟ (＿ U U＿)　＼＿＿＿＿＿＿＿
　　￣ ＝二＝-≡二￣

　　牛丼 ｸｯﾃ ｶｰｴﾛ
0673デフォルトの名無しさん01/08/27 18:53ID:OyxoJBV2
>>671
もうそろそろ水ネタは終わる頃かな？
たき火なんかは好きですか？
0674名無しさん01/08/27 18:57ID:u1/DyIZY
／￣￣￣￣￣￣￣￣￣￣￣￣￣
|　Dirの非存在は却下ＯＫ？
＼＿＿＿ 　＿＿＿＿＿＿＿＿＿
　　　　　　∨
♪　　 ∧ ∧　♪
　　　　(,,ﾟДﾟ).　　♪
　　 　 |つ[|lllll］).
　　 ～|　　|
　　　　Ｕ Ｕ

NowDir := GetCurrentDir;
ChDir( BaseDir );
BaseFile := ExpandFileName( RelativePath );
ChDir( NowDir );
0675Delギコ01/08/27 18:58ID:z2D9YyEc
これも使えなくなるね

　　　　　　　　　　　 ※. ※. ※
　　　　　　　　 ※ ※. ※. ※ ※ ※
　　　　　　　※ ※ ※ ※ ※ ※ ※ ※
　　　　 　 ※ ※ ※ ※ ※ ※ ※ ※ ※
　　　　　※ ※ ※ ※ ※. ※ ※ ※ ※ ※　　　　　　　　　*　*　*
　　　　 ※ ※ ※ ※ ※ ※ ※ ※ ※ ※ ※　　　　　　*　 * 　 * 　*
　　　　※ ※ ※ ※ ※. ※. ※. ※ ※ ※ ※　　　　 * 　* 　 *　　*　 *
　　　　 ※ ※ ※ ※ ※ ※ ※ ※ ※ ※ ※.　　　　*　*　 *　　*　 *　*
　　　　　※ ※ ※ ※ ※ .※ ※ ※ ※ ※..　　　　　 * 　*　　*　　*　 *
　　　　 　 ※ ※ ※ ※ ※ ※ ※ ※ ※　　　　　　　　 *　 * 　 * 　*
　　　　　　　※ ※ ※ ※ ※ ※ ※ ※　　　　　　　　　　　*　*　*
　　　　　　　　 ※ ※. ※. ※ ※ ※
　　　　　　　　　　　 ※. ※. ※



　　　　　　　 ＿_　 ＿　　　　　＿_ 　 ＿　　　　　＿_ 　 　 ＿_　 ＿
　　　.　 ＿_ |ﾛﾛ|／　 ＼　＿_ |ﾛﾛ|／　 ＼　＿_ |ﾛﾛ| ＿_..|ﾛﾛ|／　 ＼
　　　＿|田|_|ﾛﾛ|_|　ﾛﾛ|＿|田|.|ﾛﾛ|_|　ﾛﾛ|＿|田|.|ﾛﾛ|_|田|.|ﾛﾛ|_|　ﾛﾛ|＿

　　　　　　　　　　　　　　　　　　 　 　 ∧＿∧　 ∧＿∧
　　　　　　　　　　∧ ∧ .　 ∧ ∧ 　 （´∀｀　） （・∀・　）
　　　　　　　　　　(,,ﾟーﾟ) 　 (,,ﾟДﾟ) 　.（ 　 　　） （ 　 　　）
　　　　　　　　　　/　　|　　/　　| 　 　 | 　| 　| 　 | 　| 　|
　　　 　 　 　 　 （＿__ﾉ　.（＿__ﾉ　　 （＿（＿_） （＿（＿_）


>>たき火なんかは好きですか？
かんべんしろやい！(w
0676Delギコ01/08/27 19:07ID:z2D9YyEc
　　　 　 　 　 　 　 　 ∧ ∧ 　 ／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
　 　 　 　 　 　 　 　 （　ﾟДﾟ）＜　>>674それと同じでAPIに依存しないモノが欲しいんだ
　　 　 　 　 　 　 ＿φ＿⊂)__ ＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
　　 　 　 　 　 ／旦／三／ ／|
　　　　　　　　|￣￣￣￣￣|　 |
　　　　　　　　|愛媛みかん|／ ,
　　　　　　　　 ￣￣￣￣￣

httpの相対アドレスや
CLXにも応用きかせたいしね。

CLXではExpandFileNameある？ソースどうなってるかな？

674さんのやり方でやるなら
ForceDirectoryして
例外でたらResult := False返すというのが妥当かしら？


あー、ｳｼｸｲﾆいくぜ。
0677Delギコ01/08/27 19:08ID:z2D9YyEc
　ギコノ屋で、ギコ丼並290ﾍﾟｿ

　　　　 ∧ ∧
　 ～(⌒( ﾟДﾟ)
　　 ヽ￣￣￣/
　　　|＿＿＿|
0678Delギコ01/08/27 19:10ID:z2D9YyEc
　　　　　　∧ ∧　 |1匹300円|
⊂　￣￣つﾟДﾟ)つ|＿＿＿＿|
　　|￣￣￣￣|　　　　　||　　　　　　　　　　　／￣￣￣￣￣
　　|＿＿＿＿|　　　　　||　　　　∩＿∩　＜今なら逝きのいいギコが１匹３００円だよ～
　　　　　　　　　　　　　　　　 G|＿＿＿|　　＼＿＿＿＿＿
　　　　　　　　　　　　　　　　　 （　・∀・）∩
　　　　　　　　　　　　　　　　　⊂　　　　　ﾉ
　　　　　　　　　　　　　　　　　　）　＿　(
　　　　　　　　　　　　　　　　　（＿）　（＿）∧＿∧　　∧＿∧　　∩＿∩
∧＿∧　　∧＿∧　　∩＿∩　　　　　　（∀｀　　） （　　　　）　（　　　　）
（　　　　）（　　　　）　（　　　　）　　　　　　（　∧＿∧(　　　　）　∧＿∧
（　∧＿∧(　　　　）　∧＿∧　　　　　　　　（　　　　）∩＿∩　（　　　　）
　（　　　　）∩＿∩　（　　　　）　　　　　　　 （　　　　）（　　　　）（　　　　）

モナ板・逝きのいいギコ・スレ
http://piza2.2ch.net/test/read.cgi?bbs=mona&key=996823316
0679Dax@ホットゾヌ01/08/27 19:36ID:Uj69oYog
>>647
私もDel付属のzlibを試したけどうまくいかんです。
で、
http://www.gewis.win.tue.nl/info/delphizlib/index.html
ここのTGzipってコンポーネント使ってみたらなんとなくうまく逝った風です。
ファイル経由なんでかっちょわるいけど。。

procedure TForm1.Button1Click(Sender: TObject);
begin
　Gzip1.FileSource := 'd:\test.z'; // >>648 参照
　Gzip1.FileDestination := 'd:\test.txt'; // 展開後のファイル
　Gzip1.Gunzip;
　Memo1.Lines.LoadFromFile('d:\test.txt');
end;
0680デフォルトの名無しさん01/08/27 19:38ID:s8sJTARw
FileExists関数があるのにDirectoryExistsはないのか。
0681デフォルトの名無しさん01/08/27 20:03ID:Uj69oYog
>>680
あるっつーの
0682デフォルトの名無しさん01/08/27 20:27ID:s8sJTARw
ほんとだ…。鬱だ氏脳。
探し方が甘かったようで。
0683Delギコ01/08/27 21:26ID:rVnn8PnI
|　　　|　　|　　　　　|　　|　|
|　　|゜⌒／..|　＼　|　゜｜
゜　⌒／/　..|　゜　＼　　゜　　|
| ／　/　|　|　|ヽ゜　＼⌒゜　|
| .￣￣￣￣||￣￣￣￣
　|　　∧ ∧|| 　　／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
|　　　(,,ﾟДﾟ)||　＜　夕立だったよ。
゜　|　..|∪　つ　　＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿
　|　|.｜　｜　　　|　　　|
＿＿_.Ｕ..Ｕ＿＿＿＿　　　　　゜
0684Delギコ01/08/27 21:43ID:rVnn8PnI
　　　 　：　 　 　 :　　　　　　　　　　　:　　 　:
　　 :　　　　　　　: 　　　：　. 　 　 　　 　 ：　:
　　： 　　 　 :　　 　　:　　／＼　 :　　　　：
　　　　　 　 : 　 　　 .. ／　　　＼; 　:
.　　　　　 　：　　　 ／　　　　　　＼ 　.
.　 .　 　　　　 　 　 ⌒⌒⌒|⌒⌒⌒; 　　　　:
　 : 　 　： 　 　 　　 ∧ ∧│＿ 　　 .
　　　　　: 　 　　 ／(ﾟДﾟ ,,)/)／＼
　 .　　　 　: 　／|￣∪￣￣|＼／　：
,, (( )).　`""".. . |＿＿＿＿|／ 　　^^^^
ヾ│ﾉ　　...　　　　　　　　 　　　　`""　　：
''　　...　　　：　　　'''　　　　.....

　D6 ﾀﾞｳｿ ｼﾀ ﾋﾄ ﾌﾟﾛｸﾞﾗﾑ ﾂｸﾚﾙ ﾖｳﾆ ﾅﾙﾉｶﾅ…
0685デフォルトの名無しさん01/08/27 21:49ID:s8sJTARw
俺、D5Leaning買ってから今まで、ガッコの課題のために作ったツールひとつしか作ってねー。
今度こそ何か作るぞ…。
0686Delギコ01/08/27 21:54ID:rVnn8PnI
　Demoﾌﾟﾛｸﾞﾗﾑ動かしてみ。
　Chatとか面白いものが動くぞい。

￣￣￣∨￣￣￣￣￣￣
　　　∧ ∧　
　　　(,,ﾟДﾟ)
　　　ﾉつl⌒⌒l
　～(.＿［￣￣￣.］
　　　　　￣￣￣
あと、アスキーアート管理ソフトでも作ってくれ。
エヂタで管理するの、しんどすぎ。（ﾜﾗ
0687デフォルトの名無しさん01/08/27 21:55ID:U.RVdQHM
VC->Delphiってありですか？

あと、VCL と MFC ってぶっちゃけてどっちのほうが良いですか？
0688Delギコ01/08/27 21:59ID:rVnn8PnI
:. :　. : . : ..　 .:. :　.:: . : .. :　.:. :　:. :　.:　:. :　.:.:
　　:. :　.:　:. :　.:　. ／＼: : . : .. :　:. :　.:　:. :　.:.:
　:. :　.: : ..　 .:　／　　　 ＼: :. ..:. :　.:　:. :　.: :　.:
:. :　.: : ..　 .: ／　　　　　 　＼: .:. :　.:　:. :　.:. :　.:
　..:.. :. : ..:　　⌒⌒⌒|⌒⌒⌒: .. :. :　.:　:. :　.::
ﾎﾗ,ﾇﾚﾙｶﾗ　　∧∧　|　　　　　 :　.:　:. :　.::　.::. :　.:
　　　ﾊｲﾙﾆｬ　(,,ﾟДﾟ) |∧ ∧　 ／￣￣￣￣￣￣￣￣￣￣￣￣
　　　　　　　　U　　つ (,,ﾟдﾟ)＜　　そろそろやんだかﾆｬｰ
　　　　　　　　 |　　|　/　 　|　　＼＿＿＿＿＿＿＿＿＿＿＿＿
　　　　　　　 ノ∪∪, uuUU

>>679
AAで流してしまいｽﾏｿ・
にしても、ファイル渡しではちょっと寒いですよね。

いや、そもそもコンポーネントインすとというのが寒い。
夏なのに。もっとホットに！！逝こう！
標準でzipライブラが存在するならそれを使いたいですね。

つーか、使い方知ってる人が教えてくれりゃあいいのに。
　＞＞誰さ！ﾈﾀふったﾔﾂｧ-は。

ｺﾝﾎﾟｲﾝｽﾄなら別にZipにこだわらなくてもいいし。
DLL梱包でもよくない？大げさすぎるか。
0689Delギコ01/08/27 22:01ID:rVnn8PnI
ぶっちゃけて、VCL

　　　　　　　　　　∧_∧　☆
　　　　　　　　　　(*ﾟДﾟ)
　　　　　　　　　　/　｜
　　　　　　,, ,,,, 　（＿,ﾉ　,,, ,　,,
　　　　　　　　　　ノ ,,

でも、個人の好みだよ。
んなのに、差つけらんないYO.

VC->Delphi
ありまくり。VC->VBよりは大分まし。

でも、VC->BCBかも。BCB≒Delphiだからいいんだけど。
069068701/08/27 22:26ID:U.RVdQHM
わかりました。
一度M$教からborland教に転身してみます・・・
0691jj01/08/27 22:53ID:0AZt6oQw
いま
ＶＣとDel
同時進行。
むにゃ
069268701/08/27 23:07ID:U.RVdQHM
>>689
今気づいたんですけど・・
VC->VBなんて人いるんですかね？
VC+VB なら、やってましたけど。

Delphi の Personal いい感じです。
ただ、 エディタが・・・
0693デフォルトの名無しさん01/08/27 23:32ID:nPIvnjKs
>あ、そのファイルが存在/非存在関係無しで
>お願いします。
ってさ、つまりDirectoryExsits もなにも、
ファイル名として正しいものなら何でも良いんでしょ？
つまり、絶対パスならば
[A-Za-z]:(\[^/\\?\*\:\;]*)*
にマッチするものならば何でもいいってことじゃない？
0694Delギコ01/08/27 23:47ID:rVnn8PnI
　　　　　 ∧∧　　／￣￣￣￣￣￣￣￣￣￣￣
　＠' ― (,,ﾟДﾟ) ＜　ｿﾉﾄｵﾘジャヤｯｯ!!
　 　し― し-Ｊ　 　＼＿＿＿＿＿＿＿＿＿＿＿

>>693
じゃ、関数書いて。実際。
MathMaskとか使ってもいいし。

ｱﾀｼｬ
[A-Za-z]:(\[^/\\?\*\:\;]*)*
だけの情報からじゃあ
関数かけません。
0695デフォルトの名無しさん01/08/27 23:51ID:dC.beocc
>>676
unixとwinのパスの概念(というか…)の統合の話を
今RubyのMLでしてたみたいだけど、あれってどれくらい参考になる？
もしやゼロ？(藁

ちなみにそれ、取り敢えずの結論としては、Win(DOS)系パスを処理する
専用の外部ライブラリを作る、で逃げた模様。
ある意味最悪の結論？(藁
0696Delギコ01/08/27 23:53ID:rVnn8PnI
　　　　　 ∧ ∧　　／￣￣￣￣￣￣￣￣￣￣￣
　～' ― (,,ﾟДﾟ) ＜　ﾌﾘｰｶｰｿﾙ無効化ｱﾄﾞｲﾝはいれたかﾆｬ？
　 　し― し-Ｊ　 　＼＿＿＿＿＿＿＿＿＿＿＿

>>692
VC+VBなら、VC+BCBをお勧めしますよ。
ぜ～～～～～ったいこっちの方がいい。

エヂタはお互い相容れない部分があってつらいですよね。
VBのエヂタでCtrl+↑↓が変な機能になっていて
今でも違和感ありまくり。

あと、G-Expertという海外ｱﾄﾞｲﾝを入れると
自分でｼｮﾄｶｯﾄが変更できて幸せになるよ。
2chのDelphiスレめぐって探してみてくれい。
069769301/08/28 00:22ID:e5v9KUkI
ほい。念のためにコメント詳細入れといたよ。

function IsFileName(fname:string):Boolean;
const
Kinsi = '/:,;*?"<>|'; //\ 以外の禁則文字
var
i:Integer;
begin
Result := False;

//A:\A フィアル名は最低４文字
if Length( fname )<4 then Exit;

//小文字に統一
fname := AnsiLowerCase( fname );

//ドライブ名が１バイト文字でなければエラー
if ByteType( fname, 1 ) <> mbSingleByte then Exit;

//ドライブ名がアルファベットでなければエラー
if fname[1] in ['a'..'z'] = false then Exit;

//ドライブ名のあとが :\ でなければエラー
if copy(fname,2,2) <> ':\' then Exit;

//￥で始まるパス部を抜き出す
fname := copy( fname, 3, MaxInt );

//禁則文字があればエラー
if LastDelimiter( Kinsi, fname ) >0 then Exit;

//終了記号として \ を加える
fname := fname + '\';

//スペースを圧縮
while AnsiPos( ' ', fname ) > 0 do
fname := StringReplace( fname, ' ', ' ', [rfReplaceAll] );

//ファイル名が無ければエラー
if AnsiPos( '\\' , fname ) > 0 then Exit;
if AnsiPos( '\ \', fname ) > 0 then Exit;
if AnsiPos( '\.\' , fname ) > 0 then Exit;
if AnsiPos( '\..\', fname ) > 0 then Exit;

Result := True;
end;
0698デフォルトの名無しさん01/08/28 00:23ID:e5v9KUkI
ごめん。インデント忘れた。
function IsFileName(fname:string):Boolean;
const
　Kinsi = '/:,;*?"<>|'; //\ 以外の禁則文字
var
　i:Integer;
begin
　Result := False;

　//A:\A フィアル名は最低４文字
　if Length( fname )<4 then Exit;

　//小文字に統一
　fname := AnsiLowerCase( fname );

　//ドライブ名が１バイト文字でなければエラー
　if ByteType( fname, 1 ) <> mbSingleByte then Exit;

　//ドライブ名がアルファベットでなければエラー
　if fname[1] in ['a'..'z'] = false then Exit;

　//ドライブ名のあとが :\ でなければエラー
　if copy(fname,2,2) <> ':\' then Exit;

　//￥で始まるパス部を抜き出す
　fname := copy( fname, 3, MaxInt );

　//禁則文字があればエラー
　if LastDelimiter( Kinsi, fname ) >0 then Exit;

　//終了記号として \ を加える
　fname := fname + '\';

　//スペースを圧縮
　while AnsiPos( ' ', fname ) > 0 do
　　fname := StringReplace( fname, ' ', ' ', [rfReplaceAll] );

　//ファイル名が無ければエラー
　if AnsiPos( '\\' , fname ) > 0 then Exit;
　if AnsiPos( '\ \' , fname ) > 0 then Exit;
　if AnsiPos( '\.\' , fname ) > 0 then Exit;
　if AnsiPos( '\..\', fname ) > 0 then Exit;

　Result := True;
end;
0699Delギコ01/08/28 00:25ID:Nzxp.Grs
∧ ∧　　　／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
(　ﾟДﾟ)っ＜　ゼットリブって読むのかい？
|￣￣￣|　＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
|二二二|
|＿＿＿|
从从从从:

Zlib問題ってこれかも。D4とD5ではD5の方がおかしいそうだ。
http://www2.big.or.jp/~osamu/Delphi/delphi-browse.cgi?index=044400
0700Delギコ01/08/28 00:28ID:Nzxp.Grs
　　∧ ∧|||　／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
　　(||ﾟΠﾟ)＜　>>698　ｼｭｺﾞｰｲ
～/J. | |J　 ＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
　ＵＵ | |

ナイスですねー。(ﾑﾗﾆﾁ監督)
070169801/08/28 00:32ID:e5v9KUkI
ついでに相対パス版
function IsRelativeFileName(fname:string):Boolean;
const
　Kinsi = '/:,;*?"<>|'; //\ 以外の禁則文字
var
　i:Integer;
begin
　Result := False;

　if Length( fname )<1 then Exit;
　fname := AnsiLowerCase( fname );
　if fname[1] = '\' then Exit;
　if LastDelimiter( Kinsi, fname ) >0 then Exit;

　//先頭、終了記号として \ を加える
　fname := '\' + fname + '\';

　while AnsiPos( ' ', fname ) > 0 do
　　fname := StringReplace( fname, ' ', ' ', [rfReplaceAll] );
　if AnsiPos( '\\' , fname ) > 0 then Exit;
　if AnsiPos( '\ \', fname ) > 0 then Exit;

　Result:=True;
end;
070269801/08/28 00:35ID:e5v9KUkI
良く見たら ドライブ名を ByteType でチェックしている割には
Copy( なんたら ) で１，２バイト文字を区別していない部分もあるな…まあいいか。
0703名無しさん01/08/28 00:39ID:uMAauu/Y
／￣￣￣￣￣￣￣￣￣￣￣￣￣
|　conやprnは無効なﾌｧｲﾙ名だｺﾞﾙｧ
＼＿＿＿ 　＿＿＿＿＿＿＿＿＿
　　　　　　∨
♪　　 ∧ ∧　♪
　　　　(,,ﾟДﾟ).　　♪
　　 　 |つ[|lllll］).
　　 ～|　　|
　　　　Ｕ Ｕ
大変な事になるでち
0704デフォルトの名無しさん01/08/28 00:40ID:e5v9KUkI
連続するスペースを１つにまとめる機能ついた？不可軽減のためか？

とりあえず見た目区別なくなっちまったんで
以下のように書き直し。

//スペースを圧縮
while AnsiPos( #20#20, fname ) > 0 do
　fname := StringReplace( fname, #20#20, #20, [rfReplaceAll] );
070569801/08/28 00:53ID:e5v9KUkI
もろもろのバグ修正版。これでどお？
function IsFileName(fname:string):Boolean;
　function Is2Byte(s:string; i:integer):Boolean;
　begin
　　Result := ByteType( s, i ) <> mbSingleByte;
　end;
const
　Kinsi = '/:,;*?"<>|'; //\ 以外の禁則文字
　Mukou = 'con,prn';　//無効なファイル名（カンマ、スペース区切り）
var
　i:Integer;
begin
　Result := False;

　if Length( fname )<4 then Exit; //ファイル名は最低４文字

　fname := AnsiLowerCase( fname ); //小文字に統一

　if Is2Byte( fname, 1 ) then Exit; //ドライブ名が１バイト文字でなければエラー

　if fname[1] in ['a'..'z'] = false then Exit; //ドライブ名がアルファベットでなければエラー

　//ドライブ名のあとが :\ でなければエラー
　if Is2Byte( fname, 2 ) then Exit;
　if Is2Byte( fname, 3 ) then Exit;
　if copy(fname,2,2) <> ':\' then Exit;

　fname := copy( fname, 3, MaxInt ); //￥で始まるパス部を抜き出す

　if LastDelimiter( Kinsi, fname ) >0 then Exit; //禁則文字があればエラー

　fname := fname + '\'; //終了記号として \ を加える

　//スペースを圧縮
　while AnsiPos( #32#32, fname ) > 0 do
　　fname := StringReplace( fname, #32#32, #32, [rfReplaceAll] );

　//ファイル名が無ければエラー
　if AnsiPos( '\\' , fname ) > 0 then Exit;
　if AnsiPos( '\ \', fname ) > 0 then Exit;
　if AnsiPos( '\.\' , fname ) > 0 then Exit;
　if AnsiPos( '\..\', fname ) > 0 then Exit;

　//無効なファイル名があればエラー
　with TStringList.Create do
　try
　　CommaText := Mukou;
　　　for i:=0 to Count-1 do
　　　　if AnsiPos( '\'+Strings[i]+'\', fname ) > 0 then Exit;
　finally
　　Free;
　end;

　Result := True;
end;
0706デフォルトの名無しさん01/08/28 00:56ID:CP6Z4WRg
>>699
んだから「Delphi 5 Update Pack 1 」で修正されとる。
過去ログしか読まないひとは、時代に取り残されているとおもわれ。
0707Delギコ01/08/28 01:52ID:Nzxp.Grs
＞過去ログしか読まないひとは、時代に取り残されているとおもわれ。

　　∧ ∧　　　 ／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
　　( ﾟДﾟ)っ　＜　>>706　zlibについて初めて調べるのに無茶いうな
　　|''Ｕ￣|　　　＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
　　|￣￣|
　/　　　　ﾞヽ 　　間違ってたら教えてくれ。
（ 　　ﾟДﾟ　　） 　とにもかくにも、サンクスコ。>>706
人＿_＿＿ノ
0708Delギコ01/08/28 02:00ID:Nzxp.Grs
　　　 ∧ ∧　 　　　　　 　／￣￣￣￣￣￣￣￣￣
|￣￣（　ﾟДﾟ)￣￣|　　　＜　　蒸し暑い！ 寝苦しい
|＼⌒⌒⌒⌒⌒⌒＼ 　　＼
|　 ＼ 　　　　　 　 　 ＼ 　　￣￣￣￣￣￣￣￣￣
＼　 ｜⌒⌒⌒⌒⌒⌒｜
　 ＼ |＿＿＿＿＿＿＿|

Zlib関係はMLでこれだけかいｺﾞﾙｧ？
http://www2.big.or.jp/~osamu/Delphi/delphi-browse.cgi?index=050726
http://www2.big.or.jp/~osamu/Delphi/delphi-browse.cgi?index=050730
0709ヒロユキ＠ギコナビ01/08/28 02:11ID:78A8GZhs
起きたらこんな時間。ﾊﾗﾍｯﾀ｡

>>679
Daxさん、ありがとうです。
早速ダウンロードしました。
とりあえず、ファイル経由でやっておいて、そのうちストリームで
出来るように改造するのがいいかな。
DATがgzipで送られてくるのは、まだみたいだし。
0710デフォルトの名無しさん01/08/28 07:07ID:PXgti8Us
Delギコ先生、質問があります。
現在、サーバのアクセスログを解析するソフトを作ってるんですが、

Sat Aug 18 04:57:13 2001

のような形式の文字列を TDateTime などに変換する
関数はありますでしょうか？
素直に StrToDateTime では見事に玉砕でした。
一応WEBを検索しておりますが、この日付の記述方法の名前が
分からず、うまく検索できていない状況です。

ご存じだったらどなたでもﾖﾛｼｺ。
ｺｺ(URL)見れ、というようなポインタだけでもいただけるとありがたい。
自作だったらTStringListのCommaTextあたりを使うのかな。

開発環境はDel5ProとDel6Perで共存させてます(ﾜﾗ

ところで>686
>あと、アスキーアート管理ソフトでも作ってくれ。
ギコペ/AAEditorの類は試用なされたのかな？
フリーウェアだし一度お試しあれ。
0711デフォルトの名無しさん01/08/28 08:17ID:DwbZUWmA
>>692
エディタは他の環境つかってるとかなり違和感あるかも。
自分もDelphi数年使ってるのに、他の作業にVim使ってるせいか、たまに違和感ある。

>>696
G-Experts、Delphi6用のはまだでてないね。
α版がやっとでたようだけど。(Pro, Ent用っぽいけど)
http://groups.yahoo.com/group/GExpertsDiscuss/message/740
はやく正式版でないかな。
0712デフォルトの名無しさん01/08/28 08:40ID:KGpdaBGk
Del始めて１週間です。
CodeRed騒ぎでLAN向けのポートスキャナー作っているんですが
WinSockをDelで使う方法がどうもよくわかりません。
TcpClientを使ってIPとPortを指定してOpenさせて、OnConnection
イベントが帰ってきたらポートが開いているという判別をさせているんですが、
Portがあいてない場合の処理に時間がかかるためTimeOut設定させたいんですが
PropatyにTimeOutなんてみあたらないし。

そもそもTcpClientじゃなくてほかのコンポーネントを使えばいいのでしょうか？
ちなみにWinSockそのものはVBでWinsockコンポーネントしか使ったことがありませんでした
0713デフォルトの名無しさん01/08/28 09:17ID:z5DzgZ0M
>>710
これでどうよ？

//注意：日付から曜日を得られるので、曜日の解析はしない
function ToDateTime(AText:string; var ADateTime:TDateTime):Boolean;
const
　MONTH_STR = 'Jan Feb Mar Apl May Jun Jly Aug Sep Oct Nov Dec';
var
　Year, Month, Day, Hour, Min, Sec:Integer;

begin
　AText := StringReplace( AText, ':', ' ',[rfReplaceAll] );

　Result := False;
　try
　　with TStringList.Create do
　　try
　　　CommaText := AText;
　　　Month := Pos( Strings[1], MONTH_STR ) div 4 + 1;
　　　Day := StrToInt( Strings[2] );
　　　Hour := StrToInt( Strings[3] );
　　　Min := StrToInt( Strings[4] );
　　　Sec := StrToInt( Strings[5] );
　　　Year := StrToInt( Strings[6] );
　　finally
　　　Free;
　　end;

　　ADateTime := EncodeDate( Year, Month, Day ) + EncodeTime( Hour, Min, Sec, 0 );

　except
　　Exit;
　end;

　Result := True;
end;
071471001/08/28 09:44ID:PXgti8Us
>>713
素早いレスありがとうございました。
動きました。
本当にありがとうございました。


こういうとき、感謝の気持ちをうまく
言葉に出来ない自分が情けない…
071569801/08/28 10:11ID:z5DzgZ0M
もう少しエレガントにできたので、ついでに。
function IsFileName3(FName:string):Boolean;
　function Is2Byte(s:string; i:integer):Boolean;
　begin
　　Result := ByteType( s, i ) <> mbSingleByte;
　end;
const
　Kinsi = '/:,;*?"<>|'; //\ 以外の禁則文字
　Mukou = 'con,prn'; //無効なファイル名（カンマ区切り）
var
　i:Integer;
begin
　Result := False;

　FName := AnsiLowerCase( FName );

　//ドライブ名の判定
　if Is2Byte( FName, 1 ) or not ( FName[1] in ['a'..'z'] ) then Exit;
　if Is2Byte( FName, 2 ) or ( FName[2] <> ':' ) then Exit;

　//パス部分
　Delete( FName, 1, 2 );

　//禁則文字判定
　if AnsiPos( Strings[i], Kinsi ) then Exit;

　//無効なファイル名の判定
　FName := '"' + StringReplace( FName, '\','","',[rfReplaceAll] ) + '"';
　with TStringList.Create do
　try
　　CommaText := FName;
　　for i:=0 to Count-1 do
　　begin
　　　if Trim( Strings[i] ) = '' then Exit;
　　　if AnsiPos( Strings[i], Mukou ) then Exit;
　　end;
　finally
　　Free;
　end;
end;
0716デフォルトの名無しさん01/08/28 10:46ID:jngmxbYw
>715
全体をAnsiLowerCaseするの無駄じゃない？
ついでに長さ0の文字列でもちゃんと動く？
0717デフォルトの名無しさん01/08/28 10:48ID:z5DzgZ0M
>>716
> 全体をAnsiLowerCaseするの無駄じゃない？
無効なファイル名判定するとき AnsiCompareTextとか使うなら、
AnsiLowerCase で一気に変換したほうが効率的じゃないかな。

>ついでに長さ0の文字列でもちゃんと動く？
長さの判定忘れてたヨ…
0718Delギコ01/08/28 10:49ID:0ToW1IkU
　∧ ∧　 　 ／￣￣￣￣￣￣￣
　(,, ﾟДﾟ)　＜　ステキ。>>715
　 | っっヾ 　＼＿＿＿＿＿＿＿
～| 　 | ﾊﾟﾁﾊﾟﾁ
　 ∪∪
オヤツの時間以降から検証してみるね


　∧ ∧ 　　　／￣￣￣￣￣￣￣￣￣￣￣
　( ﾟДﾟ)　　＜ 　>>713お見事
　 |∪ |つ∀ ＼＿＿＿＿＿＿＿＿＿＿＿
　 |　 ｜
　 U U
動作確認はしてないけど
try二重とは、安全だね

　StringLIst.Create
　try..

　　処理

　　ADateTime := EncodeDate(...
　　Result := True
　finally
　　Free
　end

これで十分かも。Createで転ぶときの事って
考慮して二重Try書く人っているのだろか。
0719名無しさん01/08/28 11:15ID:mWeZJBRU
／￣￣￣￣￣￣￣￣￣￣￣￣￣
|　ちったぁ自分で調べてちょ
|　con prn nul aux clock lpt1～ COM1～
|　結構罠として食らうぞ
|　試しにaux.txt作ってみ
＼＿＿＿ 　＿＿＿＿＿＿＿＿＿
　　　　　　∨
♪　　 ∧ ∧　♪
　　　　(,,ﾟДﾟ).　　♪
　　 　 |つ[|lllll］).
　　 ～|　　|
　　　　Ｕ Ｕ
072071301/08/28 11:33ID:z5DzgZ0M
>>718

!!　いまさら気づいたんだけどさ…
ひょっとして
try
　...
except
　Exit;
end;

って、かなり無駄な事やってる？例外起きたらどちらにせよ強制 Exit だっけ…
鬱だ。
でも、こうしておけば実行中に
エラーダイアログ表示されないですむよね、多分。
0721Delギコ01/08/28 11:37ID:0ToW1IkU
　 　 ∧∧　　　／￣
　 ＿(,,ﾟДﾟ)　＜　>>713 完全に決まり文字列なら
⊂,,＿_つつ.　　＼＿ StringListつかうまでもないかも。Copyでいいかも？

　 　 ∧∧　　　／￣
　 ＿(,,ﾟДﾟ)　＜　>>719折れ？そんなMSの罠見つけられないって。
⊂,,＿_つつ.　　＼＿ だから"罠"なんでしょ。
　　　　　　　　　　　　罠教えてくれてｻﾝｸｽ.
0722名無しさん01/08/28 11:56ID:mWeZJBRU
／￣￣￣￣￣￣￣￣￣￣￣￣￣
|　興味本位なら>>715宛てだけど、厚意で組んだだけなら
|　delギコ宛てかもしれんでちゅ(w
＼＿＿＿ 　＿＿＿＿＿＿＿＿＿
　　　　　　∨
♪　　 ∧ ∧　♪
　　　　(,,ﾟДﾟ).　　♪
　　 　 |つ[|lllll］).
　　 ～|　　|
　　　　Ｕ Ｕ
当然、調べる機会の出来た自分宛てでもあるぞな
0723sage01/08/28 12:09ID:TeOzIkaw
とりあえず、ファイル名又はフォルダ名のところで
この関数を通せば、無効な名前をはじけると思う。ところで、相対表記も無効にするの？
C:\Windows\System\..\Temp\Hoge.txt とか。

function IsInvalidName(FName:string):Boolean;
const
　//相対パスも無効にする場合は .. . を追加するべし
　Mukou ='con con.* prn prn.* aux aux.* lpr lpr[0-9.]* com com[0-9.]*';
var
　i:Integer;
begin
　Result := False;
　if Trim( FName ) = '' then Exit;
　with TStringList.Create do
　try
　　CommaText := Mukou;
　　for i:=0 to Count-1 do
　　　if MatchesMask( FName,Strings[i] ) then Exit;
　finally
　　Free;
　end;
　Result := True;
end;
072472301/08/28 12:11ID:TeOzIkaw
sage間違えた…（鬱
0725デフォルトの名無しさん01/08/28 12:15ID:TeOzIkaw
>>719
nul と clock はちゃんとファイル名に出来たよ？
Win98SEだけど。
0726Delギコ01/08/28 12:17ID:0ToW1IkU
＿＿＿＿　　　　　　 ＿＿＿＿＿＿＿＿　　　　　　　　　　　　 ＿＿＿＿＿＿＿＿
|書き込む|　名前：　|　　　　　　　　　　　 |　E-mail(省略可)：　|sage 　 　 　 　　　　|
￣￣￣￣　　　　　　 ￣￣￣￣￣￣￣￣　　　　　　　　　　　　 ￣￣￣￣￣￣￣￣
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　∧ ∧　　。　 ／￣￣￣￣￣￣￣￣￣￣￣
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　( ﾟДﾟ) ／　＜　ここに「sage」(半角）と
　　　　　　　　　　　　　　　　　　　　　　　　　　　　 　⊂ 　 つ　　　 |　入れるとスレがあがらない。
　　　　　　　　　　　　　　　　　　　　　　　　　　　　|￣￣￣￣￣| 　 ＼＿＿＿＿＿＿＿＿＿＿＿
　　　　　　　　　　　　　　　　　　　　　　　　　　　　| 　　 　 　 　 |
　　　　　　　　　　　　　　　　　　　　　　　　　　　　| 　　 　 　 　 |
　　　　　　　　　　　　　　　　　　　　　　 |￣￣￣￣￣￣￣￣￣￣￣￣|
0727デフォルトの名無しさん01/08/28 12:32ID:TeOzIkaw
たびたびすまん。今度こそ大丈夫だ。
ちゃんと確認したし、バグも無い。Extract～使ったらかなりスッキリ。
function IsInvalidName(FName:string):Boolean;
const
　//相対パスも無効にする場合は .. . を追加するべし
　Mukou ='con con.* prn prn.* aux aux.* lpr lpr[0-9.]* com com[0-9.]*';
　Kinsi = '/:,;*?"<>|'; //\ 以外の禁則文字
var
　i:Integer;
begin
　Result := True;
　FName := AnsiLowerCase( FName );
　if Trim( FName ) = '' then Exit;
　if LastDelimiter( Kinsi, FName ) > 0 then Exit;
　with TStringList.Create do
　try
　　CommaText := Mukou;
　　for i:=0 to Count-1 do
　　　if MatchesMask( FName,Strings[i] ) then Exit;
　finally
　　Free;
　end;
　Result := False;
end;

function IsFileName( FName:string ):Boolean;
var
　d:string;
begin
　Result := False;
　if Length( FName ) < 4 then Exit;

　d := ExtractFileDrive( FName );
　if d = '' then Exit;
　if d[1] in ['A'..'Z','a'..'z'] = False then Exit;

　Delete( FName, 1, 3 );
　while Length( FName ) > 0 do
　begin
　　if IsInvalidName ( ExtractFileName( FName ) ) then Exit;
　　　FName := ExtractFileDir( FName );
　end;
　Result := True;
end;
0728Delギコ01/08/28 12:42ID:0ToW1IkU
>こうしておけば実行中に
>エラーダイアログ表示されないですむよね

　　|￣￣￣￣￣￣￣￣￣￣￣￣￣￣|
　　|　>>720 そのとおり
　　|＿＿＿＿＿＿＿＿＿＿＿＿＿＿|
　　　　　　　　∧_∧ ||
　　　　　　　　(*ﾟДﾟ)||　ｽﾏｿ。折れが間違った
　　　　　　　　ι　つ　 try except Exit end するのがよい。
　　　　　　　　～　|
　　　　　　　　　UU ,,
0729名無しさん01/08/28 13:02ID:mWeZJBRU
>>725
なんでかnulとclockは大丈夫みたいだーね
0730デフォルトの名無しさん01/08/28 15:27ID:tmNas1cA
c:\..\..\foo
c:\foo\....\bar
はokでいいのか？
0731Delギコ01/08/28 18:38ID:0ToW1IkU
>>730
>okでいいのか？

　　　　∧ ∧　　ﾔﾀﾞ・・・・。
　　　　( ﾟДﾟ)
　　～（　uu）

だけど、やり始めると気が変になるので
絶対パスの相対パス指定はなしという事が
よろしいんじゃないでしょうか。

絶対パスと相対パスから
絶対パスを求めるものを作成した時に
考慮してみましょうか。
0732Delギコ01/08/28 19:49ID:0ToW1IkU
＿＿＿＿＿＿＿＿＿＿＿_
￣￣￣￣￣￣￣￣￣|￣￣
　　　　　　　　　　　　　(~)　ﾁﾘﾝﾁﾘﾝ
　　 　　　　　　　　　　　ﾉ,,

　　　 　 　 ∧ ∧ 　　　 お祭り騒ぎも夏ももう終わりか。
　　⊂⌒~⊃,,ﾟДﾟ）⊃旦
　l￣￣￣￣￣￣￣￣￣￣￣l
　 ￣| .|￣￣￣￣￣￣￣| .|￣
　　　^＾^　　　　　　　　　 ^＾^
0733Delギコ01/08/28 20:17ID:0ToW1IkU
　　　　　　∧ ∧ 　　／￣￣￣￣￣￣￣￣￣
　　　　　　( ﾟДﾟ)　＜ 　ついでに、2chも終わったりしてな！
　　　　　　/⊃⊃ 　　＼
　　　　～（　　ﾉ 　　　　 ￣￣￣￣￣￣￣￣￣
　　　　　⊂`Ｊ 　　　ﾋﾟｮﾝ
　　　　　　｜｜
　　　　　　ωωω
073472701/08/28 21:21ID:vXF12fdo
相対パス検査をするなら、このコードを追加すればＯＫさね。
>>730-731
result := False;
FName := '"'+StringReplace( FName, '\','","',[rfReplaceAll])+'"';
with TStringList.Create do
try
　try
　　CommaText := FName;
　　i:=0;
　　while i<Count do
　　begin
　　　if Strings[i] = '..' then
　　　begin
　　　　Delete(i);
　　　　Delete(i-1);
　　　end
　　　else
　　　　Inc(i);
　except
　　Exit;
finally
　　Free;
end;
Result := True;

相対パスで戻りすぎてしまうとDelete(i-1)でエラーが
起こるので False で関数終了するはず。
0735デフォルトの名無しさん01/08/28 22:15ID:0wGkmbbM
>>753
縁起でもねぇこというな!

…ﾄｶｲｲﾂﾂ…
Delギコ、もし2ch無くなったらどこ行く?
あ…、やっぱ考えんのやめとこ。駄レスも控えんﾄﾅ‐。
0736デフォルトの名無しさん01/08/28 23:09ID:3nHCVEjA
７５３に書き込む人は必ず>>735を踏まえたことを書くこと
0737Delギコ01/08/28 23:22ID:6IBRGu5Q
>>736
それはこっちだろ。(ﾟｗﾟ)ｺﾞﾙｧ

>999が良いことを言う！
>http://mentai.2ch.net/test/read.cgi?bbs=prog&key=998437939

　　　 　 　 ∧ ∧ 　／￣￣￣￣￣￣￣￣￣￣￣￣
～′ ￣￣( ﾟДﾟ)＜　 プログラマなら縁起とか信じるな。
　 UU￣￣ U U　　＼＿＿＿＿＿＿＿＿＿＿＿＿

エネルギーつけて、P2P掲示板モナーテラ作成準備にいそしめ。
0738名無しさん01/08/29 00:30ID:iyF47r7w
>>737
　　　 　 　 ∧ ∧ 　／￣￣￣￣￣￣￣￣￣￣￣￣
～′ ￣￣( ﾟДﾟ)＜　 鯖室には最寄の神社のお守りがありんす
　 UU￣￣ U U　　＼＿＿＿＿＿＿＿＿＿＿＿＿
0739Delギコ01/08/29 01:25ID:Bz7SW/yI
　　 ⊂⊃
　　 ∧ ∧　　 ／>>738　そういう時は
　　 (,,ﾟДﾟ)　＜　 「俺は神を超える」と叫んで
　　ﾊ￣￣`　　＼エマージェンシーボタンをﾎﾟﾁｯと押すと
　　し　╋ .J 　　　天国に近い所に逝けるぞ
　　 |＿_＿|
　　 ∪ ∪ 　　　お守りが役に立たないことがわかるさ。
　　∬　∬
0740Delphian01/08/29 08:33ID:NbMZgfhU
>>734
　　　 　 　 ∧ ∧ 　／￣￣￣￣￣￣￣￣￣￣￣￣
～′ ￣￣( ﾟДﾟ)＜　 何気に目からうろこ
　 UU￣￣ U U　　＼＿＿＿＿＿＿＿＿＿＿＿＿

相対パス調べるときには￥の位置を調べて .. なら２ブロック分を
削除して…　とｶﾅｰﾘ面倒なことやってた俺が鬱。

TStringList.Strings で範囲外ってエラー起きたっけ？
空文字が返ってこなかったっけ。
0741デフォルトの名無しさん01/08/29 10:25ID:eXmlKFD2
734を見て
内側のtryで例外が発生した場合にExitしてしまっていいのか？
と思ったけど

var
　i: Integer;
　d: Double;
begin
　i:=0;
　d:=0;
　try
　　try
　　　d:=1/i;
　　except
　　　ShowMessage('i='+Format('%d', [i]));
　　　Exit;
　　end;
　finally
　　ShowMessage('d='+Format('%f', [d]));
　end;
end;

この場合、最後のShowMessageもちゃんと実行されるんだね
知らんかった・・・
0742デフォルトの名無しさん01/08/29 11:00ID:eXmlKFD2
↓こんな感じか・・・勉強になった

try
　try
　　//例外が発生するかもしれない部分
　　//例外では実行されない
　except
　　//例外でのみ実行される
　　Exit;
　　//実行されない
　end;
finally
　//必ず実行される
end;
//例外では実行されない
0743デフォルトの名無しさん01/08/29 11:05ID:eXmlKFD2
>>742 修正

　end;
　//例外では実行されない
finally
0744Delギコ01/08/29 12:37ID:PkhyB55k

　　　　∧ ∧　　こんなん？
　　　　( ﾟДﾟ)
　　～（　uu）

procedure TForm1.Button4Click(Sender: TObject);
begin
　Memo1.Lines.Add('Edit1の内容が'+Edit1.Text+'の場合');
　try
　　try
　　　//例外が発生するかもしれない部分
　　　StrToInt(Edit1.Text);

　　　//例外では実行されない
　　　Memo1.Lines.Add('try try 例外かも ココ！ except .. Exit end .. finally .. end');
　　except
　　　//例外でのみ実行される
　　　Memo1.Lines.Add('try try 例外かも .. except ココ！ Exit end .. finally .. end');
　　　Exit;
　　　//実行されない
　　end;
　　//例外では実行されない
　　Memo1.Lines.Add('try try 例外かも .. except .. Exit end ココ！ finally ココ！ end');
　finally
　　//必ず実行される
　　Memo1.Lines.Add('try try 例外かも .. except .. Exit end .. finally ココ！ end');
　end;
　//例外では実行されない
　Memo1.Lines.Add('try try 例外かも .. except .. Exit end .. finally .. end ココ！');
end;

Edit1の内容が123の場合
try try 例外かも ココ！ except .. Exit end .. finally .. end
try try 例外かも .. except .. Exit end ココ！ finally ココ！ end
try try 例外かも .. except .. Exit end .. finally ココ！ end
try try 例外かも .. except .. Exit end .. finally .. end ココ！
Edit1の内容がABCの場合
try try 例外かも .. except ココ！ Exit end .. finally .. end
try try 例外かも .. except .. Exit end .. finally ココ！ end
0745Delギコ01/08/29 12:39ID:PkhyB55k
　　　　∧ ∧　　・・・・。
　　　　( ﾟДﾟ)
　　～（　uu） ﾐｽｯﾀ
0746!!01/08/29 14:23ID:qmpYZKr6
　　　 　 　 ∧ ∧ 　／￣￣￣￣￣￣￣￣￣￣￣￣
～′ ￣￣( ﾟДﾟ)＜　 いつのまにかVECTORにDEL6あがってるやんけ！！
　 UU￣￣ U U　　＼＿＿＿＿＿＿＿＿＿＿＿＿
0747デフォルトの名無しさん01/08/29 14:41ID:eXmlKFD2
>>744
そうそれ
0748Delギコ01/08/29 14:54ID:PkhyB55k
　　　　　 ∧ ∧　　／￣￣￣￣￣￣￣￣￣￣￣
　～' ― (,,ﾟДﾟ) ＜　今日は急ぎの仕事。で2ch見てるひまもない
　 　し― し-Ｊ　 　＼1日かけてファイル名の考察しようとおもってたのに。

　　　　　＿　　　　
　　　　｜　∧ ∧
　　　　｜　(,,ﾟДﾟ)　　　　　ﾍﾟｯ
　　　　｜　⊂　｜　　ヽ。
　　　　｜　⊂__ノ～
　　　　｜　｜
　　　　　　∧
／￣￣￣　 ￣￣￣￣￣￣￣￣￣
　もう会社辞めるのに働かせるな！

　しかも、「半日くらいで」とか言うな、ｷﾂｷﾂじゃねーか。

　半日で出来るならﾃﾒ-が
　夕方から深夜まで余分に働いたらいいだろ

　この糞上司が、ごるぁ

　開発ツールｺﾋﾟﾍﾟするような零細腐れ会社逝ってよし。


日ごろの鬱憤ﾊﾗｼﾀﾙ！
0749名無しさん01/08/29 15:00ID:AdDo2/zE
／￣￣￣￣￣￣￣￣￣￣￣￣￣
|　>>746 昨日Delphi-MLでvectorから告知があったーよ
＼＿＿＿ 　＿＿＿＿＿＿＿＿＿
　　　　　　∨
♪　　 ∧ ∧　♪
　　　　(,,ﾟДﾟ).　　♪
　　 　 |つ[|lllll］).
　　 ～|　　|
　　　　Ｕ Ｕ
0750Delギコ01/08/29 15:24ID:PkhyB55k
　　　　　　　　　　　　∧ ∧ 　ｲｯﾃﾖｼ ｲｯﾃﾖｼ ｲｯﾃﾖｼ
　　　　　　～′￣￣(ﾒﾟДﾟ)つ
　　　　　　　 UU￣￣U 　　　ﾌﾞｯｺﾛｽ ﾌﾞｯｺﾛｽ ﾌﾞｯｺﾛｽ
＿＿＿＿＿＿∧＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿

　しかも誰かが壊した会社のMOの修理に
　メーカーに送る準備とか、なぜ、折れがせねばならん！

　余ったMO指すScsiがないからって
　なぜScsiカードを買いに、外に出なきゃいかんのだ。
　電器屋遠いんだよ。

　始めてのﾈｺお使いじゃネーゾｺﾞﾙｧ

　でもって、折れがPCの箱開けてカードさせってか？

　まじでムカはいるわ。

　ヒマなときならいいが、キツキツの開発押し付けておいて
　同時に変な雑用やらすな。

　ｶｲﾊﾂﾂｰﾙﾋﾟｰｺ品、東京ﾕﾆｵﾝにﾁｸｯﾀﾛｶ
0751デフォルトの名無しさん01/08/29 15:26ID:yG7g5mOE
いくらDelギコ氏であっても、ここで愚痴るのはやめましょう。
0752Delギコ01/08/29 16:46ID:PkhyB55k
　　　　ううぇ～ん、マジ怒られしたよお

￣￣￣￣￣￣￣￣￣∨￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
　　　　　　　　　 　∧ ∧ 　ｳｿﾅｷ
　　　　　　　　　　（゜Д⊂)
　　　　　　　　　　⊂ 　ノ
　　　　　　　　　～人 Ｙ
　　　　　　　　　　し　U
＿＿＿＿＿＿＿＿＿∧＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿

　　　モナーの体パクルとちょっと変だな。
0753Delギコ01/08/29 20:28ID:PkhyB55k
残暑がきびしいでご残暑

　　∧ ∧　　　　　　　 ∧ ∧
　　(,,ﾟДﾟ)　　ﾊﾟﾀﾊﾟﾀ　(　　*)
　　/　　つ=○ ))　　　/　　|
～（＿_ﾉ　,,,　,　,, ,,,,　（,＿,,ﾉ　,,, ,　,,
　　　　　　　　　　　　　（

以前話した三項演算子みたいなもの、
VBでは多項演算子にもなっているみたいだね
http://www.remus.dti.ne.jp/~y-mac/teclib/array.htm
http://www.remus.dti.ne.jp/~y-mac/teclib/choose.htm
http://www.remus.dti.ne.jp/~y-mac/teclib/iif.htm
http://www.remus.dti.ne.jp/~y-mac/teclib/switch.htm


ついでに、これをDelハイで実装してYO.
http://www.remus.dti.ne.jp/~y-mac/teclib/getcompstr.htm

ココに載っているものが
Delphiで自分で実装できたら、一ﾈｺ前かな？
0754デフォルトの名無しさん01/08/29 21:39ID:gvkWCin6
function Values(Index:Integer;Vals:array of Integer):Integer;overload; begin result:=Vals[Index];end;
function Values(Index:Integer;Vals:array of Extended):Extended;overload; begin result:=Vals[Index];end;
function Values(Index:Integer;Vals:array of Boolean):Boolean;overload; begin result := Vals[Index]; end;
function Values(Index:Integer;Vals:array of string):string;overload; begin result:=Vals[Index];end;
function Values(Index:Integer;Vals:array of pointer):pointer;overload; begin result:=Vals[Index];end;
function Values(Index:Integer;Vals:array of TObject):TObject;overload; begin result:=Vals[Index];end;
function Values(Index:Integer;Vals:array of Int64):Int64;overload; begin result:=Vals[Index];end;
function Values(Index:Integer;Vals:array of function):function;overload; begin result:=Vals[Index];end;
function Values(Index:Integer;Vals:array of procedure):procedure;overload; begin result:=Vals[Index];end;
function Values(Index:Integer;Vals:array of char):char;overload; begin result:=Vals[Index];end;
0755デフォルトの名無しさん01/08/29 21:42ID:gvkWCin6
//番外編　-　意外と便利な関数
function GetCommaText(Index:Integer;CSV:string):string;
begin
　with TStringList.Create do
　begin
　　CommaText:=CSV;
　　Result:=Strings[Index];
　　Free;
　end;
end;
0756Delphi601/08/29 21:46ID:Zl4hdx6c
Delphi６をインストールしてプログラムを
実行させると、Delphi５では無かったメッセージが
表示されます。

例えば・・
ボタンを貼り付けて、以下のShowmessage('A');に
ブレークポイントを置きます。

procedure TForm1.Button1Click(Sender: TObject);
begin
Showmessage('A');

end;

ブレークポイントで止まって、トレース実行させると
ソースファイルが見つかりません :Dialogs.pas
というメッセージが出てしまいます。

Delphi5ではこの様なメッセージは表示されなかったのに・・。

表示させずにトレース実行させる方法は無いでしょうか。
0757デフォルトの名無しさん01/08/29 21:47ID:gvkWCin6
Dialogs.pas をDEL5のLIBからまんまDEL6のLIBに
コピーしてみてはどうか。
0758Delギコ01/08/29 21:50ID:PkhyB55k
　　　　　　∧ ∧　 ／￣>>756
～′￣￣(　ﾟДﾟ)＜　デバッグ版Dcuを使う。項目にチェック入ってない？
　UU￣￣　U U　　＼＿入ってたらはずせ

プロジェクトのオプションのコンパイラタブに。
0759Delphi6 01/08/29 22:04ID:Zl4hdx6c
Delギコさま

プロジェクトのオプションのコンパイラタブに
デバッグ版Dcuを使うのチェックボタンが
ありますが、灰色で表示されているので、
チェックすることも、チェックを外すことも
出来ません。(泣)

どうじたらいいのでしょう・・・
0760Delギコ01/08/29 22:06ID:PkhyB55k
　　　 　 　 ∧ ∧ 　／￣￣￣￣￣￣￣￣￣￣￣￣
～′￣￣(；ﾟДﾟ)＜　そらしらなんっだ。
　 UU￣￣ U U　　＼＿＿＿＿＿＿＿＿＿＿＿＿＿

　あきらめたら、よろしいかと....ｽﾏｿ
0761Delphi601/08/29 22:11ID:Zl4hdx6c
Delギコさま

アプリケーションの追加と削除で修復しました。
Delphi6を実行して、プロジェクトのオプションのコンパイラタブに
デバッグ版Dcuを使うのチェックボタン灰色表示でなく、
選択できるようになりました。
チェックを外してコンパイルしても、同じメッセージが
出てしまいます。

どうじたらいいのでしょう・・・
0762Delphi601/08/29 22:13ID:Zl4hdx6c
>>757様

Delphi5をアンインストールしてから、Delphi6を
インストールしました。

皆さんは、トレース実行、ステップ実行で
同様のメッセージは出ないのでしょうか。
0763Delphi601/08/29 22:26ID:Zl4hdx6c
すみません。

皆さんはDelphi6をインストールして、
HDDにDialogs.pasがありますか？

私は検索しても見つかりませんでした。
0764デフォルトの名無しさん01/08/29 22:47ID:gvkWCin6
>>759
> デバッグ版Dcuを使うのチェックボタンが
>ありますが、灰色で表示されているので、

オイオイ、おもいきりチェック可能じゃないか。
フツーにチェックできたぞ。
0765　01/08/29 22:57ID:Zl4hdx6c
>>764

761を良く見ろYO!
0766デフォルトの名無しさん01/08/29 23:04ID:CRg6CWlQ
うおおおおおおおおおおおおおおお
オブジェクトインスペクタもどきコンポがついているー！！
し、しかもカラーボックスに
TComboBoxExですと！？

オイオイ…D6に完全移行するっきゃねーだろ…

ところで、フォーム上に配置したValueEditorを
選択した状態でF１押してもヘルプ出ないけど、俺だけ？
他のコンポーネントならちゃんとでるんだけど。
0767Delギコ01/08/30 00:30ID:uq2fx84.
　∩ ∩
　| ∪ |
　|　 ～
　|∧ ∧　　　／￣￣￣￣￣￣￣￣
　( ,,ﾟДﾟ)つ ＜　>>754 いっぺんには使えない
　Ｕ　　　　　　＼＿＿＿＿＿＿＿＿

おーばーあーろーどできねえってよ。

あと、array of function ／ array of procedureは
うそぢゃん！
0768デフォルトの名無しさん01/08/30 01:20ID:Q6Nl9U0o
Delphiの初心者です。

いろいろ弄くってるんですが、どこか短いサンプルがたくさん落ちてる
ところありませんか？なんかどうもうだつがあがらないのでサンプル
見たほうが早いと思ったんで
0769Delギコ01/08/30 01:43ID:uq2fx84.
Borland Delphi 6 Personal をダウンロードした
http://piza2.2ch.net/test/read.cgi?bbs=tech&key=998878393

の16みれ。

￣￣￣∨￣￣￣￣￣￣
　　　∧ ∧　web見とけ
　　　(,,ﾟДﾟ)
　　　ﾉつ　l⌒|⌒l
　～(._ｎ ｎﾉ⌒⌒

リンク集なんかは定期的に話題にするから
2chに常駐しとけばヨシ。
0770デフォルトの名無しさん01/08/30 10:03ID:FUKanpqQ
>>767
array of function て文法上は間違えていないと思うけどなあ…
どうして関数のオープン配列は許可されないんだ？
0771デフォルトの名無しさん01/08/30 10:34ID:29tvbWeU
functionは型じゃないぞ

type
　TMyFunc = function(a, b: Integer): Integer;

function foo(index: integer; a: array of TMyFunc): TMyFunc;
begin
　Result := a[index];
end;

これなら通るが汎用性は恐ろしく低い
0772デフォルトの名無しさん01/08/30 14:40ID:iCLezKkM
>>759

>ありますが、灰色で表示されているので、
>チェックすることも、チェックを外すことも
>出来ません。(泣)

プログラム実行中は Disable になる。コンパイルオプションの変更は
プログラムを終了させてからにしなさい。
0773デフォルトの名無しさん01/08/30 15:40ID:Mbu7ubS.
>709
mod_gzip が組み込まれるのは少し先になりそうだから、
read.cgi 経由で gzipped dat を送ろうなんて実装が進んでいるみたいよ。
0774デフォルトの名無しさん01/08/30 15:48ID:U0jK7bd.
VisualBasicでいうところのLike演算子の代用になるものって何かないですかね？
ワイルドカードで検索できるやつです。

("a*c" Like "aBc") → True

ソースを見かけた方、ご一報ください。
DelphiでもBCBでも結構ですので…。
0775Delギコ01/08/30 16:31ID:SqAInVmQ
　　∧∧ 　　／￣￣￣￣￣￣￣￣￣￣￣
　¶(,,ﾟДﾟ) ＜　>>774　それ面倒なのね。
　ゝ|し　|┐　＼＿＿＿＿＿＿＿＿＿＿＿
　（_|./　|┘
　　 U U

2バイト対応を考えると大変なのだ。
0776C使ってますが、01/08/30 17:22ID:a3BWFPS2
出るふぁいは面白いですか？？？
たとえば、どんなところが？？？
教えて訓ですみません。
魅力を聞かせてください。
0777デフォルトの名無しさん01/08/30 17:28ID:.S8.cB/w
>>768
www.marcocantu.com/md6/default.htmのサンプルコード.zip
気にいったら本も買ってあげてください。おそらく初心者向けには
ベストのはずです。
0778デフォルトの名無しさん01/08/30 17:29ID:cTxqJzLA
コンパイルが早い！ストレスを感じない！

以上
0779デフォルトの名無しさん01/08/30 17:49ID:kYhHd1k6
ちょっとマイナーだから他のユーザが異様に親切。いろいろ教えてくれるぞ（w。
0780デフォルトの名無しさん01/08/30 18:43ID:6/9p5gqo
>>778
同意。
0781名無しさん01/08/30 19:02ID:Oy3e.60k
>>779
同意。
0782Delギコ01/08/30 20:04ID:SqAInVmQ
|　
|∩
|　| 　　>>776
| ～
| ∧ 　　 ／￣￣￣￣￣￣￣￣￣
|ﾟДﾟ)　＜　shigeにﾙﾋﾞ-の魅力でも聞いてこい、ｺﾞﾙｧ!!!
|∪　　　 ＼＿＿＿＿＿＿＿＿＿

　どんな言語も人それぞれ
0783デフォルトの名無しさん01/08/30 20:18ID:u0isWB9Y
>>774
正規表現使えば？
そうゆーライブラリどっかにあったでしょ？
0784デフォルトの名無しさん01/08/30 20:23ID:fhy7VN5w
VBのDebugPrintに当たる物はDelphiには無いのでしょうか？
0785Delギコ01/08/30 21:06ID:SqAInVmQ
　　　　　|￣￣￣￣￣￣￣￣￣￣￣|
　　　　　|Delギコﾌﾟﾛｸﾞﾗﾐﾝｸﾞ相談室　|
　　　　　|　0120-ﾊﾁﾚﾊﾁﾚ　　　　　　|
　　　　　|＿＿＿＿＿＿＿＿＿＿＿|
　　　　　　　　∧ ∧.||　　／￣￣￣￣￣￣￣￣
　　　　　　　　( ﾟДﾟ)||　＜　まだまだ相談募集中だ！
　　　　　　　.（｜　 |つ　　＼＿＿＿＿＿＿＿＿
　　　　　　 ～｜　 |||
　　　　　　 　　.U U

>>784
とりあえずみとけ。ｶｲｹﾂしてないけど。

[Delphi-ML:32760] VB に有ってDelphiに無いもの
http://www2.big.or.jp/~osamu/Delphi/browse.cgi?index=032760
0786デフォルトの名無しさん01/08/30 22:20ID:puYVDu5Q
>>785 解決していない？

http://www2.big.or.jp/~osamu/Delphi/delphi-browse.cgi?index=047209

問題は、Personal 板にイベントログウィンドウがあるかどうかだ。
078777401/08/30 22:38ID:U0jK7bd.
>>783
＞正規表現使えば？
＞そうゆーライブラリどっかにあったでしょ？

すいません、名前のヒントだけでも…
0788デフォルトの名無しさん01/08/30 22:47ID:kYhHd1k6
＞787
検索ぐらいしようよ…。
Delphi + 正規表現 で一発だよ。
0789デフォルトの名無しさん01/08/30 22:49ID:BI3leDEQ
すいません質問です。
ＣＤドライブが開いているか閉じているか判る方法ってないですかね。
これさえ判ればＣＤドライブ開閉ソフトが完成するんですー。
API　は難しい・・・
0790デフォルトの名無しさん01/08/30 23:01ID:6omKNwwk
>789
どっかに載ってた。検索かけてみ
079178901/08/30 23:06ID:BI3leDEQ
ありがと。がんばる。
0792Delギコ01/08/30 23:56ID:UAsKAvyg

　　　∧∧　　　／￣￣￣￣￣￣￣￣
～''~（,,ﾟДﾟ）　＜　ワイルドカードマッチの要望多いね
　 UU'UU　　　　＼＿＿＿＿＿＿＿＿

　よく見かけるのだが、
　Perl互換Compoをガツガツつかってる
　ｻﾝﾌﾟﾙも見たことないし
　そもそもPerl5互換だとオーバースペックなんだよな。
　そもそも正規表現を開発者が理解してないもん。

　結局自前で実装するしか手がないかも。

　いつかやるかと思っていても
　いつも先送りなんだよな。
0793大Delギコ01/08/31 00:25ID:ijkCpKok
Ｂｏｒｌａｎｄ Ｎｅｗｓ Ｇｒｏｕｐｅの Ｏｂｊｅｃｔ、、、いいかげんに

======================================================　　　　 ｜
======================== ∧ ========　∧===============　＼＼　　/／／
======================　/　λ======　 /　λ===========　　　＼　　　　／
==================== 　/　　 λ====　 /　　 λ========　　　　　＼　 逝　 ／
==================　　　　　　　　　　　　　　　　 ＼========　　　＼　　 ッ　　／
================　　　 ＜◎＞ （＿人＿）＜◎＞λ　　　　　　　　　＼　 .テ
================ 　　　　　　　　　|∨ ∨|　　　　　 　|　　　　　　　　　　 　 ヨ　　＼
================ 　　　　　　 　　 |　　　 |　　　　　 　|　　　　　　　　／　 　シ　 ＼
================ 　　　　　　　　 /⌒⌒ .|　　　　 　　|　　　　　　　　／／ ！！　＼
==================　　　　　 　.　 ――┤　　　　　 /　　　　　　　　　　　/　　＼
==================　　　　　　　　　　　　　　　　／　　　　　　　　　　　　　｜
================　　　￣￣￣￣￣ヽ＞　　　　￣￣￣￣￣〇＞ ＋
==============　　　　　　　　　　　　 |＞　　　　　　　　　　　 〇＞
============　　　＿＿＿＿＿＿＿ ﾉ＞　＿＿＿＿＿＿＿〇＞
==========　　　　　　　　　　　　／=============
========　　　　　　　　　　　 ／=============
======　　　　　　　　　　 　／================
====　　　　　　　　　　　／===========

ﾀｸちゃん先生もT氏も相手しないほうがいいＹＯ
0794デフォルトの名無しさん01/08/31 04:39ID:MkzhOPKk
>>793
そういうときは P ちゃんを呼ぼう！
0795デフォルトの名無しさん01/08/31 06:10ID:Ax9blDew
Del6でもTEAMコマンド有効なんだね。
伝統なのか？　ほかに裏コマンドないかな。

>ワイルドカードマッチの要望多いね

ワイルドカードマッチ、考察してみよう。
0796デフォルトの名無しさん01/08/31 08:17ID:aLgQGES2
>>784
>VBのDebugPrintに当たる物はDelphiには無いのでしょうか？

私は OutputDebugStringつかってます。
これだとイベントログウィンドウにメッセージが出るよ。（見にくいけど
0797デフォルトの名無しさん01/08/31 09:39ID:tsNflHmU
>774
MatchesMaskじゃ駄目なの？
0798Delギコぞにっく01/08/31 10:37ID:6ABUg4gY
（　　/＼/＼　　／￣￣￣￣￣￣￣
　〃⌒　ﾟДﾟ）＜　>>797　微妙に動作が信用ならん
　｀ＪJ~ＪＪ　　　＼＿＿＿＿＿＿＿
2ﾊﾞｲﾄ文字とかつらいし

（　　/＼/＼　　／￣￣￣￣￣￣￣
　〃⌒　ﾟДﾟ）＜　>>795　ﾃﾞﾊﾞｯｸﾞコードを先に書こう。
　｀ＪJ~ＪＪ　　　＼＿＿＿＿＿＿＿
折れ仕様的には「*」「?」「[0..9]」程度の表現でいい
0799デフォルトの名無しさん01/08/31 10:40ID:0IWbHti2
>>797
MatchesMaskはプロフェッショナル以上にしかついてこない（多分）
だから、Del5プロで作ったソフトはDel6パーソでは
コンパイルできない。
機能だけでなくライブラリに差があるのは
やめて欲しい…まあ仕方ないかもしれないが…
せめてMathやらなんやらは全バージョン標準のほうが。
0800デフォルトの名無しさん01/08/31 10:42ID:tsNflHmU
>>798
>微妙に動作が信用ならん
期待通りに動作しないケースをおせーて。
0801デフォルトの名無しさん01/08/31 10:55ID:0IWbHti2
提案なんだけど、フリーで標準ライブラリつくってみない？
ほぼ標準と思われるライブラリを作って、
ボーランドに働きかける。「このライブラリを組み込みませんか？」
0802デフォルトの名無しさん01/08/31 11:01ID:tsNflHmU
>>11
>変数1つ分のメモリすらケチるという状況で(だけ)役立ちますね。
役に立たないって。tmp=a;a=b;b=tmpって普通に書けば
全部レジスタ上で操作されるよ。
#コンパイラ・コンパイルオプションによるけど
0803デフォルトの名無しさん01/08/31 11:04ID:0IWbHti2

質問。
例えば某アプリケーションで、
ファイル保存ダイアログを使いファイルを保存する際に

ファイルタイプ→テキスト(*.txt) を選んだ状態でファイル名を
hoge と入れると、自動的に hoge.txt になる。
ファイルタイプ→HTMLファイル(*.html,*.htm) を選んだ状態でファイル名をhoge と入れると、自動的に hoge.html になる。
TSaveDialog の DefaultExt は、フィルタによっては変化しないでしょ。これを実装するにはどうすればよい？
0804デフォルトの名無しさん01/08/31 12:01ID:v6U5hSIA
>801
まず、外枠と結構な量の関数入れて作ってうぷしろ
0805デフォルトの名無しさん01/08/31 12:03ID:v6U5hSIA
>803

選択中のフィルタ番号からChangeFileExtを使って変更すれば良いんじゃないの？
0806Delギコ01/08/31 12:25ID:6ABUg4gY
　 　 ∧∧　　　／￣
　 ＿(,,ﾟДﾟ)　＜　>>805　スジはそうだが、Dialog中のEditが操作できん。
⊂,,＿_つつ.　　＼＿ Dialog.FileNameはEditとは連動しないのねん
　 　 ∧∧　　　／￣
　 ＿(,,ﾟДﾟ)　＜　ひょっとしてバグ多いか？
⊂,,＿_つつ.　　＼＿ D6のSaveDialogのFilterに日本語セットして
　　　　　　　　　　　2wayでコンポを切り出してテキストエディタに貼り付けると…
　　　　　　　　　　　D5ではちゃんとしてるのに！
080780101/08/31 12:45ID:FQWx7kjM
>>804
実は、自分用に作った関数群が既にあったりする。

■Unit
数値表現でなければDefault値を返す
function Str2Int( Text:string; DefaultVal:Integer ):Integer;
WAVE再生
procedure PlaySound( WaveFileName:string; Sync:Boolean);
短い形式のファイル名をロングファイルパスに伸張する
function ExpandFileName( ShortFilePath:string ):string;

■VCL
PNG, MNG対応の TImage が欲しい。

WordWrap 機能がつき、コントロールの横幅にあわせて
カラム幅を調整できる TStringGrid が欲しい。
数値入力専用のTEdit （TMaskEditで代用はできるが…）

フラットウィンドウ
フラットコンボボックス
フラットスクロールバーを備えた TTreeViewとTMemo,TRichEdit
TRichEditの高速化

TListViewにはフラットスクロールバーがあるのに、
TTreeViewには無い。セットで利用する事が多いのに…

あと、TListViewのカラム移動まわりのバグ修正とかね。
0808デフォルトの名無しさん01/08/31 13:03ID:MkzhOPKk
>>806
>2wayでコンポを切り出してテキストエディタに貼り付けると…
>D5ではちゃんとしてるのに！

.dfm のフォーマット変更の影響だね。
0809Delギコ01/08/31 13:04ID:6ABUg4gY
　　　∧∧　　　／　ちなーみに
～''~（,,ﾟДﾟ）　＜　　Filter文字列から拡張子を取り出す関数
　 UU'UU　　　 ＼　GetFilterExtつくーたよ。

//DialogのFiltersプロパティから拡張子を取り出す
//『Text files (*.txt)|*.TXT|Pascal files (*.pas)|*.PAS』から
//FilterIndex=1と指定すると
//*.PASと取得できる
function GetFilterExt(FilterIndex: Integer; Dlg: TOpenDialog): String;
var
　ReplaceStr: String;
begin
　with TStringList.Create do
　try
　　ReplaceStr := Dlg.Filter;
　　ReplaceStr := StringReplace(ReplaceStr, ' ', '', [rfReplaceAll]);
　　ReplaceStr := StringReplace(ReplaceStr, ',', '', [rfReplaceAll]);
　　ReplaceStr := StringReplace(ReplaceStr, '|', ',', [rfReplaceAll]);
　　CommaText := ReplaceStr;
　　if (0 <= FilterIndex) and ((FilterIndex*2+1)<=Count-1) then
　　begin
　　　Result := Strings[FilterIndex*2+1];
　　end;
　finally
　　Free;
　end;
end;

procedure testGetFilterExt;
var
　SD: TSaveDialog;
begin
　SD := TSaveDialog.Create(nil);
　with SD do
　try
　　Filter := 'データ(*.dat)|*.dat|'+
　　　　　　　'テキスト*.txt|*.txt|'+
　　　　　　　'Text files (*.txt)|*.TXT|'+
　　　　　　　'Pascal files (*.pas)|*.PAS|'+
　　　　　　　'ALL (*.*)|*.*';
　　if GetFilterExt(-1, SD) <> '' then ShowMessage('×');
　　if GetFilterExt(0, SD) <> '*.dat' then ShowMessage('×');
　　if GetFilterExt(1, SD) <> '*.txt' then ShowMessage('×');
　　if GetFilterExt(2, SD) <> '*.TXT' then ShowMessage('×');
　　if GetFilterExt(3, SD) <> '*.PAS' then ShowMessage('×');
　　if GetFilterExt(4, SD) <> '*.*' then ShowMessage('×');
　　if GetFilterExt(5, SD) <> '' then ShowMessage('×');

　finally
　　Free;
　end;

end;
0810Delギコ01/08/31 13:08ID:6ABUg4gY
　　　∧∧　　　／　>数値表現でなければDefault値を返す
～''~（,,ﾟДﾟ）　＜　　StrToIntDefじゃねーの？？
　 UU'UU　　　 ＼
　　　∧∧　　　／　>短い形式のファイル名をロングファイルパスに伸張する
～''~（,,ﾟДﾟ）　＜　　フルパスのフォルダ名が短い形式でも対応してる？
　 UU'UU　　　 ＼　再帰で実装するんだよね。、折れもﾂｸｰﾃﾙYO
　　　∧∧　　　／
～''~（,,ﾟДﾟ）　＜　　>.dfm のフォーマット変更の影響だね。
　 UU'UU　　　 ＼　そなの？何ゆえフォーマット変更？？国際化対応か？
0811デフォルトの名無しさん01/08/31 13:10ID:l23fvLAE
>>function Str2Int( Text:string; DefaultVal:Integer ):Integer

StrToIntDef...
0812ぼーらんど01/08/31 13:13ID:FQWx7kjM
新しく TSaveDialogEx を作るべし。
フィルタを拡張して、フィルタごとにデフォルト拡張子を決めるべきだな。
例えば、

キャプション|マスク|デフォルトEXT

という感じで。

例）

HTMLドキュメント(*.html,*.htm)|*.html;*.htm|html
JPEGイメージ(*.jpg,*.jpeg)|*.jpeg;*.jpg|jpeg

こんな具合。
081380701/08/31 13:16ID:FQWx7kjM
>StrToIntDefじゃねーの？？

ああああああああああああああああああああああああああ
そんんあかんすうがああああああああああああ
デル２からいじっているけど
マターク知らなかった…

ちくしょおおおおおおおおおおおおおおおおおおおお
081480701/08/31 13:19ID:FQWx7kjM
なあなあ、独自のコンパイル警告だすことできないか？

Str2Int を使おうとしたら
「Str2Intは推奨されない関数です。StrToIntDefを利用してください」
みたいな感じで、自作ライブラリ内で推奨されない関数が出来てしまった場合に警告出したいのよ。
0815デフォルトの名無しさん01/08/31 13:21ID:MkzhOPKk
>>803,805
「某アプリケーション」の動きがわからんのだが，
何もしなくても Execute 実行後の FileName には拡張子が追加されているよね？
ダイアログ実行中にリアルタイムに拡張子を追加したいのかな？
0816Delギコ01/08/31 13:22ID:6ABUg4gY
　　　∧∧　　　／　>新しく TSaveDialogEx を作るべし。
～''~（,,ﾟДﾟ）　＜　　理想だが、めんどくせーからヤダ。
　 UU'UU　　　 ＼
　　　　　　　　　　　TOpenDialogのFilterもTStringsで保持しておくべきだな。
　　　　　　　　　　　わざわざ文字列分解ﾀﾙｲ
　　　　　　　　　　　Name=Value形式が理想だ。

　　　　　　　　　　　あと、内部のEditやComboBoxを手軽に扱えるようにしてくれ。
　　　　　　　　　　　そんなんまで自分で実装するのは嫌。
0817Delギコ01/08/31 13:26ID:6ABUg4gY
　　　∧∧　　　／　>>815>ダイアログ実行中にリアルタイムに拡張子を追加したいのかな？
～''~（,,ﾟДﾟ）　＜　　だとｵﾓｰｳよ
　 UU'UU　　　 ＼　SaveDialog1TypeChangeイベントを使うのだが
　　　　　　　　　　　そこから拡張子を何にセットしていいものやら。

　　　　　　　　　　　ﾈｺの脳味噌は小さいので。
　　　　　　　　　　　ダイアログのファイル名表示Editのハンドルもインスタンスも
　　　　　　　　　　　取得できん。誰かﾀﾉｰﾑよ。
0818デフォルトの名無しさん01/08/31 13:27ID:MkzhOPKk
>>814
deprecated 指定じゃだめか？

procedure foo; deprecated;
begin
end;
0819名無しさん01/08/31 13:29ID:KrunWVJk

／￣￣￣￣￣￣￣￣￣￣￣￣￣
|　>>813 いい加減ヘルプぐらい見ろｺﾞﾙｧ
＼＿＿＿ 　＿＿＿＿＿＿＿＿＿
　　　　　　∨
♪　　 ∧ ∧　♪
　　　　(,,ﾟДﾟ).　　♪
　　 　 |つ[|lllll］).
　　 ～|　　|
　　　　Ｕ Ｕ
0820Delギコ01/08/31 13:34ID:6ABUg4gY
　 　 ∧∧　　　／>>819　責めたるな
　 ＿(,,ﾟДﾟ)　＜　盆ミス、勘違いは誰にでもあるって
⊂,,＿_つつ.　　＼ ヘルプの全項目を把握してる奴なんて極イチブしかいないんだから
0821デフォルトの名無しさん01/08/31 14:17ID:FQWx7kjM
とりあえず、みんなが欲しがると思われる
ファイル操作、ファイル名ルーチンつくってみたんだけど、
どこにウプすればよい？
皆でライブラリを作ろうよ。
0822Delギコ01/08/31 14:22ID:6ABUg4gY
　∧ ∧　 　／　前の>>754の多項演算子
　(,,ﾟДﾟ)　＜　　ふと思ったがoverloadしなくてもいいんじゃないか。
　 |つ つ　　＼ (ｵﾌﾟﾝﾊｲﾚﾂﾊﾟﾗﾒﾀ使ってるからｵﾊﾞﾛﾄﾞできないし…)
～ 　　| 　　　　各々名前変えたら使えるな。
　∪ ∪
　∧ ∧　 　／　>>755　便利関数というのならエラーコードくらい入れてくれ、
　(,,ﾟДﾟ)　＜　　Strings[xx]で勝手に例外発生したら嫌にならん？
　 |つ つ　　＼ raiseするほうがいいよ。
～ 　　| 　　　
　∪ ∪
　∧ ∧　 　／　>>756
　(,,ﾟДﾟ)　＜　　ﾊﾟｿﾅ版は欝になるように作ってるのだろうか。
　 |つ つ　　＼ デフォでCPUｳｨﾝﾄﾞｳ出るのも嫌すぎ。
～ 　　| 　　　　ｶｲｹﾂ方法あるのかﾆｬｰ
　∪ ∪
0823Delギコ01/08/31 14:26ID:6ABUg4gY
　　　　∧ ∧　　 ／ ウプ板キボン。
　　　　（,,ﾟДﾟ）＜　　ｵﾌﾟｿなmonazillaの人たちが詳しそうだ。
　　　　 |つ つ　 ＼
　　　＠　　 | 　　　　ｾｯｶｸつくたTLabeledEdit似のコンポもｱﾌﾟしたいしな。
　　　　∪ ∪
0824aaaa01/08/31 14:29ID:SfruD.RY
TStringList.Strings[-1] で、TStringList.Last と同じ効果が得られるようにしよう。

TStringListEx=class(TStringList)
private
　function GetStr(Index:integer):string;
　procedure SetStr(Index:Integer;S:string);
public
property Strings[Index:Integer]:string read GetStr write SetStr;override;
end;

function TStringListEx.GetStr(Index:Integer):string;
begin
　if Index >=0 then
　　result := inherited.Strings(Index) //親のStringsプロパを呼び出すのってどうやるんだろう…
else
　　result := inherited.Strings( count+index );end;
0825デフォルトの名無しさん01/08/31 14:30ID:SfruD.RY
なんなら、メアドとスペースとって、
パスワード全て公開して
気づいた人がUPってどうよ。
0826デフォルトの名無しさん01/08/31 14:40ID:2GTuG63Q
<.txt というファイルを作ってみる
↓
フィアル名に以下の文字は使えませんエラーが出る。
よく見ると、カンマが含まれている
↓
a,.txt というファイルを作ってみる
↓
ヽ(´ー｀)ノ ナゼダ
0827デフォルトの名無しさん01/08/31 16:26ID:LiLXaGPI
>>826
詳細説明希望。
0828デフォルトの名無しさん01/08/31 16:30ID:0V6W10r6
<.txt ってファイルを作ろうとすると、
「ファイル名に使えない文字が含まれています」ってエラー出るでしょ。
そこにある、使用不可能文字一覧にはカンマが含まれているけど、
実際にはカンマを含んだファイル名を作成できる　ってことでしょ。
0829デフォルトの名無しさん01/08/31 16:32ID:LiLXaGPI
>>826,828
まぁいいけど、それは Windows のコモンコントロールが出しているダイアログだぞ。
エクスプローラーで <.txt 作ってみなされ。

最初から、Windows 一般の話をしていたのならすまん。
0830Delギコ01/08/31 16:34ID:6ABUg4gY
　　　　　　　　　　 ＿＿＿＿＿＿＿＿＿
　　　　∧ ∧　 ／
　　　　（ ﾟ∀ﾟ）＜　>>828お疲れぃ！
　　　　 |つ つ　 ＼＿くがダメってダイアログニでてんじゃん！
　　　～　　 |
　　　　∪ ∪
0831デフォルトの名無しさん01/08/31 16:34ID:LiLXaGPI
それも Windows 2000 だと直っておるな。
0832デフォルトの名無しさん01/08/31 16:35ID:0V6W10r6
エクスプローラ上で
<.txt 作ろうとしたら注意されたけど…？
0833デフォルトの名無しさん01/08/31 16:48ID:LiLXaGPI
>そこにある、使用不可能文字一覧にはカンマが含まれているけど、
>実際にはカンマを含んだファイル名を作成できる　ってことでしょ。
0834Delギコ01/08/31 16:52ID:6ABUg4gY
　　　　　　　　　　　　>>833
　　　　∧ ∧　　／ 虫眼鏡で拡大したら
　　　　（,,ﾟДﾟ）＜　　あれは
　　　　 |つ つ　 ＼　半ｶﾅの読点だったYO
　　　＠　　 | 　
　　　　∪ ∪ 　ｳﾝ ﾀﾞｹﾄﾞ
0835デフォルトの名無しさん01/08/31 17:09ID:0V6W10r6
>>834
勹勺~ラナイゥ丶丿八''/ヵナイ〒~勹勺~廾イ一 瞬 信 し~ ち ゃ っ T= Y O
0836Delギコ01/08/31 17:17ID:6ABUg4gY
　| 　　　ｺﾜｯ
　| ∧　
　|Дﾟ) 　ｷｮｳﾊｸ ﾌﾞﾝ ?
　⊂| 　
　|　｀～
　|∪
￣￣￣￣￣￣￣
0837デフォルトの名無しさん01/08/31 17:32ID:6m29/Im2
クサチュー語ですが、何か？
0838デフォルトの名無しさん01/08/31 18:08ID:qkttqsow
　　　　　　　ﾌｱｧｧｧ
　　　　　∧_∧＿___　ﾈﾑｸﾅｯﾁｬｯﾀ
　　　 ／(*´o｀)　.／＼
　　／|￣∪∪￣|＼／
　　　 |＿しぃ_＿|／


　　　　　∧_∧＿___　ﾈﾖｳ
　　　 ／(*ﾟ－ﾟ)　.／＼
　　／|￣〇〇￣|＼／
　　　 |＿しぃ_＿|／


　　　　　＿＿＿___　ｵﾔｽﾐﾅｻｲ,,,
　　　 ／? ?/).／＼
　　／|￣￣￣￣|＼／
　　　 |＿しぃ_＿|／


　　　　　　　　　ﾊﾟﾀﾝ
　　　　 　＿＿＿＿ミ
　　　　／　 ／　 ／|
　　　 |￣￣￣￣|　,|
　　　 |　　しぃ　 |／
　　 　￣￣￣￣
　　　　　　　　　　　ﾀﾞｯｺ…
　　　　..::::::::::::::::::::::''
　　　 :''''''''''''''''''''';　,;
　　　 :　　':..,:`　 :..::'
　 　 　'''''''''''''''''''


ありがとうDelギコ、ありがとう2chネル
0839デフォルトの名無しさん01/08/31 18:26ID:0V6W10r6
Del6ではMATHユニットが標準でつくようになったんだね！
いい事だ
　　　　　　　　　　 ＿＿＿＿＿＿＿＿＿
　　　　∧ ∧　 ／
　　　　（ ﾟ∀ﾟ）＜　やっとかよ！
　　　　 |つ つ　 ＼＿___________________
　　　～　　 |
　　　　
0840デフォルトの名無しさん01/08/31 18:27ID:0V6W10r6
まじで２ｃｈ閉鎖しちゃうの？
帰る家がなくなるのは寂しいな…

みんなどこに帰るつもりなの？
0841Delギコ01/08/31 18:33ID:6ABUg4gY
　　　　　＿＿＿___
　　　 ／　　／　 ／|
　　　 |￣￣￣￣|.　|
　　　 |＿＿＿＿|／

　　　　　＿＿＿__ﾊﾟｶ_　
　　　 ／　　　　　／＼
　　／|￣￣￣￣|＼／
　　　 |＿＿＿＿|／

　　　　　＿＿＿___・・・
　　　 ／∧ ∧/).／＼
　　／|￣￣￣￣|＼／
　　　 |＿＿＿＿|／

　　　　　∧ ∧＿＿ｵｯｽ ｵﾗ ｺﾞｸｳ
　　　 ／(,, ﾟДﾟ)っ／＼
　　／|￣∪￣￣|＼／
　　　 |＿＿＿＿|／

　　　　　　∧ ∧　　 　┌────────────
　　　　　__(,, ﾟДﾟ)＿　＜　家に帰れ(ﾀﾞﾝﾎﾞｰﾙの)
　　　 ／　/　づ　／＼└────────────
　　／|￣￣￣￣|＼／
　　　 |＿＿＿＿|／

　　　　　＿＿＿___　　ヽ
　　　 ／　　　　　／＼⊂　｀∧ ∧　　／　>>839
　　／|￣￣￣￣|＼／ 　 ＼(,, ﾟДﾟ)＜　　教育分野にPersonal版大量導入！
　　　 |＿＿＿＿|／　　　　 ∪ ∪　　 ＼　の布石ﾀﾞﾅ。
0842デフォルトの名無しさん01/08/31 18:34ID:l.GX4WtU
>>840
俺は2chが無くなったらしたらば逝こうかな。
したらば専用ブラウザってあるのかな？
0843Delギコ01/08/31 18:43ID:6ABUg4gY
　　∧ ∧∩ ﾎｯﾄｿﾞﾇ ﾊ ｵｰﾌﾟﾝｿｰｽ ﾀﾞｿﾞ
　　(ﾟДﾟ,,)ﾉ 　ｺﾉｻｲ ｶｲｿﾞｳ！！
　　 | 　つ
　　 |　⊂)～
　　　_∪

　ﾁﾞﾂﾊ ｽｳｼﾞﾂﾏｴ ﾆ ﾄﾞｳｻｻｾﾃ ﾋﾞｸﾘ ｼﾀｰﾖ ｿﾞﾇ
　ﾁｬﾝﾄ ｺﾝﾊﾟｲﾙ ﾄｵﾙｼ 標準 ｺﾝﾎﾟ ﾉﾐ ﾃﾞ ｳｺﾞｰｸ ﾉﾈ >>ｿﾞﾇ
0844デフォルトの名無しさん01/08/31 18:48ID:0V6W10r6
ソースのUP板のことだけど、
よくよく考えたら、普通の掲示板借りればいいのかな。
できればテキストファイルやPASファイルのままウプしたかったんだけど…
とりあえず書き込み量の制限なさそうな掲示板借りてくるわ。
0845デフォルトの名無しさん01/08/31 19:07ID:0V6W10r6
ディレクトリとその中身を削除したいときってどうしてるの？
再帰的に一つ一つのファイルを削除してる？
0846名無しさん01/08/31 20:19ID:KrunWVJk
SHFileOperationで消せなかったけ？
0847Delギコ01/08/31 20:31ID:6ABUg4gY
　　　　　　　　　　　 　 ＿＿＿＿＿＿＿＿＿
　　　　∧_∧ 　　　 ／ >>844
　　　　(*ﾟДﾟ)　　 ＜　 PREタグもキボウ
　　 >';）∪++彡　　 ＼ AAとPREが同居できたらウレﾂｰナ
　　　～O　つ 　　　　 ￣￣￣￣￣￣￣￣￣
0848aaa01/08/31 21:29ID:0V6W10r6
とりあえず、暫定的につくってみました。
ソースファイルアップ版…と見せかけたただのBBS
http://www.geocities.co.jp/SiliconValley-Sunnyvale/1607/
0849名無しさん01/08/31 22:00ID:KrunWVJk
／￣￣￣￣￣￣￣￣￣￣￣￣￣
|　作ってたが、無駄だたーか
＼＿＿＿ 　＿＿＿＿＿＿＿＿＿
　　　　　　∨
♪　　 ∧ ∧　♪
　　　　(TДT).　　♪
　　 　 |つ[|lllll］).
　　 ～|　　|
　　　　Ｕ Ｕ

http://do.sakura.ne.jp/~junkroom/cgi-bin/megabbs/unyou/index.html
0850デフォルトの名無しさん01/08/31 22:23ID:0V6W10r6
いや、そっちのタイプのほうがよいと思う。
投稿量がかなり制限されてしまうが…
0851デフォルトの名無しさん01/08/31 22:44ID:0pU/ZYhk
ホットゾヌのソースをDelphiで開いたのですがエラー出ます
何かが無いって言われます

どうしたらいいでしょうか？
0852デフォルトの名無しさん01/08/31 22:55ID:XZWZRFF6
>842
ホットゾヌはしたらば対応してる。
スレ立てもできるみたい。
0853デフォルトの名無しさん01/08/31 23:11ID:tsNflHmU
掲示板よりWikiにしないか？
http://www.gedoh.org/aki/2ch/tiki/

こっちは掲示板みたいに書きっぱなしじゃなくって修正もできるし、
独自のページの追加も簡単にできる。
情報の集積の効率が格段に違ってくると思うよ。

誰かUNIX&CGIに詳しい人立ててくれ～
0854デフォルトの名無しさん01/08/31 23:22ID:0V6W10r6
２ｃｈ閉鎖騒動って、そもそも
いつ、
なにがきっかっけで発生したの？
0855デフォルトの名無しさん01/08/31 23:24ID:tsNflHmU
スレ違い。つーか>853のリンク先見りゃわかる。
0856デフォルトの名無しさん01/09/01 00:17ID:7xBEU0JQ
StrToIntDef はあるのに、
StrToFloatDef は無いよね…

…なに考えてるんだろう
0857名無しさん01/09/01 01:00ID:mUy0G26E

／￣￣￣￣￣￣￣￣￣￣￣￣￣
|　>>850 どこ逝きゃいいんだ～
＼＿＿＿ 　＿＿＿＿＿＿＿＿＿
　　　　　　∨
♪　　 ∧ ∧　♪
　　　　(,,ﾟДﾟ).　　♪
　　 　 |つ[|lllll］).
　　 ～|　　|
　　　　Ｕ Ｕ
0858デフォルトの名無しさん01/09/01 01:21ID:7xBEU0JQ
Cもどき

後置インクリメント
function PreInc(var i:integer;const d:integer=1):integer;overload;
begin inc(i,d); result := i; end;

前置インクリメント
function Inc2(var i:integer;const d:integer=1):integer;overload;
begin result := i; inc(i,d); end;

後置デンクリメント
function PreDec(var i:integer;const d:integer=1):integer;overload;
begin dec(i,d); result := i; end;

前置デンクリメント
function Dec2(var i:integer;const d:integer=1):integer;overload;
begin result := i; dec(i,d); end;
0859デフォルトの名無しさん01/09/01 01:23ID:7xBEU0JQ
当面は >>849で良いと思う。つーか、８４９に集合せよ！！！
0860Delギコ01/09/01 03:37ID:arxubii6
　　　　　　　　　　　　　（　　ヽ　　　　　　――――　　○　　――――
　　　　 ,　⌒ヽ　　　　(　　　　　）　　　　　　　　　　／/ |　＼
　　　 （　　　　'　　　（　　　　　　　ヽ⌒ヽ 、　　 ／　/　|　 　 ＼
　　　　ゝ　　　　｀ヽ(　　　　　　　　　　　 　 ） 　 　 　 　|　(⌒ 、
　　　( 　　　　　　　　　　､⌒　　　　　　　　　ヽ　　　　　（　 　 　ヽ
　　(　　　　 　　　(⌒　　　　　　　　　　　　　　）　　　(
　（　　　　　　　　　　　　　　　　　　　　　　　 　 Y⌒ ヽ
　　（　　　　　　　　｀)
　　　ゝ　　　　　　　　　　　　　　ﾉ　　ノ
_________________________________________________________________________________________
　～～　～～　　　～～～　　～　　～～　　～～　　～　　～～　　～
　　～～　　　　　～～　　　　　　～～　　　　　　　　～～～　　　　～
～　～～ ∧∧　　　　～～　　　～～　　　～～　　～～　　　　～～～
~~~~~~~~ (　　,,) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
　　　　　　|　∪　　　....　　　....　　　　....　　　...　　　...　　　...　　　　　　　.
....　　　　～　｜　　　....　　　....　　　　　　.....　　.ようやく夏も終わりか
　　....　　 ∪∪　　　　　　　....　　　　　...　　　　夏厨いなくなるとｻﾐｼｲかも
　　　　　　　....　　　....　　　　　　....　　　...　　　　　　　　　　...　　　　　...
0861Delギコ01/09/01 03:40ID:arxubii6
　　　　　　　　　　　　　（　　ヽ　　　　　　――――　　○　　――――
　　　　 ,　⌒ヽ　　　　(　　　　　）　　　　　　　　　　／/ |　＼
　　　 （　　　　'　　　（　　　　　　　ヽ⌒ヽ 、　　 ／　/　|　 　 ＼
　　　　ゝ　　　　｀ヽ(　　　　　　　　　　　 　 ） 　 　 　 　|　(⌒ 、
　　　( 　　　　　　　　　　､⌒　　　　　　　　　ヽ　　　　　（　 　 　ヽ
　　(　　　　 　　　(⌒　　　　　　　　　　　　　　）　　　(
　（　　　　　　　　　　　　　　　　　　　　　　　 　 Y⌒ ヽ
　　（　　　　　　　　｀)
　　　ゝ　　　　　　　　　　　　　　ﾉ　　ノ
_________________________________________________________________________________________
　～～　～～　　　～～～　　～　　～～　　～～　　～　　～～　　～
　　～～　　　　　～～　　　　　　～～　　　　　　　　～～～　　　　～
～　～～ ∧∧　　　　～～　　　～～　　　～～　　～～　　　　～～～
￣￣￣ (,,ﾟДﾟ) ￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
　　　　　　|　∪　　　....　　　....　　　　....　　　...　　　...　　　...　　　　　　　.
....　　　　～　｜　　　....　　　....　　　　　　.....　　.一夏の濃い
　　....　　 ∪∪　　　　　　　....　　　　　...　　　　　　した？
　　　　　　　....　　　....　　　　　　....　　　...　　　　　　　　　　...　　　　　...
0862名無しさん01/09/01 03:56ID:mUy0G26E
>>859
http://do.sakura.ne.jp/~junkroom/cgi-bin/megabbs/lounge/index.html
ｺﾞﾒｿこっちに移動
まだこのCGI把握できてないーよ
0863Delギコ01/09/01 04:08ID:arxubii6
　　　　＿＿＿＿＿＿＿＿＿
　 　／／／／／／／／／／＼　　　　　　　　　　　ミ☆
　／／／／／／／／／／ ｷﾞｺ.＼　　　ミ☆
　￣┃￣￣￣￣￣￣￣￣￣┃￣
　 　┃☆ 　 　 　 ＿＿＿＿　┃
　 　┠─┐ 　　∥∧ ∧　∥ ┃　 ／￣￣￣￣￣￣
　 　┃ 　│ 　　∥(,,ﾟДﾟ)..∥ ┃＜　　ご苦労様 >>862
　 　┃°│ 　 　￣∪∪￣　 ┃　 ＼＿＿＿＿＿＿
　━┻━┷━━━━━━━┻━━━━━━━━━━━━

　ソースpreとＡＡが同居できるようにはならないかな...
　無茶か。
　昔はTECH-BBSというのがあったんだが･･･

　あとせめて板の説明はどこかに欲しい。

　書き込んでいいのかどうか不安になるよ。

　誰でもソースをｳﾌﾟしていいの？
0864Delギコ01/09/01 04:17ID:arxubii6
　　　 ∧ ∧　 　　　　　 　／
|￣￣（　ﾟДﾟ)￣￣|　　　＜　　ところで、ずっと前に話題をふった
|＼⌒⌒⌒⌒⌒⌒＼ 　　＼ 　例外無しのIsInt、完全にＳｔｒＴｏＩｎｔ互換で作成したぞい
|　 ＼ 　　　　　 　 　 ＼ 　　　寸分の狂いなくStrToIntで例外が発生する前に
＼　 ｜⌒⌒⌒⌒⌒⌒｜ 　　変換可能か否か判断できる。
　 ＼ |＿＿＿＿＿＿＿|

これで文字列処理の肝が大体わかったので
StrToFloat完全互換のIsFlort/IsDoubleと
ファイル名のIs絶対FilePath/Is相対FilePath
URLのＩｓ絶対URL/Is相対ＵＲＬ

で、ワイルドカードマッチ処理と

実装をすすめておくよ。
0865名無しさん01/09/01 04:27ID:mUy0G26E
／￣￣￣￣￣￣￣￣￣￣￣￣￣
|　Delギコさん、良かＡＡあったら説明のＴＯＰに使わせて
＼＿＿＿ 　＿＿＿＿＿＿＿＿＿
　　　　　　∨
♪　　 ∧ ∧　♪
　　　　(,,ﾟДﾟ).　　♪
　　 　 |つ[|lllll］).
　　 ～|　　|
　　　　Ｕ Ｕ

preチェック使えるけど駄目？混在きぼーん？
タグチェッカー部分のソースを追ってみるわ

契約してる鯖の容量余ってるので、
Delphiネタ・雑談・ソース誰でも自由にｳﾌﾟ結構です

説明文は、夜勤明け起きたら考えますです
0866Delギコ01/09/01 04:47ID:arxubii6
　　　　∧ ∧　　　　 ／￣￣￣￣￣￣￣￣￣￣￣￣￣
　　　　（,,,ﾟДﾟ） 目＜　AA選べナいよー
　　　　 |つ つ　||　 ＼ ＿＿＿＿＿＿＿＿＿＿＿＿＿
TTTTTTTT|TTTTTT
￣￣￣￣￣￣￣￣|
::....　　　　 　　　　　　|

あるにはあるけど、ギコペってソフトで
調べてはいかがかしら？
(いずれ、自分でAA管理ソフトつくっちゃる！)


それにしても、一つ選ぶとしたらこれかな･･･
0867Delギコ01/09/01 04:48ID:arxubii6

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 　|＼　　　　　　　（？
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　/　 .＼　　　　　 /./
　　　　　 。　 ∧ ∧　　｡　　　　　　.∧ ∧　∧ ∧　.∧ ∧　∧ ∧　　∧ ∧　　∧ ∧　　.∧ ∧　　 .∧.//　／￣　∧＿//./　　　　　　.（？
　　　　　　＼ (ﾟДﾟ ) ／　　　　　　 ( ﾟДﾟ ) ( ﾟДﾟ ) ( ﾟДﾟ ) ( ﾟДﾟ )　 ( ﾟДﾟ // ( ﾟДﾟ // ( ﾟДﾟ //　(ﾟД/　/⌒ヽ .（・∀・/⊂　　　　　　.././
　　⊂＿つ　⊂　　つ　⊂＿つ　　 .つ||⊂ .つ||⊂　つ||⊂　つ||⊂　 .つ/（⌒） .つ/（⌒） つ/（⌒）　(つ　./@@.ﾉ .（つ（././　）　　　　　././
　　　|　 | ⊂＿つ⊂＿つ　 |　.|　　 | .○.|　.| ○ |　 | ○ |　 | ○.|　　 |//　|　　 |//　|　 　|//　|　～/ 丶.＿__ノ　　|　＼/（？　∧＿//./
　　　＼ | .|　..|　 .||　 .|　 .|.∧ ∧ .∧ ∧ .∧ ∧ ∧ ∧ ∧ ∧ .∧ ∧//∧ ∧.//∧ ∧ .∧ ∧　.∧ ∧ .∧ ∧　　　 （/./ /./　（・∀・/⊂
　　　∧ ∧　　/| -__ _|_／.(*ﾟーﾟ).(*ﾟーﾟ).(*ﾟーﾟ).(*ﾟーﾟ)(*ﾟーﾟ).( ﾟДﾟ// ( ﾟДﾟ// .( ﾟДﾟ) .( ﾟДﾟ) .( ﾟДﾟ) .( ﾟДﾟ)　　∧＿//./　.（つ（ /./　）
　　　( ﾟДﾟ)　.//　　/　　　.つ||⊂ .つ||⊂ つ||⊂ つ||⊂.つ||⊂ つ ./⊂ つ　/⊂（＠ﾉ⊂（＠ﾉ⊂（＠ﾉ⊂（＠ﾉ⊂ .（・∀・/⊂　　|　＼./ .（？
○=⊂ 桶.つ//　　/　　　　　∧ ∧ .∧ ∧　∧ ∧　∧ ∧ .∧ ∧　∧ ∧　　∧ ∧　∧ ∧　∧ ∧　　　　　　　 （つ（ /./　）　　（/./ 　/./
　　　 |　　| //＿_/　 　　　　(*ﾟーﾟ) (*ﾟーﾟ) .(*ﾟーﾟ) (*ﾟーﾟ) (*ﾟーﾟ) (*ﾟーﾟ)　 .(ﾟДﾟ ) .(ﾟДﾟ )　(ﾟДﾟ )　　　∧ ∧　 |　＼ / （？　∧＿/././
　　　 .U U//＼　 ヽ――ヽ ∩／⊂∩／⊂∩/⊂ .∩/⊂ .つ||⊂ .つ||⊂　（＠ﾉ⊂（＠ﾉ⊂（＠ﾉ⊂　　 .(ﾟДﾟ )　　（././　././　（・∀・/⊂
　　　　　　　　 |＼　　　　　 ＼　∧ ∧　∧ ∧　∧ ∧　.∧ ∧　　.∧ ∧　∧ ∧　∧ ∧　∧ ∧ .∧ ∧.つ―/）　∧＿//./　 （つ（ /./　）
∧ ∧　　　/￣|￣￣￣￣∧ ∧( ﾟДﾟ)　( ﾟДﾟ) .( ﾟДﾟ)　( ﾟДﾟ)　　(ﾟДﾟ )　(ﾟДﾟ ) .(ﾟДﾟ ) .(ﾟДﾟ ) .(ﾟДﾟ )　.∧ ∧（・∀・/⊂　　.|　＼./　 ヽ
( ﾟДﾟ)　　./＿＿―――-( ﾟДﾟ)つ―＼つ―＼）つ―＼つ―＼）.つ―/）.つ―/）つ―/）つ―/）つ―/） (ﾟДﾟ )（つ（././　）　　（？/ ∫__）（？
（　　つ┌|＿＿_∧ ∧― つ―＼∧ ∧　∧ ∧　.∧ ∧　.∧ ∧　 ∧ ∧　.∧ ∧ .∧ ∧ .∧ ∧　∧ ∧　つ―/）|　＼/　 ヽ　 ././　　　　　/./
∧ ∧　　　　　　(　ﾟД(|こ=3　　 ( ﾟДﾟ)　( ﾟДﾟ)　.( ﾟДﾟ)　( ﾟДﾟ)　.(ﾟДﾟ )　(ﾟДﾟ ) .(ﾟДﾟ ) (ﾟДﾟ ) .(ﾟДﾟ )　 | // |　（/./ ∧＿/././　∧＿/././
( ﾟДﾟ) ／　　　　||　　つ∧ ∧　　つ―＼つ―＼）つ―＼つ―＼）つ―/）つ―/）つ―/）つ―/） ∧ ∧(@) ∧ ∧(@)（・∀・/⊂ .（・∀・/⊂
つ―つ＿__　∧ ∧　　 (　ﾟД(|こ∧ ∧　　　∧ ∧　　 ∧ ∧　 ∧ ∧　∧ ∧ ∧ ∧.(@) ∧ ∧(@)(ﾟДﾟ //　(ﾟДﾟ //　（つ（/./　）（つ（././　）
｜ （）＿|＿）(　ﾟД(|こ=3　　つ　(　ﾟД(|こ=3( ﾟД(|こ=( ﾟДﾟ)　 (ﾟДﾟ ) .(ﾟДﾟ ) (ﾟДﾟ .//　(ﾟДﾟ // .つ-(//)　つ-(//)　　| .＼/　ヽ　| ＼./　 ヽ
　U　＼ |／ .||　　 つ　 .|L　 ┐　||　　つ　　.||　　つ　 つ―＼）つ―/）つ―/）つ-(//)　つ-(//)　 | （//_）　 |（//_）　　 （//∫　）　（// ∫__）
∧ ∧　　　　∧ ∧　　　 .∧ ∧　　　 .∧ ∧　　　　　　 |　　|　.∧ ∧　　|　　|　|　∧ ∧(@)　.∧ ∧(@) ∧ ∧(@)　∧ ∧(@)　∧ ∧(@)//
(　ﾟД(|こ=3 (　ﾟД(|こ=3 (　ﾟД(|こ=3 (　ﾟД(|こ=3　　　 U U.　(　　 ) ／ U U　　 (ﾟДﾟ //　　(ﾟДﾟ //　.(ﾟДﾟ //　 (ﾟДﾟ //　　(ﾟДﾟ //
||　　　つ　　||　　 つ　　 .||　　つ　　　||　　 つ　　　　　　　　.⊂　　 つ　　　　　　つ-(//)　　つ-(//)　 つ-(//)　 .つ-(//)　　つ-(//)
|L　 ┐　　　|L　 ┐ 　　 .|L　 ┐　　　|L　 ┐　　　　　　　　　　| ＠ |　　　　　　　.| （//_）　　.| （//_）　 .| （//_）　　| （//_）　　.| （//_）
|￣|し　　 .....|￣|し　　　　|￣|し 　 .......|￣|し　　　　　　　　　　　U　U　　　　　　　ι./U　　　ι./U　　 ι./U　　　ι./U　　　ι./U
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　|￣￣￣￣￣￣￣|
￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
0868Delギコ01/09/01 05:03ID:arxubii6
　　∧ ∧　 　／￣￣￣￣￣￣￣￣￣￣￣￣￣
　　(,,ﾟДﾟ)　＜　朝だちんこ
　 . /　　|　 　 ＼＿＿＿＿＿＿＿＿＿＿＿＿＿
＠（＿__♂

PRE混在、無理しなくてもいいす。
運営の方が遥かに重要だし。

それより、あの2ch形式って超長いソース掲載できます？
ソースｱﾌﾟ板としてはなによりそれ重要だと思う。

単なるTree形式のCGIの方がいいかも。

>Delphiネタ・雑談・ソース誰でも自由にｳﾌﾟ結構です
どうせならＤｅｌ系とかじゃなくて
プログラム板＆webprog板、など誰でも利用可能
ソースｱﾌﾟ板にしてしまえばいいかもね。
0869デフォルトの名無しさん01/09/01 07:06ID:7xBEU0JQ
可読性を高めるなら、巨大ソース専用スレを用意しておいて
巨大なソースはそこにsageて書き込み、本スレで

「ソースはこちら http://*********」

という風にリンクをはっておくて手ももあるよ。
0870デフォルトの名無しさん01/09/01 08:15ID:WQEBWW7s
すいません zlib ってなんですか？使い方が良く分からないんですけど、
バイナリをZIPで圧縮してくれるんですか？それともZIPとは違う
独自の圧縮形式ですか？

仮に、テキストファイルを圧縮して保存し、復元したい場合は
どのようなコードを書けばよいですか？

procedure SaveToZIP(Lines:TStringList; Filename:string);
begin
...
end;

てなかんじで。
0871デフォルトの名無しさん01/09/01 08:18ID:qjIN5xds
>>870
zipが使ってるのと同じ形式で圧縮してくれるもの。
けど、zip書庫用のヘッダとかはつかないから、自分で書かなきゃダメだよん。
0872デフォルトの名無しさん01/09/01 08:48ID:WQEBWW7s
>>871
サンクス

ってことは、一般のZIP展開ツールで展開できるようにするには、
ヘッダをつけてやる必要があるってことね。逆にいえば、
zlib だけで圧縮、展開する場合はヘッダを付けなくてもよろしいと。
0873＞87201/09/01 09:12ID:qjIN5xds
そです。
087487001/09/01 11:13ID:WQEBWW7s
ファイルを圧縮、展開するコードを書いてみました。
圧縮ファイルは出来上がるのですが、
元のファイルをCloseするときにエラーが起きます。
また、出来上がった圧縮ファイルを復元しようとすると
ZLIBのコードチェックに引っかかるようです。

どこがおかしいのでしょう？

procedure CompressFile( const FileName:string );
var
　Source,Zip:File;
　ReadByte,OutByte:Integer;
　Buf:array of Byte;
　P:Pointer;
begin
　if not FileExists( Filename ) then Exit;

　{ファイルの関連付け}
　AssignFile(Source, Filename );
　Reset(Source,1);

　AssignFile(Zip, FileName + '.zlib');
　Rewrite(Zip,1);

　{バッファの確保}
　SetLength( Buf, FileSize(Source) );

　{圧縮して書き込み}
　Blockread(Source, Buf, SizeOf(Buf), ReadByte);
　ZLib.CompressBuf( @Buf, ReadByte, P, OutByte );
　BlockWrite(Zip, P, OutByte );

　{後始末}
　CloseFile(Zip);
　CloseFile(Source);
end;
087587001/09/01 11:13ID:WQEBWW7s
続きです

procedure DecompressFile(const FileName:string);
var
　Source,Expnd:File;
　ReadByte,OutByte:Integer;
　Buf,OutBuf:array of Byte;
　P:Pointer;
begin
　if not FileExists( Filename ) then Exit;

　{ファイルの関連付け}
　AssignFile(Source, Filename );
　Reset(Source,1);

　AssignFile(Expnd, ChangeFileExt(FileName,'.expnd') );
　Rewrite(Expnd,1);

　{バッファの確保}
　SetLength( Buf, FileSize(Source) );
　SetLength( OutBuf, FileSize(Source) );

　{展開して書き込み}
　Blockread(Source, Buf, SizeOf(Buf), ReadByte);
　//ここで、OutByteに書き込まれたバイトサイズは気にしなくていいのか不安
　ZLib.DecompressToUserBuf( @Buf, ReadByte, @OutByte, SizeOf(OutByte) );
　BlockWrite(Expnd, OutByte, SizeOf(OutByte) );

　{後始末}
　CloseFile(Expnd);
　CloseFile(Source);
end;
087687501/09/01 11:17ID:WQEBWW7s
あ、DecompressFiles の
>ZLib.DecompressToUserBuf(@Buf,ReadByte,@OutByte,SizeOf(OutByte) );
>BlockWrite(Expnd, OutByte, SizeOf(OutByte) );

は、これじゃ当然だめですね。いま気が付いた…

ZLib.DecompressToUserBuf(@Buf,ReadByte,@OutBuf,SizeOf(OutBuf) );
BlockWrite(Expnd, OutBuf, SizeOf(OutBuf) );

に修正。でも、根本的な”何か”が間違ってる気がする…
0877デフォルトの名無しさん01/09/01 11:36ID:baJQonXA
SizeOf(array of ～)は確か常にポインタのバイト幅になったような。
Length()を使って下さい。あとCompressBufで得られたポインタは開放
する必要があるかも。（zlib使った事無いのでスマソ。）
ここ参考
http://www2.big.or.jp/~osamu/Delphi/delphi-browse.cgi?index=050725
0878デフォルトの名無しさん01/09/01 11:38ID:gsR66ZHQ
>>876
Enterpriseなら
Delphi6\Demos\Midas\Intrcptのintrcptu.pas
にサンプルがあるよ
087987501/09/01 12:44ID:I.GlUx6Q
残念ながらわたしがつかっているのはDel6Personalなんです…
ありがとう。でも、過去ログを参考にしたら、これでうまくいきました。254KBのBMPを圧縮したところ6KBになり、復元もうまくいきました。みなさまもどーぞ。

procedure CompressFile( const FileName:string );
var
　ZipSize:Integer;
　ZipBuf:Pointer;
　SourceStream,ZipStream:TMemoryStream;
begin
　if not FileExists( Filename ) then Exit;

　SourceStream := TMemoryStream.Create;
　ZipStream := TMemoryStream.Create;

　try
　　{ストリームに読み込む}
　　SourceStream.LoadFromFile( FileName );
　
　　{圧縮する}
　　ZLib.CompressBuf(
　　　SourceStream.Memory,
　　　SourceStream.Size,
　　　ZipBuf,
　　　ZipSize
　　);

　　{圧縮ストリームに書き込む}
　　ZipStream.Write( PByte(ZipBuf)^, ZipSize);
　　ZipStream.SaveToFile( FileName + '.zlib' );

　　{解放}
　　FreeMem( ZipBuf );
　finally
　　{後始末}
　　SourceStream.Free;
　　ZipStream.Free;
　end;
end;
088087501/09/01 12:45ID:I.GlUx6Q
つづき
//復元関数
procedure DecompressFile(const ZLibFileName:string);
var
　RestoreSize:Integer;
　RestoreBuf:Pointer;
　RestoreStream,ZipStream:TMemoryStream;
begin
　if not FileExists( ZLibFilename ) then Exit;

　RestoreStream := TMemoryStream.Create;
　ZipStream := TMemoryStream.Create;

　try
　　{ストリームに読み込む}
　　ZipStream.LoadFromFile( ZLibFileName );

　　{展開する}
　　ZLib.DecompressBuf(
　　　ZipStream.Memory,
　　　ZipStream.Size,
　　　0,
　　　RestoreBuf,
　　　RestoreSize
　　);

　　{復元ストリームに書き込む}
　　RestoreStream.Write( PByte(RestoreBuf)^, RestoreSize);
　　RestoreStream.SaveToFile(　ChangeFileExt(ZLibFileName,'') );

　　{解放}
　　FreeMem( RestoreBuf );
　finally
　　{後始末}
　　RestoreStream.Free;
　　ZipStream.Free;
　end;
end;
0881デフォルトの名無しさん01/09/01 13:00ID:I.GlUx6Q
関係ないんですが、
Delphiソースファイルのリッチテキスト化もしくは
HTML化ツールってありません？
予約語やコメントに色をつけて、PREタグで囲んで…という風に。
自分で作るしかないですかね…
0882デフォルトの名無しさん01/09/01 13:10ID:YyaUSdaQ
http://www.google.co.jp/search?q=Delphi+%83%5C%81%5B%83X%81@%95%CF%8A%B7%81@HTML&hl=ja&lr=
0883デフォルトの名無しさん01/09/01 13:32ID:X6XJCtLo
>>882
ありがとう、おかげでソースのウプが楽になりそう。

質問続きでアレなんですが、ストリームを利用した
ファイル分割関数がどうにもうまく動かないんです。

これで、ファイル結合と分離が出来上がれば、
圧縮ファイルから特定のファイルだけを抽出する関数が
できそうなんで、そうすれば凄く便利になると思うんですけど…

//ファイルを分割する　拡張子は 000, 001, 002 ,... となる
procedure SplitFile(const FileName:string; const SplitSize:Integer);
var
　P:Pointer;
　i,WrittenSize:Integer;
　Source,Split:TMemoryStream;
begin
　Source := TMemoryStream.Create;
　Split := TMemoryStream.Create;
　try
　　i:=0;
　　Source.LoadFromFile( FileName );
　　repeat
　　　Split.Clear;
　　　P:=Source.Memory;
　　　WrittenSize := Split.Write( P , SplitSize );
　　　Split.SaveToFile( FileName + Format('.%3.d',[i]) );
　　until WrittenSize <> SplitSize;
　finally
　　Source.Free;
　　Split.Free;
　end;
end;
0884デフォルトの名無しさん01/09/01 14:45ID:gsR66ZHQ
>>883
こんなかんじでどうでしょうか？

procedure SplitFile(const FileName:string; const SplitSize:Integer);
var
　i,WrittenSize:Integer;
　Source,Split:TMemoryStream;
begin
　Source := TMemoryStream.Create;
　Split := TMemoryStream.Create;
　try
　　i:=0;
　　Source.LoadFromFile( FileName );
　　repeat
　　　Split.Clear;
　　　if (Source.Size - Source.Position) >= SplitSize then begin
　　　　WrittenSize := Split.CopyFrom( Source , SplitSize );
　　　end else begin
　　　　WrittenSize := Split.CopyFrom( Source , Source.Size - Source.Position );
　　　end;
　　　Split.SaveToFile( FileName + Format('.%3.d',[i]) );
　　　inc(i);
　　until WrittenSize <> SplitSize;
　finally
　　Source.Free;
　　Split.Free;
　end;
end;
0885デフォルトの名無しさん01/09/01 15:23ID:baJQonXA
>>883
TMemoryStream.Memoryを直接使う時は、領域が確保されてるか確認する必要があるよん。
>>884
CopyFromって例外出すからむかつくよね。
俺も書いてみた↓
http://www.ziyu.net/%7Erent/bbs/bbs.cgi?room=delphi6
0886デフォルトの名無しさん01/09/01 15:27ID:gsR66ZHQ
>>884
すんまソ
SplitSizeできっかり割り切れるとき変になります
べたな修正ですが
procedure SplitFile(const FileName:string; const SplitSize:Integer);
var
i,WrittenSize:Integer;
Source,Split:TMemoryStream;
Flag_End : Boolean;
begin
Source := TMemoryStream.Create;
Split := TMemoryStream.Create;
try
i:=0;
Flag_End := False;
Source.LoadFromFile( FileName );
repeat
Split.Clear;
if (Source.Size - Source.Position) > SplitSize then begin
WrittenSize := Split.CopyFrom( Source , SplitSize );
end else begin
WrittenSize := Split.CopyFrom( Source , Source.Size - Source.Position );
Flag_End := True;
end;
Split.SaveToFile( FileName + Format('.%.3d',[i]) );
inc(i);
until Flag_End = True;
finally
Source.Free;
Split.Free;
end;
end;
0887Delギコ01/09/01 15:42ID:pHMQXkv2
　　　　∧ ∧　　／
　　　　（,,ﾟДﾟ）＜　　難しい話おおいな
　　　　 |つ つ　 ＼
　　　＠　　 | 　
　　　　∪ ∪ 　ﾂｲﾃ ｹﾅｲ ｶﾞ ﾘﾖｳｻｾﾃ ﾓｰﾗｵｯ
0888デフォルトの名無しさん01/09/01 19:32ID:74THsOQE
>>887
ZLIBやファイル分割の事？
そんなに難しい話だとは思わないけど、そんな俺にとって
CGIスレやLispスレなんかで話されている事は全く意味不明だ。

やっぱり育った畑でかなりスキルが違うよね…
0889デフォルトの名無しさん01/09/01 19:35ID:.iLG.i7Q
>>888
スキルの違いではなく，単に興味の対象が異なるだけだろうよ。
某 Delphi-ML だって ZLIB は興味の対象外だしな。
0890Delギコ01/09/01 19:52ID:TgdqYMp.
>>879のコードが肝ですのね。

　　　 　 　 　 　 　 　　∧ ∧ 　 ／￣￣￣￣￣
　 　 　 　 　 　 　 　　(ﾟДﾟ ,,)＜　　なるほど！
　　 　 　 　 　 　 ＿φ＿⊂)__ ＼＿＿＿＿＿
　　 　 　 　 　 ／旦／三／ ／|
　　　　　　　　|￣￣￣￣￣|　 |
　　　　　　　　|千葉ﾋﾟｰﾅｯﾂ|／
　　　　　　　　 ￣￣￣￣￣

ファイル分割とかは要らないのでパスしておこう。
Zlibを使ってみなければ。

早くD6届かないかﾆｬー
0891Delフサギコ01/09/01 20:01ID:TgdqYMp.
>>872で逝ってるような
一般のZIP解凍ツール用のヘッダも付けてくれる関数が
欲しいのお。

　　　　　 　 ∫
　　　∧,,∧ ∬　　　　 　 ／￣￣￣￣￣￣￣￣￣
　　 ミ,,ﾟДﾟノ,っ━~　　＜　暑い夏の優雅な一時……ﾌﾟﾊｧ
＿と~,,,　　~,,,ﾉ＿.　∀　　＼＿＿＿＿＿＿＿＿＿
　　　 .ﾐ,,,/~),　　.|　┷┳━
￣￣￣ .し'J￣￣|...　┃
￣￣￣￣￣￣￣ 　 .┻
0892デフォルトの名無しさん01/09/01 20:31ID:74THsOQE
http://www.ziyu.net/%7Erent/bbs/bbs.cgi?room=delphi6
に英語版のＺＩＰフォーマットドキュメントはってみた。
0893デフォルトの名無しさん01/09/01 20:36ID:pc/GW0EI
URL 春だけで良いのでは？

それは別にして，PKZIP のファイルフォーマット紹介してどうすんの？
gzip の話をしているのに。
0894デフォルトの名無しさん01/09/01 20:51ID:6Z/rX4Ao
ファイル分割関数欲しかったので感謝感謝。
お礼に俺の作ったヒドイXOR暗号関数でもどうぞ。
遅いと思うので適度に高速化してくれい
たぶんバグは・・・・あるかも

procedure XorStream(InStream,OutStream:TStream;XORPass:String);
var i,l:Integer;
chr :PChar;
bt :byte;
begin

chr:=PChar(XorPass);
l:=Length(Xorpass)-1;

for i:=0 to InSTream.Size-1 do begin
InStream.Read(bt,SizeOf(bt));

bt:=bt xor Ord(chr[i mod l]);

OutStream.Write(bt,SizeOf(bt));
end;

end;
0895デフォルトの名無しさん01/09/01 21:16ID:qjIN5xds
>>893
してるのはpkzipの話だろ？

っつーか、Delphi付属のは使ったこと無いけど
Cのzlibならgzipはそのまま読み書き出来るし…。
0896デフォルトの名無しさん01/09/01 21:23ID:74THsOQE
pkzip と zip って何が違うの？
0897デフォルトの名無しさん01/09/01 21:31ID:pc/GW0EI
pkzip と zip は同じだけど gzip は別。
ちょっとは調べろ。
0898デフォルトの名無しさん01/09/01 21:33ID:NMqSeTJw
>>895
ここで話されているのは zlib のエンジンを使った gzip の話でしょ？

Windows 版の WinZip が gzip を展開できるから間違って憶えていない？
089989501/09/01 21:41ID:qjIN5xds
>>898
かなり前の方でギコナビの人( >>647 )がふったのはgzipの話だけど、
今の >>870 からの流れはどー読んでも zip の方だろ？

pkzip2.x も gzip も zlib も、圧縮は同じdeflationアルゴリズムだってことは知ってるよな？
0900デフォルトの名無しさん01/09/01 21:42ID:74THsOQE
ああ、すまん。これね↓
ぜんぜん知らなかったよ
http://wdic.asuka.net/?title=gzip

UNIX 系の OS で, 半ば標準とも呼べる圧縮ソフトウェアの名称. gzip の
圧縮アルゴリズムは PKZIP 等と同じ "Deflate/Inflate compression" ア
ルゴリズム(LZ77 + シャノン・ファノ法)である.
・もともとの標準圧縮である compress は圧縮アルゴリズム(LZW)に特許が
あり, 自由に改良して使うようなことができなかった. そこで, GNU は独
自に圧縮ソフトウェアを開発した. それが GNUZip, つまり gzip である.
しかも gzip は compress より格段に圧縮率が高かったために, 普及度が
高いソフトウェアとなった.
・gzip はアーカイブ機能のない単一ファイルのみの圧縮なので tar で複数
ファイルを1本にアーカイブしてから圧縮を行ない, 拡張子を .tar.gz な
どとするのが普通.
・なお, 名は似ているが, パソコンの PKZIP とはファイル形式が異なる別
物である. gzip のファイル形式は RFC 1952 により規定されている.
0901デフォルトの名無しさん01/09/01 21:46ID:NMqSeTJw
で，「pkzip と zip は同じだけど gzip は別」ということでよろしいかな？

>>899
deflation「アルゴリズム」なぞは存在しない。
LZ およびその変形を使っているといいたいのであれば LHarc も「同じ」アルゴリズムだ。
ちなみに bzip2 は全く別だよ。

ここで話題にしているのはストリーム圧縮とは切り離したアーカイブファイルフォーマットの
相違の話。
090289901/09/01 21:58ID:qjIN5xds
>>901
えーと、だからなぁ、バイト列を「圧縮」する部分はpkzipもgzipも同じアルゴリズムなの。
「Lzss+Huffmanだから同じ」とかいうレベルではなく、完全に同じ。
Lha for unix と Unlha32.dll が同じ程度に同じ。

んだから、圧縮部分はzlibで行って、あと適当にヘッダをフッタをくっつければ
Lhasaで解凍できるようなzip書庫が完成するわけ。
そーゆー関数があれば便利だねー、って話じゃないの？
0903デフォルトの名無しさん01/09/01 23:23ID:X6XJCtLo
ごめん、混乱してきた。
zlib, pkzip, zip, gzip この４つの単語があたまのなかで回転してるんだが。

ZIP : Fhil Katz により開発された圧縮アルゴリズム.

PKZIP : MS-DOS で利用された圧縮ファイルの規格で、圧縮にはZIP方式を用いて、
複数のファイルをまとめられるよう対応させた規格ってことか？

GZIP : ZIP 圧縮方式を用いたUNIX版圧縮ファイルの規格？

ZLIB : 圧縮ライブラリで、現在は ZIP 方式が採用されているが、
将来変更される可能性があるって奴か。
090489901/09/02 00:05ID:sAGvjp0g
俺はこういう意味で使ってるつもり。
違ってたら突っ込んでくれ。＞893さん、901さん
# つーかそんなことより、話がだんだんDelphiからかけ離れてきた気が
# するんだが、うざかったら言ってくれ。＞ALL

-------------
・deflate: P.K.氏によって開発された「圧縮アルゴリズム」。

・zlib: deflate方式専用「圧縮ライブラリ」。

・pkzip: P.K.氏開発の「アーカイバ」。
　　　　または、そのアーカイバで作れる「書庫」の形式。
　　　　最新版は、deflate圧縮法で圧縮を行っている。(zlibは使ってないと思う)

・infozip: pkzip(有料)と完全互換なフリーの「アーカイバ」を作ろうと頑張ってるプロジェクト。
　　　　彼らの作ったアーカイバは、当然deflate方式で圧縮を行っている。
　　　　（zlib使う版をコンパイルすることも使わない版をコンパイルすることも可能）

・zip: 基本的にpkzipと同じ意味。「アーカイバ」または「書庫形式」。

・gzip: zlibを用いた「圧縮ソフト」。
　　　または、そのアーカイバで作れる「圧縮ファイル」の形式。
　　　複数のファイルをまとめる機能はない。
　　　圧縮法はzipと同じだけど、出力するファイルのフォーマットは違う。
--------------
0905デフォルトの名無しさん01/09/02 00:58ID:6P0Gxh8k
緊急なのれす！
デルファイ６にアップグレードしたら
マッチズマスク関数使えなくなったのです！ワイルドカードのみでも良いので、簡易正規表現対応の
マッチ関数を誰か教えてください！

＃ところで、バージョンアップって和製英語なの？
0906デフォルトの名無しさん01/09/02 01:10ID:yhjI958.
http://www.geocities.co.jp/SiliconValley-Oakland/1680/zsaru/zsaru15.html
0907っlll@p8ppuoppp01/09/02 01:25ID:AApa0kh.


★★★援助交際学園★★★


本気でセックスフレンドを探してる女の子


お金に困っている女子中高校生


男性登録者も募集

http://000.zive.net/e.html
(援助交際学園)

l
0908名無しさん01/09/02 01:27ID:TwlrpNBk
>>868
／￣￣￣￣￣￣￣￣￣￣￣￣￣
|　867ﾜﾗﾀけど、さすがに巨大過ぎ(ﾜﾗ
|　簡単だけど、説明つけたｰﾖ
|　言語、直ﾘﾝ先問わず自由に使ってちょんまげ
|　とりあえず3000行まではｵｯｹｰに設定
|　URLわからなくなったら http://www2.to/source で直行します
＼＿＿＿ 　＿＿＿＿＿＿＿＿＿
　　　　　　∨
♪　　 ∧ ∧　♪
　　　　(,,ﾟДﾟ).　　♪
　　 　 |つ[|lllll］).
　　 ～|　　|
　　　　Ｕ Ｕ
0909名無しさん01/09/02 02:06ID:TwlrpNBk
>>904
Delphi-MLじゃないからｲｲﾝｼﾞｬﾈｰﾉ?
少なくとも知識が増えたから漏れ的にはｵｯｹｰ
0910デフォルトの名無しさん01/09/02 02:23ID:CnaAYxN.
>>909
2ch で増やした知識なぞゴミ。
0911デフォルトの名無しさん01/09/02 03:04ID:Ydpovi0w
>>910
ゴミになるか宝になるかは自分次第。
0912デフォルトの名無しさん01/09/02 12:33ID:G96xcqig
今991がいいこといった。感動した！宍戸錠のほおの手術も報われた！
0913デフォルトの名無しさん01/09/02 15:28ID:/FBmIq02
>912
お前が警察呼んだら救急車が来そうだな
0914Delギコ01/09/02 17:07ID:oukomFDw
　　　　　 ∧∧　　　／￣￣￣￣￣￣￣￣￣￣￣
　＠' ― (,,ﾟДﾟ)つ ＜　>>908　こんなAAもアルデヨ
　 　し― ∪　 　　　＼＿＿＿＿＿＿＿＿＿＿＿


　　　　　　　　　　　　　　∧ 　　　　　　　　　　 ∧
　　　　　　　　　　　　 　/　・　　　　　　　　　　 /　';,
　　　　　　　　　　　　 /　　';　　　　　　　　　　/　　';
　　　　　　 　　　　　 /　　　；＿＿＿＿＿＿/　　　；
　　　　　　　　　　／　　　　　　　　　　　　　　　　　　＼
　　　　　　　　 ／　　　 ／　　　　　　　　　　＼　　　　　 ＼
　　　　　　　 /´　　　　　　　|＿＿＿＿|　　　　　　　　　　　|
　　　　　　　 | 　///// 　　 |　　　　　| 　　　/////　　　 　|
　　　　　　　|　　　　　　　　 | 　　　　|　　　　　　　　　　　　　|
　　　　　　　 |　　　　　　　　 |　　　　|　　　　　　　　　　　　　|
　　　　　　　　|　　　　　　　　'; 　　 /　　　　　　　　　　　　　／
　　　　　　　　 ＼　　　　　　　 ＼／　　　　　　　　　　..　／
　　　　　　　 　　　ヽ　　　　　　　　　　　　　　　........:::::::＜

　　　　　＿　　　　
　　　　｜　∧ ∧
　　　　｜　(；ﾟДﾟ)
　　　　｜　⊂　｜　
　　　　｜　⊂__ノ＠
　　　　｜　｜
　　　　　　∧
／￣￣￣　 ￣￣￣￣￣￣￣￣￣
　ZIPの話全然わからん。
　ライセンスがらみの話はややこしいの。
　ま・いっかー。
0915Delギコ01/09/02 17:13ID:oukomFDw
聞いてアロエリーナ　ちょっと言いにくいんだけど
聞いてアロエリーナ

　気が付けば900超えてるの。
　なかなか人気のスレでうれしーの。

聞いてくれてあーりがと　アロエリーナ♪
＼　　　　　　　　　　　　　　　　　　　／
　 ￣￣￣|/￣￣￣￣￣￣￣￣￣
　　 　
　　｜　∧ ∧
　　｜　(*ﾟДﾟ)
　　｜　⊂　｜
　　｜　⊂__ノ＠
　　｜　｜　　　　　　Ψ
　￣￣￣￣　　　　　□　
　　　　　　　　￣￣￣￣￣￣
0916Delギコ01/09/02 17:14ID:oukomFDw
　ほとんどアンタのAAだけどな。
＼＿　＿＿＿＿＿＿＿＿＿＿＿＿＿＿／
　　　|/
　　　　　　　　　　　｜　∧ ∧
　　　　　　　　　　　｜　(ﾟДﾟ；)　ﾊﾞﾚﾃﾀ?
　　　　　　　　　　　｜　⊂　｜
　　　　　　　　　　　｜　⊂__ノ＠
　　　Ψ　　　　　　 ｜　｜
　　　□　　　　￣￣￣￣￣￣
￣￣￣￣￣￣
　ｼｶﾓ ｺﾋﾟﾍﾟ ﾊﾞｯｶ
0917デフォルトの名無しさん01/09/02 18:00ID:SHIZw3Bc
そろそろデルの話しましょうよ…
さっそくだけど、TListViewのカラムヘッダって
オーナードロー対応してないんですかね？
ソート時に小さい三角形を描画したいんだけども。
0918デフォルトの名無しさん01/09/02 18:45ID:1B.EZ816
zlib(RFC1950)とgzip(RFC1952)は、どちらも圧縮メソッドとして
deflate(RFC1951)を使っているが、ヘッダ等のフォーマットが違う。
Delphiのzlibライブラリはzlibフォーマットはサポートするが、
gzipフォーマットはサポートしない。
0919名無しさん01/09/02 20:19ID:TwlrpNBk
>>917
| ﾌｧｲﾙ名　　　　　　| 拡張子　▼ | 日付

ﾜﾗ
0920デフォルトの名無しさん01/09/02 23:53ID:QCAC7Pys
>>919 ﾜﾛﾀ。でもオーナードローより楽だな（ｗ

それはともかくそろそろ次スレきぼん。
誘導もﾖﾛｼｺ。
092191701/09/03 00:29ID:9VeIz7PY
>>919
いや、いままさにその方法で実現しているんですけど
見栄えよくするために描画したかった…
092280301/09/03 00:34ID:9VeIz7PY
ｶﾅｰﾘ昔の話になるんだけども、803で言ってるのはつまりこういうこと。

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

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

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

そういうことなのれす。
だから、ダイアログ無いのテキストエディタに入力した時点で
拡張子を補完し、上書き確認メッセージを出したかった。
0923デフォルトの名無しさん01/09/03 08:13ID:0ZWEOnC6
次スレいるか? Delphi以外も受け付けてるとはいえ
ほとんどDelphiの質問ばかりに見えるんだが。
Delphiスレならもう2つもあるぞ
0924デフォルトの名無しさん01/09/03 09:39ID:oDYd29Ko
混乱の元になるから、Delネコには家たててあげない。
Delphi相談室スレに居候させてもらいなさい。
0925デフォルトの名無しさん01/09/03 10:25ID:cEMWUvVk
Delギコは我が道を行ってくれ。
次スレきぼーん。
0926デフォルトの名無しさん01/09/03 10:43ID:MMfG58Tc
ちょっと最近Delphiスレ乱立だな。
中級っぽいのはDelギコに統一整理きぼーん。
0927Delギコ01/09/03 10:54ID:wHGoXFco
　　 　 　∧ ∧
　　 　　（,, ﾟДﾟ)　　 　 　 　 ＿＿＿＿＿＿＿＿＿＿
　　 　　ﾉ ∪ ⊃　 　 　　／
　　 　て_つつ ＼ 　 　　|　おうち建設ちゅう
　　 ／　 　 　 ／＼　 　|　 ゴルァと気合入れてがんばるぞ！
　／　 ﾒ 　 .／　 　 ゞｨ　＼＿　 ＿＿＿＿＿＿＿＿＿＿
　＼　ﾒ　／　 　 　 　 ＼　 　｀ヽ!
　 | .＼イ----‐‐‐～ ~~|　　 　　∧_∧ﾍ
　 |. 　　|　 　 　 　 　 　.|　 　 　（ﾟДﾟ//
　 !、　 .| 　 　 .┌┬┬┼､__　　(つ/と）
　 ＼.ｷ| 　 　 .├┼┼┼┼|　 　| // ～
　 　　ヽ! :--‐‐└‐'''''''ﾞﾞﾞﾞﾞﾞﾞﾞﾞﾞ 　 し`∪
0928Delギコ01/09/03 11:13ID:wHGoXFco
　 /l 　 ∧＿l＿　新スレつくったぞい。
　[二＝(,,ﾟДﾟ)＝＝
　ヽl　　|つ　ﾉ
　 　 　 |　　ヽ
　　　　 U⌒U

（ ﾟДﾟ)ノ　Delギコ猫のﾌﾟﾛｸﾞﾗﾐﾝｸﾞ相談室part2
http://piza2.2ch.net/test/read.cgi?bbs=tech&key=999482946
0929雲黒斉01/09/03 22:51ID:Bqdp8nhU
こんばんは、Ｄｅｌｐｈｉ初心者の雲黒斉です。
Ｄｅｌギコさん教えてください。

質問その１
Ｄｅｌｐｈｉを立ち上げたときに、現在作成中のプログラムを自動的にｌｏａｄする方法は？

質問その２
ＣｌｏｓｅＦｉｌｅすると自動的に紙送りされてしまいますが、されない方法は？

質問その３
Ｆｏｒｍをそのままプリンタ-に出力する方法は？
0930デフォルトの名無しさん01/09/03 22:57ID:fdEwavAE
>>929
なぜ新スレがあるのにここに書き込んだのか教えてください。
しかもなぜageたのかも教えてください。お願いします
0931雲黒斉01/09/03 23:40ID:Bqdp8nhU
深い意味はありません。最初に目に入ったからです。
0932Delギッコーイカ01/09/03 23:50ID:7WmdGYpw
　 　 ／＼　　　　　　　＿＿＿＿＿＿＿＿
　 ／ギッコー　　　／
／＿＿＿＿＼　＜　　>>929名前からして逝ってよしか？
　 ｜　ﾟДﾟ｜　　　　＼
　ノ| || || || |し　　　　　￣￣￣￣￣

マジメに質問したいなら
板の雰囲気くらい読んで理解してから
質問したらどうだ？

その２は意味不明だし。
　　されない方法は紙をプリンタに差し込まないことだ。
0933＿01/09/04 00:10ID:lU/sQbkw
失礼いたしました、雲黒斉改め＿です。
質問その２については
頻繁に画面出力、プリンタ-出力を繰り返すプログラム（コンソ-ル）を作っているのですが、
連続紙を使っているので一々紙送りされるともったいないのです。
0934デフォルトの名無しさん01/09/04 00:12ID:STUdf/vA
だからageんなっつーの!!
0935名無しさん01/09/04 00:29ID:m9mxC.IA
>>933
２スレに逝かない限り、絶対に誰も答えてくれないと思うぞ
0936デフォルトの名無しさん01/09/04 08:12ID:QjlESLvE
>>932
意味もなく最初に目に入ったからという理由で、
ageてまで新スレにかきこまずに質問するのは、
他に意図があるからとしか思えません。
そんなあなたには誰も答えないと思います。
0937Delギッコーイカ01/09/04 10:05ID:rI/kNmo6
>>929
　 　 ／＼　　　　　　　＿＿＿＿＿＿＿＿
　 ／ギッコー　　　／
／＿＿＿＿＼　＜　　>>つづきやるなら次のスレでな
　 ｜　ﾟДﾟ｜　　　　＼ でないともう答えんよ
　ノ| || || || |し　　　　　￣￣

その３だけはとりあえずわかる。(というか調べた)
http://www.sakaki.keiaikai.or.jp/cgi-bin/convroom/webconv.exe/read2?No=12223&Response_Root=12219

その２はサンプルコードをageないと誰にもわからん
常識的にCloseFileして紙送りなどされんと思うが
コンソールでプリンタ出力などしたことないので知らん
プリンタ依存しそうだな。

その１はDelphiIDEのことを言ってるのか？
環境オプショの設定タブ、自動保存の設定＆保存の対象を
設定してみレ。

ああ、折れってなんて新設なんだろう。うっとり。ほれぼれ。
レス数が900を超えています。1000を超えると表示できなくなるよ。