1001コメント305KB

モナーのやさしい Delphi質問スレ Ver.10

レス数が1000を超えています。これ以上書き込みはできません。

0001Delモナー

NGNG

　 ∧＿∧　　／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
　（　´∀｀）＜. Delモナーがどんな厨房疑問でもやさしく答えます。
　（　　　　）　.| Delモナーは時に私であり、時には別の人。
　｜｜｜　 | 他のスレに書き込んで罵倒される前に、まずここで質問しよう。
　（＿_）＿）　＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿

前スレモナーの *やさしい* Delphi質問スレ Ver.9
http://pc3.2ch.net/test/read.cgi/tech/1033668645/

0002Delモナー

NGNG

■過去スレ

モナーの *やさしい* Delphi質問スレ Ver.8
http://pc3.2ch.net/test/read.cgi/tech/1027873869/

モナーの *やさしい* Delphi質問スレ Ver.7
http://pc.2ch.net/tech/kako/1021/10212/1021262086.html

モナーの *やさしい* Delphi質問スレ Ver.6
http://pc.2ch.net/tech/kako/1019/10191/1019134412.html

モナーの *やさしい* Delphi質問スレ Ver.5
http://pc.2ch.net/tech/kako/1017/10178/1017803412.html

モナーの *やさしい* Delphi質問スレ Ver4
http://pc.2ch.net/tech/kako/1016/10164/1016467137.html

モナーの *やさしい* Delphi質問スレ Ver3
http://pc.2ch.net/tech/kako/1014/10144/1014474727.html

モナーの *やさしい* Delphi質問スレ Ver2
http://pc.2ch.net/tech/kako/1011/10116/1011649179.html

モナーの *やさしい* Delphi質問スレ
http://pc.2ch.net/tech/kako/1003/10031/1003113413.html

0003デフォルトの名無しさん

NGNG

モナーの *やさしい* Delphi質問スレ Ver.8
http://pc3.2ch.net/test/read.cgi/tech/1027873869/

モナーの *やさしい* Delphi質問スレ Ver.7
http://pc.2ch.net/tech/kako/1021/10212/1021262086.html

モナーの *やさしい* Delphi質問スレ Ver.6
http://pc.2ch.net/tech/kako/1019/10191/1019134412.html

モナーの *やさしい* Delphi質問スレ Ver.5
http://pc.2ch.net/tech/kako/1017/10178/1017803412.html

モナーの *やさしい* Delphi質問スレ Ver4
http://pc.2ch.net/tech/kako/1016/10164/1016467137.html

モナーの *やさしい* Delphi質問スレ Ver3
http://pc.2ch.net/tech/kako/1014/10144/1014474727.html

モナーの *やさしい* Delphi質問スレ Ver2
http://pc.2ch.net/tech/kako/1011/10116/1011649179.html

モナーの *やさしい* Delphi質問スレ
http://pc.2ch.net/tech/kako/1003/10031/1003113413.html

0004デフォルトの名無しさん

NGNG

　 ∧＿∧　　／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
　<　｀∀´｀>＜。
　（　　　　）　　　　　　　　Dolpheiはウリ発祥ニダー
　｜｜｜　 |
　（＿_）＿）　＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿

0005デフォルトの名無しさん

NGNG

2 と 3、二重カキコですか？

0006デフォルトの名無しさん

NGNG

＞1
（　´∀｀）乙!

0007デフォルトの名無しさん

NGNG

このスレは冗談で作られた偽スレです。

すでに削除依頼済ですので、今後は書き込まないようにお願いします。

本物のスレは↓こちら。

http://pc3.2ch.net/test/read.cgi/tech/1037146781/l50
Delphi相談室その８

0008デフォルトの名無しさん

NGNG

0009デフォルトの名無しさん

NGNG

モナーの *やさしい* Delphi質問スレが一番
（　´∀｀）ﾏﾀｰﾘしてて好き!

0010デフォルトの名無しさん

NGNG

（　´∀｀）age!

0011協力

NGNG

0012デフォルトの名無しさん

NGNG

0013デフォルトの名無しさん

NGNG

仲間内でも荒れるんだ... 悲しい奴らだなぁ

00141へ捧ぐ

NGNG

http://onigiri.s3.xrea.com:8080/delphi/index.php?%5B%5B%A5%E2%A5%CA%A1%BC%A4%CE%2A%A4%E4%A4%B5%A4%B7%A4%A4%2ADelphi%BC%C1%CC%E4%A5%B9%A5%EC%5D%5D

0015デフォルトの名無しさん

NGNG

よっぽど嫌な事があったんだろうな。

0016148です

NGNG

まあねぇ.

0017デフォルトの名無しさん

NGNG

>「148です」
荒らすなら、徹底的にやれよ。DelWiki 消しまくるとかさ。

0018デフォルトの名無しさん

NGNG

ごめんなさい
>>17 4ばんめのDolpheiはラテン語でしょうか

0019デフォルトの名無しさん

NGNG

質問なんですが、Delphiって何て読めば委員でしょうか？

0020デフォルトの名無しさん

NGNG

http://www.borland.co.jp/news/delphi7j.html
「Borland(R) DelphiTM 7 Studio（ボーランド・デルファイ・7・スタジオ）」

002119

NGNG

>>20
ありがとうございます。すっきりしました。

0022デフォルトの名無しさん

NGNG

ネイティブはきっとダルフィって発音するんだよ。

0023デフォルトの名無しさん

NGNG

0024デフォルトの名無しさん

NGNG

tech：プログラム技術［スレッド削除］
に依頼でていませんが、何か間違えているんじゃないですか？

0025デフォルトの名無しさん

NGNG

ビット演算で四則演算をするときはどうすれば良いのでしょうか？
シフトで2のn乗の割り算掛け算は分かるのですがソレしかやり方がわかりません。
足し算、引き算、2以外による掛け算割り算の法方を教えていただけないですか。

0026デフォルトの名無しさん

NGNG

0027デフォルトの名無しさん

NGNG

「ビット演算で足し算、引き算」
ってところで何か間違えているような...

0028デフォルトの名無しさん

NGNG

削除依頼は出されていませんし、削除人も内容をチェックされているので
くだらん嵐は無視していきましょう。

0029デフォルトの名無しさん

NGNG

>>27
半加算器とか全加算器とかしらない？

003026

NGNG

はい、何か間違えているっぽいです。
足し算、引き算はできないんですね。
じゃあ2以外による掛け算割り算も不可能ということでよろしいですか？

0031デフォルトの名無しさん

NGNG

ものすごくよく知っているけど（TTL で組んでいた世代だし）
ここは Delphi スレだよ。

0032デフォルトの名無しさん

NGNG

>>31
＞ここは Delphi スレだよ。
でも↑が「できない」理由にはならないと思われ。

0033デフォルトの名無しさん

NGNG

var Ashitanotenki: TKisyoutyou;

Ahitanotenki := Rando(TKisyoutyou);

このようなプログラムを作りましたが、周りの人から
百叩きにあいます。なぜなんでしょう。

0034デフォルトの名無しさん

NGNG

Delphi で、ってこと？
それとも
一般的なアルゴリズムを知りたいの？

も少し自分の手持ちの知識をだしてくれな。

なんか、これも嵐っぽいな。

0035デフォルトの名無しさん

NGNG

>>25 Delphiとなんの関係が？
ttp://www.asp.sie.dendai.ac.jp/ed/ea-k-1.html

0036デフォルトの名無しさん

NGNG

>>32
できるできないのはなしと、
「彼」が何を知りたいのかは別の話でしょ？

いちおー話の内容はスレタイトルにあわせませんか？

0037デフォルトの名無しさん

NGNG

>>35
やっぱり関係ないじゃない。

0038デフォルトの名無しさん

NGNG

>>33
ネタならせめてスペルぐらい確認しようね。

0039デフォルトの名無しさん

NGNG

>>33
周りの人に理由を尋ねたらどうでしょうか
私は「周りの人」ではないので百叩きの理由はわかりません。

004026

NGNG

DELPHIを使っているのでココに書き込んでしまいましたが。
確かに質問の内容とDELPHIに関係は無いですな。
スマソ。

0041デフォルトの名無しさん

NGNG

>>40
君が何を知りたいのか非常に興味がある。

0042デフォルトの名無しさん

NGNG

ハードウェアで構築する話だと、どこだろう。
すくなくとも「プログラマ」板ではないな。

アセンブラで何かをしたい。という話なら
http://pc3.2ch.net/test/read.cgi/tech/1016991911/l50
が引き取ってくれるかな？

アセンブラの話をしたいなら、「ビットで和をとるにはどうすれば」なんて質問は
しないように、予習をしてから聞くと良い。

004326

NGNG

>>34
DELPHIでってことです。
ビット演算の方が処理が速いいと聞いたもので気になったのですが、
実際速度面でメリットはありますか？

0044デフォルトの名無しさん

NGNG

>>43
コンパイラに任せておくのが吉。

0045デフォルトの名無しさん

NGNG

そうやって最初から説明してくれれば遠回りしないですむのに..

「ビット演算の方が処理が速い」処理もある。ってだけ。Delphi に限らず。

足し算引き算は、正数の場合それ自体がビット演算だから基本的にそれ以外の演算方法は無い。

掛け算は、２の累乗の場合にはビットシフトで表現できるからそちらを使うと早く処理できるケースがある。
割り算を掛け算の逆演算と見ると、２の負数の累乗を考えることで特定の数の場合、ビットシフトで計算できる。
掛割算とも、特定の数値の時のみ有効であることを忘れないように。

以上、Delphi とは直接関係ないことなので、もっとよく知りたければ CPU の説明書を
熟読してください。ある程度の自習はよろしく。

0046デフォルトの名無しさん

NGNG

>>26
何も言わずに、アセンブラのスレッドで聞いてみなさい。
その方が多くの知識がつく。

004733

NGNG

>38,39
ごめんなさい。
「気象衛星ひまあり」のすれっどは
どこでしょうか。

004826じゃなくて25だったでござる

NGNG

>>45
そういうことでしたか。自分の知りたかったことは大体分かりました。
ありがとう。

0049デフォルトの名無しさん

NGNG

つまんねーんだよ
http://pc3.2ch.net/test/read.cgi/tech/1007743159/165-167

0050デフォルトの名無しさん

NGNG

>>47
ここではないですね。

0051デフォルトの名無しさん

NGNG

さて。粘着ちゃんも一段落したかな？
せいぜいがんばってね。

0052デフォルトの名無しさん

NGNG

>>49
よくそんなの探してきたなｗ

0053デフォルトの名無しさん

NGNG

>26じゃなくて25だったでござる
よーするにｼﾞｻｸｼﾞｴﾝってことね。

0054デフォルトの名無しさん

NGNG

var daigishi: TJimintou;

daigishi:= Random(TJimintou);

このようなプログラムを作りましたが、周りの人から
よろこばれます。なぜなんでしょう。

0055デフォルトの名無しさん

NGNG

つまんないよ > 54=26

005625

NGNG

>>53
いや普通に間違えただけなんだが・・・まぁいいや。

0057デフォルトの名無しさん

NGNG

わざわざ名前欄を 25 にしてあげるか？

　　　　　　　　　　ごくろうさん

0058デフォルトの名無しさん

NGNG

var ataribaken: TJra;

if ataribaken in TJra then
printf(おめでとう)
else
printf(たこ);

このようなプログラムを作りましたが、ちっとも
私はおもしろくありません。なぜなんでしょう。

0059デフォルトの名無しさん

NGNG

あなたが馬鹿だから。

0060デフォルトの名無しさん

NGNG

やはり
鹿肉＆馬肉はおいしいですよね。

0061デフォルトの名無しさん

NGNG

がんばって続けてね。> 58 そのたさん。

0062デフォルトの名無しさん

NGNG

バイナリエディタのソースｷﾎﾞﾝ

0063デフォルトの名無しさん

NGNG

APATCHに詳しいプログラマーの皆さん
http://corn.2ch.net/test/read.cgi/mass/1038676761/l50
にきて助けてはいただけませんか?
２ちゃんねらーと反２ちゃんねらーの決戦の時が来たのです。
皆様にぜひ知識を貸していただきたいのです

0064デフォルトの名無しさん

NGNG

>>63
＞APATCHに詳しいプログラマーの皆さん
絶対にいないとだけ断言できる。

0065デフォルトの名無しさん

NGNG

repeat
私 := 宝くじを買う。
until 私 = 当たる;

このプログラムがいつまでも終わらないのです。
助けてください。

006663

NGNG

Apacheでした！
ごめんなさい
手伝ってください！！

0067デフォルトの名無しさん

NGNG

>>66
まぁ、どっちにしろ死ね。

0068デフォルトの名無しさん

NGNG

>>63がご迷惑をおかけいたしました。
おわびいたします。

0069デフォルトの名無しさん

NGNG

for i := 1 to n do
私 := 先物取引;

私はn:=0とおもっているのにに世間はnの値は不定といっている
ざーます。これおかしくありません。

0070デフォルトの名無しさん

NGNG

あんたの頭の方がよっぽどおかしい

0071デフォルトの名無しさん

NGNG

　ネ　タ　は　そ　こ　ま　で

次の質問どうぞ。
↓

0072デフォルトの名無しさん

NGNG

ネタってなんですか？

0073デフォルトの名無しさん

NGNG

canvas.widthに40000を入れるとエラーになるのですが、
35000だと大丈夫ってことは、その間に限界があるってことですか？
　　もしそうだとしたら、その値より大きな値をいれること
　はどうしてもできないのですか？

0074デフォルトの名無しさん

NGNG

これがネタですか？　CanvasにWidthなんてないよ。

0075デフォルトの名無しさん

NGNG

プログラム歴　今から始めようと思う
Delphiを始めようと思うんですけど、やっぱり書店などで
Delphiの本を買った方が覚えるの早いですかね？

0076デフォルトの名無しさん

NGNG

「Delphiを始めよう」ってところで先行きに不安を感じるが...

好きにできるコンピュータを持っているのなら、まず D6 Personal をインストールしちゃえば？
.NET でも何でもいいけど。

0077デフォルトの名無しさん

NGNG

もうインストール終わってちょっと触ってるところです。
別に本格的にアプリを作るんじゃなくて、趣味の範囲で出来るように
なればいいな、と思ったのでDelphiを選んだわけですが、、、ダメ？

0078デフォルトの名無しさん

NGNG

いいんじゃないの？ >> 77
何が駄目かどうかは自分で決めることだし。

0079デフォルトの名無しさん

NGNG

良い本ねぇ...
お金があるなら、D6 Personal では無く Borland の製品を買って付属のマニュアルを
読む。ってのが最初かな。
あまり無いなら、図書館か古本屋で、バージョンは気にしなくてもよいから適当に解説書を
買って読む。

読み終わるころには、次に何を聞きたいか分かってくると思う。

0080デフォルトの名無しさん

NGNG

で、やっぱり参考書は買うべき？

0081デフォルトの名無しさん

NGNG

無くても出来る。情報は、恐らくほとんどWEBでも入手できる。
俺も自分に必要なツールを作るだけの趣味プログラマだが、本は一冊も持ってない。

が、DelphiはMSのVisualStudioに比べればドキュメントが弱い。

0082デフォルトの名無しさん

NGNG

手元にあったほうが、落ち着くんじゃない？
参考書はあくまでも参考にしかならないわけだし。

79 の提案でよいと思う。

0083デフォルトの名無しさん

NGNG

>>82
そうですか、では古本屋行って解説書探してきます。
もし、無かったときの場合に聞きたいんですけど
解説書の相場は3000円ぐらいかな？

0084デフォルトの名無しさん

NGNG

近頃は解説書買わないから分からないよ... >> 83
amazon とか bk1 で検索して見れ。

0085デフォルトの名無しさん

NGNG

>>「Delphiを始めよう」ってところで先行きに不安を感じるが...
もしかしてもうデルファイの寿命が近づいてきているということでしょうか？
ちと不安

0086デフォルトの名無しさん

NGNG

いや、「Windows 始めます」とか「Word 始めました」ってのと似た、ちょっと変な、
しかし初心者にありがちの表記が気になったもんで...

あなたが習得する間は大丈夫でしょうよ。

0087デフォルトの名無しさん

NGNG

>>85
どんな言語でも習得するのは無駄にはならないと思われ。
最初の１つはひぃひぃ言うだろうけど、
次のはずいぶんラクになるはずだ。
Delphiが廃れることはあるだろうけれど、手元にあるパッケージが
いきなり消滅するわけじゃないからね。

まぁ、勉強すること自体が苦痛だっていうんなら論外なわけだが。

0088デフォルトの名無しさん

NGNG

＞まぁ、勉強すること自体が苦痛だっていうんなら論外なわけだが。
スレ違いｗ

0089デフォルトの名無しさん

NGNG

禿同！

>　どんな言語でも

うんそうだね。Delphi は現状のウィンドウズ開発環境中でも特にすすめたい

0090デフォルトの名無しさん

NGNG

>>87
もうそっとしておいてあげなさいな。
誰だって、いやな勉強、嫌いな科目はあっただろ？

0091デフォルトの名無しさん

NGNG

Delphiで、外部アプリケーションを起動する方法を教えてください。
Acrobatを起動し、PDFを見れるようにプログラムに組み込みたいのですが。
お願いします。

0092makoto♂

NGNG

ホームページビルダー体験版を永久的に使う方法
ないですか？
あったらおしえてくださいましぇ
レジストリいじるんですか？
もしもレジストリのいじり方知ってる人もいればうれしいです。
レジストリって適当にいじっちゃうと
「ただの箱」
なっちゃうし

0093makoto♂

NGNG

ホームページビルダー体験版を永久的に使う方法
ないですか？
あったらおしえてくださいましぇ
レジストリいじるんですか？
もしもレジストリのいじり方知ってる人もいればうれしいです。
レジストリって適当にいじっちゃうと
「ただの箱」
なっちゃうし（爆笑

0094makoto♂

NGNG

ホームページビルダー体験版を永久的に使う方法
ないですか？
あったらおしえてくださいましぇ
レジストリいじるんですか？
もしもレジストリのいじり方知ってる人もいればうれしいです。
レジストリって適当にいじっちゃうと
「ただの箱」
なっちゃうし（大爆笑

0095バグ作成マン

NGNG

>>91
*.PDFファイルがAcrobat Readerに関連付けられていると仮定して､
usesで ShellAPIを宣言して

ShellExecute(Handle, 'open', 'c:\honyarara.pdf',
nil, 'c:\', SW_SHOW);

第一引数：フォームのハンドル
第二引数：'open'でファイルを開く｡'print'なら印刷
第三引数：開くファイル名（PCharでくくる必要があるかも)
第四引数：実行ファイルのパラメータ(詳しくは忘れた)
第五引数：作業フォルダ名
第六引数：SW_SHOWでアプリケーションのウィンドウを標準の大きさで
実行｡最小化とか最大化してアプリを起動する引数もあるけど､忘れた｡
Delのエディタで候補が出て来るはずだから試してみて｡

第三､第五パラメータは実際のファイル/フォルダ名を指定する必要がある｡
Win32APIの仕様で､終端文字列にNullを付加する必要があるので､
本当ならば PChar('c:\honyarara.pdf') と書く必要があるかもしれない
(正確には忘れちまった)｡特に決め打ちじゃなく変数にするならば必要｡
第五パラメータはなくても動作するかもしれない｡

わしも試してないところがあるので､一部不正確だがいろいろ試行錯誤
してみぃ。

あなたには以下の書籍を勧める｡
秀和システム「Delphi3.1リファレンスガイド｣小出俊夫著
ISBN4-87966-785-4 C3055
ちとふるいが､現バージョンでも十分実用になります｡
いま販売しているかどうかはわからん。ごめん

009691

NGNG

>>95

ここまで丁寧に教えていただけてありがとうございます。
しかも、お勧め書籍まで・・・。

色々調べてがんばってみます。
ありがとうございました。

0097デフォルトの名無しさん

NGNG

>　本当ならば PChar('c:\honyarara.pdf') と書く必要があるかもしれない

大丈夫。文字列リテラルは PChar 互換です。

0098デフォルトの名無しさん

NGNG

>ホームページビルダー体験版を永久的に使う方法

期限きたら、OSごと再インストールしたらいいんでないの

0099デフォルトの名無しさん

NGNG

>>92
お前にはPCなんか要らん。
ただの箱で十分。

0100デフォルトの名無しさん

NGNG

Treeviewの質問です

Ａ
　∟親Ｂ
　　　∟子Ｂ
　∟親Ｃ
　　　∟子Ｃ

があって、クリックしたのNodeを知りたいのですが、
if Node.Lebel=1で親なのは分かります。
クリックしたのが、親Ｂか親Ｃが分かるにはどうしたらいいですか？

0101100

NGNG

>>100 追加
名前は変わるので、Node.textではダメです。

0102デフォルトの名無しさん

NGNG

>>100
Selected プロパティは，ツリービュー内の選択されているノードを返します。
property Selected: TTreeNode;
・・・TTreeViewのヘルプより

Parent プロパティはツリーノードの親ノードを識別します。
property Parent: TTreeNode;
・・・TTreeNodeのヘルプより

0103デフォルトの名無しさん

NGNG

TObject,TComponent等のＴっていったいなによ？
ENantokaは、Exception
IKantokaは、Interfaceだとは思うんですが。

0104デフォルトの名無しさん

NGNG

>>103
Table

0105デフォルトの名無しさん

NGNG

Typeだよ。

0106デフォルトの名無しさん

NGNG

>>103
たけしのT

0107デフォルトの名無しさん

NGNG

>>106
君は、いい人だね。

0108デフォルトの名無しさん

NGNG

非常にどうでもいいがTシャツを「てーしゃつ」と言うウチの祖父は許しがたい。

0109デフォルトの名無しさん

NGNG

>>108
そのうちお前も孫からLとRの発音について文句を言われるぞ。

0110デフォルトの名無しさん

NGNG

る　と　ぅるっ

0111えーと…

NGNG

なんすか、このスレ。マジレスきぼんぬ。

0112デフォルトの名無しさん

NGNG

>>111
TypeのTです。
ちなみにFNantokaのFはFieldです。

0113(´・ω・`)

NGNG

あの～ちょと質問させていただきますが・・・。

webサーバ上に置いたMP3ファイルをストリーミングで再生させる
だけのソフト（もしくはコンポーネント）を作りたいんですが、
ローカルファイルを再生させるように簡単にできないものですかね。

urlを指定して再生するだけでいいんですが、なるべく外部のコンポー
ネント等を使わない方法で。mediaplayerとかだけで出来ないものでし
しょうか？
どなかた教えてくらさい。

0114デフォルトの名無しさん

NGNG

「簡単に」ってのが「コードを書かずに」ってことなら、MediaPlayer を使ったらどう？

自分でつくりたいってなら、
http://www.sams.co.jp/kei/mp3plyr/manual/manual.htm
と Indy 組み合わせれば、作れるでしょう。

0115デフォルトの名無しさん

NGNG

「ストリーミング」が目的なのかな？

TMP3Player なら、TStream からの再生をサポートしているので実現可能かと。
ソースもあるし。

MediaPlayer を外部から操作する話は、MS の資料をあさるとでてくるんじゃないかな？

0116デフォルトの名無しさん

NGNG

パソコンにインストールされてるMediaPlayer のバージョンによって
ファイル名にurlを入れられたんじゃないのかな？

自分で試してみて結果教えて
http://www.google.co.jp/search?q=mciSendString&lr=lang_ja

0117デフォルトの名無しさん

NGNG

（´-`）。o ○ （113の質問、どっかで見たことあるなぁ…）

0118デフォルトの名無しさん

NGNG

PageControl上で右クリックすると、ページの新規作成でページが追加できますが、
あれと同じ事をコードでやるにはどうすればいいのでしょうか？

0119デフォルトの名無しさん

NGNG

>>118
初戦はコンテナなので新しいページCreateするとか隠してたのを表示するとか。

0120１１８

NGNG

>>119

ありがとうございます。
ちょっとやってみます。

0121113(´・ω・`)

NGNG

>>114 >>115 >>116
レスありがとうございますた。以前mediaplayerでどうしてもできなかった
はずなんですが、ファイル名に直接ＵＲＬ入れたらできますた・・；
環境が変わっているからか何なのか理由が分かりませんが・・・。

自分で作るのも試み見ましたがへタレな自分にはまだむずい・・。
TMP3Playerも使ってみましたが、動作が完全ではないようで、
ストリーミングが使えませんでした。

とりあえずMediaPlayerを使うことにしました。
どうもありがとうございました。大変参考になりました。

0122デフォルトの名無しさん

NGNG

すいませんが教えて下さい。

TData=record
a,b,c:integer;
end;

～

Data:array[0..10000] of TData;

こんな感じの配列の時、dataのcだけを手続きなり、関数なりに渡すには
どのようにすればいいのでしょうか？

0123122

NGNG

↑まとめて渡すという意味です。

0124デフォルトの名無しさん

NGNG

Data[index].c

0125124

NGNG

まとめてなら、cのみの新たな動的配列を作って、それを関数等に渡します。

0126122

NGNG

var
A:array of integer;

setlength(A,10000);

としてCの内容をAに入れる。

procedure Shori(Arr: array of Integer);
に Shori(A); として渡す。

↑こんなんでおかしくないですか？

0127デフォルトの名無しさん

NGNG

type
　DIntArray = array of Integer;

procedure Proc1;
var
　a: DIntArray;
　i: Integer;
begin
　SetLength(a, High(Data) + 1);
　for i := 0 to High(Data) do
　　a[i] := Data[i].c;
　Proc2(a);
end;

procedure Proc2(const a: DIntArray);
begin
end;

0128デフォルトの名無しさん

NGNG

すいません、教えてください。
Delphi5 - BDE - ODBC - Oracle8i
という環境でTQueryでSelect文をopenすると
"レコードバッファ内のBLOBハンドルが無効です"というエラーが出てしまいます。
かなり懸命に調べたのですが、どうやら取ってくる文字列のサイズが256バイトを越えると発生するようで
(そのテーブルにVARCHAR2(480) というカラムがあります)、
BDE Administratorで"BLOB SIZE" と"BLOB TO CATCHE"をデカすればいいと判りました。

しかしBLOB SIZE=1000 ,BLOB TO CATCH=65000 としても状況は変わりません。
"BLOB SIZE" と"BLOB TO CATCHE"はデータベースのエリアスと環境設定タブのOracle ODBCの両方にあったので
どちらもデカくしたのですが･･･

Delphiは2年前にちょろっとやった言語なのに2人しかいない実装班を引き継がされて、しかも誰もわからないのです。
前任者もそんなエラーは出たこと無いししらない、と対応をイヤがるし･･･よかったら助けてください。

0129デフォルトの名無しさん

NGNG

>>128
Ent版にしてdbExpressを使えば全て解決（w・・・いやマジで

0130デフォルトの名無しさん

NGNG

あぁ。ODBC かぁ。
無理/無茶だなぁ...

0131デフォルトの名無しさん

NGNG

SQL-Link / SQL Express または Oracle 接続用コンポーネントを探して
くっつけたほうが幸せになれると思うよ。

0132128

NGNG

>>129-131
返答ありがとうございます。
それは調べていく過程でなんとなくわかったのですが･･･
しかし既にリリースされて使用されているという状況ではもはやそこまでの変更はできないのです。

そして、私は既存のプログラムなら修正できるのですが、
新規にOracle接続部分を作る技術/時間もありません･･･
仮にひょひょいと作れたとしても特に数十本ある既存プログラムへの検証時間が無いのです。。。。

同じようなBLOBエラーはよく発生するようなので、ODBC以外でも同じ現象に合った方、なんでもいいのでヒントを頂けると幸いです。
>>128のBDEの設定ではないのでしょうか･･･？

0133デフォルトの名無しさん

NGNG

>>132
金をかけてよいのなら、2ch で聞かずに Borland のサポートに持っていったら？

0134デフォルトの名無しさん

NGNG

あと。
いちおう、Delphi 5 の RTL と BDE が最新のものかどうか確認を。

D7 ENterprise Trial を落として、最新の BDE で動くかどうか確認するのもいいかもね。
D7 にはまだ BDE がついているぞ。

0135デフォルトの名無しさん

NGNG

無駄にアゲないでね。

Google で拾ったねただと

http://groups.google.co.jp/groups?hl=ja&lr=&ie=UTF-8&oe=UTF-8&frame=right&th=5869d650e72f9b26&seekm=37C669B8.33621566%40atrix.com.pl

これなんか、どんぴしゃなんだけどね。
http://groups.google.co.jp/groups?hl=ja&lr=&ie=UTF-8&oe=UTF-8&frame=right&th=91536c3646e6b602&seekm=37D07D7F.D992D042%40cs.byu.edu

0136128

NGNG

>>133 134
情報ありがとうございます。

金はもう掛けれません。赤字プロジェクトなんで。
しかもDB接続に関しては仕様がFIXされてるはずなので、クライアントにも出させられません。

BDEは最新にしてみました。RTLについてはD5の修正パッチを当ててみました。
でもダメでした。

>>135
確かにドンピシャですね。
しかしリンク先のスレッドにあるBLOB TO Catch の変更は>>128で書いたとおり実施済みなのです･･･
---
自分が調べた範囲だと、BDE はOracleからデータを取得する場合、VERCHAR でも256バイト以上のデータはBLOB型(メモ型)に変換して扱うようです。
・BLOB 型の使用可能なサイズについてはBDE Administrator エリアスの"BLOB SIZE"で設定
・BLOB 型を持つレコードを取り扱える(フェッチできる) 数については"BLOB TO CATCH"で設定
のはずなのですが、この2つを十二分なほど大きく取っても"レコードバッファ内のBLOBハンドルが無効です"と出てしまうのです。
なぜだ･･･
Borland Delphi Q&A： http://www.borland.co.jp/qanda/delphi/d0003091.html

0137128

NGNG

あ、ごめんなさいあげるのはナシですか？

0138デフォルトの名無しさん

NGNG

　　.,,
　　＼ヽ--___
　　　＼　　　丶---ヽ___
　　　　 .ﾞ＼　ク　　　　　~~＞　　　　　クソスレに認定されました
　　　　　　＼　　　ソ　　　／
　　　　　　　.＼　　　　　ﾉ
　　　　　　　　＼　　／
　　　　　　　　　 .＼/
　　　　　　　　　　 .＼
　　　　　　　　　　　　＼
　　　　　　　　　　　　　.＼
　　　　　　　　　　　　　　,,＼
　　　　　　　　　　　　　 .″ ﾞ》
　　　　　　　　　　　　__.,　イ,, 》li,_
　　　　　　　　　　ill! i;l;lllllz,lll;lllllll;lllllly
　　　　　　　　　 .:llllllll;llllllllllll;;ll;||llllllllll｝
　　　　　　　　　 .il||l|lllllllllllllll|《lllll|lly《ｱlz　　　 .､　 zz,､
　　　　　　　　　 ._ﾉﾚ;llllllll|;llllllliilllllllllllllllllllllyuyll;ﾐﾐ″ .''ﾞﾞ∨
　　　　　　　　」lllllllllllllllllllllllllllllllllllllllllll　　　ﾞ巛,厶yyv》llll!
　　　　　　　　｛lllllllll厂lllllllll|》lllllllllllllllly､　　　,illllllllllllllllli;;ll|y 　　　　　　　　.､.,,_
　　　　　　　　《;|《llllll;lllli;llllllll;|lllllllllllllllllll|lli.　.zllllllll;《lll|《lllllllllllllllizy,lllz.　 _yyyyr|》
,u,,_　　　　　　 .rlllllllllllllllllllllllllllllll厂ﾘllllﾘlll!,」llllll「ﾘll;lllllll;;llllllllllllllllllll;||lllllllllllllll;lllllllll
l;lll;l;yu.,,lllz:.;..:villlllllllllllllllllll|》llllllll| uilllll|illlllﾉ|ll|ﾞ」zyllllll;ll|;lllllllllll;l|ﾘllllllllllll;llllllllllllllllllll
lll|!illlllllllll|ll|i;llllllllllllllllllllllllllllilllllllllllllllllllllllllllllll|lllll|,|lllllllllllllll|》;ll《|「.vuilllll|《liiilll|ﾌ《llllllll
lllllllllllllllllllllllll|《lllllllllll;;llllllllllllllll;llllllllllllllllllllll|)|《;lllllllllllllllllllllllllllllllll;lll;lllll;》(［;llllllllllllllllllll

0139デフォルトの名無しさん

NGNG

アゲられると荒らされるんよ。2ch 初心者？

>VERCHAR でも256バイト以上のデータはBLOB型
は
http://www.borland.co.jp/delphi/UPD2RDME.TXT
に

====================
4.2 動作上の変更点
------------------
BDE/SQL Link は現在，長さが 255 を超える CHAR 列を疑似 BLOB として
解釈します。

オブジェクト型（ADT または VARRAY）のメンバーとして長さが 255 を超
える CHAR，VARCHAR，および VARCHAR2 列は，現在は疑似 BLOB として解
釈されます。
====================

のことだね。

http://groups.google.co.jp/groups?hl=ja&lr=&ie=UTF-8&inlang=ja&frame=right&th=e762f63c796da5b2&seekm=3AFA76A7.4EDB04A5%40techprt.co.uk
これを見るに、

BLOB SIZE　を 64 以上に。
BLOBS TO CATCH　の数値が大きすぎるような。

あと、エリアスを作り直して、パラメータ変更後、再起動。
ってところかな？

0140128

NGNG

>>139
返答ありがとうございます。

BDE で既存のエリアスを変更するのではなく、
一度BDE 環境設定タブのODBC にある「Oracle ODBC Driver」"BLOB SIZE" = 64 " BLOB TO CATCH" =500
にしてから既存エリアスを削除/再作成、PC再起動をすると、
デフォルトでODBC のBLOB 設定("BLOB SIZE" = 64 " BLOB TO CATCH" =500) が反映されたエリアスが作成されました。
これは！？と期待したのですが、やはりアプリを動かすと同様のBLOB エラーが･･･

残念。

>アゲられると荒らされるんよ。2ch 初心者？
そうですか、すぐ荒らされるのですね。
2chはよく見るのですが、プログラム技術板はあまり見なかったので･･･

0141デフォルトの名無しさん

NGNG

＞アゲられると荒らされるんよ。2ch 初心者？

こんなこと書くからageられるんよ。以下同文。

0142デフォルトの名無しさん

NGNG

ageるのは最初の質問とか用のあるときだけにして
続きはsage進行

0143デフォルトの名無しさん

NGNG

>>141
ほいほい。せいぜいがんばって > アゲ嵐初心者君よ。

0144デフォルトの名無しさん

NGNG

Delphiってどういった経緯があって、大文字小文字認識しねーの？
おせーてダーリン♥

0145デフォルトの名無しさん

NGNG

大文字小文字を区別する言語の方が珍しかった (Pascal誕生当時)

0146デフォルトの名無しさん

NGNG

>>144
Pascalからの伝統だニャ・・・歴史の重みニャのだ

逆に、C系が大文字小文字を区別するのはUNIXも含めた伝統だニャ
でもファイル名の大文字小文字を区別しニャいDOS/Windowsの世界では
あまり必然性のニャい仕様ニャのだニャ

0147デフォルトの名無しさん

NGNG

Del7 付属の Kylix (pascal版）使って商用ソフト作れますか？
GPL にしないとダメ？

0148デフォルトの名無しさん

NGNG

坊乱怒に聞けよ

0149デフォルトの名無しさん

NGNG

>>147
それらしい文書を隅から隅までズズ、ズイーと読んでからまた来い。

0150デフォルトの名無しさん

NGNG

>>147
ライセンス関係はライセンス所有者に確認を取るのが基本。
2ch の匿名情報を信じるのであれば、何を信じても同じ。つーか責任取れないだろ？

0151デフォルトの名無しさん

NGNG

>>146
ほほう！ためになったよ

0152デフォルトの名無しさん

NGNG

FormCreateに、いろいろ書くと起動が遅くなるが、
FormShowだと問題ない、というふうに思っているのですが
なにか間違ってます？

0153デフォルトの名無しさん

NGNG

>>152
やっぱり遅くなるぞ。

0154デフォルトの名無しさん

NGNG

質問デシ。
チューチューマウスみたく親に関係なくMessageBoxが表示された際に動作
するアプリを作りたいのですが、あれは一体どんなメッセージを取得？or
フックすればいいのでしょうか？

0155デフォルトの名無しさん

NGNG

OS の DefDialogProc の横取りじゃなかったカナ？

0156デフォルトの名無しさん

NGNG

配列でHigh関数Low関数を使うみたいな感じで
TListではどのようにするのですか？

var
List:TList

～

List[high(list.count)]

とやると21億くらいになっちゃうし・・・・。

0157デフォルトの名無しさん

NGNG

count

0158デフォルトの名無しさん

NGNG

あぁ、Count は分かっているのか。
TList は　0 .. Count - 1 まで。Low は固定。
High( list.count ) だと、Count の型である Integer 型の上限値が取れてしまうよ。

0159デフォルトの名無しさん

NGNG

Delphi5のscktsrvr.exeよりかしこいソケットアプリって無いですか？

またDelphi6ではこのプログラムはVerupしているのでしょうか

0160デフォルトの名無しさん

NGNG

>>159
http://pc3.2ch.net/test/read.cgi/tech/1035676809/n585

0161156

NGNG

>>158

早速ありがとうございます。
そんなに簡単だったとは・・・・。ずいぶん悩みましたが解決しました。
ありがとうございました。

0162デフォルトの名無しさん

NGNG

>>159
サンプルに何を求めてるんだと。

0163デフォルトの名無しさん

NGNG

DelWikiにライセンス周りのFAQが必要棚。

0164デフォルトの名無しさん

NGNG

>>162
Demos & Examples の下に有るわけではないので、サンプルアプリではないすよ。

0165デフォルトの名無しさん

NGNG

>>159 は sato さん？須磨さん？

Dual CPU ってことない？

0166デフォルトの名無しさん

NGNG

Editをクリックするとビープ音が鳴っちゃいますけど
鳴らないようにするにはどうすればいいですか？

0167デフォルトの名無しさん

NGNG

クリックじゃなかった。Enter押したらでした。すいません。

0168デフォルトの名無しさん

NGNG

ttp://www.borland.co.jp/qanda/delphi/d0003345.html

0169デフォルトの名無しさん

NGNG

フォームの最小化と最大化のボタンを非表示にする方法がわかりません。

（最大化と最小化時のフォームサイズを固定にする方法はわかったのですが・・・）

0170169

NGNG

どなたか知っている方がおりましたら、よろしくお願いします。

0171デフォルトの名無しさん

NGNG

TForm.BorderIcons

0172デフォルトの名無しさん

NGNG

>>169
ﾎﾞﾀﾞｱｲｺﾝ

0173169

NGNG

ありがとうございました！
さっそく調べて試してみたいと思います。

0174デフォルトの名無しさん

NGNG

普通にメモ帳もどき作ったんですけど、サイズは500kbを超えるんですけど何でなんでしょう？
メモ帳実際50kbしかないのに。delphiでつくるとこれが普通なんですか？
それとも作り方が悪いの？

0175デフォルトの名無しさん

NGNG

ListBoxで各アイテムごとに、フォントの色を変えたいのですが
カラープロパティを変えると全てのアイテムの色が変わってしまったりで
うまくいきません。どなたか教えてください。

0176デフォルトの名無しさん

NGNG

>>174
普通。そういうものだと割り切ることが大切。
サイズ問題は、Delphi1の頃から言われ続けてきたことだ。
気にしないのがよっすぃ～。

0177デフォルトの名無しさん

NGNG

>>174

VCL使うとそんなもん。

小さくしたけりゃAPIたたけ。

0178デフォルトの名無しさん

NGNG

>>175
オーナードローを使って自前で項目を描画する。
OnDrawItemあたり参照。

0179174

NGNG

>>176,>>177
そうなんですか。納得しました。
ありがとう

0180165

NGNG

須磨です。ばれました。
dualcpuです。dualだとまずいのですか？scktsrvr.exeって。
DELPHI5に付属のやつですが。

0181デフォルトの名無しさん

NGNG

DELPHI6 PERSONALでMemoコンポーネントの文字列を
URLエンコードしたいのですが

plaza11.mbn.or.jp/~pz/delphi/vcl.html
↑　ここにあるTPzConvを使ってURLエンコードすると
改行や「&」などが正しく変換されません・・

どうしたらちゃんと「改行」が「%OD%OA」に、「&」が「%26」
変換されるように出来るでしょうか。　もし解る方がいらっ
しゃいましたらご教授宜しくお願い致します。m(__;)m

0182159

NGNG

須磨です。間違えました。159です。

0183デフォルトの名無しさん

NGNG

https://211.10.75.189/k-sfa/index.jsp
このページ、i-mode N503iで表示されません。
P504i では表示されるのですが、
表示させる方法をお分かりの人がいたら、教えてください。
サーバー構成は、Apache+SSL(Apache1.3.27 OpenSSL0.9.6g) です。

0184デフォルトの名無しさん

NGNG

>>181
これとかどうかな？
InternetCanonicalizeURL

0185181

NGNG

>>184

Memoコンポーネントの改行を変換してくれないと
いけないのでこれではダメなのではないでしょうか..（汗
でもレスありがとうございました～

0186デフォルトの名無しさん

NGNG

と思ったけど、
InternetCanonicalizeURL　じゃだめだった。ごめんね。

0187デフォルトの名無しさん

NGNG

コンソールアプリケーション練習したいんですけど
結果が早すぎて見えないんです。すぐに終了してウインドウが
閉じてしまうんですけどキー入力するまでウインドウ閉じない
ようにするにはどうしたらいいですかね？
Delphiと直接関係ない質問の気がしますがよろしくおねがいします。

0188デフォルトの名無しさん

NGNG

>>187
最後に、Readln(s); を入れておく。

0189デフォルトの名無しさん

NGNG

>>188
そういうことしない限り無理なんですかね？やっぱり
とりあえずありがとう。

0190デフォルトの名無しさん

NGNG

void addone(void){
static int x=0;
x=x+1;
return ;
}
みたいなことをdelphiでしたいんですけどできないですか？
staticって無いですよね？

0191>>190

NGNG

・クラスにする
Txx = class
fX: Integer;
procedure addone;
end;
procedure Txx.addone;
begin
fX:=fX+1;
end;
・ユニット内変数
var addone_x: Integer;
procedure addone;
begin
addone_x:=addone_x+1;
end;
・トリック
procedure addone;
{$J+}const x: Integer = 0;{$J-}
begin
x:=x+1;
end;

0192デフォルトの名無しさん

NGNG

implementation節の変数が、まあ代わりみたいなもんです。
スコープを超える寿命の変数が存在しないのは明快と言えなくもない。

どうしてもスコープを同じにしたいなら、constで宣言して、
型付き定数への代入を許可するオプションを付けてコンパイル。

0193デフォルトの名無しさん

NGNG

>>159 あたり
D6 初期版だと、スレッド周りにバグが有って Dual CPU だと確実に吹き飛ぶ。
けど D5 なんだっけ？別の話しかなぁ？

私のところでは、社内データ管理システムとして Midas/ソケットサーバーの組み合わせで
半年以上ノンストップで動かしていた経験があります。同時 50 人くらいで、一つのデータパケットの
大きさは 10K から 1M 程度までさまざま。

ソケットサーバーが止まってしまう。という環境でデバッグしてみるのが早いと思いますが。
まずは、ScktSrvr.exe に対してタスクマネージャで CPU の割り当てを一つにして
具合を見てみては？

あと、あたりまえですが、ソケットサーバーを使わずに動かした場合に、止まらずに動きますか？
クライアントとサーバーソフトを同一マシンにおき、ソケット接続ではなく COM 接続にして
試してみたら？（DCOM では無く）

0194デフォルトの名無しさん

NGNG

0195デフォルトの名無しさん

NGNG

... なんか、2ch の調子が悪いというか、反応が遅い ..

0196デフォルトの名無しさん

NGNG

Abone使い？

0197デフォルトの名無しさん

NGNG

>190
　コンパイラオプション {$J+} で、型付き定数使えばいいんじゃないか？

procedure addone;
var
　const x:Integer = 0;
begin
x := x + 1;
end;

で。

0198デフォルトの名無しさん

NGNG

パーソナルでグラフ使う場合は
ペイントボックスあたりに描画するとかシェープを利用したりするしか無いのでしょうか？
フリーでコンポーネントがあれば良いのですが無いですよねぇ。

0199デフォルトの名無しさん

NGNG

>>198
探す前からそう言っているのならお前はアホだ。

0200デフォルトの名無しさん

NGNG

いや探しても見つからないから聞いてるの(^_^;

0201デフォルトの名無しさん

NGNG

>>200
http://www.google.co.jp/search?sourceid=navclient&hl=ja&ie=UTF-8&oe=UTF-8&q=delphi+%E3%82%B0%E3%83%A9%E3%83%95+%E3%82%B3%E3%83%B3%E3%83%9D%E3%83%BC%E3%83%8D%E3%83%B3%E3%83%88

４番目とか。

0202デフォルトの名無しさん

NGNG

中古のPro6を買うというのもありかも・

0203デフォルトの名無しさん

NGNG

　真剣にDelphiを勉強したいと思います。
今、いろいろなHPを参考にしてサンプルプログラムを組んで理解を深めています。
もうそろそろ本がほしいと思っていますがいい本を３冊ほど推薦していただけないでしょうか。

0204デフォルトの名無しさん

NGNG

>>203
ない。

0205デフォルトの名無しさん

NGNG

>>203
ない。
ﾌｻｽﾚも覗いてみればわかるが、バイブルまでまともな本は一冊も無いのがdelの現状

0206デフォルトの名無しさん

NGNG

>>203
正直、ヘルプとAPIガイドが最大のごちそう。がんばれ。

0207デフォルトの名無しさん

NGNG

質問があります。
WinInetを使ってインターネットアプリケーションを書いているのですが、
WinInetで取得したHTMLをTWebBrowserに表示するのに、
TWebBrowser.OleObject.document.writeを考えていたのですが、
これはJavaScriptなので、JavaScriptが無効になっている環境では動作しません。
JavaScriptを使わずに、取得したHTMLをTWebBrowserに表示する方法ってありますか？

0208デフォルトの名無しさん

NGNG

>>207
テンポラリファイルにしてそれ読むとか。

0209デフォルトの名無しさん

NGNG

delphiで、
　　　　　　　　　　　　....
for(int i = 0; i < 10; i+=2) {
　// loop
}
みたいに、ループ変数を任意回インクリメントしたいんだけど、

var
　i: Integer;
begin
　for i := 0 to 10 do
　begin
　　// loop
　end;
end;

では、１しかインクリメントされませんし、loopのブロック内で
Inc(i);とか書くと、コンパイルエラーになります。
for文ではできないのでしょうか？

0210デフォルトの名無しさん

NGNG

>>209
まぁ、こんな感じじゃないの？

for i := 0 to EndValue div 2 do
begin

a := i * 2;

end;

0211デフォルトの名無しさん

NGNG

>>207
こういう方法もあるよ。
http://members.jcom.home.ne.jp/monazilla/document/directwrite.html

>>209
forでは無理
俺はこうしてる。
i := 0;
while i < 10 do
begin
//処理
Inc(i, 2);
end;

0212デフォルトの名無しさん

NGNG

D7アカデミックパック買っちゃいますた。

0213デフォルトの名無しさん

NGNG

D7ってPersonalでも銭取るんだ・・・。

0214207

NGNG

>>211
ありがとうございました。
おかげで解決しました。

0215デフォルトの名無しさん

NGNG

D6だけ取らなかったが正解。
マニュアル付有償版もあったと思うが。

0216203

NGNG

　うーん、定番がないんですかー。
えと、APIガイドというのはなにを指しているのでしょうか?
ぐぐったんですが、これというのがわかりませぬ。

0217デフォルトの名無しさん

NGNG

>>216
ディスクに入ってるwin32.hlp

0218203

NGNG

>>217
ありがとん、見つかったよ。
・・・あ゛、これ英語のままなんだね・・・。
みなさんこれ読んで頑張ってるんですか???
ううう、これは手厳しいですなぁ。
なんとか読みまする。

0219デフォルトの名無しさん

NGNG

>>218
C++Builderには日本語版があったり。
でも、両者読み比べても同じこと書いてあるなと高校生の俺は思った。

0220203

NGNG

　情報さんくすこ。
ただ、少しでも理解しやすいほうがありがたいので日本語版がいいと
十年前高校生だった漏れは思った。

0221デフォルトの名無しさん

NGNG

ttp://www.microsoft.com/japan/developer/library/
APIに関する日本語情報はここがいいよ。
何がどこにあるか探すのに最初は苦労するけど。

0222デフォルトの名無しさん

NGNG

http://www.microsoft.com/msdownload/platformsdk/sdkupdate/default.htm?p=/msdownload/platformsdk/sdkupdate/psdk-full.htm
からPlatform SDKをダウンロードしておくと結構便利だけど、
今はファイル入れ替え時期で落とせないみたい。

0223デフォルトの名無しさん

NGNG

下記のような書き方がコンパイル通るんですが、これって正しいのですか？
長年使ってて初めて気づいたんですが、引数の省略可能って仕様だったのですか？
Delphi6 UpdatePack2です。

0224デフォルトの名無しさん

NGNG

program test;

{$APPTYPE CONSOLE}

uses
　SysUtils,
　Unit1 in 'Unit1.pas';
var
　ATest: TTest;
begin
　ATest := TTest.Create(10);
　try
　　ATest.Test(23);
　finally
　　ATest.Free;
　end;

　Writeln(Eoln);
end.

0225デフォルトの名無しさん

NGNG

unit Unit1;

interface

type
　TTest = class
　public
　　constructor Create(AValue: Integer);
　　procedure Test(AValue: Integer);
　end;

implementation

constructor TTest.Create;
begin
　Writeln('Create');
end;

procedure TTest.Test;
begin
　Writeln('Test');
end;

end.

0226デフォルトの名無しさん

NGNG

ヘルプに書いてありますた。
> 定義宣言のヘッダーには，クラス宣言で指定したパラメータリストを
> 再度指定してもかまいませんが，その場合は，パラメータの順序，
> 型，および名前をクラス宣言での指定と完全に同じにしなければなりません。
引数は指定しなくてもかまわないのかー。しらなかったー。

constructor TTest.Create;
begin
　Writeln(AValue);
end;

なんて出来るし…。気持ち悪(´д｀;)

0227デフォルトの名無しさん

NGNG

これがコンパイル通って、
unit Unit1;
interface
type
TBaseTest = class
public
constructor Create(AValue: Integer); virtual;
end;
TTest = class(TBaseTest)
public
constructor Create(AValue: Integer); override;
end;
implementation

constructor TBaseTest.Create(AValue: Integer);
begin
Writeln('TBaseTest.Create(AValue) ', AValue);
end;

constructor TTest.Create;
begin
　inherited;
　Writeln('TTest.Create(AValue) ', AValue);
end;

--実行結果
TBaseTest.Create(AValue) 10
TTest.Create(AValue) 10

0228デフォルトの名無しさん

NGNG

これはコンパイル通らないんですね(´д｀;)
unit Unit1;
interface
type
　TBaseTest = class
　public
　　constructor Create(AValue: Integer); overload; virtual;
　　constructor Create; overload; virtual;
　end;

　TTest = class(TBaseTest)
　public
　　constructor Create(AValue: Integer); override;
　end;
implementation
constructor TBaseTest.Create(AValue: Integer);
begin
　Writeln('TBaseTest.Create(AValue) ', AValue);
end;

constructor TBaseTest.Create;
begin
　Writeln('TBaseTest.Create');
end;

constructor TTest.Create;
begin
　inherited;
　Writeln('TTest.Create(AValue) ', AValue);
end;

0229620

NGNG

キャストについて質問なのですが、
var
　Buffer:array[0..2] of Char;
　s:String;
begin
　Buffer[0]='A';
　Buffer[1]='B';
　Buffer[2]='C';

　s:=Buffer;　　　　　　　①
　または
　s:=String(Buffer);　　　②

end;

この場合、①や②のようにsへ代入するのは正しいのでしょうか？
それとも、ちゃんとBufferの最後にヌル文字を追加してから代入しなければいけないのでしょうか？

0230デフォルトの名無しさん

NGNG

>>229
もちろんNULLいります。

0231デフォルトの名無しさん

NGNG

>218
APIヘルプの日本語版なら、CDの中に入ってるよ。
Info->Extras->JPHELP->API32WH.HLP
古いので不便なところもあるけど。

0232229

NGNG

>>230
そうですか。
疑問に思った理由は「Delphi４プログラミングバイブル」のp979に

strRead:=strRead + string(Buffer);

（strRead はString型、Bufferは添え字０から始まるChar型の配列）

というコードがあるのですが、このBufferも最後のヌルをつけていません。
厳密に正しいのかどうか、気になったので。

0233デフォルトの名無しさん

NGNG

>>232
調べてないけどObjectPascalがメモリ確保時に配列を0で初期化しているなら動いてしまう。
でも、それに頼りすぎるのはあまりよくないと思われるので$0はつけるべきかと。

0234229

NGNG

ちゃんと書かなかったから悪いのですが、Buffer（Char型の配列）は最初の添え字から最後の添え字まで全部文字データで埋まっています。
つまり、配列のために確保したメモリの中にはヌルの部分がないんです。
なのに string(Buffer)とキャストするのは正しいかどうかちょっと気になりました。

0235デフォルトの名無しさん

NGNG

>>234
配列の長さが取得できない以上、各種文字列変換関数で死にます。

0236デフォルトの名無しさん

NGNG

High(Buffer)
Length(Buffer)

0237デフォルトの名無しさん

NGNG

>>236
じゃあ。安心だね♪

まぁ、激しく非推奨。

0238デフォルトの名無しさん

NGNG

>>232
正しい筈です。配列のサイズが上限として、途中に#0があるまでのサイズになります。
system . _LStrFromArray を読むとよいでしょう

0239デフォルトの名無しさん

NGNG

「デバッグ版DCUを使う」でじっくり納得いくまで確認しる！！

0240デフォルトの名無しさん

NGNG

>>230　× ヌル文字=#0 は配列の場合不要です。
>>233　× メモリ確保時は不定です。しかし配列の場合 #0は不要です
>>235　× Cと違ってDelphiは配列のサイズ情報は関数でも渡されます

0241デフォルトの名無しさん

NGNG

>>240
思い出した。確か余計な空白まで取り込んじゃう困ったちゃんな仕様だ。

0242デフォルトの名無しさん

NGNG

>>241　？ >>238が書いてる通り　代入されると途中にヌルを見つける迄のサイズになる筈

0243デフォルトの名無しさん

NGNG

まとめ
１、String := PChar ; //ヌル迄の文字に自動調整
２、String :=array of Char ; //配列サイズかヌル迄の文字に自動調整
３、PChar := string ; //stringには終端にヌル文字が隠れている。
４、array of Char:=String ;×代入互換性無し

0244デフォルトの名無しさん

NGNG

>>242
＞>>233　× メモリ確保時は不定です。しかし配列の場合 #0は不要です

0245デフォルトの名無しさん

NGNG

×メモリ確保時は不定です。しかし配列の場合 #0は不要です
○関数のローカル変数は基本的にメモリ確保時は不定,自動的に値0で埋められる事はない。
　それとは別に、CHAR配列の要素全てに文字が入っているなら最後に#0でターミネートしなくとも良い
　CHAR配列の途中で文字列を終りたいなら #0でターミネートすれば良い。

0246デフォルトの名無しさん

NGNG

フォーカスを移さずして他のアプリケーションにテキストを
送りたいのですがいい方法ありませんか？

0247デフォルトの名無しさん

NGNG

>>246
パイプ WIndowsメッセージ Socket OLE etcetc

0248デフォルトの名無しさん

NGNG

検索ダイアログにいれた文字列をMemo1の中から検索して選択するプログラム
としてdelphiのヘルプに載っていたんですけど、下の関数の
SkipChars:=SkipChars+(I*2)が何をしているのか全然わからないんですが
誰かおしえてくれませんか？
procedure TForm1.FindDialog1Find(Sender: TObject);

var
I, J, PosReturn, SkipChars: Integer;
begin
for I := 0 to Memo1.Lines.Count do
begin
PosReturn := Pos(FindDialog1.FindText,Memo1.Lines[I]);
if PosReturn <> 0 then {検索文字列が一致}
begin
SkipChars := 0;
for J := 0 to I - 1 do
SkipChars := SkipChars + Length(Memo1.Lines[J]);
SkipChars := SkipChars + (I*2);

SkipChars := SkipChars + PosReturn - 1;
Memo1.SetFocus;
Memo1.SelStart := SkipChars;
Memo1.SelLength := Length(FindDialog1.FindText);
Break;
end;
end;

end;

0249デフォルトの名無しさん

NGNG

>>248
検索し終わったんでは？

0250デフォルトの名無しさん

NGNG

>>249
すいません。意味がわからないです。
どういうことですか？

0251デフォルトの名無しさん

NGNG

for文中の、SkipChars:=SKipChars+Length(Memo1.Lines[J]
で検索したい単語を含む文字列までの全文字数を数えて、
SkipChars+PosReturn-1でその単語の先頭までの文字数を
加えていますよね。これだけで検索できてしまう気がするのですが

0252デフォルトの名無しさん

NGNG

>>222
これ中身は英語版ですか？日本語版はありますか？

0253デフォルトの名無しさん

NGNG

>>252
毎回ググればよし。

0254デフォルトの名無しさん

NGNG

ググるってどういう意味ですか？Googleで検索してもわからなかったので教えてください！お願いします！

0255デフォルトの名無しさん

NGNG

>>254
シャアが乗るナギナタみたいのを持った赤いヤツだよ。

0256デフォルトの名無しさん

NGNG

>>255
甘いな。俺が言いたかったのはシーマ様が愛用してた方だよ。

0257255

NGNG

>>256
レスが速いな。連邦のＭＳは化け物か？

0258デフォルトの名無しさん

NGNG

>>257
言語の差がプログラム戦の決定的な差ではないことを教えてやろう。

end;

0259function

NGNG

ごめんよprocedure、僕にはまだ返すべき値があるんだ。。。。

0260デフォルトの名無しさん

NGNG

throwしたね！親クラスにもthrowされたこと無いのに！

0261デフォルトの名無しさん

NGNG

TreeView のスクロールバーを独自に描画することはできますか

0262デフォルトの名無しさん

NGNG

引数少ないよ！何やってんの！

0263デフォルトの名無しさん

NGNG

pchar「charとは違うのだよ！charとは！」

0264デフォルトの名無しさん

NGNG

ここはガンスレ・・・・？

0265デフォルトの名無しさん

NGNG

>>261
出来ます。

0266デフォルトの名無しさん

NGNG

口が酸っぱくなるほど「出来る？ｏｒ出来ない？」は聞くなと言ったのに…。

0267デフォルトの名無しさん

NGNG

>>266
まぁ、質問がまとまってない証拠。暖かく、「答えた。さぁ帰れ。」と声援を送ってあげましょう。

0268デフォルトの名無しさん

NGNG

TreeView のスクロールバーを独自に描画する方法を教えてください

0269デフォルトの名無しさん

NGNG

> TreeView のスクロールバーを独自に描画する方法を教えてください

まず、何をしたいのかを教えてください。
それによって答えが違います。

0270 ◆1r.KyudaiQ

NGNG

方程式x^3-3x-2=0を二分法で解いて、その収束の速さを調べるプログラムを作ってるんですが
正しい解が出ません。どこが悪いのか教えてください。
program Nibunhou;
{$APPTYPE CONSOLE}
uses
SysUtils;
const delta=9E-16;
function f(x:real):real;
begin f:=x*x*x-3*x-2;
end; //fの定義
function nibun(var lk,uk:real):real;
var m:real;
begin
m:=(lk+uk)/2;
if f(m)>0 then lk:=m;
if f(m)<0 then uk:=m;
end; //二分法の解法
var lk,uk,ans:real; count:integer;
begin
writeln('回数　　　lk　　　　　f(lk)　　　　 abs(ans-lk)');
count:=0; ans:=2; lk:=1; uk:=3;
writeln(count:3,' ',lk:16,' ',f(lk):16,' ',abs(ans-lk):16);
while (abs(f(lk))>delta) do begin
nibun(lk,uk); count:=count+1;
writeln(count:3,' ',lk:16,' ',f(lk):16,' ',abs(ans-lk):16);
end;
readln
end.

0271 ◆qZ/VDjzu96

NGNG

x = 2が方程式の解なのに、
初期値ですでに中点がぴったし解になってますね。
それで関数nibunのなかでは <と>しか条件がないから
ぴったり解だったときには条件がに当てはまらずにスルーされます。
んでいつまでも値が変わらないので延々と動き続けます。

それと、下のほうのwhileは abs(lk-uk) > delta だと思うのですが。

0272270

NGNG

>>271
uk:=3.0; を uk:=3.1に、
(abs(f(lk))>delta) を (abs(lk-uk)>delta) abs(lk-uk)に;
直してみたんですがどうも3.1に収束してたみたいなんです。
それで
if f(m)>0 then lk:=m;
if f(m)<0 then uk:=m;の条件見直してみたら
if f(m)<0 then lk:=m;
if f(m)>0 then uk:=m;
の間違いでした。これで何とか先に進めそうです。
どうもありがとうございました。

0273268

NGNG

>>269
TreeView に表示されるスクロールバーの描画メッセージを横取りして、
独自のスタイルでオーナードローしたいのです。

0274デフォルトの名無しさん

NGNG

「スクロールバーの描画メッセージ」というのはありません。
スクロールバーは、ユーザーからの入力専用UIです。そして
取り付けられているコントロールに WM_VSCROLL/WM_HSCROLL
メッセージを送ります。このメッセージを受けとってどのように
そのコントロールをスクロール／描画するのかは、そのコントロールの
ウィンドウ関数で制御します。

0275268

NGNG

>>274
なるほど・・・
すると、TCustomTreeView を継承して作成する場合は、
WM_NCCALCSIZE を受けて、ShowScrollBar API でデフォルトの
スクロールバーを消し、WM_PAINT あたりで独自スクロールバーを
描画するくらいしか方法はなさそうですね。

そうすると WM_VSCROLL/WM_HSCROLL が発行されないとおもうので、
なんか大変そうです・・・。

0276デフォルトの名無しさん

NGNG

>スクロールバーを消し、WM_PAINT あたりで独自スクロールバーを
>描画するくらいしか方法はなさそうですね。

スクロールバーコントロールを使う、ということも考えられます

0277デフォルトの名無しさん

NGNG

0278デフォルトの名無しさん

NGNG

二重カキコ、ｽﾏｿ

0279デフォルトの名無しさん

NGNG

二重カキコ、ｽﾏｿ

0280デフォルトの名無しさん

NGNG

でも、なんか、OwnerDraw や CustomDraw でカスタマイズするのに、
スクロールまで制御する必要があるなら、TCustomControl あたりから
派生して、一からつくった方が簡単そうに思われ

0281デフォルトの名無しさん

NGNG

どっかに一からつくったツリービューがあったなあ。
あれだ！Delphi7についてくるXPスタイルのやつを作ったところだ。

0282デフォルトの名無しさん

NGNG

>>276-279
ﾜﾗﾀ

0283デフォルトの名無しさん

NGNG

>>279
さっさとABONE ベータ6にしなさいな。

0284デフォルトの名無しさん

NGNG

テキストファイルをStringGridに読み込ませたいのですが、
1MBぐらいあるファイルを読み込ませようとすると、
フリーズしたを思ってしまうぐらいに時間がかかってしまいます。
それで色々検索してみて、遅延読み込みという方法があるのがわかりましたが、
そののサンプルが見つかりませんでした。
どなたか遅延読込について詳しく書かれているサイト等がありましたら教えてください。

0285デフォルトの名無しさん

NGNG

どう読み込ませたいのか書け

0286デフォルトの名無しさん

NGNG

TListViewをViesStyle:=vsReportで作成しています。
TListBoxのようにマウスでクリックすると行全体が選択されるようにしたいのですが可能でしょうか？
↓には「新しいTListViewならできる」と書いてあるのですが、やり方がわかりません。
http://www.ne.jp/asahi/nagoya/ahomaro/builder/cpb-053.html

0287デフォルトの名無しさん

NGNG

古っ

RowSelect

0288デフォルトの名無しさん

NGNG

ハイル！デルファイ！
ハイル！デルファイ！
ハイル！デルファイ！

0289デフォルトの名無しさん

NGNG

出るファイは打たれる

0290デフォルトの名無しさん

NGNG

>>284
そんなものいくら探したって無いだろう。

0291290

NGNG

1MB程度のテキストなら
うちの450MHzCPUマシンでも2秒以内で処理できる

0292デフォルトの名無しさん

NGNG

StringGrid は様々なオブジェクトを内部生成しているせいか、読み込むサイズに比べて消費メモリが大きい。
(ようするにメモリが足りなきゃスワップが起きて遅い)
ColCount と RowCount を行を読むたびに1ずつ増やすと当然遅い。
(まとめて増やせということ)
後は SendMessage(Handle, WM_SETREDRAW, 0, 0) で書き込み時の書き換えを止めておけぐらいかな。

0293デフォルトの名無しさん

NGNG

最近delphiをはじめたのですが、
TdfsExtListView & TdfsEnhListView v3.70　と　UIWebBrowser
このコンポーネントをD7Proで使いたいのですがコンパイルエラーで困っています。
これは使えないのでしょうか？
いろいろがんばってはいるんですけれどどうでしょ？

0294デフォルトの名無しさん

NGNG

>>293
http://www.torry.net/enhancedlistviews.htm
対応はまだDel6までみたいだニャ
ソースがあれば対応可能ニャんだけど・・・

Delのフリーコンポでもソースの付いてニャいのはあんまり嬉しくニャいよね
おいらは自分で作る派だニャ

0295デフォルトの名無しさん

NGNG

>>294
レスありがとうございます。
対応するまで待ちつうもう少しがんばってみます。
ただTdfsExtListView & TdfsEnhListView v3.70の方は
D6parsonalでもコンパイルできなかったんで、
自分のやり方が悪かったのかもしれません。

どうも　ありがとう。

0296巨大ハムスター

NGNG

>>293-295
TdfsExtListView & TdfsEnhListView は、元ネタが
ttp:/www.delphifreestuff.com/
にあるけど､このHP閉じたみたいですね｡
したがって､D7以降に対応した更新は期待できないと思います｡
漏れもこのコンポ群好きで使っていたけれども､別のものにリプレース
し始めています｡

よかったら､コンパイル時にどんなエラーが発生したかを記述して
いただければ何らかの回答が得られるかもしれません｡
D5までしか持ってないので､どんぴしゃの答えが多分できない｡
漏れの天敵のネコ>>294 か誰かが答えてくれるかもしれないし､ヒント
くらい書けるかもしれないです｡

0297デフォルトの名無しさん

NGNG

OpenGLのGLUTのヘッダはどこにありますか？

クレクレ君でごめんなさい
OpenGL1.2のヘッダは見つかってポリゴンとかやっと出せたのですが
色々調べているうちにGLUTというものを使えば便利だと知りました
よろしくお願いします

0298293

NGNG

>>296
どうもありがとうございます。
もう少しやってみて、まとめてからうｐさせていただきます。

そのときはヨロシクお願いします。

0299ねこま

NGNG

TdfsListView は，出た当時は良かったのですが，
今となっては普通の TListView を OwnerData で使うのと変わらないです．
むしろこっちのほうが楽です．

0300デフォルトの名無しさん

NGNG

すみません。
いつもUnit1がでかくなっちゃうんですが・・・
8000行超えちゃいました。どうしましょ。

（´Д｀;）ヾ
　　∨）
　　（（

0301284

NGNG

>>285
先にちょろっと読み込んでセルに書き込み、
残りをバックグラウンドで継ぎ足していくように読み込んでいきたいのです。

>>291
そんなに早いのですか。
今の読み込む際の処理が悪すぎるのかな？

>>292
詳しく書いていただいてありがとうございます。
書かれた事を参考にしながら頑張ってみたいと思います。

0302デフォルトの名無しさん

NGNG

>>300
オブジェクト指向プログラミングをするようにしろ。

0303ビギナー300

NGNG

Unit2でForm1.hogeってやるんでしょうか？

（´Д｀;）ヾ
　　∨）
　　（（

0304デフォルトの名無しさん

NGNG

>>302
アフォ？ Delphiはオブジェクト指向対応なんだから
Delphiで作ればオブジェクト指向になるだろ。

0305デフォルトの名無しさん

NGNG

>>304
ネタだと言ってホスイ

0306デフォルトの名無しさん

NGNG

ネタでした

0307304

NGNG

>>305
なんでネタになるんだよ。

>>306
氏ね。

0308デフォルトの名無しさん

NGNG

>>307
じゃあ君はアホ丸出しだ。

program afodesuka;

begin
writeln('am I OO?');
end.

で、どこがオブジェクト指向？

0309デフォルトの名無しさん

NGNG

>>303
Unit1でSomeClass.Hogeとか（SomeClassはUnit2で定義）
>>307
・・・

0310デフォルトの名無しさん

NGNG

>>308
始めの文字は大文字ですよ（ｗ

0311デフォルトの名無しさん

NGNG

>>310
必死だな

0312304

NGNG

>>308
そんなめったに無い例を出してOOじゃないなんて結論付けるのを
詭弁というんですよ。

0313デフォルトの名無しさん

NGNG

>>312
厨房の無理な論理とか言うリストにあったな。そのまんまなセリフ。

0314デフォルトの名無しさん

NGNG

>>312
＞Delphiで作ればオブジェクト指向になるだろ。
一切の例外はないと言っているようにしか見えないが。

＞OOじゃないなんて結論付けるのを
言ってない。あなたの言っていることは間違いだと言うことを証明したまで。

0315デフォルトの名無しさん

NGNG

>>312
8000行を超えるプログラムなら
その中の機能をいくつかのクラスに分類できるだろうから
それらのクラスをそれぞれ独立したUnitに書けばいい
といのが302の言い分だと思われ

意図的にこうしないでただDelphiを使うだけでは
こういった書き方にならないということでしょ

0316ビギナー300

NGNG

あのーそんなのどうでもいいんですが・・・
>>309じゃ分かりません。やさしく教えてください。

（´Д｀;）ヾ
　　∨）
　　（（

0317デフォルトの名無しさん

NGNG

>>316
315に書いたよん

0318デフォルトの名無しさん

NGNG

>>315
＞アフォ？ Delphiはオブジェクト指向対応なんだから
＞Delphiで作ればオブジェクト指向になるだろ。

あなたが感じている意図は一切無いと思われ。
Javaとかなら一理あるがDelphiでそれ言う奴はアホだろう。

0319デフォルトの名無しさん

NGNG

http://petitmomo.com/mm/

ここがちょっぴりエッチ系のめぐが運営している出会いサイトです。
もしよかったら使ってみて、、、
ヨロシクです。

めぐ(^o^)-☆

0320デフォルトの名無しさん

NGNG

>>318
＞アフォ？ Delphiはオブジェクト指向対応なんだから
＞Delphiで作ればオブジェクト指向になるだろ
それは302じゃなくて304だよん

0321ビギナー300

NGNG

漏れのことで喧嘩するのはやめてください・・
>>315
＞その中の機能をいくつかのクラスに分類できるだろうから
＞それらのクラスをそれぞれ独立したUnitに書けばいい
一連のスレ違いなやりとりを、
別スレに移すということでいいでしょうか。

（´Д｀;）ヾ
　　∨）
　　（（

0322デフォルトの名無しさん

NGNG

>>321
お主できるな

0323デフォルトの名無しさん

NGNG

８０００行程度どうってことないだろ
３００００行越えたら来い

0324293

NGNG

ExtlistView.pas
FColumnsFormatChangeLink: TChangeLink; (722) 未確定の識別子
　　　uses節にimglist.pasを加えるとOKになる
次に "DsgnIntf" を "DesignIntf,DesignEditors" に変更しておく

function TCustomExtListView.GetStateImages: {$IFDEF DFS_COMPILER_4_UP} TCustomImageList; {$ELSE} TImageList; {$ENDIF}
begin
Result := inherited StateImages;　//エラー2700行目あたり
end;
[エラー] ExtListView.pas(2701): 'TImageList' と 'TCustomImageList' には互換性がありません
[致命的エラー] EnhListView.pas(565): 'ExtListView' ユニットはコンパイルできませんでした

FnhlistView.pas
{$IFDEF DFS_COMPILER_5_UP}
State := TOwnerDrawState(LongRec(itemState).Lo);
{$ELSE}
State := TOwnerDrawState(WordRec(LongRec(itemState).Lo).Lo);//エラー(1452行目あたり)

正しくないキャスト
-=
function TCustomEnhListView.GetSmallImages:
{$IFDEF DFS_COMPILER_4_UP} TCustomImageList {$ELSE} TImageList {$ENDIF};
begin
Result := inherited SmallImages;
end;
[エラー] EnhListView.pas(2303): 'TImageList' と 'TCustomImageList' には互換性がありません
-=
この3つ以外は出来たのですがこれがわかりませんでした。
どうかコンパイルできますようお願いします。

0325ねこま

NGNG

DFS.INC が古いだけと違うんですか？

0326デフォルトの名無しさん

NGNG

作成元がつぶれちゃっているんなら、ソースだしちゃいなよ。
D7 用に書き換えて返してあげるよ。

修正点をまとめてネタにもできるし。

0327デフォルトの名無しさん

NGNG

ゴソゴソ...

dfs.txt 2000/7/9
dfs.inc 2000/6/22
ってのを見つけてきたけど、これが手持ちのものかい > 324

0328327

NGNG

んー、見つけたのは ver 3.71 だな。
最新は 3.72 のようで。

大差ないと思うから 3.71 でやってみるかい？

0329293

NGNG

どうも皆さんお騒がせしてすみません

>>325
elv.txt 2001/6/27
dfs.inc 20001/6/27
いろいろ出回っているTdfsExtListView & TdfsEnhListViewの中では
一番新しいのを使っていると思います。。

>>326
いまのソースはこれです。
TdfsExtListView & TdfsEnhListView v3.72
http://www.torry.net/vcl/lvtv/enhancedlistviews/extlistv.zip

遅くなりすみませんでした。
なんに使うかとか別に決まってないんですけれど、
Delphi関連の過去ログ見ていると結構いいと書き込みを見つけたのが最初でした。
ちょっと最近は意地になってきててわざわざD7proまで買ってしまったんですけど、
かなーりもったいなかったです。

0330デフォルトの名無しさん

NGNG

ソースは extlistv.zip で検索すれば見つかる

0331293

NGNG

>>327
探してもらってありがとうございます。
もうコンパイルできればOKでし。

0332デフォルトの名無しさん

NGNG

type StringArray = array of string
のようなものを定義してあるユニットってないですか?
array of stringを返す関数を作る場合、普通何型を使うのでしょう?

0333327

NGNG

>>325
>325 ：ねこま：02/12/17 03:46
>DFS.INC が古いだけと違うんですか？

DFS.INC に D7 用の定義が無いだけでした。

0334デフォルトの名無しさん

NGNG

>>332
型は自分で定義するものだと思うが？

type StringArray = array of string;

で定義した StringArray を使って

function foo : StringArray;

で動くでしょ？

0335デフォルトの名無しさん

NGNG

>>332
TStringsを引数にして、それに入れて戻るというのをよく書く。

0336327

NGNG

http://do.sakura.ne.jp/~junkroom/cgi-bin/megabbs/readres.cgi?bo=lounge&vi=1017673221&rm=100
に変更後のファイルをアップしました。

0337デルファイの名無しさん

NGNG

>>332
>>334
types.pas

0338デフォルトの名無しさん

NGNG

6perにはtypes.dcuしかないのでなにがなんだかわからないよ。
せめてtypes.intつけて欲しい・・・

0339デフォルトの名無しさん

NGNG

>>338 いや、だから型は自分で定義するんだってば。
システム組込型以外は自分でどんどん型定義。
アルゴリズム + データ構造がプログラム。

0340デフォルトの名無しさん

NGNG

プログラム＝オブジェクツ

0341293

NGNG

>>336
今帰ってきたんですが、
あんまり早いんでびっくりしています。
これからまた出かけるので夜、帰ってきたら
落としてきてコンパイルします。
どうもありがとうございます。

0342327

NGNG

>どうもありがとうございます。
お礼はいいっすよ。
その代わりに、たいした変更では無いから何が変わったのか理解して自分の物にしてください。

0343デフォルトの名無しさん

NGNG

一番メジャーなタスクトレイ常駐コンポーネントはどれですか？

0344デフォルトの名無しさん

NGNG

TIntegerDynArrayをヘルプで見ると・・・

0345デフォルトの名無しさん

NGNG

>>343
それくらい書けよ。ダセぇ。

0346デフォルトの名無しさん

NGNG

>>343
C#には標準でついてるよ。つかついてない処理系ってダセぇ。

0347デフォルトの名無しさん

NGNG

>>345
これだから車輪の再発明をする奴は（略

0348デフォルトの名無しさん

NGNG

>>347
そのセリフ吐く奴に限って車輪すら作れない。

0349デフォルトの名無しさん

NGNG

低レベルなWin32APIの知識なんてあと半年で風化するよ。
覚えるだけ無駄無駄。

0350デフォルトの名無しさん

NGNG

>>349
.NETはあくまでネイティブコード非依存のマルチWindowsなバイナリを実現するためであって
ドライバや速度を必要とするアプリケーションはそのままネイティブなAPIをたたき続けることになる。

VBはまぁ、お荷物だったからな。

で、それが今現在お前がNotifyiconを使えないのと何の関係があるんだ？

0351デフォルトの名無しさん

NGNG

>>348
例えそうだとしても車輪の再発明をする奴は（略なのは変わらない。

0352デフォルトの名無しさん

NGNG

さっき、友人に自作の簡単なタグ挿入型エディタを送ってあげたら、

必要なDLLファイルRTL60.BPLが見つかりません

と怒られてしまったそうです。
そういえば、実行ファイルが不自然に小さい…
恐らくコンパイル時に漏れてるのだと思われますが…

開発した環境以外でも、ランタイム無しで動作させるには
どうしたらいいのでしょうか？

0353デフォルトの名無しさん

NGNG

プロジェクトオプションのパッケージのチェックをはずす

0354Delﾌｻｷﾞｺ ◆A6VzDeLphI

NGNG

　　＿＿＿＿＿_　　　＿＿＿＿＿＿＿＿＿＿
　／:＼.＿＿＿＿＼／
　|:￣＼.ﾐ∩ﾟДﾟﾐ＼＜　TTaskTrayもいいですが
　|:　　 |:￣￣ U￣:|　＼＿TTrayIconはもっといいです。

>>352さん
動作しません。D6Personal入れるといいかも。

0355デフォルトの名無しさん

NGNG

>>351
もちろん君が車輪すら作れない事実も変わらない。

0356デフォルトの名無しさん

NGNG

>>352
ランタイムも一緒に配布すればいいだけだろ。

0357デフォルトの名無しさん

NGNG

>>355
一人の事実と全員の事実の大きさの違いを認識しろよ（藁
まっ俺が車輪が作れない事実なんて無いのだがな（激藁

0358デフォルトの名無しさん

NGNG

>>357
ま、口で言うのは簡単だ。

0359デフォルトの名無しさん

NGNG

>>358
口で言って事実ってことにしようとしているのは>>348ですよ（藁藁

0360デフォルトの名無しさん

NGNG

こんなQ&Aﾚｳﾞｪﾙのネタで何を盛り上がってるんだか・・・
http://www.borland.co.jp/qanda/delphi/d0009410.html

作るのは簡単だが作り込むのは面倒だから出来合いのを探す。
という結論を導けない奴はDelphiは向かないだろ。

0361Delﾌｻｷﾞｺ ◆A6VzDeLphI

NGNG

　　＿＿＿＿＿　　　　＿＿＿＿＿＿＿＿＿＿
　／:＼.＿＿＿__＼　／
　|:￣＼ミ,,ﾟДﾟミ　＜　だからTrayIconを使えと言うに…
　|:　　 :|:￣U U￣:|　＼＿＿＿＿＿＿＿＿＿

0362デフォルトの名無しさん

NGNG

Q&A核暇あったらコンポ追加しろよ>某

0363デフォルトの名無しさん

NGNG

>>358
へ～。インターネット上の掲示板で口以外の手段が取れるのかねぇ。
手を出してみろよ。足をだしてみろよ。何も出来ないから
「ま、口で言うのは簡単だ。」って言ったのか？
そうだね。口で言うのは簡単だね。自分で証明しているもんね。

0364デフォルトの名無しさん

NGNG

>>361
なんか暴走して本来の目的忘れてるみたいだぞｗ

0365デフォルトの名無しさん

NGNG

だから自分で作れと言うとるのに･･･
何かを使えという奴は全員車輪も作れないグズだ。

0366デフォルトの名無しさん

NGNG

>>353
ありがとうございます。できますた。

>>356
結果としては同じなのですけどねｗ
配るファイルはできるだけすくなくしたいです。

0367デフォルトの名無しさん

NGNG

バカ晒しage

0368デフォルトの名無しさん

NGNG

>>366
>結果としては同じなのですけどねｗ

合計するとダイナミックリンクの方がディスク容量を消費する。
２つ目からはぐっと効率よくなるんだけどね。

0369デフォルトの名無しさん

NGNG

>>366
どうせ圧縮すんだろ？

0370デフォルトの名無しさん

NGNG

>365
だからVCL自分で作れと言うとるのに・・・
何かを使えという奴は全員車輪も作れないグズだ。

0371デフォルトの名無しさん

NGNG

>365
だからコンパイラ自分で作れと言うとるのに・・・
何かを使えという奴は全員車輪も作れないグズだ。

0372デフォルトの名無しさん

NGNG

>365
だからCPU自分で作れと言うとるのに・・・
何かを使えという奴は全員車輪も作れないグズだ。

0373デフォルトの名無しさん

NGNG

>>370
VCLはいいんだよ。Delphi入れたらすぐ使えるから。
捜すくらいなら作れと言うこと。

0374デフォルトの名無しさん

NGNG

>>373
引っ込み付かなくなったバカにマジレスｶｺﾜﾙｲ。

0375デフォルトの名無しさん

NGNG

>>374
>>373が引っ込み付かなくなったバカだろ。しかもマジレスじゃなくバカレス。ほんとｶｺﾜﾙｲ

0376デフォルトの名無しさん

NGNG

>>375
ｼﾞｴﾝにﾏｼﾞﾚｽｶｺﾜﾙｲ

0377デフォルトの名無しさん

NGNG

>>376
なぜｼﾞｴﾝとわかる。本人がｼﾞｴﾝと告白しているのか
それとも他人のあてずっぽなのか？
どちらにしろｶｺﾜﾙｲ

0378デフォルトの名無しさん

NGNG

本人です。全部ｼﾞｴﾝでした。荒らしたかっただけなんです。
でも予想通り荒れました。くいはありません。
謝るつもりはあります。ごめんちゃい（*^_^*）ﾆｺｯ

0379デフォルトの名無しさん

NGNG

>>378
反省してるならよし。さっさとコンポーネント探しに行きな。

0380デフォルトの名無しさん

NGNG

>>378
誰が全部お前だ。勝手に自演にすんな。

>>379
誰が捜しに行くか。自分で作る。

0381デフォルトの名無しさん

NGNG

>>380
がんばれよ。Shell_NotifyIconだ。

0382デフォルトの名無しさん

NGNG

>>380
うるさい。せっかく俺が静めようとしているのに話を蒸し返すな。
だまってさっさとコンポーネント探しに行け。

0383デフォルトの名無しさん

NGNG

>>381
で、Shell_NotifiIconってなんですか？

0384デフォルトの名無しさん

NGNG

6Per撒いてから随分レベルが下がったな。
昔はこんなではなかったよ。

0385デフォルトの名無しさん

NGNG

>>383

　　　　　　　　や　っ　ぱ　り　車　輪　す　ら　作　れ　ね　ぇ　じ　ゃ　ね　ぇ　か　（藁

0386デフォルトの名無しさん

NGNG

>>383
ヘルプ読め

0387デフォルトの名無しさん

NGNG

>>385
ｼﾞｴﾝｳｻﾞｲ。さっさと氏ね。

0388デフォルトの名無しさん

NGNG

>>385
車輪厨ウザイ。車輪は作んなって言ってるだろうが。

0389　

NGNG

まぁまぁ。ﾏﾀｰﾘしる。「釣り」かもしれんが、マジならやめとけ＞意地になってるヤツ
えばれるもんでないし。
「知らん！教えろ！」ってのはｶｺﾜﾙｲ。

0390デフォルトの名無しさん

NGNG

>>388
Del厨ウザイ。C#使えって言ってるだろうが。

0391デフォルトの名無しさん

NGNG

>>385
どうでもいいから空白あけるな。邪魔だ。荒らしか？

0392デフォルトの名無しさん

NGNG

>>391
>「知らん！教えろ！」

まぁ。今更だもんな。

＞一人の事実と全員の事実の大きさの違いを認識しろよ（藁
＞まっ俺が車輪が作れない事実なんて無いのだがな（激藁

0393デフォルトの名無しさん

NGNG

どれがマジで釣りか知らんがTrayIconを使っとけ。
自分でわざわざ作ることは無い。
コンポーネント開発はDelphiの特徴だろ。

0394デフォルトの名無しさん

NGNG

>>395
>コンポーネント開発はDelphiの特徴だろ。
コンポーネントを自分の手で書いていくのもな。

0395デフォルトの名無しさん

NGNG

>>392
あんたは何が言いたいの？

0396デフォルトの名無しさん

NGNG

純正品以外の拾ったコード使うとアプリが汚染されるから
素人にはお勧めできない。

0397デフォルトの名無しさん

NGNG

>>394
すでにあるコンポーネントを自分の手で書くのは馬鹿みたいですよ。
車輪の再発明とも言いますが。

0398デフォルトの名無しさん

NGNG

>>396
ソース公開されてれば問題ないだろ。

0399デフォルトの名無しさん

NGNG

>>399
くどいなぁ。それに対する答えは変わらんよ。

さて、どうする？君が車輪すら作れないと言うことは周知の事実だ。

0400デフォルトの名無しさん

NGNG

>>398
同意。デザイン時にHDDの適当なファイル削除することだって可能だ。

0401デフォルトの名無しさん

NGNG

>>399
あんた誰かと誰かをごっちゃにしてないかい？
文章よく読んでる？脊髄反射はいかんよ。

0402デフォルトの名無しさん

NGNG

>>398
交通事故で血液が足りなくなったからといって
赤の他人の血液を体内に注入するか？
普通しないだろ。

0403デフォルトの名無しさん

NGNG

>>404
で、××のホームページの○○さんは本当に信用できるんかいな？
掲示板全部自作自演かもしれんぞ？

0404　

NGNG

>>403
何の話？

0405デフォルトの名無しさん

NGNG

ソース公開されて無いコンポーネントも
ソースが汚いコンポーネントも要らん。

0406デフォルトの名無しさん

NGNG

フリーコンポーネントなんぞいらん。

0407デフォルトの名無しさん

NGNG

さて、自作しろ厨は去ったかな（藁

0408デフォルトの名無しさん

NGNG

>>407
そんな事いうとまた荒らしに来るぞ。

0409デフォルトの名無しさん

NGNG

(>>407 = >>408) = true

0410デフォルトの名無しさん

NGNG

>>409
勝手に一緒にするなよ。お前自作しろ厨だろ。

0411デフォルトの名無しさん

NGNG

>>410
勝手に自作しろ厨にするなよ。お前自作しろ厨だろ。

0412デフォルトの名無しさん

NGNG

糞レベルスレ皿仕上げ

0413デフォルトの名無しさん

NGNG

>>411
勝手に自作しろ厨にするなよ。お前自作しろ厨だろ。

0414デフォルトの名無しさん

NGNG

Delphi6 Personalのアンインストールはどうやればいいですか？

0415デフォルトの名無しさん

NGNG

>>>414
MSのと違ってファイルを消すだけでＯＫです。

0416デフォルトの名無しさん

NGNG

どうやら、自作しろ厨は去ったようだな（藁

では次の質問どうぞ↓

0417デフォルトの名無しさん

NGNG

TTaskIconを試しにインストールしたら
Classes.pasで「推奨されません」だの「警告」だのがドドドっと出た
俺の環境だけかな・・・やっぱ人には頼るなということかな

0418デフォルトの名無しさん

NGNG

>>417
ほら。だから自作しろって言ったろ。

0419デフォルトの名無しさん

NGNG

ドドッドッ　ドドッドッ　ワンツースリーフォー♪
ドドッドッ　ドドッドッ　ファイブ　シックス　セブーン♪

0420デフォルトの名無しさん

NGNG

270は俺の知り合いです
どうもお騒がせしました（ｗ

0421417

NGNG

Ent版だけの問題かもしれないけど、Delphiの再インストールで直ったよ

0422デフォルトの名無しさん

NGNG

どっどどどどっどどどどっどどどどどどどどどどっどどどどっどどどどっどどどどどどどどどどっ♪

0423デフォルトの名無しさん

NGNG

Delで、新規プロジェクトを作って、
デフォルトのFormにButtonを張り付けたとします。
すると、ソースは、
Form1 = class(TForm)
Button1: TButton;
private
　{ Private }
public
　{ Public }
end
てな感じになりますが、ここで、Button1のスコープって
なんなの？
Button1インスタンスも勝手に作ってくれるみたいだけど？

0424デフォルトの名無しさん

NGNG

>>423
privateの前の領域はDelphiの領分だから勝手に編集しないようにね
（触ることがあるのはイベントハンドラを消さずに
　コンポーネントを消してしまったような場合くらいかな）
あと、そこのスコープはpublicだよん

Formを右クリックして「エディタで表示」を選ぶと
Delphiのやってることが少し分かるよん

0425デフォルトの名無しさん

NGNG

>423
ヘルプの「Object Pascal言語ガイド」->「クラスメンバーの可視性」ってところを読め。

0426デフォルトの名無しさん

NGNG

>>424-425
ありがとうございました。
助かります。

0427デフォルトの名無しさん

NGNG

>>424
publicじゃなーい
publishedだ。可視性は一緒だけどさ。

0428デフォルトの名無しさん

NGNG

>>402
馬鹿かおまえ。赤の他人の血液を使うのが普通だろ？

0429デフォルトの名無しさん

NGNG

私はもるもんですが、なにか？

0430デフォルトの名無しさん

NGNG

>>428
>>402はエホバの証人なんだろう。

0431デフォルトの名無しさん

NGNG

彼らは神のご意志を行なうために神に献身した。
彼らは聖書が神の言葉であることを信じている。

0432デフォルトの名無しさん

NGNG

キリスト教徒というのは
方便も分からない石頭ぞろいですか？

0433デフォルトの名無しさん

NGNG

ｷﾀ━━━(ﾟ∀ﾟ)━━━!!!!!
>>432アフォ降臨

0434デフォルトの名無しさん

NGNG

キリスト教の世界

宇宙の中心は地球であーる！
↓
すべての星は地球を中心に回っているのであーる！
↓
学者「でも天体観測したら火星や木星の周りに衛星があるんですが・・・」
↓
そこだけ特別の空間なのであーる！
↓
学者「んなあほな・・・」
↓
だまれ！死刑！
↓
あぼーん

0435デフォルトの名無しさん

NGNG

WideStringとかunicodeを文字列メインにして組んでいる人はおられます？
VCLはまだ通常のstringだから、使わない方が無難ですかね・・・。

0436デフォルトの名無しさん

NGNG

>>435
特にその必然性を感じない。

0437デフォルトの名無しさん

NGNG

>>433
なんか書けバカ

0438デフォルトの名無しさん

NGNG

>>435
unicodeやinterfaceなどの新しい機能は
古い開発環境であるDelphiでは使わないほうが無難です。
煽り抜きで。

0439デフォルトの名無しさん

NGNG

はは、後に続く人は　”使わないほうが無難”　なんて理由で止まらないようにね。

0440Delﾌｻｷﾞｺ ◆A6VzDeLphI

NGNG

　　　　,,,,,,,,,,,,,,,∧,,∧　　／ﾌﾟﾆｺは全然大丈夫でつよ。
　　～′,,,,,,,,,,ミ,,ﾟДﾟ彡＜　 WideStringListクラスを
　　　UU"""" U 　⊃　　＼自分で作れるくらいに
　　　　　　　　　　　　　　　　なってれば…

まず、しょっぱにLoadFromFileがなくて鬱になる事うけあい。

とりあえず、これつかっとけ。

Delphi：WideStringとUnicodeでファイルアクセス
http://do.sakura.ne.jp/~junkroom/cgi-bin/megabbs/readres.cgi?bo=lounge&vi=1034090664

M&I氏のUnicodeのファイルを読み込む
http://member.nifty.ne.jp/m-and-i/tips/unicode.htm
よりかは、いいTipsになってるはずぞよ。

ごめん、interfaceはあおりぬきで
使いにくいと思うんだ。Delphiでは....

0441デフォルトの名無しさん

NGNG

interfaceが何で使い難い？　COM使う・作るなら使うべきだし
自作クラスライブラリにだって便利に使えるよ。

JAVAより低レベルだけど低レベルの分柔軟で実装が見えて使い易いと思うけど？

0442Delﾌｻｷﾞｺ ◆A6VzDeLphI

NGNG

じゃあ、便利な使い方をよくしらないだけかもしれません。

　　 ∧,,∧　　でも、最近も前つくったSplit関数についての機能
　　,ミﾟДﾟ彡　動的文字列配列でも
　ﾐ　　∪　　　StringListでも共通で使えるように
　ﾐ～,,　ﾐ　　する方法がわかんなくて、鬱だったです。
　 ∪ ∪　　　

0443デフォルトの名無しさん

NGNG

>>440
うーん.. こんなのを Tips とか言われてもなぁ...
低レベルコードを全部自分で書くことは勉強のためには大事だけど、新しい環境の
ことも同等に気を配らないと、あっというまにおいていかれるよ...

Delphi だと結局 Windows API を読んでいるのだから
1200 Unicode UCS-2 Little-Endian (BMP of ISO 10646)
1201 Unicode UCS-2 Big-Endian
で変換かけちゃうのが簡単なんだが。

0444デフォルトの名無しさん

NGNG

また文字コードネタか・・・

0445Delﾌｻｷﾞｺ ◆A6VzDeLphI

NGNG

　　　　∧,,∧　＜　　DelでUnicodeファイルの読み書きに
　　　ﾐﾛ゜　,彡　　　不自由してたから自作っただけですが、何か？
　　　　U　　ﾐ　　　　　文句あるなら、あなたの納得するTipsを晒せば？
　　　　ﾐ　　＠　　　
　　　　Ｕ''Ｕ　　　
　　　￣￣￣￣
> Delphi だと結局 Windows API を読んでいるのだから
> 1200 Unicode UCS-2 Little-Endian (BMP of ISO 10646)
> 1201 Unicode UCS-2 Big-Endian
> で変換かけちゃうのが簡単なんだが。

まさかこれがTipsじゃないよね？

毎度毎度、文字コードとか文字列とか私がいうと
> あっというまにおいていかれるよ...
と、小バカにするﾔｼがいるね。

自作エディタクラスとか作った
経験上から言っているんだろうけど、
自分の高度な技術をひけらかしていても
誰でも使えるような使いやすいクラスは作れないと思うよ。
誰にでも使えるようなTipsが書けないのと同じく。

0446デフォルトの名無しさん

NGNG

>> すでにあるコンポーネントを自分の手で書くのは馬鹿みたいですよ。

こういうヤツは、３０分で書ける簡単なコンポーネントの場合でも、
書く前に一生懸命世界中に「すでにある」かどうか探し回るんだろうね。

>>445

どんな場合でも、そういう一般論ばかり言って偉そうにするヤツがいる。
いちいち、かまうな。

0447ねこま

NGNG

>とりあえず、これつかっとけ。
なんか凄くえらそうに読めてしまうんだけどどうか？

0448デルファイの名無しさん

NGNG

割り込み失礼。
単にWideStringをファイルから読んでいるだけなので、
Tipsと言うよりストリームの使い方のサンプル程度の話とは思うのですが、
>>440の関数の仕様も自分的に微妙なもんで。
まあ、FileExistsで抜けるのでは無く例外出すべきとか、
TFileName = AnsiStringだからUnicodeファイル名で困るじゃん(wとか、
(CreateFileW API版FileOpenを作っておけば楽)
* 2 ではなく* SizeOf(WideChar)にするべきとか、
その程度のツッコミでしか無いんですけどね。

でも、435氏は、HowToでは無くて「いる？」とお仲間を探しているので
別にスキルで困ってるわけじゃなく、実際VCLと併用すると落とし穴が無いかとか
そういう話をしたかったように見受けられます。
(正直、詳しい話も出ないうちから即座にURL貼るのはどうかと思う)

ところで、DelphiでUnicodeなら、こんなのも。
http://www.delphi-unicode.net/

0449デフォルトの名無しさん

NGNG

>>447
あなたが2ちゃんに慣れてないだけです。
慣れるのが嫌なら帰ってください。

0450デフォルトの名無しさん

NGNG

>>446
> こういうヤツは、３０分で書ける簡単なコンポーネントの場合でも、
> 書く前に一生懸命世界中に「すでにある」かどうか探し回るんだろうね。
こういうヤツは、３０分で探せるコンポーネントの場合でも、
書かないで一生懸命１０時間かけて作るんだろうね（藁

0451450

NGNG

× 書かないで一生懸命１０時間かけて作るんだろうね（藁
○ 探さないで一生懸命１０時間かけて作るんだろうね（藁藁藁

0452デフォルトの名無しさん

NGNG

>>450
字が読めないみたいだね。
「３０分で書ける」← 意味をよく考えるように

0453デフォルトの名無しさん

NGNG

>>451
日本語にも不自由してるのか（藁

0454デフォルトの名無しさん

NGNG

>>450
見つからなかったときは、しぶしぶなれないコンポつくって、
車輪の再発明かどうか、心配で心配でたまらないんだろうね。

0455デフォルトの名無しさん

NGNG

>>448
>そういう話をしたかったように見受けられます。
> (正直、詳しい話も出ないうちから即座にURL貼るのはどうかと思う)

あのね、そういうふうには読めないね。VCL では Unicode と併用するのは
危険（＝つかわないほうが無難）と言うふうに読めるでしょ。詳しい話が出る
保証なんかないでしょ。435 はスキルについて困っているようにも読めるよ。
435本人じゃないなら、あんたの思いこみ。

0456デフォルトの名無しさん

NGNG

>>452-454
お前ら本当の馬鹿だろ。多分同一人物だと思うが。
>>450が何を言いたいのか全然分かっていないようだな。
自分の理解不足を他人のせいにする前に、もう少し日本語を勉強するように。

0457デフォルトの名無しさん

NGNG

>>456
お前、本当の馬鹿だろ。多分そうだと思っていたが。

>>450が何を言いたいのか全然分かっていないようだな。

コード書かないでコンポーネントを１０時間かけてつくる超能力のはなしだろ。

0458デフォルトの名無しさん

NGNG

粘着が二人いるようだな・・・

0459デフォルトの名無しさん

NGNG

TurboPascalの時代にちょろっと触っていた程度でDelphiは全く解らないので
思い切り外しているかもしれませんが…

>>229-245を読んでいて思ったのは初期のDelphiのstring型ってTurboPascalと
互換がある形式（length(string)でstring[0]が返される最大255byteの配列
みたいな感じの仕様）だった気がするのですが、いつからCみたいなNULLストッパー
が文字列の最後に付く形式になったのでしょう？

0460デルファイの名無しさん

NGNG

>>459
Delphi2から。

32bit化する際、文字列の最大長255文字制限を取り払うため
string型が(自動的に)動的にメモリを割り当てる型に変化しました。
その際、どうせだからついでに1バイト余計に確保してNULLを入れておけば
先頭アドレスをそのままAPIに渡せて便利♪
…ということを某の人が思いついたのでしょう。

0461ねこま

NGNG

えらそうに読めてしまった理由がわかったよ
角が立つから言わないけどね

0462459

NGNG

>460
なるほど…2からでしたか。
今のdelphiのソースをみるに、どうもPascalとは思えないような
ドラスティックな拡張がされていて、可読性などが損なわれてきている
ような感じがしてしまいます…。

0463デフォルトの名無しさん

NGNG

>>462
そう？確かにオプションはむちゃくちゃな量あるけれど、C++みたいに何でも記号でしかも文脈や位置によって意味が変わるってことはないよ。

知らない物が増えた－＞可読性が落ちた（そらそうだ。意味わからないんだから。）

ってことじゃなくて？

0464463

NGNG

ああ、3.1と6.0Pユーザです。
アクションリストとかは見なかったことにしていますｗ
オーバーロードとか動的配列とか嬉しいけどね。

0465　

NGNG

ある実数型(real,double)変数に代入使用とする値が、
それをオーバーフローさせるような値なら、何らかの処理を行うようにしたいのですが、
なにかいい関数、手続きなどは del で用意されていないのでしょうか？

ファイルを開く際の try～のようなものがあったらいいんですが。

0466デフォルトの名無しさん

NGNG

>>465
EOverflow ではダメなのかい？

0467デフォルトの名無しさん

NGNG

　Delphiをはじめてみようと思ってパーソナルをダウンロードしました。
早速、目覚まし時計を作っています。
コンボボックスで「時間」「分」を指定して時間になったらベルを鳴らすように
したいのですが今の時間とコンボボックスの数字を比較するためにはどうしたら
いいでしょうか？　時間と分にあたる関数宣言とString関数として取得した設定時間
を時間の関数に変換するところで悩んでいます。

0468デフォルトの名無しさん

NGNG

>>467
初歩のうちは人に聞くよりも試行錯誤した方がいいと思うよ
とりあえずDecodeTime、EncodeTimeのヘルプを見ることから始めましょう
（Delphiの関数は「Delphiヘルプ」-「VCL リファレンス」に詳しく書いてある）

0469デフォルトの名無しさん

NGNG

>>468 追記
調べるともっと便利な関数があることも分かると思うから
自分で見つけてね

0470467

NGNG

　ありがとうございます、早速調べてみます。
今、TDateTimePickerというビジュアルコンポーネントを見つけました。
これからは、ひととおり調べてみてから質問しますね。

0471デフォルトの名無しさん

NGNG

>>467
TDateTime という型は Double型と同じなので　比較演算が可能です

ただdouble型と同じなので、= 演算をやるとダメです。
少数点を切り捨てると日数に
少数点以下を24*60倍すれば分になりますからそれを整数型にして=するか

1秒単位に大小比較で指定した時間+5秒程度の範囲ならベルを鳴らす仕様にしてはと思います

0472472

NGNG

Delを起動すると、何もないフォームがある状態で起動されますが
既存のプロジェクトを編集するためにわざわざ
[ファイル]→[すべて閉じる]をしています。
普通に "*.dpr" をダブルクリックから実行すると、Delがハングアップするんです。
起動時に、純粋にDelだけを起動する実行オプションはないでしょうか？

0473デフォルトの名無しさん

NGNG

>>472
コマンドラインオプションは-?だよ。

0474467

NGNG

　ついにできました。
DecodeTimeで現在時刻を時と分に分解、Word型で宣言した変数にコンボボックスの
値を格納しておいてタイマーで監視＆比較でオッケーでした。
このままだと目覚ましのサウンドの最初の部分が鳴り続けるので、フラグをたてて
指定時刻に一回鳴らし始めたらもう鳴らさないという処理も追加しました。
　実は私、プログラム組むのははじめてなので質問するのも緊張したのですが、
とてもいいヒントをもらいました。これからもお世話になります。

0475デフォルトの名無しさん

NGNG

>>472
全てのDPRが？　それとも特定の？　特定のだったらよくある症状だから、一度不要ファイルを削除するといよ。

0476デフォルトの名無しさん

NGNG

今日からDelphiを勉強しはじめようと思っている者ですが、
なにかいい参考書はありますでしょうか？
ネット環境が自由にならないので、
オンラインで資料を探すことができないのです。

0477４７２

NGNG

>>473　>>475
レスありがとうございます。
何もない状態で起動するのは、 "delphi32.exe" /np できました。

>>475
特定の *.dpr だけです。
どれが不要ファイルなのかよく分からないのですが、うまくいったら報告します。

0478　

NGNG

>>465です。
var
i, j: real;

begin
i:=0.01;
try
j := exp(1000 / i); // 0で割る
except
on EOverFlow do
begin
showmessage('j:オーバーフロー');
j := 10;
end;
end;

これでできました。>>466サンありがとうございました。

0479デフォルトの名無しさん

NGNG

>>476
フサギコさんがまとめてくれてるよ
http://do.sakura.ne.jp/~junkroom/cgi-bin/megabbs/readres.cgi?bo=lounge&vi=1015084410&rm=100

漏れも「基礎Del」を初心者に買ってあげたことがある

0480デフォルトの名無しさん

NGNG

>>479 補足
基礎Delはいま「基礎からわかるDelph6」だと思った

0481476

NGNG

>>479さん
ありがとうございます！
会社帰りに本屋へダッシュします。

>>480さん
補足ありがとうございました。
最新がDelphi6ですものね。
参考にします。

0482ななしへたぐらま ◆XcB18Bks.Y

NGNG

>>460
末尾にNULL文字を入れるのはVBをまねたとか
どこかでみたような記憶がありますが，違ったかな．

自動割り当て，自動解放文字列というやり方自体も
BASICの真似なのですが，
文字列変数への代入の時に単純に文字列をコピーしない仕様などは
よくできていると思います．
　（…ってこれもBASICで先にやってたのかな？
　　MicrosoftBASIC 7.0ではでかい文字列をコピーすると
　　よくOut of String Spaceエラーになったものですが…）

0483デフォルトの名無しさん

NGNG

>>477
不要ファイルは
http://pc3.2ch.net/test/read.cgi/tech/1029120920/77

0484472

NGNG

>>483
どうもありがとうございます。
　*.~*
　*.dof
　*.dcu
のファイルがあったので消したけれども、やはりうまくいきませんでした。
本体を起動してから、[ファイル]→[開く]からでならできるので、
あきらめます。

0485デフォルトの名無しさん

NGNG

>>484 dsm が残ってない？

0486デフォルトの名無しさん

NGNG

Delphi7買ったらあとから送ってくれるというおまけCDはまだこないのですか？

0487デフォルトの名無しさん

NGNG

質問です。
MLのログに質問はあったのですが、回答が無かったので、それをそのまま掲載・・・

OpenDialogやSaveDialogのHistoryListのヘルプを見ると....
「現在は使いません」とか「Delphi の以前のバージョンとの互換性のために残
されています」と書かれていますが、現在では何を使えばいいのでしょうか？

0488デフォルトの名無しさん

NGNG

>>487

以前のバージョンでどう使われていたかしりませんが、自前で　Add()　する
なりすると、ちょっと試したところでは今でも使える。ただ、ＵＩに反映され
ないのであまり意味はないが。

0489ねこま

NGNG

HistoryList プロパティは Delphi1 -> Delphi2 で無くなりました．
これは Windows95 の GUI に合わせた変更です．
代わりに [ファイル(F) | 開き直す(R)] の様な履歴メニューを使います．

0490_

NGNG

>>485　ありません。

0491デフォルトの名無しさん

NGNG

>>475
うちではWin98SEだとしばしば発生する。
プロジェクト読み込んでフォームが表示されるときにハング。
ファイルメニューから読み込むと問題なく開く。

Win XPの方ではおこったことないんだけどね。

リソースの問題かもしれんが。

0492デフォルトの名無しさん

NGNG

> HistoryList プロパティは Delphi1 -> Delphi2 で無くなりました．

なくなりませんよ。意味がなくなっただけです。

0493デフォルトの名無しさん

NGNG

「入門 Delphi 6.0 personal 　-　無料版で始めるはじめてのプログラミング　-」
http://www2.marukotv.jp/~w-wings/download/download.htm
http://www2.marukotv.jp/~w-wings/download/deltext003.lzh

0494デフォルトの名無しさん

NGNG

>>493
パスワード教えて。

0495デフォルトの名無しさん

NGNG

>>482
＞末尾にNULL文字を入れるのはVBをまねたとか
＞どこかでみたような記憶がありますが，違ったかな．

Cだと思われ。

0496デフォルトの名無しさん

NGNG

>>495
おぃおぃ・・・

0497Delﾌｻｷﾞｺ ◆A6VzDeLphI

NGNG

　 .∧,,∧　　俺がダメフサだから
　ミTДT彡だからでつね。>>461さん
　 (∩∩)
　　　　　　　M&I氏のページよりいいTipsが出来たから
　　　　　　　うれしかったの。

>>448さん
仕様が微妙なら、
「ここをこう変えてみました。
こうするのがXXと同じでVCLっぽくで、いいと思われ」
とか書いてソース晒してくださるとうれすぃっすね。
SizeOf(WideChar)は私単に忘れてました、
そっちのほうがきれいだと思いますよ。

>>464さん
アクションリストは正直見たほうがいい。
C#よりも勝るｱｰｷﾃｸﾁｬだと思ってます。

0498デフォルトの名無しさん

NGNG

アクションリストの利点が分かりません。
なにがすごいのか教えてください。

0499デフォルトの名無しさん

NGNG

メニューとポップアップメニューとツールバーに
同じキャプションとイメージと機能を割り当てたい場合どうするよ?

C#は漬け和スレだろ。いずれつく｡

0500Delﾌｻｷﾞｺ ◆A6VzDeLphI

NGNG

　　　　　　　　　　＿＿＿＿＿＿＿＿＿
　　∧,,∧　　／　
　　ミ,,ﾟДﾟ彡＜　　Toolbuttonとﾒﾆｭｰが
　　ﾐつ⑩) 　＼　同じActionで管理できるですよ
　～ﾐ　　ﾐ.　　　　￣￣￣￣￣￣￣￣￣
　　 ∪''∪　他にもUpdateイベントを定義することで
　　　　　　　状況に応じたコードを書くのが楽。

0501デルファイの名無しさん

NGNG

>>455
はあ…。さいですか。

>>497
別にこんなもので対抗してもしょーもないですし、
関数にせずともその場その場で書いてもいいような処理って気もしますが、
まあツッコミ入れた責任というか延長というか一応…
http://do.sakura.ne.jp/~junkroom/cgi-bin/megabbs/readres.cgi?bo=lounge&vi=1034090664&res=2&fi=no

ところで、話題に出てきてもいない他人のページのURL貼って、
自分のコードがそれよりいいぞ！と主張するのは、やっぱ何か言いたくなるような。

0502デフォルトの名無しさん

NGNG

>>501
>{メモ帳はUTF-8にもBOMを付けるが、UTF-8には何も付けないのが正しいので無視}
>UTF-8には何も付けないのが正しいので
昔はそうだったんだけど、今は UTF-8 化された BOM は仕様として含まれます。
Notepad の勝ち。

出典 : http://www.unicode.org/unicode/faq/utf_bom.html#29

0503デフォルトの名無しさん

NGNG

Delﾌｻｷﾞｺさんのファンです。

0504デルファイの名無しさん

NGNG

>>502
う、負けた。
知識が古かったか…指摘感謝｡

0505デフォルトの名無しさん

NGNG

Delﾌｻｷﾞｺさんが不安です。

0506デフォルトの名無しさん

NGNG

>>504
Byte Order 問題が解決されたはずなのに BOM をつける MS - Notepad が悪いはずなのに、
便利だからデファクトスタンダードになっちゃった良い例。

まぁ MS のわがままさは十分知っているけどさ..

0507506

NGNG

UTF-8/BOM はつける必用はないけど、もし存在したときはエラーにせず読み飛ばせ。ということで。

0508デフォルトの名無しさん

NGNG

サンプルのMDIメモ帳をいじっているのですが、
メインメニューの「ウィンドウ」の項目に、
チャイルドがリストアップされる仕組みがわかりません。
というのも、ソースを見る限り、何もしていないようなのです。

なんといえばよいでしょう、、、
main.pasはチャイルドを作ったきり、変数を使い捨てているだけなんです。
どこにもメニューにリストアップされるような事が書いてないんです。

あれはどういう仕組みでしょうか？

0509デフォルトの名無しさん

NGNG

>>508
親フォームのWindowMenuプロパティに子ウィンドウリストを表示したい
メニューアイテムを指定するだけでOK。

0510デフォルトの名無しさん

NGNG

　目覚まし時計のプログラムに「指定時刻の５分前にWindowsを起動する」機能を
実装したいのですが、なにかよい方法はないでしょうか？
足がかりだけでもいただければ調べますのでよろしくお願いします。

0511508

NGNG

なるほど、あれはTCustomFormの標準機能なのですね。
見つけました。ありがとうございました。

0512デフォルトの名無しさん

NGNG

>>510
別の常時機能なPC用意してWAKE ON LAN

0513510

NGNG

>>512
確かに可能ですが、できればスタンドアロン環境で機能するように実装したいです。

0514デフォルトの名無しさん

NGNG

TSpeedButtonに48x24のビットマップ読み込んだんだけど
なぜか横幅が半分になっちゃったよ。
これってガイシュツ？

0515デフォルトの名無しさん

NGNG

0516510

NGNG

>>513
・・・・・ごめんなさい、私がわるぅございましたぁ。うえーーーん。

0517デフォルトの名無しさん

NGNG

スタンバイ状態でというなら、なんか方法があると思うが。
録画ソフトとかが実現してるはず。

0518510

NGNG

>>517
スタンバイ状態ですか、なるほど・・・。
イメージとしてはバイオスをプログラムでたたいて、起動時刻設定して
シャットダウン。で、スタートアップから実行というからくりを考えていました。
シャットダウンのコンポーネントは見つけていたのでバイオスをたたく部分だけ
実装できれば可能なのではと素人考えをしていたのです。
ただ、BIOSも種類がありますし、そもそもタイマー起動に対応していないBIOS
もあるみたいなので汎用性ということを考えると厳しいのかもしれませんね。

0519デフォルトの名無しさん

NGNG

Delphi5Pro なんですが Win2000 でアカンウト別の MyDocuments などにアクセスする方法はありませんか？

0520デフォルトの名無しさん

NGNG

>>519
あります。

0521デフォルトの名無しさん

NGNG

>>520
どうすればいいですか？

0522デフォルトの名無しさん

NGNG

Win32APIスレ逝け

0523デフォルトの名無しさん

NGNG

細菌は教えてやった所でお礼の一言もないからなぁ・・・

0524デフォルトの名無しさん

NGNG

>>501 のソースってどうよ？

0525デフォルトの名無しさん

NGNG

でそろそろ初心者が質問してよろしいですか？

0526デフォルトの名無しさん

NGNG

細菌は教えてやった所でお礼の一言もないからなぁ・・・

0527デフォルトの名無しさん

NGNG

もう冬休みの季節ですな・・・

0528デフォルトの名無しさん

NGNG

[ファイル|開きなおす]コンポってない？

0529デフォルトの名無しさん

NGNG

ない

0530助けてください(ＴДＴ)

NGNG

Delphi6 PersonalをダウンロードしてきてWindows XP環境にインストールし
ました。早速使ってみたところ、何故かたまに実行ボタンを押したときに
完全にシステムがフリーズしてしまうことがあります。コンパイルはちゃん
と通っているようですが、フォームが完全に表示されず、タイトルバーが表示
された時点で固まってしまう状況です。とりあえず、Delphiを強制終了しよ
うとCtrl+Alt+Delでタスクマネージャを出しますが、そのウィンドウを
フォーカスしただけで、タスクマネージャまで「応答なし」になってしまい
ます。ログオフしてみようとスタートボタンをクリックすると、タスクバー
とスタートメニューまでフリーズしてしまい、最終的に電源強制切断以外
どうしようもなくなってしまいます。一体どうしてでしょうか？単に
Delphi 6 PersonalはXPに対応してないんでしょうか？

0531デフォルトの名無しさん

NGNG

>>530
http://www.borland.co.jp/delphi/devsupport/d6issues.html

0532ありがとうございます(ＴДＴ)

NGNG

早速やってみました！これで直るでしょうか・・・。
(((((;ﾟДﾟ))))ｶﾞｸｶﾞｸﾌﾞﾙﾌﾞﾙ　しながら今しばらく使い続けて
様子を見てみようと思います。では。

0533デフォルトの名無しさん

NGNG

0534デフォルトの名無しさん

NGNG

>>533
ここはDelphiのスレですよ。荒らしですか(w

0535532 (ＴДＴ)

NGNG

既に530の問題が再発した模様です・・・。
ショボーン・・・。(´･ω･｀)

0536デフォルトの名無しさん

NGNG

IME のあれか？

0537デフォルトの名無しさん

NGNG

ちっと疑問に思ったんだが、最近のDelphiではReal型は独自形式じゃなくて
汎用型って分類になってるから、ファイル出力とかしない内部的な実数値は
DoubleやSingleじゃなくてRealを使うべきなんだろうか？

0538デフォルトの名無しさん

NGNG

サイズや精度を明示する必要がなければIntegerやRealを使えばいいんじゃないの。

0539デフォルトの名無しさん

NGNG

TimageのTransparent、ヘルプには背景を透過させると書いてありますが、
指定した任意色だけを透過させることはできますか？
（そもそも背景とは、がわかってない(´･ω･`)）

0540デフォルトの名無しさん

NGNG

>>530
あなたとまったく同じ症状でした。
僕の場合は、↓で治ったようです。
http://130.158.124.192/~takeuchi/delphi/browse.cgi?index=069593

0541デフォルトの名無しさん

NGNG

そ。システムの復元とも ctfmon とも関係ない。
D7 のデバッガは直っているので、提示された対処は必用なし。

0542デフォルトの名無しさん

NGNG

http://bdn.borland.com/article/0,1410,29361,00.html
Delphi 6 RTL アップデート２公開。

いまごろなぜ？
いつものように日本語版はまだ。

0543デフォルトの名無しさん

NGNG

Delphi5 も出してくれ…

0544デフォルトの名無しさん

NGNG

>いまごろなぜ？
サポートが続けられるのは良いことだよ

0545デフォルトの名無しさん

NGNG

ユーザー数的にも6>>>>>>>>>7だしね。
買うなら偶数バージョンだな。

0546デフォルトの名無しさん

NGNG

>>545
こないだまで「買うなら奇数バージョンだよな」とか言っていなかった？

0547デフォルトの名無しさん

NGNG

>>546
いえ、1, 2, 4, 8と買っていくのが正しいです。

0548デフォルトの名無しさん

NGNG

3.1 が最高。という評価が多いことをどう判断する？ >> 547

0549508

NGNG

またMDIで質問なのです。
サンプルでvar Child: TMDIChild;について、Child.Freeをやっていません。
これはTMIDChildのほうでAction := caFree;にすれば解放されるとあります。
ここでふと思ったのですが、サンプルでは
Child := TMDIChild.Create(Application);とやっているところを、
TMDIChild.Create(Application);と、変数に入れないでも解放されるのでしょうか？
これは安全でしょうか？
もう一つ、処理が終わったら自分で解放するタイプのTThreadについても、
インスタンスのための変数は不要なら使わなくていいのでしょうか？

0550デフォルトの名無しさん

NGNG

>>549
半分yes
Applicationを Owner にしてしまうと　Application終了時に解放されるわけで、それなら
解放しないのとそう変わらない（デストラクタが呼ばれるメリットはあるけど）

親のフォームと一緒に解放させるべきでは？

TThread　は自分で解放が巧くゆくならそれでいいと思うけど、結構注意が必要で
面倒だから、メインスレッドで解放した方が楽なような気もするけどな

0551508

NGNG

子ウインドウは閉じたときに解放されると思っていました。
長時間開いたり閉じたりしてたらドンドン肥大化するかもですね。
まだちょっとわからないのですが、
＞親のフォームと一緒に解放させるべきでは？
ということは、Create(Application.MainForm);にしたほうが良いという事でしょうか？
オーナーと親をまぜこぜに覚えててすみません。

0552デフォルトの名無しさん

NGNG

イベントを作成したときにパラメータに自動で付く
(Sender: TObject)ってどういう意味でしょうか？

イベントの呼び出し元？
参照すると何が入っているのでしょうか？

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

NGNG

>>510
タスクスケジューラ＋休止状態で出来るよ。

タスクスケジューラの設定に「タスクの実行時にスリープを解除する」ってところがあるから、
そこをチェックして休止状態にすれば、時間になると立ち上がるよ。

どういう仕様にするのかは知らんけど、
・タスクスケジューラのコントロール
・休止状態への移行
の２つの技術が必要になる。
タスクスケジューラはDelphiにpasがないからどっかでコンポーネントを拾ってくる。
休止状態へは「SetSystemPowerState」APIを使う。

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

NGNG

>>552
複数のコンポーネントから同じイベントハンドラを呼び出せるのは知ってると思うけど

Senderがあるおかげで
呼び出し元によって処理を振り分けることが可能になる

0555デフォルトの名無しさん

NGNG

初めてActiveX DLLを作成することになったのですが、うまく例外を発生させることができません。
例外情報を渡すためのクラスとしてIDispatchインターフェースとExceptionクラスを継承したクラスを作成し、
例外発生時にはそのインスタンスを作成およびraiseして、クライアントアプリケーション側では、
そのインターフェースからエラー情報を取得するようにしたかったのですが、
クライアント側で発生する例外はただのExceptionになっています。
例外オブジェクトはActiveXとアプリケーションの間を飛び越えられてないようです。
ActiveXでエラー情報を渡す方法ってどのような方法がありますか？

0556デフォルトの名無しさん

NGNG

>>554
なるほど！
ありがとうございます。

0557デフォルトの名無しさん

NGNG

つーか、１回くらい検索してみてから書いてるのかなぁ？

0558デフォルトの名無しさん

NGNG

Free の使うタイミングがよくわからないんです。
使うタイミングをわかりやすく教えてください

0559デフォルトの名無しさん

NGNG

不要になったらFreeすりゃいいんだよ。
そのブロックで閉じてたらfinallyで、
フォームで使うんならFormDestroyで。

0560デフォルトの名無しさん

NGNG

form2:= Tform2.create;
form2.showmodal;
form2.free;

0561デフォルトの名無しさん

NGNG

>>558
最初はオレもそうだった（藁
「なんでFreeすんのと、しないのがあるのかなぁ…？」とかな。
ガンガンいじってればそのうち分かってくるよ。最初の頃に
疑問に思ってたことは、「ははぁ…なーるほどなぁ…」ってなってくるから。

0562デフォルトの名無しさん

NGNG

メモリ512MBも積んでたらFreeいらんだろ。
サーバじゃあるまいし。

0563デフォルトの名無しさん

NGNG

>>560
TFormの場合はReleaseじゃなかったっけ？

0564デフォルトの名無しさん

NGNG

横からｽﾏｿ

>>560
この例では、form2がshowされた瞬間にfreeされそうに見えますが、実際はform2が
closeされたときにfreeされるんですよね？そこら辺がよくわからないのですが･･･。

0565デフォルトの名無しさん

NGNG

>>562
Free を最初から逃げる奴にプログラマの適性はねえよ。

0566デフォルトの名無しさん

NGNG

>>564
showmodalの意味わかるか？つーか調べな。

0567デフォルトの名無しさん

NGNG

>>566
そか、モードつきだから裏は無効になるんだ（ﾟдﾟ）!!

0568デフォルトの名無しさん

NGNG

form1.button1.click;
begin
form2:= Tform2.create;
form2.show;
　 //releaseいらないバージョンは下のようにっと
end;

form2.close(sender:TObject);
begin
action:=caFree;//←これで解放できるらしい
end;

0569デフォルトの名無しさん

NGNG

CreateとFreeを多用するプログラム作るようになってから、Windowsにトドメを刺す
回数が多くなったなぁ･･･。

Win2000なのに突然青くなって止まったときはﾋﾞﾋﾞｯﾀ。

0570デフォルトの名無しさん

NGNG

>>569
フツーその程度で落ちないとは思うんだけど・・・。

0571デフォルトの名無しさん

NGNG

>>569
それはCreateとFreeが正しく行われていない証拠だろ・・・

0572デフォルトの名無しさん

NGNG

>>569
Win2000が青吐いて落ちる場合は、ドライバがタコな場合が多い。
それか、PC腐ってるか。
普通のアプリ程度じゃ落ちないって。

0573デフォルトの名無しさん

NGNG

CheckMem.pas とか、MemProofは必須ではないのか？

0574菊地桃子

NGNG

ここって、厨房ばっかりでほんっと
つかえない

0575デフォルトの名無しさん

NGNG

バージョン情報でAlt+T E A M

0576デフォルトの名無しさん

NGNG

>>575
なんでいちいちコピペするかなぁ。しかも2日前のを。

0577デフォルトの名無しさん

NGNG

>>572
以前、0除算で青くなったことがある。

IDEの中でやったら、ただの例外で済んだけど、単体で実行したら
画面が崩れてフリーズ。画面表示部分だったからドライバが関係してるの鴨･･･。

0578デフォルトの名無しさん

NGNG

BorderStyle = bsNone のときに、タスクバーの当該ボタンを右クリックしても
システムメニューが表示されませんが、これを表示させる方法はないのでしょうか。

0579デフォルトの名無しさん

NGNG

でそろそろ初心者が質問してよろしいですか？

0580デフォルトの名無しさん

NGNG

>>579
いつでもどうぞ。
「過去ログ読め」って言われるだけだけど。

0581デフォルトの名無しさん

NGNG

プログラム初心者です。
これからはじめるのにC#とVB.NETどちらがいいのでしょうか？

0582デフォルトの名無しさん

NGNG

>>581
C#

0583579

NGNG

モナーの *やさしい* Delphi質問スレ Ver.9
http://pc3.2ch.net/test/read.cgi/tech/1033668645/724-726

と同じことで
TEmbeddedWBやTUIWebBrowserを
Del7proで使いたいのですがインスコできません。

簡易プラウザでJava関係を有効無効の設定を使いたいのですが

一応過去ログ読んでDel6パーソナルにはインスコできたんですけれど、
Del7proにて使えないのでしょうか？

0584デフォルトの名無しさん

NGNG

>>583
ソースいじったような記憶があるけど、ｲﾝｽｺでけたよ。

0585デフォルトの名無しさん

NGNG

>>584
なんかタイプライブラリから生成したコードってコンパイルできないことあるよね。
でも、Delphiやってる奴なら速攻で直せるわけで。

0586デフォルトの名無しさん

NGNG

　はじめての作品ができました。
ただの目覚まし時計ですが、スキルアップのためにも是非批評してもらいたいです。
どこか作品をアップできるところはありますか？

0587デフォルトの名無しさん

NGNG

ここに添付
http://onigiri.s3.xrea.com:8080/delphi/index.php?%5B%5B%BB%A8%C3%CC%5D%5D

0588デフォルトの名無しさん

NGNG

>>586
ああ。ソースだけでいい。
指定時間が来てファイル消されちゃかなわん。

0589586

NGNG

　雑談ページに「Yuclock.zip」というファイルをアップしました。
アップするの初めてなので、問題があればご指摘ください。

0590デフォルトの名無しさん

NGNG

落とし方がわからんすまん。

0591586

NGNG

>>590
　雑談ページの一番下に添付ファイルという項目があるのでそこを右クリックで保存すれば
できそうですよ。

0592デフォルトの名無しさん

NGNG

ttp://onigiri.s3.xrea.com:8080/delphi/index.php?plugin=attach&openfile=Yuclock.zip&refer=%5B%5B%BB%A8%C3%CC%5D%5D
でいけるみたいだね。みてみるよ。

0593デフォルトの名無しさん

NGNG

音符マークをクリックして、wavファイルを指定せずに閉じたら
ビープ音が狂ったように鳴りまくるのだが・・・。

0594デフォルトの名無しさん

NGNG

密かにWaveファイルのPass変えられるとエロイ事になるから。
音声変更時にパスワードクゥイヴォヌソ。

0595586

NGNG

>>593
　うーん、オープンダイアログでwavにフィルターかけているのですが
それでもだめみたいですね。拡張子がwaveファイルじゃなければ・・・
というような処理を加えたほうがいいのかなぁ。少し考えて見ます。
試していただいてありがとうございます。

0596デフォルトの名無しさん

NGNG

>>595
選択しないと開けないよーん！なプロパティって無かったっけか？
Mustexistとかで出来そうな肝。

0597586

NGNG

>>594
　ためになります。改善方法は、
「指定したアラーム音ファイルが勝手に変更されることを防ぐ処理(パスワード等)」
さらに「指定したアラーム音ファイルが移動等された場合の対応」ですね。
なんだか、堅牢な目覚まし時計になっていきそうです。

0598デフォルトの名無しさん

NGNG

>「指定したアラーム音ファイルが勝手に変更されることを防ぐ処理(パスワード等)」
ユーザーには保護しているように見せて、
実際にはiniファイルにpathもpassもそのまま書かれてるなんてタコな仕様にするよ。
設定ダイアログ作って現在の設定を確認できればそれで十分。

0599586

NGNG

　β1アップしてみました。
>>596
　ありがとうございます、これで「ぽんぽんぽーん」は鳴らないと思います。
なお、「♪」ボタンは試聴も兼ねているのでキャンセルでもアラーム音が鳴ります。
>>598
　そうですかぁ。アラーム音はとりあえず設定されていれば機能は果たすと思うので
いいんじゃないかなぁと考えていたところでした、THX。ただ、指定されたファイルが
存在するかどうかは監視する必要がありますよね。うーん、難関だ。

0600デフォルトの名無しさん

NGNG

タイマー機能は、指定した３つ(～５程度)の時間をボタン１つ始動＆一時停止可能る。
例、1時間45分(作業用),15分(休憩用),20分（温泉卵用)

目覚まし機能は、指定した３つ(～５程度)の時間をボタン１つでON/OFF切り替え可能。
（＋曜日毎に設定可能なら最高。）

レジストリいじらない。軽い。

以上の条件をクリアしたものを作ってください。おながいします！

0601デフォルトの名無しさん

NGNG

>>600
　質問
タイマー同士はそれぞれ排他利用でいいのかい？
つまりAというタイマーを使っているときは、他のB,C等のタイマーは利用しないということ。
　目覚まし機能については曜日毎にセットできればいいのかな？
例：月・火・水は8時、木・金は10時、土・日は12時という感じ
　教えてちょうだい

0602デフォルトの名無しさん

NGNG

ソースコードを配布する際の注意点
http://onigiri.s3.xrea.com:8080/delphi/index.php?%5B%5B%C7%DB%C9%DB%A4%CE%BA%DD%A4%CE%C3%ED%B0%D5%C5%C0%5D%5D

0603デフォルトの名無しさん

NGNG

>>601
>作ってください。

つぅか冬休みにスレ違い甘やかすのやめとけ。偉いことになる。

0604デフォルトの名無しさん

NGNG

>>603
　すれ違いは確かだが、初心者がつくるにはちょうどいい題材かもしれんな

0605デフォルトの名無しさん

NGNG

TForm の WindowState の値を INI に入れるにはどうすればいいのですか？

0606デフォルトの名無しさん

NGNG

＞スレ違い
Wikiにそういうページ作りゃあいいわけよ　>>586が

0607デフォルトの名無しさん

NGNG

>>605
書き込み
ini.WriteInteger('window', 'windowstate', Ord(Form1.WindowState));
読み込み
Form1.WindowState := TWindowState(ini.ReadInteger('window', 'windowstate', Ord(wsNormal)));

0608605

NGNG

>>607

thx

0609デフォルトの名無しさん

NGNG

0610デフォルトの名無しさん

NGNG

>>609
マルチは氏ね

0611デフォルトの名無しさん

NGNG

ソース添削教室は終わったの？
オレはソース見せるのはイヤだなぁ。絶対イヤだ。
超スパゲティミートソースだから（藁
変数名とか見られるだけでこちょばゆい。

0612デフォルトの名無しさん

NGNG

人は見られて美しくなるのだよ。

0613586

NGNG

>>611
　私の場合、最初は誰でも初心者だぁ的な勢いでソースアップしちゃいました。
とはいえ大したものじゃないですけどね。ただ、実際に自分でアプリらしきものを
つくってみて、例外処理の対応等フリーソフトの作者さん等は大変なんだなという
視座をもつことができたのが自分にとっと大きなプラスでした。

0614デフォルトの名無しさん

NGNG

でした。ってもう終わりかよ!

0615586

NGNG

>>614
　Delphiプログラミングはこれからがんがんやりますよー。
あの目覚まし時計もタスクトレイ格納とか実装して改良していってますし。

0616デフォルトの名無しさん

NGNG

「大きなプラスでしたぁ♪」
↑今日のわんこ風に、キクちゃんに言ってもらいたい。

0617デフォルトの名無しさん

NGNG

>>609
書いてる事は
構造化例外RaiseExceptionを使ったのにって意味？
それともDelphiの例外を ActiveX中で投げたの？・・・それはしないよな
　ActiveX はDelphi以外のモジュールからも呼ばれるのがメリットなのに・・・・

例外情報についてはActiveXの流儀＝　帰り値で返す　に従った方が皆が幸せでしょう

0618デフォルトの名無しさん

NGNG

ttp://www.ai-pub.co.jp/contents/support/delphi6-180/index.html
このtipsで勉強してきたんだけど、次のステップアップを目指せるようなサイトとかご存じでしたら教えてｷﾎﾞﾝﾇ

0619デフォルトの名無しさん

NGNG

>>618
自分の頭とセンスに頼れ。

0620デフォルトの名無しさん

NGNG

>>618
コードを書く。
VCL ソースを読む。
他人のコードを読む。

どんな言語（含む自然言語）もこれがすべて。

0621デフォルトの名無しさん

NGNG

コンポーネントってどこに解凍してます？
/Borland/Delphi6/の下だとどこが一般的？
Lib？Demos？

0622デフォルトの名無しさん

NGNG

自分でディレクトリを作って全部そこで解凍してます。パスを通すのが
一つで済みます。

0623デフォルトの名無しさん

NGNG

>>622
同じく俺も

0624デフォルトの名無しさん

NGNG

おまえら！凄い事思いついたから発表するぞ！
なんと、delパソで合法的に儲ける方法だ！

１，delパソでプログラムを完成させる。
２，テキストファイル形式で売る。
３，あとは購入者が勝手にコンパイルする。

0625デフォルトの名無しさん

NGNG

>>624
商用開発にパソ使ってる時点で非合法じゃん

つーか・・・こんなこと考えてる暇あったら少しでもプログラム組めよ

0626デフォルトの名無しさん

NGNG

改訂版！

１，テキストを書いて売る
２，あとは購入者が勝手にコンパイルする
３，不具合は仕様ですで押し通す

0627デフォルトの名無しさん

NGNG

販売形態に関わらず、商用開発になってるよ！

0628デフォルトの名無しさん

NGNG

改訂版２！

１，C++でプログラムを完成させる。
２，C++でCppのソースをdelphiソースに変換するプログラムを作り、無料配布する。
３，１で作ったソースを売る！

0629デフォルトの名無しさん

NGNG

Proで作ったって言い張れば良いんだよ。

0630デフォルトの名無しさん

NGNG

1.偽delProを作る
2.偽delProで商品を作る

0631デフォルトの名無しさん

NGNG

INIを自分と同じフォルダに入れるにはどうすればいいんですか

0632デフォルトの名無しさん

NGNG

自分と同じ？
changefileext(application.exename,'.ini')
にファイルを作成じゃだめなのか？

0633デフォルトの名無しさん

NGNG

まず自分を電子情報化する手段はあるの？

0634デフォルトの名無しさん

NGNG

>>632

ありがとー

0635デフォルトの名無しさん

NGNG

>>631
IncludeTrailingPathDelimiter(ExtractFileDir(ParamStr(0)))か、IncludeTrailingPathDelimiter(ExtractFileDir(Application.ExeName))でEXEのあるフォルダがわかるからそれ+INIのファイル名で。またはChangeFileExt(Application.ExeName, '.ini')でEXEの拡張子を変える。

0636デフォルトの名無しさん

NGNG

>>628

その内容、Delパソとなんの関係も無いよ！

0637デフォルトの名無しさん

NGNG

１，脳内でプログラムを完成させる。
２，メモ帳で入力してテキストファイル形式で売る。
３，あとは購入者が勝手にコンパイルする。

0638デフォルトの名無しさん

NGNG

１，脳内でプログラムを完成させる。
２，会話形式で売る。
３，あとは購入者が勝手にソース書いてコンパイルする。

0639デフォルトの名無しさん

NGNG

１，脳内でプログラムを完成させる。
２，テープに録音する。
３，あとは速記者がソース起こすので解読する。

0640デフォルトの名無しさん

NGNG

１，脳内でプログラムを完成させる。
２，脳内で売る。
３，脳内で購入者が勝手にコンパイルする。

0641デフォルトの名無しさん

NGNG

１，友人にプログラムを完成させる。
２，友人のマシンでコンパイルする。
３，あとは黙って売って勝手に儲ける。

0642デフォルトの名無しさん

NGNG

１，delプログラムを自動で完成させるプログラムをVBで書く。
２，売る。
３，あとはイブなのにネタスレ

0643デフォルトの名無しさん

NGNG

クラスを引数にとる関数を作ってその関数の中で
データメンバに変更を加えても、値渡しなら
コピーがつくられるだけだから元のクラスには
変更は及んでないんじゃないの？
思いっきり変わってるんだけど・・・

0644デフォルトの名無しさん

NGNG

クラスをデータメンバにとる関数を作ってその変更の中で
引数に変更を加えても、コピー関数がつくられるだけなら
値渡しだから元のクラスには
変わりは及んでないんじゃないの？
思いっきってるんだけど・・・

0645デフォルトの名無しさん

NGNG

0646デフォルトの名無しさん

NGNG

データクラスを引数に思いっきってる関数を作って変わりの中で
変更をメンバに加えても、コピー関数がつくられるんだけど
・・・及んでないだけなら
その値渡しだからクラスには
元の変更はとるんじゃないの？

0647sage

NGNG

おまいら日本語話せや

0648デフォルトの名無しさん

NGNG

sageてなかった。鬱だ・・・

0649デフォルトの名無しさん

NGNG

>>643
なんでだろう

0650デフォルトの名無しさん

NGNG

>>649

同じ内容のコードをC++で書いたら
ちゃんと変更されないでいたよ。
どうすればいいのでしょう？

クラスでなくて、ただの変数を関数に渡した場合
も変更されてなかった。でもクラスだと変更が残ってる。

0651デフォルトの名無しさん

NGNG

ななななんでだろぅ

0652デフォルトの名無しさん

NGNG

値渡しで参照がコピーされる。
参照の値が同じなら同じオブジェクトを指すので
渡された参照の先のオブジェクトを変更すれば当然元の引数の変数に
入っていたオブジェクトも変更される。

0653デフォルトの名無しさん

NGNG

なるほど。参照がコピーされるだけだったのか。ありがと！！！！！

0654デフォルトの名無しさん

NGNG

>>652
言っている意味が全然わかんね。
引数として取ったオブジェクトは参照のコピーでしょ。
そのコピーに変更を加えてるだけだから、
その関数終了時にそのオブジェクトは破棄されるだろ。
だから元のオブジェクトに影響なんて無いはずじゃないのか？

0655デフォルトの名無しさん

NGNG

> その関数終了時にそのオブジェクトは破棄されるだろ。
> だから元のオブジェクトに影響なんて無いはずじゃないのか？
それは関数の実装に依存する。
基本的には勝手に破棄されては困る。

0656デフォルトの名無しさん

NGNG

>>654
同じオブジェクトを参照しているものが二つになったと考える。
参照は二つになっても双方とも参照先のオブジェクトは同一。

0657デフォルトの名無しさん

NGNG

じゃあつまり、オブジェクトを関数に渡してしまっても
変更が元のオブジェクトに及ばないコードを書くにはどうすればよいのよ？

0658デフォルトの名無しさん

NGNG

>>657
渡されたオブジェクトの内容を新しく作ったオブジェクトにコピーしてそれを渡す。
まぁ、オブジェクト同士の比較するとfalseが出て鬱だけど。

0659デフォルトの名無しさん

NGNG

>>657
そういう操作をしたい場合はレコード型やオブジェクト型の変数にします。

クラス型変数は常に参照ですから、変更しないという対策になります。
どうしてもそういう対策が必要ならクラスの方で全ての変更をロックす
るしかありません

0660デフォルトの名無しさん

NGNG

>>659
＞クラス型変数は常に参照ですから、変更しないという対策になります。

そうでもない気もするけどね。

0661デフォルトの名無しさん

NGNG

おめーらポインタの概念を教えてやれよ

0662デフォルトの名無しさん

NGNG

>>661
あるアドレスにある値を読むために使う特殊な変数。値として参照するアドレスを持つ。

0663デフォルトの名無しさん

NGNG

今ならわかるポインタだが・・・
昔は明確に説明してる文書が少ないからわからずにＣ挫折
そんな感じ

0664デフォルトの名無しさん

NGNG

>>660
関数の引数としては参照渡ししかないだろ。

0665デフォルトの名無しさん

NGNG

>>664
いえ、関数の引数だけではなくクラス型の変数は全て参照になります。

例えば
obj1:TComponent;
obj2:TComponent;

だと obj2:=obj1; はインスタンスのコピーじゃなく参照のコピーで obj2でも obj1でも　同じインスタンスを
扱うだけであり、中身はコピーされません。

レコード型やオブジェクト型との大きな違いで、最初戸惑うところだと思います。

0666デフォルトの名無しさん

NGNG

>>665
まぁ、ポインタ相当だな。

だからこそ引数が参照になるのは必然だな。

0667デフォルトの名無しさん

NGNG

そうですね。
　メモリを　スタック、スタティック、ヒープの３つに別けるとします
　スタックは、関数・手続・メソッド内のローカル変数の為の領域
　スタティックはグローバル変数や、ユニットローカルな変数の領域
　ヒープは動的に作成解放する領域です。

　コンパイラはスタック、スタティック領域に関しては、コンパイル時に
　その位置(スタックについては相対位置)が判ります。
　しかし、ヒープについては、どこに作成されるか判りませんから、
　ヒープについてはポインタ、又は参照変数で参照するしかありません。

　たぶんコンポーネントの実装の為にクラス型の実体（インスタンス）は
　ヒープ領域にしか存在出来ない事にしたのでしょう。
　となると、スタックやスタティックな変数からはポインタでしか参照出来ま
　せんが、それではイチイチ ^ が必要となって面倒でしょうから ^ を省き
　ましょうと　いう事だと考えるといいでしょう。

　だからBCB++からVCLを扱うと、C++はクラス型インスタンスをスタック、
　スタティックにも取れる言語ですから　常に -> が必要になります。

0668デフォルトの名無しさん

NGNG

Object Pascalって、Cより可読性低くありません？
thenとかendとか代わり映えのしない文字がやたらと並んでて、
Tabで綺麗に段階分けされて記述されたCのソースよりも非常に読み辛い。
あと、初期化の記述がCより面倒くさくて融通が利かない。

0669デフォルトの名無しさん

NGNG

>>668
慣れの問題。以上。

もっとやりたいなら過去ログに何度と無く議論されてるからそれを読んでからにしてくれ。

0670デフォルトの名無しさん

NGNG

>>668
そりゃあ、綺麗に書かれた C より汚く書いたDelphiが当然汚いでしょう

でも、慣れれば、普通の人が書いたCよりも普通に書いたDelphiの方が読みやすいです。
理由は、

１、初期化の記述がCより面倒くさくて融通が利かない為に、Delphiの方が個人によるコードの差が小さい

２、演算子や制御文がDelphiの方が貧弱である為　同じアルゴリズムを実装したら
　　Delphiの方が個人によるコードの差が小さい

３、演算子や制御文が貧弱な代わりに、動的型情報を持てる列挙型、そしてCにない
　　集合型、string型、動的配列型、があり、　Cより高レベルな記述が出来る為に　読みやすい

0671デフォルトの名無しさん

NGNG

>>670
１．なぁ、初期化って具体的に何を指すわけ？

２．Cに存在するモノは一通りあると思われ。forは確かに負けているけれども。

３．それは言語の機能の差で構文とか読みやすさとかそう言うレベルの話なのか？

0672670

NGNG

１、初期化は　さあ？　>>668に聞いてくれ、　たぶん初期化じゃなくて定義の事だろう

２、Cにあってない演算子　+= -= /= *= ++ --
　　貧弱なのは for のほかに
　　　　>> 　 SHRは自動的に符号なしシフトに
　　とかかな

３、動的配列やオープン配列を上手に使ってくれてると他人のコードでも読みやすいと
　　思うけど？　C で配列とポインタ混在されてるコードよりは

　　集合型も上手に使ってくれると他人のコードでも判り易い

0673デフォルトの名無しさん

NGNG

+= -= ++ -- は整数限定だが Inc/Dec があるけど演算子じゃねーなあ。

0674デフォルトの名無しさん

NGNG

>>673
*=とかはたまに恋しくなるなｗ

でも、

a := a * 5;

を可読性が悪いとか宣う奴って大物だな。

0675デフォルトの名無しさん

NGNG

>>670
却って弱点を露呈してると思われ

0676デフォルトの名無しさん

NGNG

１，漏れは大物です。

２，過去ログは1～3と10だけ読みますた。まだまだてす

３，「int ～～～～～」　と「～～～～～～ integer」なら、前者の方が一瞬で型が判別できるのとかも

0677デフォルトの名無しさん

NGNG

ｱﾝﾄﾞｩやﾘﾄﾞｩを二回以上実行するにはどうすればいいんですか？

0678デフォルトの名無しさん

NGNG

>>677
それは　Delphi IDEの使い方の事？　なら単に繰返して操作すれば？
それは　TMemoの事？ Windowsのメモ帳にない機能の実装は難しいよ
確か TRitchEditなら複数可能だった気もするから調べてみたら？

0679デフォルトの名無しさん

NGNG

TRichEditです、調べてみます……

0680デフォルトの名無しさん

NGNG

ゴメン
複数Undoが可能なのは Rich Edit 2.0 で DelphiのTRichEdit は Rich Edit 1だから、そのままではダメだ

0681デフォルトの名無しさん

NGNG

アン！ドゥッ！リドウッ！！

　「それじゃ～そのタイミングじゃわい！」

0682デフォルトの名無しさん

NGNG

こんな感じで無理やり RichEdit2.0コンポ作ったら複数Undoは可能になったみたい

uses RichEdit;
/////////

type TMyRichEdit = class(TRichEdit)
public
procedure CreateParams(var Params: TCreateParams);override;
end;
////////////
var FRichEdit20Module: THandle;
///////////
procedure TMyRichEdit.CreateParams(var Params: TCreateParams);
const
RichEditModuleName = 'Riched20.dll';
HideScrollBars: array[Boolean] of DWORD = (ES_DISABLENOSCROLL, 0);
HideSelections: array[Boolean] of DWORD = (ES_NOHIDESEL, 0);
begin
if FRichEdit20Module = 0 then
begin
FRichEdit20Module := LoadLibrary(RichEditModuleName);
if FRichEdit20Module <= HINSTANCE_ERROR then FRichEdit20Module := 0;
end;
inherited CreateParams(Params);
CreateSubClass(Params, 'RichEdit20A');
end;

0683デフォルトの名無しさん

NGNG

どなたか、ヒントだけでもお願いします。

ScrollBoxにPaintBoxを貼り付けて、ScrollBoxのwidthを300、
PaintBoxのCanvas.widthを2000としたとします。
　ScrollBoxを横にスクロールさせても、常にXが真中（ScrollBoxのというか
画面のというのか・・）になるようにcanvas.textoutで文字をPaintBox.Canvasに
描画したいのですが、こういう場合はどのようにXの位置を取得すればいいのですか？

0684683

NGNG

canvas.width→paintbox.widthの間違いです。

0685デフォルトの名無しさん

NGNG

unitファイルの中に記述した関数を
別のプログラムの中からusesして使いたいんですけどどうすればいいんでしょう？
コンパイルしても未定義ってでちゃうんですが・・

0686デフォルトの名無しさん

NGNG

>>683
TScrollBox.HorzScrollBar.Position

0687685

NGNG

すいません。
できました。

0688デフォルトの名無しさん

NGNG

>686

ありがとうございます。できました。

0689デフォルトの名無しさん

NGNG

>>685

unit UnitHoge;

interface

function Hoge(i: Integer): String; // これ忘れてないか？

implementation

function Hoge(i: Integer): String;
begin
//いろいろ
end;

end.

0690デフォルトの名無しさん

NGNG

>>673
＞整数限定だが Inc/Dec があるけど
正確には整数型ではなく順序型。
b := false;
Inc(b);
if b then ShowMessage('これ実行してみな');

0691デフォルトの名無しさん

NGNG

>>690
意味不明。
「正確には整数型ではなく順序型」の説明になってねーし。

0692デフォルトの名無しさん

NGNG

var
b: char
begin
b := 'a';
Inc(b);
Inc(b);
Inc(b);
ShowMessage(b);
end;

0693デフォルトの名無しさん

NGNG

いつの間にかポインタもInc/Decできるようになっとる……

0694デフォルトの名無しさん

NGNG

>>691
あんたが意味不明。
Booleanは順序型に含まれる。

>>693
自分の記憶じゃDelphi2からできたけど…Delphi1とそれ以前は持ってないので知らん

0695デフォルトの名無しさん

NGNG

PointerはInc/Decできんだろう。

0696デフォルトの名無しさん

NGNG

Del6PersonalとDel6Proは生成されるEXEのバイナリコードは同じでしょうか？

0697696

NGNG

補足：条件は、コンパイルするソースがまったく同じ場合です。

0698デフォルトの名無しさん

NGNG

違う場合もあるし、同じ場合もあります。

0699デフォルトの名無しさん

NGNG

>>696 に便乗して質問です。
>>698
それは、PersonalとProに付属するライブラリ等の差による物でしょうか？
それとも、コンパイラ自体に違いがあるのでしょうか？
同様にそれは、Delphi7でも同じでしょうか？
Del7Personalを買おうか、Proを買おうか、迷ってます。
Delphi7の製品情報を見ても、エディション(Personal/Pro)によるコンパイラの差に類する項目は見られなかったので、Personalを買おうと思うのですが、若干心配です。

0700673

NGNG

>>690
一応弁解しておくが、俺は「整数型」とは書いてない。
>>668が「順序型」を知ってるかどうかわからなかったので
曖昧でもわかりやすく「整数」と書いたまでだ。

0701デフォルトの名無しさん

NGNG

>>698
同じだと思うが。
異なる場合を教えておくれ。>> 698

0702デフォルトの名無しさん

NGNG

質問です。
delphi7　自身のﾒﾆｭｰ機能（上部にあるファイル/編集ね）は、青色に反転し、
かつメニューにもアイコンが表示されていてちょっとカコイイ

あれと同じことを自分もやろうとする場合、どのコンポーネントをベースに組んでいけばいいのでしょうか？
見た瞬間に解かる方いますか？

0703デフォルトの名無しさん

NGNG

>>702
この前クールな青色がどうとか言ってたバカか？

0704デフォルトの名無しさん

NGNG

習わぬお経は覚えないタイプだな。

0705デフォルトの名無しさん

NGNG

TActionMainMenuBar と TActionManager を貼り付けて
ActionManager1で標準アクションの追加をして
それを　TActionMainMenuBar に D&D してみろ

0706デフォルトの名無しさん

NGNG

>>705　thx　やってみます。
>>703 誰ですかそれ？？？

0707デフォルトの名無しさん

NGNG

Del用のドキュメント生成ツールを知りませんか？

0708デフォルトの名無しさん

NGNG

Del7 Pro まだ買ってないんだが、どうしようか迷ってる。
今まで以上にバグってたり、ヘルプの出来が悪いみたいなんで。
教えてほしいこと。(Pro 版)
(1) Del6 より良くなった点
(2) 新しく追加された VCL コンポには何があるのか
(3) 新しい印刷系のコンポは前のヤツと比べてどうか(扱い易いのか)
(4) バージョンを重ねるごとに EXE サイズが肥大化しているが、
　　やはり今回もDel6より大きくなってしまっているのか
　　（空のフォームの場合の EXE サイズはどれくらいなのか）
(5) Delphi Language になって追加・変更された予約語、キーワードや構文など

どか、おねげーすんますだー。

0709デフォルトの名無しさん

NGNG

>>708
Delphiご自慢のランタイムが要らない(ﾌﾟ
をやめるだろうからEXEのサイズは減るんじゃない。
ランタイムが要るけどね（ｗ

0710デフォルトの名無しさん

NGNG

アタマ大丈夫？

0711デフォルトの名無しさん

NGNG

>>707
ここにいってみれ。
http://www.vector.co.jp/swreg/list/win/prog/index.html

0712デフォルトの名無しさん

NGNG

>>709
昔からランタイムありにはできたよ。デフォルトがそうじゃなかっただけで。

0713711

NGNG

D/Scribe \7,000
!Doc \26,000
Liberalsoft DocMan \33,000

フリーのものならUnit Reporterとかかな。

0714デフォルトの名無しさん

NGNG

>>712
ふーん。ランタイムありにしててもバージョンを重ねるごとにEXEサイズが肥大化してたのか。

0715デフォルトの名無しさん

NGNG

>>714
？

0716デフォルトの名無しさん

NGNG

教えてあげるから素直に聞きなさい！

0717デフォルトの名無しさん

NGNG

アクションマネージャについての質問です。
アクションマネージャーにてディフォルトアクションの登録でファイル「開く」
を設定した後にonCLOSEの実行部に以下の文を設定しますた。

procedure TForm1.FileOpen1OpenDialogClose(Sender: TObject);
begin
Caption:=FileOpen1.Dialog.FileName;
end;

実行-ファイルを開くでファイルダイアログが開きます。
ファイルを選択したところ（キャプション代入時）でデバッカーで止めました
ところFileNameは空なのです。

読む場所が間違っているのでしょうか？　
それともＣＬＯＳＥにこれを書いてはならぬのでしょうか？

0718デフォルトの名無しさん

NGNG

>>717
事故レス　解決しました。
onAccept に書けばよかったみたいです。
回線切って寝ます。

0719デフォルトの名無しさん

NGNG

TScrollBarはPosition値の変化でOnChangeイベントが発生するけど、
TScrollBoxのScrollBarのPosition値の変化はどうやってゲットすればいいの？

0720デフォルトの名無しさん

NGNG

>>719
http://do.sakura.ne.jp/~junkroom/cgi-bin/megabbs/readres.cgi?bo=lounge&vi=1017673221&rm=100

0721パクリ

NGNG

TScrollBoxEXというコンポを作成して、イベントを追加すればいいよ。

0722719

NGNG

>720

頂きますた。ス晴らしすぎ。超うれし。ありが㌧。

0723デフォルトの名無しさん

NGNG

TScrollBox のようなクラスに　OnVScroll のようなイベントがないのは
摩訶不思議。

0724デフォルトの名無しさん

NGNG

>>720

イベントが2回連続で発生しちゃってるんですけど・・・・。

0725デフォルトの名無しさん

NGNG

>>724
必ず二回なら回避できるっしょ。

0726720

NGNG

>>724
実際に使ってるんだが、そんなの気にしたことなかった。
そんなわけで、問題があるなら各自対応するか、
ScrollBoxのエライ人が出てくるまでお待ちくだされ。

0727デフォルトの名無しさん

NGNG

一回目と二回目でmsgの内容が変化してたりしないの？

0728デフォルトの名無しさん

NGNG

ScrollBoxのエライ人、早く来い！！（▼ー▼＃）

0729デフォルトの名無しさん

NGNG

えらくないけど

procedure WMVScroll(var msg: TWMVScroll); message WM_VSCROLL;

で捕まえて

procedure TScrollBoxEx.WMVScroll(var msg: TWMVScroll);
begin
inherited;
if Assigned(FOnVScroll) then FOnVScroll(self);
end;

で呼び出せば、普通１回のスクロール動作で２回以上呼び出されるのは
当然です。LOWORD(WPARAM) に相当する部分、（msg.code ？手元に環境がないので）
が　SB_ENDSCROLL　の時だけイベントを呼ぶことにしたらどう？

0730デフォルトの名無しさん

NGNG

実行させるごとに浮動小数点のinvalid operationが出てしまい、ドツボにはまっています。
ダイアログが出てメモリダンプが出てきますが、これはOSによる例外なのでしょうか。
DelphiのIDEがここが変だ！と示してくれないため、場所が特定できていません。
残る手は一行ずつトレースするしかないのでしょうか･･･。
（Delphiの例外ではなければtry～exceptでは捕まらないのでしょうか？）

0731 ◆F52DmOxJlc

NGNG

>>730
どんなプログラムなのかな？

0732デフォルトの名無しさん

NGNG

>>729
難し過ぎてよくわからないので、実装してください♥

0733デフォルトの名無しさん

NGNG

>>731
シミュレーションプログラムです。タイマを使って、単位時間ごとに演算を行ってます。
トレースしようにも、1秒あたりの演算量が凄い･･･(;´Д｀)

変数を監視するに、止まる瞬間にもの凄い桁数になってるので、
「数値演算関数でInt64の範囲を超えてるのでは？」くらいしかわからなくて。
VBみたいに、変数を連続して吐き出せるデバッグウインドウがあればいいんですが･･･。

0734デフォルトの名無しさん

NGNG

>>730
OS, Delphi のバージョン
IDE で CPU ウィンドウを先に開いておいてから実行。
メモリダンプのスクリーンショット
http://do.sakura.ne.jp/~junkroom/cgi-bin/megabbs/lounge/index.html
に貼り付け。

0735デフォルトの名無しさん

NGNG

>>734
すみません｡･ﾟ･(ﾉД`)･ﾟ･｡
Win2000 + Delphi5です。
http://do.sakura.ne.jp/~junkroom/cgi-bin/megabbs/lounge/file/1017673221_6/hoge.jpg

0736デフォルトの名無しさん

NGNG

truncの引数の値はいくつだ？

0737デフォルトの名無しさん

NGNG

roundは使ってますが、truncは使ってないです。(´･ω･`)
二次関数の結果をroundしてるので、異常な値が渡ってるのかもしれません･･･。もうちょっと試行錯誤してみます。

0738デフォルトの名無しさん

NGNG

>>732
>難し過ぎてよくわからないので、実装してください♥

729 です。試したらうまくいきました。

procedure TScrollBoxEx.WMVScroll(var msg: TWMVScroll);
begin
inherited;
if (msg.ScrollCode = SB_ENDSCROLL) and Assigned(FOnVScroll) then
FOnVScroll(self);
end;

HScroll も同様。

0739デフォルトの名無しさん

NGNG

>>738
愛してる♥
あたしの愛を&heart;&heart;&heart; あぁ～ん&heart;

0740デフォルトの名無しさん

NGNG

ﾊ､ﾊ､ﾊ､ﾊｰﾄが・・・・・。Σ(￣ロ￣lll) ｶﾞﾋﾞｰﾝ

0741デフォルトの名無しさん

NGNG

$0041D3B4 の一つ前の CALL 命令で Trunc を呼んでいるのだが。
Trunc は FPU に値を積んで呼び出されるから、FPU レジスタの値を
見てみたいですね。

Debug 版 DCU を使って、スタックフレームを作るように指示してアプリを再ビルドすると
呼び出し履歴でかなりの部分を見ることができる。Trunc を呼ぶ前に
どんな関数を呼び出してきたかがわかると思う。

0742デフォルトの名無しさん

NGNG

それと、Trunc で落ちる。ってのはおそらく 8087 のステータスが変わっているんじゃないかな？
Set8087CW(Default8087CW)
って一行をアプリケーションで何か作業を行う前に実行。
MS 製の DLL を読み込むと 8087 のモードが切り替わることが原因。

0743デフォルトの名無しさん

NGNG

>VBみたいに、変数を連続して吐き出せるデバッグウインドウがあればいいんですが
リンカ指定でコンソールアプリにして、writeln をソースに埋め込み。

0744デフォルトの名無しさん

NGNG

>>473
素直にOutputDebugString使えよ…
WriteLnの出力先をそっちに変更するテクニックだって、探せばすぐ見つかるぞ

0745デフォルトの名無しさん

NGNG

Delphiを学びたいと思っています。
ちょっとした(?)、メディアプレーヤー等、小物を作って自己満足に
浸る場合は、personalでいいのでしょうか？

使えない機能などがよく分かりません・・・
よかったら教えて頂けないでしょうか?

0746デフォルトの名無しさん

NGNG

パースナロでいしいで！

0747デルファイの名無しさん

NGNG

>>745
ProとPerの差は主にデータベースやネットワーク関係なんですけど、
そのへんはアクセサリ系アプリにはあんま関係ないでしょうね。
むしろ一番痛いのはOffice風のメニュー(アクションバー)がPerには無いことかな。
でもまあ、Personalは無料なんで、不満を感じるまではPersonalでいいでしょ。

0748デフォルトの名無しさん

NGNG

TStringList型のslAllに、
同じくTStringList型のslPartの中身を入れたいとき

for i=0 to slPart.Count-1 do
　　slAll.Add(slPart[i]);

としてるのですが
これ以外のもっとよい方法ないでしょうか？

0749デフォルトの名無しさん

NGNG

アップデートCDｷﾀ━━━━━━(ﾟ∀ﾟ)━━━━━━!!!!!

0750デフォルトの名無しさん

NGNG

>>748
slAll.Assign(slPart);

0751デフォルトの名無しさん

NGNG

>>750
即レスなのに申し訳ない　私の書き方が間違ってました
slAllの内容にslPartの中身を追加したい場合、でした..

0752デフォルトの名無しさん

NGNG

>>751
addstrings

0753デフォルトの名無しさん

NGNG

>>752
的確なレス　有難うです
夜分に申し訳ございませんでした

0754デフォルトの名無しさん

NGNG

リネームソフトを作成してるのですが分からないので質問します

例えば
d:\テスト\001
d:\テスト\001\002
d:\テスト\001\002\003

という3つのフォルダがあるときに、
003→001→002という順で4桁連番でリネームさせると
003が0001に001が0002となるのですが、
002は親フォルダ001が0002になってしまうことで
002のパスが
d:\テスト\001\002から
d:\テスト\0002\002となってしまいリネームできなくなってしまいます

d:\テスト\001\002のパスが変更されたことが事前に分かれば
リネーム処理をする前にd:\テスト\001\002をd:\テスト\0002\002に
変えてあげれるのですが、FindFirstChangeNotification APIを使っての
変更後パスの取得の仕方が分からないです

なにか良い方法はないでしょうか？

0755デフォルトの名無しさん

NGNG

>>754
フォルダの階層をカウントして奥にあるもの順にソートするとか。

0756デフォルトの名無しさん

NGNG

ShowMessageでメッセージを表示するとタイトルバーにProject1と表示されるん
ですが、これって変更出来ないんでしょうか？
あと、プログラムの終了は次のどれがいいですか？
・Halt
・close
・application.Terminate

特にファイルの更新などはチェックしないつもりなんですが･･･。

0757デフォルトの名無しさん

NGNG

${APPTYPE GUI} の時に、
標準出力をコマンドプロンプトのような窓に割り当てて、
書き出す方法教えてください。

以前、話題に上がったような気がしたのですが見つかりませんでした。

0758デフォルトの名無しさん

NGNG

${APPTYPE CONSOLE} に書き換える

0759デフォルトの名無しさん

NGNG

>>757
Writeの直前に　AllocConsole;　を呼び出す

0760デフォルトの名無しさん

NGNG

thx

0761デフォルトの名無しさん

NGNG

>>746-747
あのXP風のﾒﾆｭｰはないんですね・・・
まぁ、無料なので文句は言えませんが。

ありがとうございました。本でも買ってきます

0762デフォルトの名無しさん

NGNG

Delphi XP風メニューで検索汁！

0763デフォルトの名無しさん

NGNG

何が見つかるの？

0764デフォルトの名無しさん

NGNG

Delphiでpersonalとprofessionａｌとenterpriseがありますけど
それらの含むクラスの違いなどはどこで知ることができるのでしょうか？

0765デフォルトの名無しさん

NGNG

>>763
海にとろけた太陽

0766デフォルトの名無しさん

NGNG

Delphiってどうなんでしょうか？
これをやってもPGとして仕事はもらえないのでしょうか？

0767デフォルトの名無しさん

NGNG

さぁね。
社内向けツールをさくっと作って喜ばれたりはよくあるけど。

0768デフォルトの名無しさん

NGNG

Delphiってどうなんでしょうか？
これをやってもバレンタインデーにチョコレートとかもらえないのでしょうか？

0769デフォルトの名無しさん

NGNG

あ、チョコはもらえるよ。

0770デフォルトの名無しさん

NGNG

>>764
誰か教えて
>>766
VBの方が多いな
ソースまで提供するなら提供先にソースをメンテできる人が
　いないとダメだし
提供しないにしてもDelphiについて取引先がよくわかってなければ
怪しいもので開発されるという意識を持つだろうから好まれないと思われ
仕事が欲しいならVB＆VCのほうがいい。
それかKylixとか。
>>768
使い方次第

0771デフォルトの名無しさん

NGNG

>>764
パッケージを買えば
オブジェクトの家系図がもれなくついてくる（D6ならな）

0772デフォルトの名無しさん

NGNG

>>771
それに書いてるのか。
Personal使ってるんだけど、使いたいものが
ProにあるのかEntにあるのかがわからないことが
時々あって、Proなら買おうかと思うけどEntなら
あきらめるようかという判断の材料にしたいんだけど…

0773デフォルトの名無しさん

NGNG

>>764
ホントはライセンス違反だけど、D7の日本語ヘルプ落として比べてみたらどう？
http://www.borland.co.jp/delphi/del7docup.html

0774デフォルトの名無しさん

NGNG

機能一覧
http://www.borland.co.jp/delphi/del7/feamatrix/
http://www.borland.co.jp/delphi/del7/feamatrix/index02.html

0775デフォルトの名無しさん

NGNG

クラスまでは書いてないが。
http://www.borland.co.jp/delphi/papers/d6guide/d6guid05.html

0776ねこま

NGNG

クラス階層図を画像にする方法

1. VCL\Source にあるすべての pas をプロドェクトに追加してコンパイル
2. モジュールエクスプローラ(ブラウザ)を開く
3. キャプチャーする

0777デフォルトの名無しさん

NGNG

自作ゲームの実行中に、「無効なポインタ操作」とか「読み込み違反」云々ダイアログが出て悩んでいます。
自分の環境では再現しないのですが、人のマシンに持っていくと出るんです。
今のところ、正常だったのが３台、エラーを吐きながら実行継続するのが１台、突然プログラムが終了するのが１台。

ビデオ・サウンドなどの相性の可能性がかなりあるのですが、全部にDelphiを入れてデバッグする訳にもいかず･･･
こういった場合、地道に可能性を潰していくしかないのでしょうか。

0778デフォルトの名無しさん

NGNG

まずはupれ
話はそれからだ。

0779デフォルトの名無しさん

NGNG

>>777
そういうダイアログが出た時に、どこが原因かログを吐くようにしたら？
対策は、その付近を作り直すのが一番速いよ

0780デフォルトの名無しさん

NGNG

ソースは2,000行あって、出るパターンが全くバラバラなんですよね。（予測不能）
せめて自分のコードが変なのか、Sound、DrawまわりのVCL内でエラーが起きてるのかがわかればな･･･。

0781デフォルトの名無しさん

NGNG

>>777
「無効なポインタ操作」とか「読み込み違反」のダイアログの情報収集を。
もちろん OS も。問題が起きているアドレスさえわかれば何とかなる。または
次に何を調べるべきかわかる。

W2K/XP などの NT 系 OS で問題が再現できるならしめた物。

0782デフォルトの名無しさん

NGNG

>>781
Win2000でもXPでも発生しますね。
違反が起きたときのアドレスを収集して、CPU窓とにらめっこ･･･ということでしょうか？↓これ
http://do.sakura.ne.jp/~junkroom/cgi-bin/megabbs/lounge/file/1017673221_7/error.jpg

0783デフォルトの名無しさん

NGNG

>>782
ていうか動的にメモリ確保してるとこ全部チェック。
後、配列操作とかリスト操作してるところも。

0784デフォルトの名無しさん

NGNG

BoundsChecker使え

0785デフォルトの名無しさん

NGNG

>>783
わかりました。
要は「確保していないメモリにアクセスした可能性」ってことですよね。調べてみます。
（しかし発生するマシンとしないマシンがあるワケが、いまいち理解できてません...(ﾉД`)）

さらに、突然プログラムが終了するというのも聞いたことがない･･･(´･ω･`)

0786デフォルトの名無しさん

NGNG

>>785
＞（しかし発生するマシンとしないマシンがあるワケが、いまいち理解できてません...(ﾉД`)）

OSのメモリ管理によってはたまたまその領域が使えたりすることも。ってこった。

0787777

NGNG

ありがとうございます。配列を洗い直したところ、範囲がひとつだけ飛び出ている箇所がありました。
全く予想のしない場所で凄い挙動をするもんなんですね･･･勉強になりました。

0788デフォルトの名無しさん

NGNG

>>785
スタック領域が破壊されると「アプリケーションが突然終了」という現象が起きます。
スタックトレースどころか例外の補足すらできないときですね。

Delphi では長い文字列やオブジェクトはヒープからとられるため、通常は上記の現象は
おきませんが、ローカル変数として割り当てた配列をポインタで扱うときなどに起きる可能性が
有ります。

0789デフォルトの名無しさん

NGNG

あ。788 を書いている間に...
問題が解決したようですね。よかった。

0790デフォルトの名無しさん

NGNG

{$R+}しとけ

0791デフォルトの名無しさん

NGNG

>>790
それですべてが解決するわけではない。

0792デフォルトの名無しさん

NGNG

>>787
こういうのは過去ログ読んでも解決できないですからね。

0793デフォルトの名無しさん

NGNG

アセンブラの「MOV EDX,EAX」でコード「8BD0」を生成するにはどうすれば出来ますか？
asm MOV EDX, EAX end; とすると、コード「89C2」が生成されます。
asm DB $8B, $D0 end; とする以外に方法はありますよね？

0794デフォルトの名無しさん

NGNG

そりゃ確かに MOV EDX,EAX は 8BD0 でも正しいが、わざわざオペランドを逆転させるコードを
書く必要性って何？

0795デフォルトの名無しさん

NGNG

MDI子ウインドウのタイトルが親ウインドウに追加されるので困ってます。
親タイトル - [子タイトル]
と、自動的になってしまうところを、
[子タイトル] - 親タイトル
[なにもひらかれていません] - 親タイトル
にしたいのです。
どうやってかえるのでしょうか？

0796デフォルトの名無しさん

NGNG

みんなマルチパートMIMEのエンデコってどうしてる？
Indy の IdMessage一本？

0797デフォルトの名無しさん

NGNG

　あるゲームにキー入力を送信するプログラムをつくっています。
APIのSendmessage関数をつかって、キーダウンイベントで取得したキーを
送信してみたのですがESCキーがうまく送信されませんでした。
いい方法ないでしょうか？

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
var
hUO: HWND;
begin
hUO:=FindWindow('あるネットワークゲーム',nil); {ハンドルを取得}
SendMessage(hUO,WM_SYSKEYDOWN,key,0); {キー送信}
Label1.Caption:=InttoStr(key);
end;

0798デフォルトの名無しさん

NGNG

　自己解決しますた。
これでESCキーをきちんと認識しますた。
こんどはテンキーを正常に認識しない。
>>797　う、ハンドル関数定義でばればれだ・・・。

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
var
handle: HWND; //ハンドル格納
begin
hUO:=FindWindow('あるネットワークゲーム',nil);
SetForegroundWindow(hUO);
keybd_event(key,0,0,0); {キー押す}
keybd_event(key,0,KEYEVENTF_KEYUP,0);{キー離す}
end;

0799デフォルトの名無しさん

NGNG

>>798
×　SetForegroundWindow(hUO);
○　SetForegroundWindow(handle);

0800デフォルトの名無しさん

NGNG

procedure Proc(a: array of Char);
のパラメータとしてCharの動的配列を渡す方法を教えて下さい。

0801デフォルトの名無しさん

NGNG

そのままじゃ無理なので
type TCharDynArray = array of Char;
してから渡す。

0802デフォルトの名無しさん

NGNG

type
　TCharDynArray = array of Char;
var
　c1: array of Char;
　c2: TCharDynArray;
begin
　c1 := nil;
　c2 := nil;
　Proc(c1); // 'Array'と'dynamic array'には互換性がありません
　Proc(c2); // 'Array'と'TCharDynArray'には互換性がありません
　Proc(TCharDynArray(c1)); // 'Array'と'TCharDynArray'には互換性がありません
end;

となりますが。。。

0803デフォルトの名無しさん

NGNG

procedure Proc(a: array of Char);
を止めて
procedure Proc(a: TCharDynArray);
としなさい。ってこと。

0804802

NGNG

単に動的文字配列を渡す方法を知りたいのではなくて、
オープン配列パラメータに動的文字配列を渡す方法が知りたいのですが。。。

0805デフォルトの名無しさん

NGNG

半年ぶりに自分の書いたコードを見たら、半分も理解できなかった…
僕の脳はどんどん退化している…

0806デフォルトの名無しさん

NGNG

ヘルプでオープン配列パラメータというのを見ると、

　function Find(A: array of Char): Integer;
このコードでは、任意のサイズの文字配列をとり、整数を返すFindという関数を宣言しています。
メモ　　　オープン配列パラメータの構文は動的配列の構文に似ていますが、両者は同じではありません。
　　　　　上記の関数は、動的配列を含め、Char型の要素を持つ配列をとります。

となっていますが、これは嘘でしょうか？

0807デフォルトの名無しさん

NGNG

Delphi ってその程度の糞言語。

0808デフォルトの名無しさん

NGNG

>>807ってその程度の糞人間。

0809デフォルトの名無しさん

NGNG

>>806
型が違うから無理。

0810デフォルトの名無しさん

NGNG

文字列リストを引数にとって
{**********}
{ }
{ hello }
{ world }
{ }
{**********}
こんな感じで枠を付けた文字列リストを返す関数作ったんですが、
この関数の返り値の文字列リストをTMemoに出力するとき、
出力するべき数は合ってるんですけど、文字の種類によって、大きさが
違うのか、すごいガタガタになっちゃうんですけどどうしたらいいでしょう？
コンソール出力だときれいに出るのは何で？

0811デフォルトの名無しさん

NGNG

思いっきり崩れちゃった
すいません

0812デフォルトの名無しさん

NGNG

フォントを等幅のにしてみたら｡MSゴシックとか｡

0813デフォルトの名無しさん

NGNG

>>809
配列ではない単なるChar型の変数なら、渡せますが。。。

0814デフォルトの名無しさん

NGNG

>>812
ありがとうございます！！
できました。
そんな単純なことだったんですね。
全然知りませんでした。
では

0815デフォルトの名無しさん

NGNG

>>798 SendKeys.pas を使ったらどう？

0816デフォルトの名無しさん

NGNG

jedi(http://www.delphi-jedi.org/)つながりませんな～(TT

0817デフォルトの名無しさん

NGNG

{**********}
{　　　　　　　.}
{　h e l l o　 .}
{　w o r l d　.}
{　　　　　　　.}
{**********}

0818デフォルトの名無しさん

NGNG

del６personalからpostgresqlへ接続できますか？

0819デフォルトの名無しさん

NGNG

>>818
できますよ。

0820デフォルトの名無しさん

NGNG

ぎゃー！！
正月休みに、今まであたためていたブツでも創ろうとDel6パーソナルを
ﾀﾞｳｿしてきたが激しく使えん｡

クラスビュー(?)とCtrl+Shift+Cに匹敵するツールとか知らないですか？

0821デフォルトの名無しさん

NGNG

GExpert

0822デフォルトの名無しさん

NGNG

TMemoを使っていて、ALTキーを押した瞬間、
カーソルがかわるのを検出したいのですが、
やり方を教えてください？

0823デフォルトの名無しさん

NGNG

Altを押してもカーソルは変わらないと思います。

0824デフォルトの名無しさん

NGNG

>>820
使えないなんて言えるのは買った人だけだと思うが、どうか？

0825デフォルトの名無しさん

NGNG

>>824
>>820そんなこと言ってるか？

0826８２４

NGNG

>>825
ん？

＞ﾀﾞｳｿしてきたが激しく使えん｡
↑この文は、オレが感じる言葉以外の意味があるのか？

0827デフォルトの名無しさん

NGNG

>>826
悪い。見てなかった。

まぁ、評価はしても良いだろう（限りなく不当な評価だと思うが）。
無料だから媚び諂えと言うのもどうかと。

問題なのは使ってもないのに使えんとかほざいてる奴。

0828820

NGNG

何かおかしな話になってる？

会社でDel6エンタ使ってて、自分用にパーソナルと思ってたんだけど
今まであたりまえのように使えていた機能が削られていたから
激しく使えないと言ったのだが。
ま、金出して買ってもないのに文句言うのも大人げないですな。
パーソナルを評価したということで、Del7プロ買うことにします。

0829デフォルトの名無しさん

NGNG

>ま、金出して買ってもないのに文句言うのも大人げないですな。
分かってんじゃん。

>パーソナルを評価したということで、Del7プロ買うことにします。
そーしてくれ。

0830デフォルトの名無しさん

NGNG

>>820
俺もとソースコードの有無と Ctrl+Shift+C の有無で Delphi4 Pro に縛られてます(苦笑)
クラス補完くらいつけてくれてもいいとおもうんだけどなー・・・。

0831デフォルトの名無しさん

NGNG

今日日無料だから糞でもいいなどという屁理屈は通用しない｡
その誤った考えを正さない限り.NET Framework SDK + Sharp DevelopやEclipseに
ボコボコにされるのがｵﾁ｡

0832デフォルトの名無しさん

NGNG

↑そういうのはフサギコの方でやってくれ

0833デフォルトの名無しさん

NGNG

delphiのエディターってフリーキャレット？(行末というものが存在しない)ですが、
これって設定で行末にいくと次の行にいくみたいな風に変えれるのでしょうか？
エディタのオプションみたんですが、それっぽいのが無かった。

0834デフォルトの名無しさん

NGNG

>>833　フリーカーソル無効化プラグインというのが開発されている　どこかに載ってたはず

0835デフォルトの名無しさん

NGNG

>>834

ありました。
http://homepage1.nifty.com/fuu/software/nonfreecursor.htm

有り難う御座います。

0836デフォルトの名無しさん

NGNG

俺はオブジェクトツリーの有無でDelphi6 Perに縛られてます。

0837デフォルトの名無しさん

NGNG

ListBoxにフォルダをD&Dするとそのパスが表れるようにしたいのですが
ファイルも同様に扱えてしまいます。
フォルダとファイルを区別するにはどうすればよいのでしょうか。

0838デフォルトの名無しさん

NGNG

FindFirstしてAttrib調べる｡

0839デフォルトの名無しさん

NGNG

FileExistsとDirectoryExistsを使う

0840デフォルトの名無しさん

NGNG

>>839
俺はこっち

0841デフォルトの名無しさん

NGNG

usesするだけでImage1.Picture.LoadFromFileできるようになるPNGのユニットないですか?

0842デフォルトの名無しさん

NGNG

>>841
無かったっけ？

0843デフォルトの名無しさん

NGNG

たしかあった。

0844デフォルトの名無しさん

NGNG

>>841
ほらよ
http://www.phoenix-c.or.jp/~taki/
http://www.phoenix-c.or.jp/~taki/library/gldpng.html

但し著作権表示は必須だぞ。

0845837

NGNG

>>838 >>839
どうもありがとうございました。今からやってみます。

0846デフォルトの名無しさん

NGNG

今年は Delphi 不況の年だったけど、
来年の Delphi には期待したい。
っていうか日某しっかりしてくれyo!

0847デフォルトの名無しさん

NGNG

こんばんは、こんな日のこんな時間になんですけど、
先日、Borland から Delphi 7 のバージョンアップ案内のはがきが届いていました。
現在、Delphi 2.0Jを使っていますが、趣味のプログラミングの範囲しか使っていなかったので、
今までバージョンアップは行ってきませんでした。
（Delphi 6 Parsonal は無料でダウンロードできる事は知っていたが）
でも、今度はバージョンアップする事にしました。
Delphi 2.0J でかなりのソフト（ツール群）を作ってしまっているんです。
そのまま以降しても互換性とか大丈夫ですかね？

0848デフォルトの名無しさん

NGNG

>>847
取りあえず6Personalで様子見てみたら？6->7はできるだろうから2->6ができればあるいは。

0849デフォルトの名無しさん

NGNG

>>847
符号付整数型と符号なし整数型が少し変わってるんじゃないかな。
コンパイルしてそこら辺の warning が出たら気をつけた方がいい。
昔オレはそれで悩んだ覚えがある。

0850デフォルトの名無しさん

NGNG

>>847
コンパイラオプションのデフォルト値がいろいろ変わっている。
それと、コンポーネントをパッケージに入れないと駄目。

0851デフォルトの名無しさん

NGNG

URLを標準のブラウザで開くときに現ウインドウでなく新しいウインドウで
開くにはどうしたらいいでしょうか？

あと、ComboBoxのアイテムをドロップ＆ドラッグで順番を変えられる
ようにしたいんですがこれは可能でしょうか？

ヘルプでも検索でも見つかりませんでした、年明け早々教えてクン
で申し訳ないです（＾＾；A

あと・・

A HAPPY NEW YEAR! ＞全某使い

0852デフォルトの名無しさん

NGNG

２ｃｈに書き込めるスクリプト(<HTML>)を作っているんですが、メモ帳の串リストから串を読み取り､
書き込みボタン一クリックごとに串が切り替わるようにするにはどうすればいいですか？

0853デフォルトの名無しさん

NGNG

タイマーを使って Label.Caption を一定間隔で書き換えているのですが、
しばらくしていると、デスクトップ画面の (0,0) に残像が残った感じになります。
http://sylph.lib.net/imgboard/img-box/img20030101011536.jpg （これは時計表示の場合）

これって、なにか原因は考えられますでしょうか･･･。

0854デフォルトの名無しさん

NGNG

>>851
なんとなく両方とも難しい気がする。検索を続行すれ。英語のとこも。

>>853
「どこの」ラベルなの？フォームが映ってないけど。実行中？終了してそーなるの？

0855デフォルトの名無しさん

NGNG

Label の親がデスクトップなの？

0856デフォルトの名無しさん

NGNG

>>851

最初のは、FindExecutable() で関連付けされているブラウザを取得して、
その URL をパラメータにして起動する

２番目のは、可能だとしてもユーザインタフェースとして変。同じ Items を
もったリストボックスを持つダイアログを表示してユーザに操作させるとよい。

0857851

NGNG

>>856

ありがとうございます。　なるほど、別の場所で操作してもらえば
良かったんですか、勉強になります。

早速これからトライしてみます、ありがとうございました！m(_ _)m

0858851

NGNG

>>854

ありがとうございます。
ComboBoxのドラドロが可能かどうか引き続き検索してみます。

>>853

refresh;　を追加しておけばゴミが消えるかな？
ゴミが残る問題の解決にはなってませんが・・（スマ

0859デフォルトの名無しさん

NGNG

>>853
>これって、なにか原因は考えられますでしょうか･･･。

Label をつかってなくて、デスクトップに直接描いてるんだろう？
描いている領域が更新されてないんでは？

0860デフォルトの名無しさん

NGNG

>>ComboBoxのドラドロが可能かどうか引き続き検索してみます。

可能かもしれませんが、ドロップするたびに選択されるんでは？
ドロップダウンリストをドラグドロップするのは、疲れそう

0861851

NGNG

>>860

ぅは・・　移動するたびに選択されたらシャレになりませんね（汗
おとなしく　>>856　さんのおっしゃる通りにします。

ありがとうございました（＾＾；A

0862デフォルトの名無しさん

NGNG

>>848 >>849 >>850
皆様、親切なレスありがとうございます。

ところで、Delphi 2.0J と Delphi 7 を両方インストールして
必要なときに切り替えるってのはできるのでしょうか？
Delphi 本体自身が使っているモジュールとかあちこちにありそうで
バージョンの不一致になりそうで怖いっス（笑）
ハードディスクのパーテーションを切ってそれぞれに入れれば大丈夫かな？

0863デフォルトの名無しさん

NGNG

>>862
ほとんどのファイルにバージョン番号を織り込んでいるので（vcl60.bpl とか）
DLL の衝突は起きない。
BDE は公式には上位互換ということになっているし。

0864デフォルトの名無しさん

NGNG

>>846
>っていうか日某しっかりしてくれyo!

むりです。
したくてもできません。金も人も権限も無い。

0865デフォルトの名無しさん

NGNG

>>854-855 >>859
Form1に乗ったLabelです。（親はForm1）
フォームはDesktopCenterに出すようにしてますが、実行中にしばらくするとこうなります。

書き換えは、form1.label1.caption := でしか行っていないです。デスクトップに対して
何かをやってるというのはないハズなのですが・・・(;´Д｀)

0866デフォルトの名無しさん

NGNG

悪いのはプログラムじゃなかったりして。

0867デフォルトの名無しさん

NGNG

マルチスレッドで同期無視してVCLにアクセスしたときになったことあるよ、それ。
あとは、リソース足りなくてDCが腐ってるとか。

0868デフォルトの名無しさん

NGNG

delphi3を1万で売ってるとこがあるんですけど、
これ買ってVrUPなり優待販売なりでdel7安くかえますか？

0869デフォルトの名無しさん

NGNG

>>867
MMTimer使って一定間隔で更新してるのであり得るかも･･･。

0870デフォルトの名無しさん

NGNG

>>862
不具合の可能性はないとは言えないと思う。
パーティション切ってそれぞれに入れるだけでは意味がないから、
システムコマンダーとか使ってマルチブートするようにすればいいと
思うけど、ほかの点で面倒になるかもね。

0871デフォルトの名無しさん

NGNG

>>869
俺と全く同じだ(w
MMTimerは別スレッド駆動だから普通にVCL呼び出すと死ねるよ。

0872デフォルトの名無しさん

NGNG

今年はみんななに作る？
自分はまずは画像ビューア作るよ｡

0873デフォルトの名無しさん

NGNG

俺は書庫内のファイルを階層構造にして表示するやつ(仮想ディレクトリ？)作るよ。

0874デフォルトの名無しさん

NGNG

なんか小さい文字コード変換アプリはさっき書いたけど。

0875デフォルトの名無しさん

NGNG

とりあえず、簡単なアクションゲームでも作ってみる

0876デフォルトの名無しさん

NGNG

>>873
それ､作りたいかもｗ
どのライブラリ使うの？

0877デフォルトの名無しさん

NGNG

>>862
Delphi7は結局見送ったのだけど、Delphi2, 3.1, 4, 5, 6 とC++Builder4, 5を
同居させてても自分は特に不都合がないから大丈夫じゃないかな？
といっても、普段使ってるのはDelphi3.1, 5とC++Builder5だけだけど。

0878デフォルトの名無しさん

NGNG

>>876
このライブラリ厨が。

0879デフォルトの名無しさん

NGNG

ファイル転送に特化したツール作ろうかな。
ICQとかメッセを使わなくて気軽に送れるようなの。

0880デフォルトの名無しさん

NGNG

>>879
ftpとかどうだ（藁

0881デフォルトの名無しさん

NGNG

>>862
dcuファイルの互換性がない。
つまり、Delphi7用のdcuがなければソースが必要。

0882デフォルトの名無しさん

NGNG

FileListBoxでMaskを'*.bmp'等設定しても
'*.bmpdagorua'や'*.bmpmona'のようなファイルまで取得してしまいます。
これをなくすことはできるでしょうか。
今のところListBoxに下のようなコードで表示させてますが
他にいい方法等あったら教えてください

0883デフォルトの名無しさん

NGNG

var
FoundFile: TSearchRec;
Dirpath: string; //表示したいディレクトリのパス
begin
if FindFirst(Dirpath + '*.bmp', faAnyFile, FoundFile) = 0 then
if Copy(FoundFile.Name, Length(FoundFile.Name) - 3, 1) ='.' then
ListBox1.Items.Add(FoundFile.Name);
while FindNext(FoundFile) = 0 do
if Copy(FoundFile.Name, Length(FoundFile.Name) - 3, 1) ='.' then
ListBox1.Items.Add(FoundFile.Name);
FindClose(FoundFile);
end;

0884デフォルトの名無しさん

NGNG

文字列について修行がたりない。

0885デフォルトの名無しさん

NGNG

>>882
FileListBoxは時代遅れだからListBoxつかっておけばいいよ｡
それからFindFirst/Next/Closeはtry/repeat/until/finally/end;を使うのが定石｡var
　sr: TSearchRec;
　path: String;
begin
　Win32Check(FindFirst(path, faAnyFile, sr)=0);
　try
　　repeat
　　　if sr.Attr and faDirectory <> 0 then
　　　　continue;
　　　if UpperCase(ExtractFileExt(sr.Name)) <> '.BMP' then
　　　　continue;
　　　ListBox1.Items.Add(sr.Name);
　　until FindNext(sr) <> 0;
　finally
　　FindClose(sr);
　end;
end;

0886携帯からカキコ

NGNG

const e=exp(1);
ってやったら定数式が必要ですって怒られちゃいますた。
何か解決法はないですか?

0887デフォルトの名無しさん

NGNG

var e: real;

e = exp(1);

readonlyということを強調したいなら

interface
funciton e: real

implementation
function e: real;
begin
　Result := exp(1)
end;

0888886

NGNG

>>887
ありがとうございます。
下の方がよくわからないんで上の方でやろうとしたら今度は"識別子の多重定義:`e`"と言われてしまいました。
もう一度詳しく教えて頂けませんか?

0889デフォルトの名無しさん

NGNG

めんどくさいから

const
　Euler = 2.71828182845090452354;

とでも書いたら

0890デフォルトの名無しさん

NGNG

>>888
多重定義になっているeを消す。

> e = exp(1);
begin
　e = exp(1);
end.
のように実行部に書かないとだめ。

0891デフォルトの名無しさん

NGNG

>>887
interface

const
　e: Real = 0;

implementation

//省略

initialization
　e := exp(1);
end.

の方が良くね？なんかコンパイラオプションが必要だったはずだけど＞型付定数への代入

0892デフォルトの名無しさん

NGNG

新しい自作コンポーネントつくろうと勉強中なんですか、とりあえず作業手順を
覚えるために本見ながらそのとおりにやってるんですけど、エラーがでてできません。
適当なコンポーネント継承して、コード何も追加せずにコンポーネント追加でコンパイル
しようとしても、エラーが出ちゃうんですけど、何がいけないのでしょう？？

0893デフォルトの名無しさん

NGNG

>>892
何も追加しなければ大したサイズじゃないのだから貼り付けたら？
エラーメッセージも教えて

0894デフォルトの名無しさん

NGNG

貼り付けるって言ってもスケルトンコード以外何も書いてないですよ？
とりあえず、TEditを継承して、そのpasファイルはデフォルトの場所（delphi6\Lib）
に置いて、パッケージは既存のパッケージに追加で最初から選択されてたやつですｌ
delphi6\Lib\dclusr.dpkです。それでコンパイルしようとすると、
delphi6\project\bpl\dclusr60.bplを作成出来なかったとでます。
projectフォルダにはbplというフォルダなど無いのですが、もしかして
誤ってけしてしまったかもしれません。これが原因でしょうか？

0895デフォルトの名無しさん

NGNG

>>894
そういうふうに書かないと、
　そのbpl というフォルダを作るか、
　新規パッケージに追加で、自分用のパッケージを作ったら？
　試験用のパッケージは別けておいた方がいいよ。
　IDEが不安定になった場合に復旧し易いから

0896デフォルトの名無しさん

NGNG

>>895
bplというフォルダをつくったら出来ました！
ありがとうございます。作成先のフォルダをbplから別の場所にかえること
はできないんでしょうか？

0897デフォルトの名無しさん

NGNG

つーか、「パス通し・uses」で
テストしきってからにした方がいいんとちゃうの？

0898デフォルトの名無しさん

NGNG

>>896
できます。やりかたは自分で考えて下さい。
考えないとどんどん馬鹿になります。

0899デフォルトの名無しさん

NGNG

このスレ板は他人の育成に気を使う奴多いけど本当は知らないんじゃないか？

0900デフォルトの名無しさん

NGNG

>>896はIDEの使い方についてだからなぁ…。

0901デフォルトの名無しさん

NGNG

>>865
回答じゃないけど、GetDC の引数であるウィンドウハンドルに０を渡すと、
デスクトップの DC が取得できます。ってことで、何かバグが有ってウィンドウ
ハンドルが 0 になっているんだろうね。
VCL のみで作っているとすると、TWinControl の WindowHandel が 0 を返している
ようだ。

0902デフォルトの名無しさん

NGNG

>853
　タイマー使ってるんだよね。タイマーイベントの終了前に、次のタイマーが入っちゃって、
Form1.Handle（=DC）の廃棄が間に合っていないような感じかな……

　ちなみにタイマーの間隔は？

0903デフォルトの名無しさん

NGNG

[警告] Main.pas(148): 符号付型と符号無し型の演算により、オペランドが拡張されました
っていわれてコンパイルはできるんだけど↑消すにはどうしたらいいの？

148　　　MemoContents.Lines[0] := '　新着ないこと　' + CurrToStr(isNothing * Timer1.Interval / 1000) + '秒'

isNothing が Integer で
Timer1.Interval が Cardinalで
MemoContents.Lines が TStrings かな

0904デフォルトの名無しさん

NGNG

ageちゃった・・・　ご・　ごめんなさい

0905デフォルトの名無しさん

NGNG

ageたから答えないよ。

0906デフォルトの名無しさん

NGNG

TTimer.Intervalで計算するのはやめたほうがいいよ｡精度悪いから｡
GetTickCountで差分をとればいい｡

//新着あった
LastCount := GetTickCount;

...

MemoContents.Lines[0] := Format('　新着ないこと　%d秒', [(GetTickCount - LastCount) div 1000]);

0907デフォルトの名無しさん

NGNG

>>905
面目ない　気をつけるでぁ

>>906
ども　ありがとうございます　やてみます

0908デルファイの名無しさん

NGNG

>>903
レジスタ幅である32ビットを限界まで使う型で、符号の有無が異なる型を混ぜると、
符号と値の両方を維持したまま結果を格納するために、64ビットで計算される、という警告。
64ビットで計算したいなら、どっちかInt64にキャスト。
32ビットで計算したいなら、符号を維持したいならInteger、正数だけでいいならCardinalで統一。

0909デフォルトの名無しさん

NGNG

>>906
できましたー　ふがー　ありがとーござまーす
Format も GetTickCount 初めて知りましたー
先が思いやられるけどがんばるです

0910デフォルトの名無しさん

NGNG

>>908
ははー　なるほど
Cardinal に統一しました

マイナスがありえないんだったら整数は Cardinal にしとけってことですかね
あんまり深く考えずになんでもかんでも Integer にしてました　感謝

0911デフォルトの名無しさん

NGNG

新着って２ｃｈブラウザでも作ってるのか？

0912デフォルトの名無しさん

NGNG

そんなだいそれたもんじゃないよ
sage進行チェッカー　delphiの勉強がてら

0913デフォルトの名無しさん

NGNG

例外処理がよくわからんのでこんな風に書いてるんだけど
これ↓はどれくらいアフォなのか誰か教えてくろさい

　Form1.Cursor := crHourGlass;
　try
　　try
　　　HttpCli.Get;
　　except
　　　on Ex: Exception do
　　　　ShowMessage(Ex.Message);
　　end;
　finally
　　Form1.Cursor := crArrow;
　end;

0914デフォルトの名無しさん

NGNG

try
  ...
except
  ...
finally
  ...
end;

0915デフォルトの名無しさん

NGNG

>>914
えー　だってー

67　Form1.Cursor := crHourGlass;
68　try
69　　HttpCli.Get;
70　except
71　　on Ex: Exception do
72　　　ShowMessage(Ex.Message);
73　finally
74　　Form1.Cursor := crArrow;
75　end;

[エラー] Main.pas(73): 'END' が必要な場所に 'FINALLY' があります

ってなるよぅ
try には except かfinally どっちかしかつけらんないの？

0916デフォルトの名無しさん

NGNG

ヘルプに書いてあるね。

0917デフォルトの名無しさん

NGNG

　Form1.Cursor := crHourGlass;
　try
　　HttpCli.Get;
　except
　　on Ex: Exception do
　　　ShowMessage(Ex.Message);
　end;
　Form1.Cursor := crArrow;

これでいいのか　失礼しました

0918デフォルトの名無しさん

NGNG

ｷﾓ

0919917

NGNG

なんでー？

0920デフォルトの名無しさん

NGNG

.ComboBoxにAddできるMAX値はいくつなんでしょうか？
なんかのプロパティで指定できるのか(TCustomCombo.ItemCountなる
ものがあったんですが、TComboBoxは継承してない模様)、それとも
メモリによる制限なのかだと思うんですが。
MAX値が指定できるならそれを超えるAddをやった場合古いListから
削除されるみたいな動作がないかなと期待しています。

0921デフォルトの名無しさん

NGNG

>>920
そんな機能はないので自分で作るしかないので作ったよ
http://onigiri.s3.xrea.com:8080/delphi/index.php?plugin=attach&openfile=HistoryEdit.pas&refer=%5B%5B%A5%B3%A5%F3%A5%DD%A1%BC%A5%CD%A5%F3%A5%C8%5D%5D

0922デフォルトの名無しさん

NGNG

67　Form1.Cursor := crHourGlass;
68　try
69　　HttpCli.Get;
70　except
71　　on Ex: Exception do
72　　　ShowMessage(Ex.Message);
7x　　end;
73　finally
74　　Form1.Cursor := crArrow;
75　end;

0923デフォルトの名無しさん

NGNG

>>92
丁寧に書いてくれてありがたいんだけど
やっぱり73行目で「ENDが必要なのにFINALLY」　っていわれた・・・

0924デフォルトの名無しさん

NGNG

>>922はコンパイル通らないだろう。
1つのtryにはexceptまたはfinallyのどちらか1つ。
Del7は知らんけど。

0925デフォルトの名無しさん

NGNG

ｷﾓいそうだけど　917で行きます
みんなありがとうござーました

0926920

NGNG

>>921
ないですか・・・
ありがとうございます、参考にして自作してみますm(_ _)m
それにしても3分で作ってしまうなんてすごいですね。

0927デフォルトの名無しさん

NGNG

降順ソートの比較関数で整数を比較するとき
A と B が等しければ 0
A が B より大きい場合正の整数
A が B より小さければ負の整数
を返すわけですが
CompareText の整数版みたいなの用意されていないのでしょうか？

0928デフォルトの名無しさん

NGNG

sign

0929927

NGNG

sign って未定義の識別子なんですが・・・
D5を使っています。

0930デフォルトの名無しさん

NGNG

>>926
確かに、(A-B) でもとまればいいのだけど、そういう訳にもいかないので難しいですね。
そういう関数を書くしかないのでは？

0931デフォルトの名無しさん

NGNG

delphiとVC++を一つのPCにインストールするとPCに障害が出る場合があると聞いた覚えがあるのですが、これは本当ですか？
本当だとしたら、何か解決策はありますか？

0932デフォルトの名無しさん

NGNG

聞いたことないな

0933デフォルトの名無しさん

NGNG

Del5にはMath.Signないのか？

0934デフォルトの名無しさん

NGNG

>>933
あっても、>>927の解決にはならないでしょう

0935933

NGNG

何で?

0936927

NGNG

ないですね。
JCLMath に Singe というのがあったのでこれを使います。
なるほど、わざわざ Singe と名前を変えているのはD6以降で存在するからなんですね
どうもありがとうございました。

0937デフォルトの名無しさん

NGNG

>>935
どうやって計算させるつもり？
オーバフローがあるから、signを使っては簡単には計算出来ないよ。 if　文の山を作るしかない。
それくらいなら
type TValueSign = -1..1;
function CompSign(A,B:Integer):TValueSign;
begin
{　　} if A>B then Result:=1
else if A<B then Result:=-1
else {　　　　　　　} Result:=0;
end;
って書いた方が簡単でしょう。
アセンブラで書くなら

function CompSign(A,B:Integer):TValueSign;
asm
CMP EAX,EDX; //A-B
SETGE CL
ADD CL,CL
DEC CL
CMP EAX,EDX; //A-B
SETZ AL
DEC AL
AND AL,CL
CBW
CWDE
end;

0938デフォルトの名無しさん

NGNG

補足
　if A>B then　・・・ ; はA,Bの全範囲で巧く動くけど
　if (A-B)>0 then ・・・ ; 　は等価ではない。

理由は、A-B を正確に表現するには 32bitでは不足するから

0939927

NGNG

なるほどD6のSignってやつは
A=0 = 0
0<A = 1
0>A = -1
多分こういうやつなんですね？
こちらは JCLではSgn という名前で定義されています

0940デフォルトの名無しさん

NGNG

最近、TStringListを覚えて配列代わりによく使ってます

で、一次元なら問題ないのですが多次元に使いたい場合は
array of TStringList としてTStringListを配列にする方法以外ないの
でしょうか？
またこの場合のTSｔringList内の全てのカウントを知る方法は
for i:=0 to Length(stringlist)-1 do
　intTotal:=stringlist[i].Count+intTotal;

と一つずつ求めていく以外方法はないのでしょうか？

0941デフォルトの名無しさん

NGNG

＞TStringListを覚えて配列代わりに
「動的配列」を知っててやってるんだよね？

0942デフォルトの名無しさん

NGNG

動的配列って最初、配列数を記述せずに
SetLengthで値を増減するやつですね
TStringListは簡単に並び替えやテキストに記入できるので
使ってるのですが、動的配列を使用したほうが
効率などよくなるのでしょうか？

0943デフォルトの名無しさん

NGNG

わかってないみたい

0944デフォルトの名無しさん

NGNG

どうわかってないのでしょうか？
解るように教えていただけないでしょうか?よろしくお願いします

0945デフォルトの名無しさん

NGNG

>>940
＞array of TStringList としてTStringListを配列にする方法以外ないの
＞でしょうか？
はい。

＞と一つずつ求めていく以外方法はないのでしょうか？
はい。

0946デフォルトの名無しさん

NGNG

TStringList.Objects[]にTStringListを突っ込むとか｡

0947デフォルトの名無しさん

NGNG

それならTListだろ

0948デフォルトの名無しさん

NGNG

>>945
ないのですか...それならこのまま進めたいと思います。有難うございます。

それと、最初の問いが解決した以上、書き込むのもどうかと思うのですが、
動的配列の件、どう認識不足なのでしょうか？本題とは異なりますが
私は基礎もほとんど解っていない状態なので、出きるだけ早めに間違いを
訂正しておきたく、教えていただきたいのですが...

0949デフォルトの名無しさん

NGNG

>>948
質問しすぎは逆効果。

0950て。 ◆qnISHi2Po.

NGNG

ハッシュってゆーの？
文字列とかをキーにして値を格納しておくような方法を調べてるんだけど
THashedStringList しか見当たらない。
これって文字列しか格納できないみたい

dat番号をキーにスレタイとレス数をペアで大量に持っておきたい檻はどないしたらいいんだしょ

0951デフォルトの名無しさん

NGNG

信じられないことに､いまどきのOOPLに当然のように
備わっているハッシュはDelphiには存在しないよ｡

0952デフォルトの名無しさん

NGNG

>>951
C++も標準ではハッシュのコンテナはないです。
ハッシュテーブルは単なるデータ構造の一つでOOPLとは関係なし。

0953デフォルトの名無しさん

NGNG

C++は今時でもないしOOPLであるかどうかも疑わしいので確かに関係はないね｡

0954て。 ◆qnISHi2Po.

NGNG

>>951
存在しないよ　存在しないよ　存在しないよ・・・　　（エコー）

まじぇすか？！
ＤＢからみのプログラムとか　一体どうやって書いてるんだろ　みんな
悲しいけどしょうがないのでTHashedStringList を二つ用意することにします

次スレって檻がたてるんでしか？　ところで

0955デフォルトの名無しさん

NGNG

>953
いまどきのOOPLって何？
Ruby?(w

0956デフォルトの名無しさん

NGNG

んなもん自分で作れ。

0957デフォルトの名無しさん

NGNG

まともなOOPLなら普通
Object.hashとか
Object.GetHashCodeとか
Object.hashCodeとかあるだろ｡

0958て。 ◆qnISHi2Po.

NGNG

>>952
delphiにも標準でないところで実は便利なクラスがあるんじゃないのー？
ねぇねぇあるんでしょ？

0959デフォルトの名無しさん

NGNG

>>958
TStringList.Strings[]にキーとしての文字列を格納して
TStringList.Objects[]に値としてのインスタンスを格納｡
これしかないよ｡

0960て。 ◆qnISHi2Po.

NGNG

>>959
すんません　勉強不足だた
いまよくヘルプ見たらTStringList のAddObjectでハッシュみたいなことできるんだね
感謝

0961デフォルトの名無しさん

NGNG

>>967
ハッシュ関数なんて目的と必要に応じて自由に定義すればいいだろう。
オブジェクト固有の属性にするなんてアホくさ。

0962デフォルトの名無しさん

NGNG

>>961
アホはお前だろ(藁
もうすぐdat落ちで助かったね(藁

0963デフォルトの名無しさん

NGNG

楽したいのなら、THashedStringList にdat番号を文字列にして追加。

0964て。 ◆qnISHi2Po.

NGNG

もっかいヘルプ見た
TStringList は頭から追加してくから検索に時間がかかって
THashedStringList はハッシュテーブル使うから検索早いぞってことか
今頃分かったのかよ　＞俺

>>963
ん？　楽したいけどよくわかんないかった
HashedStringList.addObject('1038880567', スレタイとレス数がセットになった何か);
ってこと？

0965デフォルトの名無しさん

NGNG

どーせスレ一覧画面に表示するんだろ｡
ListViewに全情報もたせなよ｡

0966て。 ◆qnISHi2Po.

NGNG

>>965
すまん　あんたの想像しているいじょうにオレは初心者なのだ
TListViewって初めてみてすごい感動してたところだ
何コレ　すごい便利じゃん　今まで何やってたの　＞　オレ

0967デフォルトの名無しさん

NGNG

必殺技だかなんだかしらんが
２次元のTstringsはTstringgridを不可視にして使ってる俺。メモリ無駄かな・・・
縦と横が楽に扱えるから好きなんだけど

0968デフォルトの名無しさん

NGNG

初心者ならあっさりすっぱりC#使ったらどうよ?

0969デフォルトの名無しさん

NGNG

２次元の Dynamic Array じゃ駄目なの ? > 967

0970デフォルトの名無しさん

NGNG

たぶん２次元の動的配列で良いと思うのだがindexof とか馴れちゃったし
最初に作った頃は動的配列知らなかったしな・・・・・クラスも作れなかったしなぁ
なんか反省しておこう。　もうやりませんとも。はい

0971デフォルトの名無しさん

NGNG

RenameFileでフォルダの名前を変えたいときエクスプローラで
そのフォルダを開いてると必ず失敗するんだけど
いい対処法ない？ちなみにOSはXPです

0972デフォルトの名無しさん

NGNG

>>971
Delphi 以外では可能なの？
つーか OS の問題だと思うが。

0973デフォルトの名無しさん

NGNG

>>971
失敗したら、リネームではなくコピーしてみる。コピーに成功したら、削除バッチファイルをスタートアップに登録する

0974デフォルトの名無しさん

NGNG

98 サポートしなくて良ければ MoveFileEx に MOVEFILE_DELAY_UNTIL_REBOOT 。

0975デフォルトの名無しさん

NGNG

あらま、簡単にはいかないようですね
>>973
コピーだとディスク容量等考えないといけなくなるので
警告を表示させて処理中断させます
>>974
ちょっと興味あるので調べてきます
どうもです

0976Delﾌｻｷﾞｺ ◆A6VzDeLphI

NGNG

　∩|　
　ﾐﾞ''ﾞﾞﾞつ　　　　＿＿＿＿＿＿＿＿
　ﾐ∧,,∧　　　／
　ミ,,ﾟДﾟ彡＜　D6からAnsiIndexStrとか
　Ｕ　Ｕ　　　　＼DynamicArray検索できるようです
　　　　　　　　　　￣￣￣￣￣￣￣￣

0977デフォルトの名無しさん

NGNG

質問1
インラインアセンブラで記述できるところは、そうしたほうが処理速度
は向上するのですか？

質問2
クラスとか関数とかあまり使わないで1ユニットにガンガンコードとか
書いていったほうが処理速度は速いのでしょうか？

0978デフォルトの名無しさん

NGNG

んなこたない｡

0979デフォルトの名無しさん

NGNG

>>977
yes x2

0980デフォルトの名無しさん

NGNG

>>979
同意。

でも、

現状の速いCPUを使う分にはどれだけの効果があるかは疑問。
結局最適化で下手なアセンブラより速くなったりすることも。
可読性、保守性最悪。

な点であまりお勧めはしたくないですな。

0981デフォルトの名無しさん

NGNG

＞インラインアセンブラで記述できるところは、そうしたほうが処理速度は向上するのですか？

インラインアセンブラの方が低レベルなので、低レベル＝自由度が高いだけであり
その自由度の高さをどう使いこなすかは、書き手しだいです。

が、勉強ならどんどん使ってみましょう。

＞クラスとか関数とかあまり使わないで1ユニットにガンガンコードとか書いていったほうが処理速度は速いのでしょうか
　関数やメソッド呼出には、コストがかかるのですが、それを無くせばその分短くなりそうですが、
　しかし、その分コードサイズが大きくなります。
　コードをHDD->RAMに読み込む為の時間は非常に大きいので、逆になる事も多いですよ。

0982デフォルトの名無しさん

NGNG

StringGridのFixedRowsで固定したセルをクリックされたかどうか
知りたいのですがどうすればいいんでしょうか
エクセルみたいにソートさせたいんです
ちなみにpersonal版なのでDBGrid使えません

0983デフォルトの名無しさん

NGNG

ActionManagerって使い物になりますか？
あまり良いうわさを聞かないのですが｡

0984デフォルトの名無しさん

NGNG

>>983
釣り？
使えるかどうかなんて、あんた次第だと（略）

0985983

NGNG

釣りじゃないです｡
実際にまともに使えた＝使い物になった人がいるかどうかを聞きたいだけなんですが｡

0986Delﾌｻｷﾞｺ ◆A6VzDeLphI

NGNG

　／￣＼　　Delphi相当のIDEを作れるとは思うですが
0⌒>　　ヽ　　BugBrowserってソフトでは
　　⊂ﾆﾆﾆ⊃ 　　同機能を自分で実装してしまっている
　　ミ,,ﾟДﾟ,彡　　ようですね。
　　ミ,つ酒O
　　と,,,,;;,,,,;; 　　有名ソフトでActManeger
　　　　　　　　　　使っているのはあるのかな？

なぜか
irvineもRootFTPもCoolbarで
Controlbar実装はホットゾヌの編集窓くらいかな。

0987デフォルトの名無しさん

NGNG

>>985
（´-`）。o ○ （で、聞いたからどーだってーの？）

0988デフォルトの名無しさん

NGNG

GoogleでもActionManagerネタは
・機能紹介
・Personalにはありません
・バグバグで使えません
くらいしか載ってないね｡

0989Delﾌｻｷﾞｺ ◆A6VzDeLphI

NGNG

　　　　　　　　　　　＿＿＿＿＿＿＿＿＿＿＿＿＿
　　 ∧,,∧∩　　／
　　ミ,,ﾟДﾟ彡　＜　ちょっとDemoﾌﾟﾛｸﾞﾗﾑを調べまた
　　 U　　ミ　　　＼
　＠ﾐ　　ﾐ　　　　　￣￣￣￣￣￣￣￣￣￣￣￣
　　 ∪''∪
$(DELPHI)\Demos\ActionBands
ここのサンプルの動作を見ると、
そこそこに使えそうですが、
とりあえず、カスタマイズメニュー自体が
消えてなくなった後、エンドユーザーは
どうしようもなくなるので、それを修正した方が
よさそうですね。

あと、メニューにどんなツールボタンでも登録できたりしますが
これを制御する方法はあるのかな？

>・バグバグで使えません
Toolbar.カスタマイズメソッドとか、この頃の某は
この辺りの機能、使えないもの多いですもんね。

英語圏の情報とかキボンヌ

0990デフォルトの名無しさん

NGNG

>>982
OnMouseUp でイベントを拾ってMouseToCellでFixedCellである事を
判断。あとはソートキーに従ってRowsプロパティをExchangeしまくり

0991デフォルトの名無しさん

NGNG

ControlbarってWinXPのビジュアルスタイルに対応できるの？

0992デフォルトの名無しさん

NGNG

>・バグバグで使えません
DelphiBugListページには載っていないので気のせいでしょう｡

0993デフォルトの名無しさん

NGNG

TForm.OnCloseQuery で分岐処理をしていて、TForm.Close メソッドを呼び出しても
必ずしも Form が閉じられるとは限らない場合、当該 Form が閉じられたかどうか
確認するにはどうすればいいのでしょうか？

0994デフォルトの名無しさん

NGNG

それより埋めろよ

0995デフォルトの名無しさん

NGNG

質問してるバヤイかよ

0996デフォルトの名無しさん

NGNG

過去ログが中々 HTML 化されない板なんだから、なるべく埋めないでくれ。

0997次スレ

NGNG

Delphi相談室その８
http://pc3.2ch.net/test/read.cgi/tech/1037146781/

0998デフォルトの名無しさん

NGNG

埋め

0999デフォルトの名無しさん

NGNG

1000デフォルトの名無しさん

NGNG

1001１００１

Over 1000Thread

このスレッドは１０００を超えました。
もう書けないので、新しいスレッドを立ててくださいです。。。

レス数が1000を超えています。これ以上書き込みはできません。

モナーの *やさしい* Delphi質問スレ Ver.10

モナーのやさしい Delphi質問スレ Ver.10