DELモナーがどんな厨房疑問でもやさしく答えます。
Delギコはどこに逝きましたか？
これってDelギコスレのPart5？
Delギコいなくなってから、険悪ムードがただよってる。
5 ：
デフォルトの名無しさん ：01/10/15 11:41
ギコスレとは別でいいんじゃない？
Delギコ来てからから、険悪ムードがただよってる。
*やさしい*
初心者スレはもうあるんですけど・・・
このスレのタイトルには
それって、
いくらなんでもスレ建て過ぎだろう。
ﾆｾﾓﾉ ｶｺﾜﾙｲ
13 ：
デフォルトの名無しさん ：01/10/15 13:27
Delphi6 Pro
だからサポートに電話しろって
>>13 それはOSの問題だから、簡単な解決方法はWindows2Kに開発システムを移動するとか
ヘルプを自分で小さくするとか
16 ：
デフォルトの名無しさん ：01/10/15 14:30
Windows 98/ME における Windows ヘルプインデックスの制限
>>17 文章にメリハリが無く、ただ翻訳しただけの文体です。
技術文書なのですから、原因と結果、対策をはっきり分けて書きましょう。
>>18 Borland japanにいってください。
20 ：
デフォルトの名無しさん ：01/10/15 15:41
インデックスを２つに分けるにはどうすればよいですか。
IDE 終了後、Help\delphi6.ohx を Delphi6.ohi に上書きコピー。
>>21 インデックスからキーワードが全て消えました…
Help\*.gid ちゃんと消したか？
24 ：
ななしヘタぐらま ：01/10/15 18:59
>>17 なにぃ！？
ということは，Win9x系の環境では
[F1]キーでのヘルプはできるけど
自分でキーワードを打ち込んでは使えない
ってことですか？
だとしたら最悪（泣）．
Delphi6への移行はコンピュータを更新するまでナシだなぁ．
>24
じゃなくて、ヘルプのキーワードが大きすぎるとwin9xはタコだから表示出来ないけど、
ohiはテキストファイルだから
自分で
必要なの選んでねって事。
自分でやるの嫌なら ohx って拡張子であんまり使いそうもないの消しといたから
それコピーして使ってねってのが
>>21 さんの説明
26 ：
デフォルトの名無しさん ：01/10/15 20:19
ん？ヘルプのキーワードリストって *.ohi に入ってるんですか？
メモ:
OpenHelp使えばそういう作業ラクなのに…(ﾎﾞｿ
>28 でも D6PersonaiにはOH.exe は付いてないし…(ﾎﾞｿ ﾎﾞｿ
ちゅーか開発にWin9xは不便すぎるだろ。。。NT系に移行しようよ。
>>28 & 29
Personal は元からヘルプが少ないからキーワード表示できるし…(ﾎﾞｿ ﾎﾞｿ
>>31 買いましょう。
金がない？
放送大学に入ってアカデミックパック買い漁れ!!
以上。
34 ：
デフォルトの名無しさん ：01/10/16 00:27
初心者ｽﾚ見てもぜんぜん意味がわからない私は初心者失格ですか？
36 ：
デフォルトの名無しさん ：01/10/16 01:31
kylixとDelphiを統合して欲しいと思ってるんですがダメですか？
37 ：
デフォルトの名無しさん ：01/10/16 01:55
Del猫が可愛くて、一匹飼いたいのですが、
>>37 こういうネタ野郎は、この板には必要無いと思うがどうよ？
でも可愛いし、、
ﾋﾄﾞｲｲｲｲｲｲｲｲｲ!
41 ：
デフォルトの名無しさん ：01/10/16 02:11
そのうちカルピスウォーターのボトルキャップに付くんだ・・・
俺買うよ・・・
∧ ∧ |1匹300円|
⊂ ￣￣つﾟДﾟ)つ|＿＿＿＿|
|￣￣￣￣| || ／￣￣￣￣￣
|＿＿＿＿| || ∩＿∩ ＜今なら逝きのいいギコが１匹３００円だよ～
G|＿＿＿| ＼＿＿＿＿＿
（ ・∀・）∩
⊂ ﾉ
） ＿ (
（＿） （＿）∧＿∧ ∧＿∧ ∩＿∩
∧＿∧ ∧＿∧ ∩＿∩ （∀｀ ） （ ） （ ）
（ ）（ ） （ ） （ ∧＿∧( ） ∧＿∧
（ ∧＿∧( ） ∧＿∧ （ ）∩＿∩ （ ）
（ ）∩＿∩ （ ） （ ）（ ）（
逝きのいいギコ パート２
http://piza2.2ch.net/test/read.cgi?bbs=mona&key=999763206 Delあめ猫にゃ可愛い！
駄スレ
47 ：
こたえてくらはい ：01/10/16 04:37
Del6セットアップするときにMSのインストーラー（msi）
>>47 ∧ ∧
（ ´∀｀）（ とりあえず、Del6消して再インストールするモナー ）
var
50 ：
ななしヘタぐらま ：01/10/16 09:30
>>25 とりあえず何とかなるわけですね．
でもMMX Pentium 200MHzだとつらいかなぁ．
>>30 うちPC-9821なんですよ．
会社の予算がないからしばらくがまんですね．
51 ：
デフォルトの名無しさん ：01/10/16 13:47
Delphi6 Pro のキーワードが多すぎるだけ？
>>47 >その直後の再起動で
ってことは Windows Installer のインストールに失敗しているよ？
まさか.... NEC 98 かい？
53 ：
デフォルトの名無しさん ：01/10/16 14:03
TList を継承して TMyType 型を格納するリストを作ったとします。
54 ：
デフォルトの名無しさん ：01/10/16 15:29
Lastって、もともとプロパティじゃなくてメソッドでは？
>54 でもそれじゃ 代入 出来ない
TMyType = class(TList) と継承する一番のメリットは
SetLastメソッドつくれば？
>>56 なるほど、どうせオーバーライドするならそちらのほうが
スマートそう。
ありがとう。
59 ：
デフォルトの名無しさん ：01/10/16 17:46
質問でつ。
60 ：
デフォルトの名無しさん ：01/10/16 17:48
>>59 テメエで考えろカス
人に聞かないと何にもできねえのかゴミ野郎
∧ ∧
Σ(ﾟДﾟ)ス、スマソ
63 ：
デフォルトの名無しさん ：01/10/16 20:12
>その直後の再起動で
64 ：
デフォルトの名無しさん ：01/10/16 21:38
エディタや環境の操作性はかなり異なると思う。
>>64 なんかDel6のはVBモードみたいなのが
あるらしいけど。
(まだPersonal試してないのでゴミン)
エディタに関して言えばVBみたいに
いたれりつくせりではないと思う。
(VBはやりすぎって感もある。
個人的にはVCのエディタぐらいが好きだな)
多分がいしゅつかもしれないけど、VBのデバッグで、
カレント実行プロセスをドラッグにより自由に元に
戻せたり、進ませたりできるなんて、
最初ぶっ飛んだよ。
インタプリタのなせる技なんだろうね。
スマソ
VBからの移行で一番辛かったのは
Helloのソースはowlmainより長いからなあ
VBからの移行か…
すくなくともVB->VC++ほとドラスティックな変化はないから、
安心して(･∀･)ｲｲ!!
あと、VBでは <= =< どちらでもよかった(勝手に修正してくれる)けど、
Delにはそれがないので注意。
とりあえず、文法とクラスの扱い。これがわかれば、あとは
芋蔓式に理解できると思われ。
>>67 漏れは最初、フォームの名前、ユニットのファイル名、
プロジェクトファイル名の決め方でかなりとまどったよ(ｗ
最初、フォーム名が T～ としなきゃ逝けないのかと思ったね(ｗ
>>67 Delも白紙から書くことも可能。
問題は、VBがいくらかコードを隠していると言う点であり、
その方が、初心者は入りやすいということだ(慣れるとどうでもいい)。
TGraphicsとかTBitmapは・・・確かに。
オレもあれを理解するまで一苦労した。
オブジェクト指向がわかってきた後、ようやく
TGraphicsやらTBitmap関係がわかってきた気がする。
＞あと、VBでは <= =< どちらでもよかった(勝手に修正してくれる)けど、
＞Delにはそれがないので注意。
GExpertsをインストールすればできるよ。
インストール直後だと、;=→:=ぐらいしかないけどユーザーで設定できるので、結構便利。
GExpertsは、他にも
標準で割り当てがないメニューのショートカットを割り当てたり、
エディタを拡張する(ショートカットで範囲選択した行の先頭にコメント入れたり)機能があったり、
かなり有用。今の環境に物足りない人は入れてみるべし。
http://www.gexperts.org/ gexpertsあげ
ミスったage
あげられたついでに、gexpertsで他にどんなことができるか書いてみるか。
75 ：
デフォルトの名無しさん ：01/10/17 22:52
＿＿＿＿＿
76 ：
デフォルトの名無しさん ：01/10/18 00:21
デルハイのえらい人教えてください。
77 ：
デフォルトの名無しさん ：01/10/18 01:16
えらくはないが・・・
今日はDelphiスレが上がっていないのはなぜなのでしょう？
試験勉強でそれどころじゃないんです
81 ：
デフォルトの名無しさん ：01/10/18 17:35
＞ ダウンロードファイル
全 SKU 対応
∧ ∧
>>84 いいじゃん別に。
君がこのスレ立てたとしても、持ち主になったわけじゃないんだからね。
>>86 うわっっっ！！！直ってる！！！！！びびったよ（´д｀；）
関係者ですか？
89 ：
デフォルトの名無しさん ：01/10/18 20:33
Delphi 6 Update Pack 1
XP Pro での動作は確認していますが？
>>90 Server のビルド番号は？
92 ：
デフォルトの名無しさん ：01/10/18 23:04
>>90 Update1 当てる前だと問題なかった？
サンクス
MSDN ベータだとだいぶ古いですね。
OSは標準インストールです
96 ：
デフォルトの名無しさん ：01/10/19 00:16
（ ´Ｖ｀）
スレ立てたの私。ちなみに、１以外のモナーは全部私以外の人ですよ。
>>96 ハンガリアン表記をより凶悪に推し進めただけのトリッキーコードにしか見えない…。
全ての変数に接頭辞つけるやつは変数宣言を読むのがそんなに辛いんだろうか。
ひゃくばんげっちゅ
101 ：
Del初心者 ：01/10/20 15:00
DelphiとVC++って、どう違うんですか？
>>101 Delphiはコンパイラ型です。
記述は C や Basicと同じ種類の方式です。 LISPと比べるならばですが
Delphi と VC++は似てるのは、単に Windows用のネイテブコンパイラである
事くらいで、違う事の方が多く違いはあげられません
103 ：
Del初心者 ：01/10/20 15:57
>>96 面白いかも
実行時型情報に入るようにプロパティに登録して、変数名=値をファイルに書き出す
ようにしたら便利かも・・・・
でも、それローカル変数でやると最適化が効かないかもしれない
105 ：
デフォルトの名無しさん ：01/10/21 18:31
Rar形式で圧縮かましたいです。
107 ：
デフォルトの名無しさん ：01/10/22 01:13
質問です。
108 ：
デフォルトの名無しさん ：01/10/22 01:17
>↑
「Variants.pasが見つからねぇぞｺﾞﾙｧ(ﾟДﾟ)」
とりあえずパッチ当てたら？
111 ：
デフォルトの名無しさん ：01/10/22 01:28
>107
>>109 ソースがないのでソースコードを追ってのデバッグができないというだけ。
さっくり無視(I)すれ。
>>111 さいです。
上下にMessageBox()はさんで確認(藁してます。
>>113 現在40%(泣)メタル線返せ～＜みかか
>>114 ン？実行時に出るのか？
レスを読む限りコンパイルエラーになりそうだが。
とりあえずアップデートして解決。
>99
>>117 キーボードからできるとして、どのキーに割り当てればよいと思う？
もうほとんどの組み合わせが使われてしまっているしね。
119 ：
デフォルトの名無しさん ：01/10/22 10:31
質問です。
>>119 ツール -> デバッカオプション で止めないように出来ます
興味があるのですが、
常に例外を発生させるようなコードというのはどういうものでしょう？
オプション設定で無視する例外を設定出来るＹＯ！
>>119 まず常に例外を発生させるコーディングスタイルは
見直すべきと思われ。
どういうコードか書けばここに居る人が教えてくれるかもよ。
あ、もし例外が発生したときをシミュレートしてコードから
>>120-121 ありがとうございます
>常に例外を発生させるようなコードというのはどういうものでしょう？
オフコンにFTPでファイルを送るのですが
オフコン側ではそのファイルを処理してから消去します。
オフコンがそのファイルを未処理の場合はファイルを送ってはいけません。
そこで
「FTPで前に送ったファイルをGETしてみて
失敗した場合（ファイルがない場合）にのみ処理を続ける」
という具合にしてみたわけです。
例外ってスピード速いし、普通に使って問題無いんだＹＯ！
>>124 それは 失敗した場合に例外を自分で出してるんだよね？
そういう用途ならAbort でいいんじゃない
Abortならデバッカにひっかからないし
>>125 >例外ってスピード速いし、普通に使って問題無いんだＹＯ！
そんなに早いもんだったのか、知らんかったよ。
>>119 ｻｿ、ｽﾏｿ。
なんかどっかで実行中のプログラムの例外を補足して
ログとるツールがあったような記憶があって(曖昧でｺﾞﾒｿ)、
それで気持ち悪いなぁとか思ってね。
>例外じゃなく、戻り値でエラー判断なんかやってるコードが問題だと思われ。
だけど、Win32APIとかは戻り値でしかｴﾗｰの有無を判定できないと思われ…
>>127 サイレント例外は気がつきませんでした。
ありがとうございます。早速やってみます。
自分で例外発生させているなら
131 ：
デフォルトの名無しさん ：01/10/22 11:47
>それとファイルのリストを保持する場合、TListに格納して変更があった時
132 ：
デフォルトの名無しさん ：01/10/22 11:50
ちゃうちゃう。
133 ：
Delphi6 Enterprise の自慢 ：01/10/22 12:05
いやあ、多機能っていいね！
＿＿＿＿＿＿＿＿＿
∧,,∧ ／
>>131 ミ,,ﾟДﾟ彡＜ TListなどにて内部データ構造を格納しつつ、
ﾐつ つ ＼ そのItemをListViewのTListItem.Dataと関連付けるのがいいかも
～ﾐ ﾐ. ￣￣￣￣￣￣￣￣￣
Ｕ Ｕ ﾁｮｯﾄ手間かニャ
>>130 Indyが出す例外なので
> VCLが発生させる例外なら
> ブレークポイント2つで上下はさみ
> その間だけ例外ムシさせる方法があるぞよ
これを試してみます。
ありがとうございました。
136 ：
デフォルトの名無しさん ：01/10/22 13:25
256色のＢＭＰファイルを使いたいです。
137 ：
デフォルトの名無しさん ：01/10/22 13:33
procedure ParettoWoToru(var Paretto:array [0..255] of TColor; ABitmap:TBitmap);
>>135 Indy が出す例外は、原則 IdException.pas で定義されている EIdException から
継承された例外クラスを使っている。だから「言語固有の例外 - 無視する例外の種類」
に EIdException を追加すれば、Indy 固有の例外で IDE が停止することは無くなる。
>>137 パレットってなんだか知っている？
Paretto -> Palette
140 ：
デフォルトの名無しさん ：01/10/22 13:43
パレット。２５６色モード時に色情報を格納。
>>138 ありがとうございます。うまく行きました。
137 はネタのつもりだろうか？
143 ：
デフォルトの名無しさん ：01/10/22 16:07
136です。
>>137 ネタですか？ネタですよね！？
ネタでなければ、プログラムがバグっている＆やろうとしていることが
違うと思います。
自分としては、
>>140 と同じ意味でパレットという言葉を使っています。
で、フルカラーモードで、２５６色ビットマップを扱うときに、
１．２５６色のＢＭＰファイルからパレットを取得する方法（pal[256]という変数に取得したい。）
->ＢＭＰのファイルを読んで画面に表示して、その画像のパレットを変数palに代入したい。
というのをどうやるのかが、知りたいです。
よろしくおねがいします。
GetPaletteEntries
>>118 識別子の上でCtrl+Space。
関数の引数を見る(=補助情報を得る)のと同じ感覚で使いたい。
メンゴ。Ctrl+Shift+Spaceだ。
147 ：
デフォルトの名無しさん ：01/10/23 02:23
つーかさ、ならば２５６色時に
148 ：
デフォルトの名無しさん ：01/10/23 02:28
それよりちょっと聞いてくれよ。
やるなら普通にコメントでいいんでは。
150 ：
デフォルトの名無しさん ：01/10/23 02:53
>>147 パレット番号
「ならば」とは何に対して言っているのか？
152 ：
デフォルトの名無しさん ：01/10/23 03:39
>>151 >ネタでなければ、プログラムがバグっている＆やろうとしていることが
>違うと思います。
それなら変数名とか関数名だけで判るようにしとく方がいいと思うのは・・・俺が年寄りなった証拠？
155 ：
デフォルトの名無しさん ：01/10/23 07:50
>>154 いや、それでも分かりにくい場合ってあるでしょ？
>154
157 ：
デフォルトの名無しさん ：01/10/23 11:16
>>144 GetPaletteEntries調べてみたのですがＶＢの解説しか
みつからなかったです。Ｄｅｌｐｈｉのヘルプにもないところをみると
ＡＰＩか何かなのでしょうか？
パレット詳しい方いたら、教えてほしいです。
160 ：
デフォルトの名無しさん ：01/10/23 12:45
D6パーソナルって DsgnIntf 無いの？
161 ：
デフォルトの名無しさん ：01/10/23 13:52
インターフェイスが分かってるようで理解できてないような、そんな
>>160 Delphi4 の時から、デザイン時ライブラリを分割してね。って書かれているのに
いまだにこういう質問が出てくるとは..
Help 読みなさい
∧,,∧ ／￣￣￣￣￣￣￣￣￣￣￣
ミ,,ﾟДﾟ彡 ＜ 自分で体感しないと知らないものです
ﾐ つ且~~ ＼＿＿＿＿＿＿＿＿＿＿＿
～ﾐ,,,,,, ,,ﾐ ｷﾋﾞｼｲｯｽ
>>162 さん
プロパチエヂタまでこだわって作っている人は少なそう。
こだわらなくてテキトに作っている人はD6になったとたんつまづーきますね。
フサも２週間前くらいに思いっきりﾂﾏﾂﾞｲﾀ
>>160 さん、とりあえず、Personalはつらそう……
ご検討を祈ります。
プロパティエディタ系コード(uses Designなんとか)
は実行時コンポーネントコードとは別ユニットにしましょう。
あと、TEditorの作者さま...
プロパティエディタ問題なんとかしてください。
フサの勘違いかもしれないけど、
思いっきりD6DsgnIntf問題にひっかかってません？
>>162 スマン。奇数時しかバージョンアップしない不良ユーザなもんで
ヘルプってこれだよな？
>DSGNINTF.DCU は Delphi に付属しなくなりました。したがって，コンポーネント開発者は
>設計時コードを実行時コードとは別のユニットに分離することを考える必要があります。
>実行時コードでは，それらのユニットを参照しないようにしてください。
>それが不可能な場合は，\source\toolsapi\ ディレクトリにある DSGNINTF.PAS をコンパイル
>することが可能です。ただし，この方法は一時の間に合わせとして提供されるもので，
>将来のリリースでは提供されない可能性があります。
>また，ライセンス契約の条項により，インプライズ社が所有するソースコードに基づく DCU
>を配布することは，そのコードがどのように提供されたかに関係なく，
>許可されないことに注意してください。
設計時ユニットと別けるってのは、単にプロパティエディとかを別ユニットに別けろって事だよな？
てことは、どっちにしたって、コンポソースがプロパティエディタを使う場合はパーソナルだ
けじゃ使えないって事だな・・・まあそんな制限無いと無料で配れないか・・・
使ってみて便利だったらバージョンアップしようかと思ったけど、俺はVer7まで待つわ
>>コンポソースがプロパティエディタを使う場合はパーソナルだ
>>165 うーん。方法があるのか？
DSGNINTFで使ってるのは RegisterPropertyEditor だけだから
これを別ユニットにして、別に設計時パッケージに入れろって事だよな？
自分のコンポーネントをuses して、RegisterPropertyEditorしてる
だけのソースを作ってみてプロジェクトファイルを弄ってみたけど、
やっぱりコンパイル出来ない。
スマン。どうやってコンパイルしたらいいか教えてくれ
167 ：
デフォルトの名無しさん ：01/10/23 15:29
最近VCLってつかわないよ。だからEXEサイズ60kbyteいかだ
perl使えよ
169 ：
デフォルトの名無しさん ：01/10/23 15:36
IndyってフリーなのにどうしてD6personalに入れないかなぁ?
>>166 >やっぱりコンパイル出来ない。
エラーはなんと？
あ！
エラーは当然 DSGNINTF が無い。
>>171 そうだね。多分すでに正解を手にしていると思う。
「設計時コンポ」ではなく「設計時パッケージ」ね。
設計時パッケージは IDE のみが使う。プロパティエディタも IDE のみ。
実行時パッケージおよびコンポーネントのユニットは設計時パッケージやデザイン用
ツールとは分離できる。
>>173 そこまでできているのなら、分離した設計時パッケージに
designide を追加すれば designide60.bpl が DSGNINTF を
提供してくれる。
デザインパッケージの実コード。
登録やプロパティエディタを定義。
unit x;
interface
implementation
uses DesignIntf, MyComp;
begin
RegisterPropertyEditor( TypeInfo(TMyComp), TMyComp, 'Caption', nil); // nil にはプロパティエディタのコードが入るはず。
end.
Package1.dpk の部分
requires
rtl,
designide;
contains
x in 'x.pas';
end.
>.174 ありがとう！ 出来たよ。
しかし、今度はD5でコンパイルできなくなった
*.dpk だけはコンパイラバージョンごとに分けることを勧める。
>>169 Synapse のどこにスレッドが使われてる？
>>169 Indy は「スレッドが使えるんだ。ブロッキングで何が悪い？」という思想だから
スレッド使いすぎという批判は筋違い。
［666］
見る見るうちにモナー下がっちゃった。
182 ：
デフォルトの名無しさん ：01/10/24 06:50
sage
184 ：
デフォルトの名無しさん ：01/10/26 11:12
あげ
185 ：
デフォルトの名無しさん ：01/10/26 16:38
Delphi5か6安売りしてるところはありますか？イクラですか？
186 ：
デフォルトの名無しさん ：01/10/26 16:58
>>185 Delphi6 は www.borland.co.jp からタダでＤＬできま。
187 ：
デフォルトの名無しさん ：01/10/26 17:09
ビジュアルスタジオエンタープライズエディションロクテンレイの
データベースコンポが無いよう
>>186 学生であの膨大なVisualStudioは酷だよ。学生は根気が無いんだから
>>187 >>187 Professionalが3万で買えるだろ。
BorlandのEnterpriseと比較するならMSDNじゃないと。
単純比較はできんが。
190 ：
デフォルトの名無しさん ：01/10/26 21:22
191 ：
デフォルトの名無しさん ：01/10/26 21:44
アクティブデスクトップのように、
192 ：
デフォルトの名無しさん ：01/10/29 01:46
スレッドを使っているのですが、スレッドからVCLを触る場合はSynchronizeをつかいますよね。
Indyのソケットを使っているのですがスレッドに渡したソケットをメインスレッド側からも使ってイイ
194 ：
デフォルトの名無しさん ：01/10/29 15:48
まったくの初心者なものでつかぬことをお伺いしますが、
195 ：
デフォルトの名無しさん ：01/10/29 15:50
>>194 CELL = record; // コレ
PCELL = ^CELL;
CELL = record
value: integer;
before: PCELL;
next: PCELL;
end;
こんな感じ?
あるいは最初からクラスにするとか
197 ：
デフォルトの名無しさん ：01/10/29 16:03
>>195 、
>>196 早速のお答え、ありがとうございます。
レコード型で
>>195 のようなforward宣言をしようとしても
コンパイラが受け付けてくれないので、
どうやらforward宣言が効くのはクラスだけみたいです。
ボーランドとしては、レコード型なんか使わずにクラスを使えってことなのかな…
とにかく、どうもありがとうございました。
198 ：
デフォルトの名無しさん ：01/10/29 16:15
CELL = record; // コレ
PCell = ^TCell;
200 ：
デフォルトの名無しさん ：01/10/29 21:36
おねがいです、以下の仕様で最速の実装をしてください。
>>200 ＞最速の実装をしてください
が、ちと気に入らないが・・・。
＞自分で書いたコードもあります。
とのことなので、まず自分のソースをあげてみよう。
そこから悪いところを直していけば勉強にもなる。
202 ：
デフォルトの名無しさん ：01/10/29 22:12
始めまして、私、Delphi3を使用しているのですが、
204 ：
デフォルトの名無しさん ：01/10/29 23:50
>>200 ブロックに分けて、テーブルを使うのはどぉ？
205 ：
デフォルトの名無しさん ：01/10/29 23:54
テーブルというと、ピクセルの重なり具合というか、
206 ：
デフォルトの名無しさん ：01/10/30 00:07
例えば、
>>203 揚げ足とり敵に細かいところを責めてみるか
・SetPixels、GetPixels、ComplementedBrightRGB等のループ内
各関数をインライン展開して、オーバーヘッドを抑える
・Canvas.Pixels[x,y]やScanLine[y];は重いので使わずに、
bit列へのポインタもらって自力で描いたり書いたり読んだりする
＃ Canvas.Pixels[]など、速度が必要なときに使うのは論外中の論外!!
・浮動小数点は比較的重いので、固定小数点にする
＃ 最近はあまり意味ないかもな
208 ：
デフォルトの名無しさん ：01/10/30 06:57
>>207 おお、どうもありがとう
早速修正したいとおもいます。
ところで…
>ScanLine[y];は重いので使わずに、
>bit列へのポインタもらって
今まで ScanLine[y] っていうのは y 行の
ピクセルデータへのポインタを得るものだと思っていたのですが、
そうではないという事ですか？
210 ：
デフォルトの名無しさん ：01/10/30 07:44
あの混線時にダウソしたけどになやっていいかわかりません。
さ、三目並べにしておけ・・・
212 ：
デフォルトの名無しさん ：01/10/30 11:19
Delphi4 or 5を叩き売りしてる店無いかな？age
５目並べは、画面にTStringGridを貼り付けて
215 ：
Sock2に挑戦 ：01/10/30 14:54
すいませんサーバサービスで質問です。
>>209 TBitmap自体、内部的にDIB使ってるけどScanLineの連続呼び出しはやっぱ重い。
検証用に、無理やりTBitmap継承してScanline使わないようにしたクラスが手元にあるんだが、
不完全だしさらすのいやだからなあ(笑
どうしてもっていうなら、さらし用のつくってみるけど。
いや、でも確実に速くなるよ。
ピクセルへ書き込み及び情報取得部分だけでも公開してくれませんか？
ありゃ。さらし用のTBitmap派生クラスを作ってみたが、速度はちっとも変わらんだ。
221 ：
デフォルトの名無しさん ：01/10/30 23:46
∧ ∧
222 ：
デフォルトの名無しさん ：01/10/31 00:04
>>219-220 左上からなめるようにスキャンする場合は
効率が良いかもしれないけど、ランダムに
アクセスするような場合ってどうよ？
>222
上げたコード、メモリ解放してないや。最悪ヽ(`Д´)ノ
>>221 そんなところで。
>>222 気持ちほど速くなる（藁
つーことは、今回の件ではあまり高速化には貢献できないことになりますか。
225 ：
デフォルトの名無しさん ：01/10/31 12:55
完全に２次元配列に入れてから処理をすれば…
227 ：
デフォルトの名無しさん ：01/10/31 22:53
228 ：
デフォルトの名無しさん ：01/10/31 23:43
Scanline プロパティが遅いのは、GDIFlush API を呼び出したりと
>>228 これはいいこと聞いた。感謝上げ。
…したいんだが荒らし、批判その他避けで下げ。
230 ：
デフォルトの名無しさん ：01/11/01 08:35
ネットワーク関係に困ったらIndyを使え。
>228
>232
Delphi6 Enterprise 60日トライアル版を入手できるWebサイトはありませんか？
235 ：
デフォルトの名無しさん ：01/11/11 11:00
自分で作ったプログラムから、
WM_CLOSE
>>235 Windows終了時にかちゅーしゃ終了させるアプリ作ってる？
需要あるから公開キボンヌ。
kill@cygwin
んーぐらい自分で作れドアホウ
>>236 |うぇーん、どうしたらいいかわからないモナー
￣￣∨￣￣￣￣￣￣￣
∧＿∧
（ ´Д⊂ヽ
⊂ ノ
人 Ｙ
し （＿）
Googleで調べたら、
PostMessage(Self.Handle, WM_CLOSE, 0, 0);
ってすると、自分自身を終了できるけど、
Self.Handleのとこの変え方（？）がわかんない・・・。
こういうのの使い方ってどうやって調べるの？
>>237 2ch依存しすぎてるんで、
一定時間したら強制終了させられたらいいかな、と。
>>238 cygwin（？）だと、一定時間後とかってできないですよね？
>>239 できたら代わりに作ってください。お願いします。
241 ：
デフォルトの名無しさん ：01/11/11 14:06
>>240 EnumProcessとかFindWindowとか
できましたー。
「かちゅ～しゃ」フォルダも引っかかるかも
,－-、
>>242 むしろ、
FindWindow('TKatjushaMainForm', nil);
のほうがいいかも…
皆様のおかげで無事完成いたしました。
∧,,∧ ／￣
＼,,,,ミ,,ﾟДﾟ彡 ＜ sageでゴメンなさい。
⊂,,,,,,,,,つつ. ＼＿
かちゅのパスが取得できていないみたいですので
http://homepage1.nifty.com/beny/tips/other10.html これみて、かちゅ起動時には
フルパスを自動取得できたらいいなあ。
>>248 NTだとそれじゃﾌﾙﾊﾟｽが取得できないんだよねｗ
∧ ∧ ｿﾃﾞｼﾀｶ
>>250 EnumProcesses
EnumProcessModules
GetModuleFileNameExA
を組み合わせて作る。
たしかこれ併用して9x/NTどちらでも
プロセスをフルパスで列挙可能な非VCLがあったんだが…
コンポのソースに書いてあったURLに飛ぼうとしたら404、
MSDNの検索でも結果に飛ぼうとしたら、んなページねぇぞゴルァ言われた…
具体的なURLは出せないスマソ。
>>251 BorlandのQ&Aで見た記憶がある。
C++用だったかも。
254 ：
デフォルトの名無しさん ：01/11/22 15:06
初心者質問なのですが、よろしくお願いします。
>>255 Form の Position プロパティのヘルプを読め！
>>256 Positionプロパティだったんですね、了解です。
ListViewコントロールをレポート形式で表示させているのですが、
259 ：
デフォルトの名無しさん ：01/11/23 22:05
260 ：
デフォルトの名無しさん ：01/11/23 22:22
>>258 質問者がどこで引っかかっているのかがわからないが...
ListView1.AddItem(Item: String; AObject: TObject);
または
with ListView1.Items.Add do
begin
Caption := 'XX';
end;
こんな書き方は？ Items.AddItem は第一引数の扱いが難しいから
あまり勧めない。
素直にこうすれば？
262 ：
デフォルトの名無しさん ：01/11/24 04:57
263 ：
デフォルトの名無しさん ：01/11/24 05:45
最近Delphi6Parsonalをダウンロードしました。
>そこで、環境変数のPathを変更する機能を作ろうと思ったんですが、
拾得
>>260 サンプルソースで理解できました。
ありがとうございます。
>>265 ありがとうございます！
早速試してみたんですが、未定義の識別子:'SetEnvironmentValiable'
と言われてしまいました。
現在GetEnvironmentValiableの方は動いております。
何か、Usesに加えたりすれば解決するのでしょうか？
268 ：
名無しヘタぐらま ◆B18Bks.Y ：01/11/24 20:04
>>258 文字列リストのObjectsプロパティのような
関連するデータへの参照ということでしたら
>>261 さんの方法でもできますです．
レポート形式ということなので蛇足ながら
２つ目以降の列の設定のコードの例もあげるです．
procedure TForm1.Button1Click(Sender: TObject);
var
NewItem: TListItem;
begin
NewItem := ListView1.Items.Add;
NewItem.Caption := 'なんとか';
NewItem.Data := FMyNantokaObject; // データへの参照．
NewItem.SubItems.Add('さぶ１');
NewItem.SubItems.Add('さぶ２');
NewItem.SubItems.Add('さぶ３');
end;
∧⊂ヽ, ／
ﾐﾟДﾟ,ﾐ,ﾉ＜ ハニャーン
ﾐ⊃ ,ﾐ ＼
ﾐ, ,,ﾐ
>>267 、あら、見つからないですね。ガセかしら。
⊂,,,ノ
∪
Windows.pasにはこんな風にかかれてるけど。
function SetEnvironmentVariable(lpName, lpValue: PChar): BOOL; stdcall;
>>265 ValiableじゃなくてVariable。lとr間違ってる
>>270 間違っていました（汗
修正したら動くようになりました！
フサギコさん、270さんありがとうございました。
272 ：
デフォルトの名無しさん ：01/11/30 14:03
初めて書き込みます。
フサギコさん有難うございます。解決致しました。
275 ：
Delフサギコ ：01/12/01 04:40
>>275 それは>1だからいえることで、ｲﾊﾟｰｿｼﾞｿには禁句と思われｗ
277 ：
HSP厨房 ：01/12/01 08:12
Delphiを解説している、本はない？
278 ：
デフォルトの名無しさん ：01/12/01 08:52
Delphi6ﾊﾟｰｿﾅﾙでフォームを透明にするコンポーネントってありませんか？
>>278 おもいっきし TransparentColor とか AlphaBlend とかいうプロパティがあると思うけど
280 ：
デフォルトの名無しさん ：01/12/01 17:08
272です。タブキーの件ではお世話になりました。
引き続きテキストエディタに関しての質問です。
読み取り専用ファイルを開いて[上書き保存]の処理をさせた時に、
「読み取り専用なので保存出来ません」と言った内容の警告を出したいと思っております。
とりあえず自分が考えたのは、
1)読み込んだファイルの属性を変数Ftype(仮)に格納
2)ダイアログを使用しない[上書き保存]の処理の際にFtypeの値を参照し、
それぞれの処理に分岐させる
と言う感じの処理です。
OpenDialog等でファイルを開いた時に対象ファイルの属性を取得したいのですが、
取得する場合はどうすればいいのでしょうか？
>>276 さん、フサギコさん
ありがとうございます。まだDelphiを始めて間もないですが、
自分なりに努力してやって行こうと思っております。
ご迷惑をお掛けするかも知れませんが宜しくお願いします。
>>280 ExtractFilePathでファイルがあるフォルダを取得して
FindFirst、FindNextをループさせて頑張る。
>>280 他にもあるかもしれないけど FileGetAttr
人に聞くのも一つの解決法かもしれないけど、ヘルプを引く癖をつけた方がいいよ。
このFileGetAｔｔｒという関数を覚えていたのではなく、ヘルプを開いて、「VCLリファレンス」
「ルーチン一覧(カテゴリ別)」、「ファイル管理ルーチン」と辿って見つけた。約1分。
>>280 を書いて、俺がたまたま読んで、このレスを書くまで約30分。この差は大きい。
Delphiのヘルプって使いづらいとか言われてるから、慣れるまで時間がかかるかも
しれないけどね。俺は他の言語をほとんど使ったことがないのでよくわからないけど。
>>281 FindNext って、あんたワイルドカードを含んでいるわけじゃないんだから、
ファイル名が確定している状態で FindFirst に渡せばそのファイルの属性が取れる。
>>280 あと、ReadOnly のファイルに上書きしたい。という欲求が出てきてもおかしくないから
「開いたときの属性」ではなく「保存時の属性」で判断したほうが自然。
実際に書き込もうとしてみてエラーが出てから
>>281-285 の皆様、ご教授ありがとうございます。
282さんの解説して下さったFileGetAttrで処理する事に致しました。
対応としてはメモ帳と同じように、読み取り専用のファイルの場合は
[名前を付けて保存]の処理に移動させるようにしたいと思います。
>>282 さん
ご注意頂き申し訳ございませんでした。
これからはヘルプ、Tips等を参照してから質問するかどうかを判断したいと思います。
今回のように基本的なことはすべてヘルプで解決出来そうなので…。
お邪魔致しました。
>>286 「質問うぜー」とかって意味じゃないよ。
調べる手段を複数持っていた方が解決が早くなるときもあるから
そういうことを勉強するのも大切って話。
インテリマウスで何個スクロールするか、一画面スクロールするか、
雨後貸しって何？
291 ：
デフォルトの名無しさん ：01/12/02 05:39
>>279 遅くなってスミマセン。ありがとうございます。
しかしそれはwin98じゃできないみたいです。
雨後貸=動かし
Delphiって、どういう意味ですか？
297 ：
デフォルトの名無しさん ：01/12/02 06:05
>>295 わかりました。どうも、ありがとうございました。
298 ：
デフォルトの名無しさん ：01/12/02 06:31
どるふぃん。
299 ：
デフォルトの名無しさん ：01/12/02 07:16
M$Wordのマスコットってイルカじゃなかったですか？
300get
301 ：
デフォルトの名無しさん ：01/12/02 08:36
Delphiは古代ギリシャの町の名前。
そして Delphi で Oracle(神託) を受ける
comp.lang.delphiってないの？
305 ：
デフォルトの名無しさん ：01/12/03 10:39
アイコン選択ダイアログボックスってどうやって実装するの？
>>305 SHChangeIconDialog を使う。
307 ：
デフォルトの名無しさん ：01/12/03 19:49
Delphi6Parsonalをインストールした。
ツールボタン用のbmp画像がたくさんあるサイト知りませんか?
>308
XPのｶｺｲｲボタンやタブコンはどうすれば使えるんですか？
311 ：
デフォルトの名無しさん ：01/12/05 14:50
312 ：
デフォルトの名無しさん ：01/12/05 16:38
別のソフトの最大化を無効にしたいのですが、無理でしょうか？
CBTProcフック プロシージャは､ 次のような場合にシステムが呼び出す､ アプリケーション定義またはライブラリ定義のコールバック関数です。
>>312 強引な方法だが、KERNEL32.DLL以外で、
対象アプリが起動時に読み込むDLLのラッパを作成。
そのラッパDLL内部で最大化したくないウィンドウをサブクラス化する。
そして最大化のメッセージを拾ったらそれを捨てる。
イメージとしてはWinMXに対するchime、かちゅ～しゃに対する
Katjusha Extenderな感じだね。
これでどうだろう？外部からあれこれいじるのはあまりスマートに
実装できないし…(少なくとも漏れはスマートに実装する方法は知らない)
こうやって内部に侵入した方が(･∀･)ｲｲ!と思われ。
>>313 システムフックって開発/デバック時、
Windowsや他のアプリにDLL掴まれて再構築とか
出来なかったりして面倒だし、最悪システム全体に
悪影響及ぼすから、あまりスマートとは思えないｽﾏｿ。
312くらいのことだったら始めはdllなしで組んで、グローバルじゃなくて
色々とありがとうございます。
Magic of Delphi どこ逝ったの
320 ：
デフォルトの名無しさん ：01/12/07 10:48
すいません。
Delphi4 の何なのかわからないと答えようがない
>>320 Client/ServerかProfessionalなら買い。Standardなら不要。
VCLソースが入っているかどうか判断の基準。
実際に使うのはDel6PersonalでDel4のVCLソースを参考にするという
使い方がいいと思う。
しかしユーザー登録してバージョンアップできるから
>>320 正規ライセンスがついていれば買い。
もちバージョンアップが前提。
325 ：
デフォルトの名無しさん ：01/12/09 13:07
>309
>326
,,,,,,,,,,,,,,,,∧,,∧ ／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
～′,,,,,,,,,,ミ,,ﾟДﾟ彡 ＜ 他にアイコン画像のいいサイトがあったら報告してね。
UU"""" U U ＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
Delphiお役立ちサイト(コピペ)
http://do.sakura.ne.jp/~junkroom/cgi-bin/megabbs/readres.cgi?bo=lounge&vi=999486538 329 ：
( = ﾟ ωﾟ ) ：01/12/09 16:09
助けてください
∩ ∩
331 ：
( = ﾟ ωﾟ ) ：01/12/09 16:22
D6personalだよぉぉ
332 ：
( = ﾟ ωﾟ ) ：01/12/09 16:26
２つのフォームのプログラムなら
∩|
334 ：
( = ﾟ ωﾟ ) ：01/12/09 16:43
フサギコちゃん、ありがとうございます
336 ：
( = ﾟ ωﾟ ) ：01/12/09 18:44
変数宣言の仕方が良く判らないのですが
337 ：
( = ﾟ ωﾟ ) ：01/12/09 18:59
ここからソース張ります
>>336 >(1)と(3)にはどんな違いがあるのですか？
(1)はフォーム（=クラス)ローカル
(3)はユニット(=ファイル)ローカル
いまはたまたま一ユニット一フォームなんで違いが目立たないだけ
といっても今の知識じゃわからないだろうから
とりあえず(1)を使うべし
339 ：
( = ﾟ ωﾟ ) ：01/12/09 18:59
unit YaMain;
340 ：
( = ﾟ ωﾟ ) ：01/12/09 19:00
次にサブフォーム(YaTask)
(1) の上に class ってあるでしょ？それが違い。
342 ：
( = ﾟ ωﾟ ) ：01/12/09 19:04
YaMainのvarで宣言してグローバル変数になってる筈の
>>342 BASIC のことを一度完全に忘れろ。
共通データはフォームとは別のユニットに切り離すのが定石
345 ：
( = ﾟ ωﾟ ) ：01/12/09 19:12
Form1でXという変数に'5'を代入して
346 ：
( = ﾟ ωﾟ ) ：01/12/09 19:13
↑
347 ：
( = ﾟ ωﾟ ) ：01/12/09 19:15
>>344 さん
YaDataで宣言した変数は、
YaTask,YaMainで宣言無しでいきなりしよう出来るのですか？
>>342 誰でも使えるように「許可」する。
ってのと
誰でも使える物を「使用」する。
ってのは本来別の作業。
未定義エラーがでたユニットに，TAD を定義したユニットを
[ファイル | ユニットを使う] で追加。
もし「追加できない」と言われたら，未定義エラーがでたユニットの
'uses' 節を確認し，TAD を「使う」場所より上の uses 節で
TAD を「定義」しているユニットが現れるように修正。
349 ：
( = ﾟ ωﾟ ) ：01/12/09 19:21
unit YaData;
>>349 いい加減にしろ。そのエラーに対して F1 ヘルプを読め。
エラーがでたら思考停止か？ボケ？
「宣言が必要な場所に識別子」があるんだよ。
352 ：
( = ﾟ ωﾟ ) ：01/12/09 19:38
>>350 のエディタの作製は読んだけど
２つのユニットで変数をやりとりするって話は出てこないのでは？
>>348 の方法で２つユニットで共通の変数を使用できる様になったけど
こんどはユニットごとでその変数を初期化してしまう・・・
ユニット１で代入した値がユニット２ではゼロになってる。
Ｄ６personalですよ。
マニュアルにユニット間での変数共用に付いて解説してるページ、ありましたか？
まあでもnamespaceってのは、BASICERには結構分かりづらいかもね。
あなたは DelphiML に入って質問するといいよ
>>353 ネームスペース，っていうよりスコープの概念が欠落しているというか。
いいんじゃないの？コンパイル時とリンク時の２段階ある C/C++ で悩むより
１段階ですむ Delphi で可視性を学んだ方が楽だと思うよ。
BasicってVB? VBでも構造体があるでしょ？ Formクラスで宣言してるのは構造体の定義みたいなもの
>>339 PresentTPやらTADやらAADをTMainFormのパブリックメンバにして
TMainForm = class(TForm)
public
PresentTP: String;
TAD, AAD: Array[1..100] of Integer;
end;
unit YaTaskのimplementation部でuses YaMainして
unit YaTaskからは、TMainForm.TAD[0] := 3; とかした方が楽だと思うが？
>>352 フォーム同士でやりとりする場合は
直接公開するよりメソッドにするか プロパティにする方がいいよ
もしかして、「宣言」、「定義」、「識別子」とかいう意味からして理解してない？
360 ：
( = ﾟ ωﾟ ) ：01/12/10 00:27
>>360 読んでてもつまらないかも知れないが、基本は大切だ。頑張れよ。
Delモナはどこへ逝きましたか？
>>362 どうでもいいじゃないか。
どうせ匿名掲示板なんだし。
>>354 ∧ ∧
（ ´∀｀）（ 中村ってオッサンも答えてくれるよ。仕事してないのかな? ）
365 ：
デフォルトの名無しさん ：01/12/10 16:26
Delphiのエンタープライズ版とプロフェッショナル版は
366 ：
味噌醤油醸造株式会社 ：01/12/10 16:31
367 ：
デフォルトの名無しさん ：01/12/10 16:37
>>366 ありがとうございます。
参考にさせていただきます。
ｴﾝﾌﾟﾗ版は個人で買うには高すぎるような....
369 ：
デフォルトの名無しさん ：01/12/11 00:54
Delphiでアプリを作ると、どうしてあんなにファイルサイズがでかくなるのでしょうか？
>>370 なるほど、ありがとうございます。
やっぱり、VCLを使うかぎり重くなるのは仕方ないんですね。
直APIか・・・
VCL -> でかい
ファイルサイズと重いと混同してる
>>371 WinアプリのExeはどれも数メガ単位。
VBなんかはExeが小さくても超重いし、メモリ不足がすぐ起きる（ﾅﾝﾃﾞ？って感じ）。
Delphiだとフォーム一枚のときはExeが大きく感じるが、
それからフォームをどんどん増やしていってもそれからは余り大きくならない。
らんたいむが思いの？
375 ：
デフォルトの名無しさん ：01/12/11 15:29
>>374 Delphiはランタイム使わなくてスタティックリンクしたら良いＹＯ！
Delphi&VCLって重いっていうより高速って話なんだけど。
VBのランタイムなら重いしメモリを一杯積んであっても自己メモリ不足エラーを起こす。
>>375 でもランタイム配布面倒だＹＯ！
高速かはわからんが、少なくともVCアプリと同等レベル、
もしくはそれを前後するかと思われ。
だったコード次第でどーにでもなることだし。
で、重いっていうより、コードサイズがでかくなるんだよな＞ランタイム
>VBのランタイムなら重いし
そうそう、VCLの比じゃないよな、あのサイズは。
ちょっとしたツール作ってFDに入れたとき、Delphiなら
ランタイムを気にしないで(･∀･)ｲｲ!!から(ﾟдﾟ)ｳﾏｰ
375はランタイムやめて、スタティックリンク使えと書いてるＺＯ！
>>376 Σ(ﾟдﾟlll)ｶﾞｰﾝ
オマケにレス番間違えた…今すぐ逝こう…
ちゃっちゃとな。
381 ：
デフォルトの名無しさん ：01/12/11 21:59
Windows2000で動いていたOLEでWORDを動かすソフトが、
>>381 Windows XP 上の Office XP ? それとも Office 2000 ?
Windows 2000 の上で動いていたときの Word と
動かなくなった XP 上の Word と
二つのワードは同じ版？
>>382 WORDはWindows2000で動いていたのと同じ、Office2000シリーズの物を
WindowsXPにインストールしたのです。
Word.Applicationでバージョンも指定していないので、問題ないと思うのですが・・・。
>>383 XP でセキュリティが厳しくなったのかねぇ。
手元の .net server には Office 入れていないので
テストできないから、すぐには答えられないけど。
とりあえず dcomcnfg とかわかるなら、動かしてComponent Service / Computer の
プロパティの Default COM Security をチェックしてみたら？
385 ：
デフォルトの名無しさん ：01/12/12 00:09
直API でミニサイズのEXEを作るのは
なんでそこまでexeのサイズにこだわるんだ？
>385
>387
>>386 ウィルスのサイズが360KBもあるとダサイじゃん。
>388
お前のウィルスは、律儀にフォーム表示しながら動作するのか？
オー、ユーザーフレンドリーダネ
世界最初のウィルスコンストラクションキットが Delphi の先祖の TurboPascal せいだった。
,,,,,,,,,,,,,,,,∧,,∧ ／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
>>385 halb○wさんのページに行くといいよ（知ってるか
>>385 直APIでよく作るけど、TForm並みのものを作るのはかなり面倒。
TFormってそれ自体独立してなくて、VCLがいろいろからんで来るから余計。
ていうか、そこまでするならVCL使った方が早いよ。
何とかって言うウィルスはDelphi製で、感染するとファイルサイズが360KBぐらい増えるそうだ。
>>397 それでも今の時代じゃ 360KB 増えても気付かないだろうな・・・
399 ：
デフォルトの名無しさん ：01/12/13 00:26
普通にクリックできて、ドラッグもできて、
TSpeedbutton
401 ：
デフォルトの名無しさん ：01/12/13 00:52
>>400 TSpeedbuttonをドラッグさすのって、
MouseMovwのとこにざくざく自分でコードかかんかったら
駄目なんかな
漏れにはボタンをドラッグするという意味が分からないのだが・・・
403 ：
デフォルトの名無しさん ：01/12/13 00:58
ドラッグするのなら、クリックは出来ないと思う。
>>402 あれじゃないの？MS-Officeのツールバーみたいに
カスタマイズできるやつ。
MS-Officeのツール場は知らないけれど、多分それっ。
クールバーを一つずつとか
>406
408 ：
デフォルトの名無しさん ：01/12/13 16:21
スレ違いを覚悟で質問。
理屈の上では RefCount が増減しなければ問題ない。
411 ：
デフォルトの名無しさん ：01/12/13 23:17
TFileOpenWithが標準アクションの追加ダイアログに表示されません。
412 ：
デフォルトの名無しさん ：01/12/14 06:55
TThreadの質問なんですが、Synchronizeメソッドがどうなっているのか
>>412 メッセージは電話のように割り込みで送られるわけではなく、
メールをチェックするように、来てるかなと問い合わせますよね？
414 ：
デフォルトの名無しさん ：01/12/15 23:28
プログラムの実行中に動的に作成したフォームを、プログラムの途中で
メモリマネージャ
バスケ部のマネージャー
秘密戦隊ゴレンジャー
ハイチュウ食べたいんじゃー
Delphi に限らず、ほとんどの言語処理系は実行時ライブラリ側で
タイガー炊飯ジャー
寄せて上げるブラジャー
>>415-421 ありがとうございます・・・
では解放したメモリをOSに返却するにはどうすればようのでしょうか？
常駐するタイプのアプリを作っていて、できるだけメモリを節約したいのですが。
NewInstanceをオーバーライドするとか？
メモリマネージャをWin32API直叩きするようにすげ替える。
426 ：
デフォルトの名無しさん ：01/12/16 00:45
返却には返却カードをお持ちください。
427 ：
デフォルトの名無しさん ：01/12/16 00:50
428 ：
デフォルトの名無しさん ：01/12/16 11:14
Del6Proの開発者ガイド 30-3 に XML
430 ：
デフォルトの名無しさん ：01/12/17 16:57
全てのキーボード入力（Alt+Ctrl+Del含む）をロックするにはどのように
>>428 Delphiヘルプ - Delphi6の新機能 - XMLのサポートを見ると
タイトルが
「XMLのサポート(Enterprise 版)」
となっているのでそうかも
開発者ガイド 30-3の記述どおり、Ent版の[Internet]ページにはある
432 ：
デフォルトの名無しさん ：01/12/17 17:53
CLXアプリケーションで新規作成したとき、
Del6のパーソナルだとデータベースに接続できないので、
434 ：
Delモナー ：01/12/17 19:10
435 ：
デフォルトの名無しさん ：01/12/17 21:12
StatusBarの1つのパネルをクリックすると、
436 ：
デフォルトの名無しさん ：01/12/17 21:18
>>433 personalでもADOを使えばできる。
437 ：
デフォルトの名無しさん ：01/12/17 21:36
>>385 OpenGLかdirectを使えばformより表現力があってfilesizeは50kbyeくらい
サンプル豊富
あとKol＋MCKというのを使うとビジュアルで開発できてファイルサイズは50kbyteで
ADOにも対応
あと基本だけどdelphi3を使えば基本コードは180kbyte、まだ現役でd5やd6と合わせて使う人は多い
D5とかd6で関数を作ってd3でアプリを作るのが手っ取り早いのかも
もっともWin32APIベースでもテンプレート作っちゃえばあとは楽じゃない？
delphiはBCBやVCよりもAPIベースのアプリ書きやすいと思うが
direct → DirectX
>>434 >>436 回答ありがとうございます、少しホッとしました。
質問ばかりで申し訳ないのですが、
SQL LINKは、教えて頂いた接続方法と何が違うのですか？
どちらを使う方が良いのでしょうか？
>>435 OnMouseDownかOnMouseUpで位置からパネルを算出、
それにより該当処理、でどうよ？
>>440 ありがと
なんだか大変そうだけど頑張ってみる
>>441 uses
CommCtrl;
function WhichPanels(SB:TStatusbar;x,y:integer):integer;
var
i:integer;
r:TRect;
pt: TPoint;
begin
result := -1;
pt := Point(x,y);
for i := 0 to SB.Panels.Count-1 do begin
SendMessage(SB.Handle,SB_GETRECT,i,LPARAM(@r));
if PtInRect(r,pt) then result := i;
end;
end;
procedure TForm1.StatusBar1MouseUp(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
ret:integer;
begin
ret := WhichPanels(Statusbar1,X,Y);
if ret <> -1 then
Label1.Caption := 'You Clicked Panels of '+IntToStr(ret);
end;
>>442 こういうのがさらりと出てくるのｶｺ(･∀･)ｲｲ!!
>>443 そらもう Borland 直営サポートサイトですから。
>>442 ありがとーーーーすごいです。
神！！！って感じでうｓ
無事に実装？することができました。
自分でやってたら、無理とあ諦めてたかも・・・
446 ：
デフォルトの名無しさん ：01/12/19 00:40
他のアプリケーションを操作したいんですけど、どうすればいんでしょうか？
>>446 マウスイベントとキーボードイベントを使え。
お願いです。 Command パターンを使った例を教えてください
>>448 例なら他の言語のでもいいんじゃない？
Java 読めないとか？
451 ：
デフォルトの名無しさん ：01/12/20 04:19
>>449 そーです
Undo とか実装する時に使うんだったかな
TQUERYコンポーネントを使ってデータベースの内容を
>>453 試してみます。
>>454 フィルタ・・・ すいません、まだ初心者なので、よくわからないのです。
SQLを何度も書き換えなくても、Delphiらしい便利な機能があるんですね。
フィルタってどんな感じで使う物なのですか？
456 ：
デフォルトの名無しさん ：01/12/20 19:49
文字列変数に ' を代入するには、どうすればよいのでしょうか？
>>456 'を２つ並べる。つか、色々試してみると聞くより早く解決すると思われ。
>>457 ありがとうございます。
そうですね、色々試してみます。 ｍ（＿＿）ｍ ぺこり
>>455 Query.SQL.Append('SELECT * FROM HOGE');
として
Query.Filter := 'HOGE1=1';
とかSQLのWHERE以降を入れて
Query.Filtered := true;
つーかHelp読め。
Magic of Delphiはどこに逝ったの？
461 ：
デフォルトの名無しさん ：01/12/21 00:55
>>460 あ、探してる人がいた（＾＾；。
二つ検索でひっかかるけど、どっちも無いんだよねー。
移転ｏｒ新装開店中なんかしらん？
462 ：
デフォルトの名無しさん ：01/12/21 08:09
「かしらん」て何語だよ！！
かしらん
||
かしらん
466 ：
デフォルトの名無しさん ：01/12/21 10:03
>移転ｏｒ新装開店中なんかしらん？
||
>462
469 ：
デフォルトの名無しさん ：01/12/21 11:00
Pixels[x,y]の読み書きがやたら遅いんだけど
>469 ビットマップに読み込んで 行毎に処理
Magic of Delphi のめぼしい記事は全部回収したので
472 ：
デフォルトの名無しさん ：01/12/21 11:24
Ruby >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> Delphi
473 ：
デフォルトの名無しさん ：01/12/21 11:26
VBからDelphiに乗り換えようとして勉強している
DBGridにデータを表示する際に、
「なのかしらん？」の「なんかしらん」です。
478 ：
delhpi ：01/12/21 23:18
479 ：
デフォルトの名無しさん ：01/12/21 23:50
救いは .com .uk .ru とかも出てくる所ですね．
D++って何ですか？
良く考えてみたら普通に足せばいいですね。
484 ：
デフォルトの名無しさん ：01/12/22 00:18
485 ：
Magic of Delphi ：01/12/22 00:24
486 ：
デフォルトの名無しさん ：01/12/22 00:41
>>485 トップページしか見られない。ダメダメだよ?ん。
487 ：
デフォルトの名無しさん ：01/12/22 02:08
D++って何ですか？
生きているって何ですか？
>D++って何ですか？
>>475 >>483 で答え出てましたが
一応、つことで。
￣￣∨￣￣￣
∧,,∧
ミ,,ﾟДﾟ彡
ﾐ つ[ ｿｳｽ ］).
～ﾐ ,, ﾐ
∪∪ 1年後は12ヵ月後にしてしまおう
procedure TForm1.Button5Click(Sender: TObject);
var
Ago1Month: TDate;
begin
//現在日を表示
DateLabel1.Caption := DateToStr(Date);
//5日前を表示
DateLabel2.Caption := DateToStr(Date - 5);
//1ヶ月前を表示
Ago1Month := IncMonth(Date, -1);
DateLabel3.Caption := DateToStr(Ago1Month);
end;
∧,,∧ ／
>>482 ミ,,ﾟДﾟ彡 ＜ Decode/EncodeDateだと
U U ＼実在しない日付の場合、例外が出てやばいよ。
～ﾐ ﾐ
∪∪ 12月32日とかね。
関係ないが、身の回りでは
そういえば デルファー って呼んでたやつもいたな。
でるふぁい － Delphi
でるふぁいは打たれる
関係ないレスかもしれんが、
>>495 は文章を入力してるときに
自分で「おもしろい！ これはﾜﾗﾀをGETできる！」と思ってるの？
デルファ[イ]
>>496 某ページにあるネタなんだから一々けちつけないの…
499 ：
ななしヘタぐらま ◆B18Bks.Y ：01/12/22 17:17
>>491 Decode/EncodeDateで例外を出しちゃうバグは私も経験アリです．
おかげでIncMonth関数を覚えました．
デ[ル]ファイ
ネ
でるふぉ[え]ーーーで正解
503 ：
delhpi ：01/12/22 23:05
delhpiは何て読もうか？
inc(D)
505 ：
名無し募集中。。。 ：01/12/23 02:08
よく「DLLのいらないアーカイバ」ってあるけど、
>>507 自前で圧縮・解凍の処理を書いてるに決まってんだろ
>>508 ありがとう。やっぱりそうなんだ！すごいなぁ。
面倒なだけでさして凄くもないと思うが。
>>510 いやぁ、アッシからするとスゴイでやんス。
まだヒヨッコなんで。デルファイの。
>>507 じゃあDLLはどうやって作ってんだ？ということを考えれば一目瞭然。
でも面倒なだけっつっても対応形式増えると馬鹿にならんなー。
だいたいＣなので、ＣコンパイラでObjファイルを作ってリンクするのが簡単。
514 ：
デルフピ ：01/12/25 23:53
ほうほう。難しくてよく分からんけど（＾＾；。
ん、もしかして、作る側でなくて使う側の人かな？
いや、作る方ですが…。まだまだ始めたばかりダスんで。
DLLをリソースに入れて、アドレス検索して呼び出してるなんて事はないのかな
>>482 >>491 遅い返事ですいません。
親切にありがとうございました。
皆さんの様に、Delphiをバッチリ使えるように、
早く若葉マークを取りたいです・・・（泣
Delphiユーザーの方って、親切な人が多いですね。
>>517 リソース内のWinAPI呼び出しがうまく行かないと思うＹＯ！
>>517 グローバル変数が使えないので、メモリマネージャの初期化に失敗する。
スタックだけでやるしかなＹＯ！
なるほど、エクスポートだけじゃなくてインポートも自分が解決しなくちゃいけないのか・・・
526 ：
デフォルトの名無しさん ：01/12/29 18:00
delphi6のファイルサイズにむかついている人は何で少ないのですか？
Del6をCPU1GHz, HDD100GB, MEM512MBのPCで使って
>>526 とりあえず
１）UPX で圧縮する うまくゆけば1/3くらいになるぞ
これはホントにお薦め
２）D6は編集だけに使って配布する時はD3で
まあ実際にはD3は厳しいだろうからD4で
>>526 メインアプリはAPIベースで作ってるのでむかつきません。
ちょっとまって、フォームすら使っていないOpenGLアプリがなんでそんなにデカイの？
気になってOpenGLの簡単なの作ってみたら13KByteにしかならんかったZO!!
>527
533 ：
デフォルトの名無しさん ：01/12/30 00:14
クラスのインスタンスへのポインタってどうやって取得すればいいのかな。
ShowMessage('$' + IntToHex(Integer(@strList)));
>>528 UPX 等のバイナリ圧縮は糞。
はっきりいって無駄な抵抗。
1Mbps以上出るようになってバイナリサイズは気にならなくなったw
>>535 先生！UPXの何が糞かさっぱりわかりません！
圧縮するメリットはあると思うよん。
540 ：
デフォルトの名無しさん ：01/12/30 01:41
厳しいねぇ＜却下
UPXかー。
APIベースで組んでて小さいのをさらに小さくする(見た目のインパクト)のに使ってるよ。
大き目のアプリ組むでも100KByteくらいに抑えられるのがいいね。
>>539 いやだったら、upxで解凍できるだろ？
>>540 そういやDOS時代はあったね。
542 ：
デフォルトの名無しさん ：01/12/30 10:10
>>528 D3復活は考えた。フリーコンポーネントをベースにする場合はD3がベストかも
痛いのはDword問題のみだがこれは結構タイプライブラリーとかにも影響する。
D5learningがあるのでこれがメインになりそう．．．
>>530 >>531 そりゃWindowsだけ宣言してやればいいけれどsysutilesとclassesを使う場合
必要なものだけ取り込まないとだめみたいだ。
バイナリーサイズ気にならないというけれど
バージョンアップやdll分散考えた場合200kbyteと400kbyteの差は大きいのでは？
あと別スレにあったkolというのを使ってみたがD6のばあいこれはよさそう
どうしてもコンポーネントにこだわるならばdll化してdfmファイルを圧縮して
リソースに入れて読み込ませるのも一案かも．．．
あと調べたらADO関連はボーランド純正とフリーのものとデータ更新時に最悪10倍くらい
速度が違ってくるし
普通の計算はもちろんのこと
アセンブラでSSEで組んだ場合D5よりもD6のほうが乗算が遅めになるみたいだし
どうもソース編集をD6でやってD5でコンパイルというのが道筋みたい
ちなみにDCC32だけ使うでライブラリーが全部自前のときって
出来上がりのアプリを業務用や営利で使っても法的に問題ない気がする。
汎用性のためのラッパーなのに
結局はクラスを使わないでWinAPIを使ったほうがDelphiのバージョン間での
互換性が高いのってなぜ．．．
あとUPXだけどこんなん使うならば自己解凍式EXE使ったほうが無難じゃない？
543 ：
デフォルトの名無しさん ：01/12/30 10:12
Delph6:Delphi5=WindowsXp:Windows2000
PersonalをDL中です! がんばります 有難う>Borlandたん
C#>>>>>>>>>>>>>>>>>>>>>>>Delphi
>>542 sysutilsはよいとしてclassesはなぜいるの？
upxはまあほとんどキモチの問題だろ。
自己解凍式exeは意味不明。自己解凍して自動実行してくれるならupxでいいし。
ただ小さくするってんならまさに普通の圧縮形式でいいし。
配布の事を考えてでしょ。
>>534 クラスのインスタンスははじめからポインタだよ。
ShowMessage('$' + IntToHex(Integer(strList)));
でよいのでは？
ShowMessage('$' + IntToHex(Integer(strList)));
>>545 マジレスはカコワルイそうだが
> C#>>>>>>>>>>>>>>>>>>>>>>>Delphi
これはそもそも比較できないのでは？ Delphi.NET ができたら
比較できるでしょ。でも、.NET 上では、なんで開発しても中間
コード生成であほくさいでしょ。
.NET 自体がダサい。
C#>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>Object Pascal
552 ：
Delphian ：01/12/30 14:49
>>551 悔しいがその通りだ。
C#がうらやましい…。
なんだこのｸｿ芝居は
>553
C#か…。
Delphi は Borland が生きてる限り終了ということはない。
速度のアドバンテージは完全消滅なんだよね？＞C#
適材適所だろ。
C#:Delphi=Delphi:VB
C#ってMLでは不気味なほど話題にならんな
>>561 うーん。ここ2chだから平気でC#の話題出してるけど、
Delphi専門のMLだとチョットマズイ気がする
>>562 >Delphi専門のMLだとチョットマズイ気がする
なんでだよ～VBは平気で叩いてるくせに
誰かC#>>>>Delなメール投げて袋叩きになる勇者はいないのか(藁
Delphi の ML なんだから C# の話題を出しても、怒る前に困ると思う。
565 ：
パスカル触ってみた人 ：01/12/30 21:15
free pascal 入れてみました。
ソースの先頭に{$r+}って入れてみるとか
567 ：
パスカル触ってみた人 ：01/12/30 21:25
やっぱり最後の不気味な三行は実行されます
？
569 ：
パスカル触ってみた人 ：01/12/30 21:45
そうなんですか？何でなんだろう？
570 ：
パスカル触ってみた人 ：01/12/30 21:57
reallocmemを取り除いたらちゃんとaccess violationがでるようになりました.
571 ：
パスカル触ってみた人 ：01/12/30 22:19
{$r+}
565のはfpcのメモリマネージャーがある程度一度にOSからメモリを
573 ：
パスカル触ってみた人 ：01/12/30 22:59
ああ、なるほど、constのアドレスを代入しようとする事
574 ：
何だろう君 ：01/12/30 23:34
なんで、メモリリークって発生するの？
getmemだのallocmemだののヒープメモリは自分で解放しないとダメちん
576 ：
何だろう君 ：01/12/30 23:59
何故ゆえに？
GCをキーワードに調べてみろ
あ、GCだけだとGraphics Contextとかも引っかかっちゃうかも。
>>574 アプリケーションが正常終了したらまともな OS ならメモリはちゃんと開放されるぞ。
だからとはいえ長時間(何週間, 何ヶ月)走りつづけるプログラムとかもあるんだからそれだけじゃ困るだろ。
そうでなくても毎秒 MB 単位で漏れたりしたら数分ともたんだろ。
580 ：
何だろう君 ：01/12/31 00:18
なんだか「へりくだった」ＣＧギャラリーがひっかかるみたい。
あれま、すれちがい…。
GCといったらゴッド・チャイルドでしょう。
583 ：
デフォルトの名無しさん ：01/12/31 01:06
つまり、VirtualAllocで確保したメモリはプロセス終了時に
ＰＶの鬼束ちひろさんは怖い。普段は割とカワイイ。
585 ：
デフォルトの名無しさん ：01/12/31 01:30
reshackerで英語のアプリを日本語に翻訳して
＞パスカル触ってみた人
ごめんなさい別にパスカルのせいにしたつもりはないんです。
そうそう、アクセスしてもエラーがでるかどうかってのは不確定だから
Delphi6パーソナルで
age
ageる世
>>589 ないのであきらめましょう。
ActionManagerがなくてもなんとかなります。
それかpro版を買うか
>>589 > Delphi6パーソナルで
> テキストエディタを作っているのですが
> ActionManagerコンポーネントがありません。
> どうすればよいのでしょうか？
入ってないよ!!<ActionManager
BorlandのFAQに入ってないことは書いてあったけど、
俺も迷った(w
つーか、俺も今ヘルプのチュートリアルやってるけど、
そこで止まってる
メインメニューは作れたけど、
そこからオープンダイアログを開く方法がわかんね。
procedure TForm1.Open1Click(Sender: TObject);
begin
end;
このbeginとendの間に何か書けば良いと思うんだけど
どう書いたらよいんでしょう?
動作確認しないで流し書きするけど
595 ：
デフォルトの名無しさん ：01/12/31 09:40
>>593 結局抜かして先に進めということでしょうか？
>>594 > // オープンダイアログを開く
> if OpenDialog1.Execute then begin
> // ファイルが選択された場合
> // テキストファイルとして読み込む
> Memo1.Lines.LoadFronFile(OpenDialog1.FileName);
>
> end;
出来た出来た♪コンパイルしようとしたら
Memo1のところで未定義の識別子ってでて来たけど、
これはMemo1をちゃんと定義してやればおっけーってことですよね?
その部分をコメントアウトしたらコンパイルは通って思ってた挙動を
してくれました。ありがとう。
>>595 抜かすと言うか別の方法を考える。
どう操作したって壊すことは無いんだから
いろいろクリックしまくってみるとか
protectedってどんな時に使うのか、ず～～～～っと疑問だったんだけど
598 ：
Delphiの初心者 ：01/12/31 15:17
すいません。いきなりですが質問で～す。
FindDialog はダイアログが出るだけですから自分で検索部は作って下さいね
600 ：
デフォルトの名無しさん ：01/12/31 23:20
つーか、申し訳ないけど、もう「メモ帳」の類と、
公開するかどうかは別にして
602 ：
デフォルトの名無しさん ：01/12/31 23:25
delphiでメモ帳作りたいんだけれど
ActionManagerとか言う前に、もっと勉強することたくさんあるぞ。
604 ：
Delphiの初心者 ：02/01/01 00:18
↑の方のを聞くと質問しにくいんですが（笑）
605 ：
デフォルトの名無しさん ：02/01/01 00:22
606 ：
Delphiの初心者 ：02/01/01 00:25
すいません。説明不足でした。テキストエディタなどを作る際の検索です
>>606 604のＵＲＬで足りませんか？「delphi FindDialog」とかで。
「Magic of Delphi」が、最初に参考にするページとしてはベストだと思う。
609 ：
Delphiの初心者 ：02/01/01 00:48
う～ん… またあしたさがしています。ありがとうございました。
>>610 あれれ。いつの間にジヲに？
つーか、もうオレは全部見たから。
ひとつのOSでDel6ProとPer両方入れることってできる？
614 ：
デフォルトの名無しさん ：02/01/01 02:15
淫乱アセンブラ
615 ：
デフォルトの名無しさん ：02/01/01 10:08
>>606 AFEDITのソースって結構参考になるのでは？
コンポーネントでなければなおよかったのだけど
>>612 ひとつのOSでというかおかしくなるからやめたほうがよい
Per版用にHDDを買って切り替えたほうが無難では？
delphi6をWin2Kにインストールしたんだけど
通常使用するのは当然管理者権限じゃないんだけれど
管理者権限で許諾とったのに未許諾になってしまったのは切れた
つまりdeelphi自体全体的にフェールセーフにはできていない
許諾もソフトでとるんじゃなくて郵便でとんないとアプリとして管理できない
もしもボーランドが文句いわないのだったら
朝インストールして許諾とって夕方アンインストールしてもいいと思っている。
>>600 勉強用途のソフトと使ってもらおうと思って公開するのは別でしょ。
以前はそれを間違えて、勉強用に作ったあまりにありふれて不完全なものを
公開してシェアウェアにしていたものがいたが、
ま、最近はそういう人はそんなにいないだろ。
# 2ch見てる人ならなおさら
617 ：
デフォルトの名無しさん ：02/01/01 11:44
>>616 どーい
勉強用の場合おんなじテーマのもののほうがスピードとかの差がわかっていい。
極端なのがhello worldだと思うけれど
日本の場合IMEという厄介なものがあってエディタ関係というのは奥が深いと思う
ただ開発途上のものとか動作テストレベルのものでも
いろんな環境で見てもらうという意味では公開してもいいんじゃないかと思う。
シェアウェアにしても売れなきゃいいんだけど
コントロール並べただけで著作権がありますなどという奴もいるからなぁ。
というか著作権や特許のあるもの使っててＧＰＬとか抜かす奴もいるし
618 ：
デフォルトの名無しさん ：02/01/01 12:55
GPLって何？
619 ：
デフォルトの名無しさん ：02/01/01 13:21
>>618 GNU GENERAL PUBLIC LICENSEの略
早い話がこのソースやライブラリーを使ったソフトを公開するときは
全ソースを公開しなくちゃだめってライセンスで
GPLを使ったら必ずGPLのライセンスをつけてGPLで出さないといけない。
dllにして制御すれば本体はよいというのがLGPL
ソース公開しなくても商用でもＯＫというのがMPL
とりあえずアプリケーションがフリーでも商品でもライブラリーがMPLか完全にふりーのものであれば
特許関係がクリアされているものならば問題なく使える
GPLで作ると例えばできのいい有料のコンポーネントなどを使って一部分だけ
GPLのものという形ができないのでオープンソースにも向かないと
折れは思う。
さんくす
Pascalもろくに解からない厨房です。型チェックがきびしすぎる
>>621 （;´д｀）
AsciiCode := Ord(Char);
Delphiの文字列ってなんかややこしくないですか？
C文字列との互換を考えると最初はやっかいだけど、
まあ初期の設計思想からはずれて便利さを追求した結果
Delphi内だけで完結するならいいけど、
char*は論外だろ
ごめん、なぜ？
pcharより長い文字列が気持ち悪いです。
end;
WideStringの方が楽
>>632 Unicodeやだ！！VBじゃねえんだから。
WideStringはUnicodeじゃなくって２バイト文字列
635 ：
デフォルトの名無しさん ：02/01/02 01:47
Strings.IndexOf が大小文字を区別するのかしないのかでまようんだよな。
636 ：
デフォルトの名無しさん ：02/01/02 01:53
全てのクラス型に使えるような
無理でしょう。ただ
638 ：
デフォルトの名無しさん ：02/01/02 03:20
>>634 WideStringってウニコードでしょう？
634 は自動的に変換が行われている事を知らないのでしょう
>>630 PascalやBasicになれていれば長い文字列の方を選ぶのでは？
そりゃ俺だって、実行速度が必要なところでは仕方なくpchar使うけどさ。
長い文字列って便利だからつい 文字列以外にバイナリ保存先に使っちゃわない？
LongStr1, LongStr2: String;
643 ：
デフォルトの名無しさん ：02/01/02 10:37
delhiのstringは実質的に可変長バイナリなので
644 ：
デフォルトの名無しさん ：02/01/02 10:47
>>642 明示的にsetstringすればいいんじゃない？
>>644 SetString(LongStr2, PChar(@LongStr1[4]), Length(LongStr1) - 4);
こんな感じかな？なんか余計にコストが掛かりそうな気が・・・・
なんで copy 使わないの？
１．LongStr2 := PChar(@LongStr1[4]);
:= Copy(LongStr1, 4, High(Integer));
LongStr2 := LongStr1; // 参照カウントが増えるだけで高速
650 ：
デフォルトの名無しさん ：02/01/02 13:59
マジ質問です。
TStringGrid に表計算機能を付加するコンポーネントが
Excel埋め込め
ActiveXタブにある F1BOOK は Excel互換のデータを読めますよ
654 ：
デフォルトの名無しさん ：02/01/02 16:47
あのですね、仮想テキストファイル（自分が命名）を実現するクラスを作りたいのです。
XML
TREEもどきでバーチャルINIファイルに保存してください
簡単にやるなら TTreeView で SaveToFile, LoadFromFile
>>654 文字列の改行とかヤバイ文字をエンコードデコードしてそのまま
レジストリに書き出せば？
function EncodeStr(const s:string):string;
var i:integer;
begin
Result:='';
i:=1;
while i<=length(s) do
begin
case s[i]of
#0..#31,'"','''',',','&','%':
Result:=Result+'%'+IntToHex(ord(s[i]),2);
else begin
Result:=Result+s[i];
end;
end;
inc(i);
end;
end;
function DecodeStr(const s:string):string;
var i:integer;
begin
Result:='';
i:=1;
while i<=length(s) do
begin
if s[i]='%' then
begin
try
Result:=Result+ char(StrToInt('$'+s[i+1]+s[i+2])) ;
except end;
inc(i,3);
end else begin
if not(s[i] in[#$0d,#$0a]) then
Result:=Result+s[i];
inc(i);
end;
end;
end;
659 ：
デフォルトの名無しさん ：02/01/02 17:35
xmlってＨＴＭＬもどきじゃないんですか？
660 ：
デフォルトの名無しさん ：02/01/02 17:43
てゆうか、Del6Pro にＸＭＬコンポーネントは
>>659 HTML は 「Web用の文書」 を書くための言語。
XML は 「何らかの言語」 を書くための言語。
自分で好きな言語を定義できる。
狭義ではデータ構造の定義でもいい。
>>660 msxml 使えば？
どやってつかうの？>msxml
664 ：
デフォルトの名無しさん ：02/01/02 18:16
MSXMLってコンポーネントのことですか？
665 ：
デフォルトの名無しさん ：02/01/02 18:17
>XML は 「何らかの言語」 を書くための言語。
666 ：
デフォルトの名無しさん ：02/01/02 18:19
uses
データを変更する部分はOpenDataExとCloseDataで囲ってあげてください。
668 ：
デフォルトの名無しさん ：02/01/02 19:06
XMLってSGMLの2の舞になりそうな気がするんだけどな．．．．
669 ：
デフォルトの名無しさん ：02/01/02 19:57
すいません、チャンク構造ってなんですか
>668
>>669 個別のデータ要素のタイプにかかわらず、要素の枠としてのフォーマットを統一して格納する方式。
たとえば種別(4文字程度)、サイズ、データ実体という組で一つのチャンクとして定義して、それに
則って読み書きするだけで汎用のリーダー/ライターが書け、知らない種別は無視しても
読み続けられるために後から種別が増えても下位互換性を保つようにできる。
さらにチャンクの中にさらにサブチャンクとして並べたりもすることでこの構造をツリーにすることもある。
バイナリの画像や音声フォーマットはチャンク形式を採っているものが多い。
XMLはこの考え方をテキストベースに置き換え、チャンクのフォーマットにあたる部分も
別途定義・記述するようにしたものといえるかな。
ぐっちゃぐっちゃ何でもかんでも取り込んで記号化したふり
>>669 671に補足すると、Windowsでは昔からRIFF形式ってのに使われてるよ。
で、RIFF形式ってのはWAVやAVIに使われてる。
>>671 丁寧なフォロー あんがとー
htmlが成功したのは自己完結型だからだと思うんだけど
XMLは例えばXML＿＿type**みたいなのがきっちり決まっていればいいんだけど
一歩間違えるとただの暗号になっちゃう
仮にXMLを実装するとしても自己完結型か明示的に文法ファイルを指示したい
あと脱線しちゃうけれどMP3ファイルにRIFFヘッダーつけただけでACM APIで
再生できるのでDirectSoundでMP3をやる場合はありがたい
>>674 何かよくわからんが、普通 XML は DTD か XML Schme で文法を定義する。
最近は階層構造のiniファイルとしてXMLの構造のみ使わせてもらってる
>>671 wavやaviなんかそのたぐいだね。
確かにバイナリデータを扱うのが前提ならチャンクはらくだ。
679 ：
デフォルトの名無しさん ：02/01/03 10:41
LeftStrとかRightStrて日本語を１文字として数えてるようなんだけど
＞697 copy(s,1,8) ではダメ？
>>680 copyも日本語を1文字と数えるようで同じ結果が返ってきたです。
>>680 681は間違いで、ちゃんとできました！大々的に感謝です。
嘘こいてんじゃねえゴルァ！
というか それ8byteで切ったら、後困らんのかい？
685 ：
デフォルトの名無しさん ：02/01/04 00:45
Delphi6+up1で外部ツールを起動するとき
-s$CURTOKEN
そうそう、スペース入れないと展開されない仕様はなんとかならないかな。
688 ：
デフォルトの名無しさん ：02/01/04 10:19
Win2KにD6-pro入れて使用許諾とってからアップデートしたんだけど
>688
690 ：
デフォルトの名無しさん ：02/01/04 19:06
>>689 あんがと それでやってみます。
確かバイナリのデータが入っているのでそれかな？
でるファイてvcより簡単で
とりあえずはpersonalただなんで、試してみたらどうでしょうか？
すでに C++ や Win32API の知識があるのなら、
>691
両方やってみたらいいんじゃないの？
DelphiでWindowsプログラミングの基礎を掴んで、VCへ移行。
>片方で詰まったらもう一方に乗り換えるのを繰り返すのが上達が速いかもね
>>696 ただし、Windows依存とそうでないものが区別できなくなるという危険も伴う、諸刃の剣。
文字列の可変長多重配列ポインタを関数に渡すの面倒臭いんで
まあ、おまえら素人はバッチファイルでも作ってなさいってこった
別のサブルーチンに飛ばすにはどう書けばいいのでしょうか？
VirtualTreeViewの使い方がｻﾊﾟｰﾘわかりません。
VirtualTreeViewじゃねえや、VirtualListViewだ…
>>701 Button2Click(sender);
じゃないのか？
∧,, ∧
ミ。＿。彡 ペコッ
～ﾐ,,,U U,,ﾐ 且~~ あけましておめでとうございます。
∧,,∧ ／￣
ミ,,ﾟДﾟ彡 ＜ Button2Click(nil)でもいいよ
ﾐ つ且~~ ＼＿
～ﾐ,,,,,, ,,ﾐ
日本Delphi振興会
・SenderのないprocedureからSenderを持つprocedureを呼ぶ。
http://hp.vector.co.jp/authors/VA009712/take/delphi/kabedel.htm#sender 707 ：
デフォルトの名無しさん ：02/01/06 20:58
>>707 高速コンパイルこそが唯一にして不可侵の Delphi 最大の利点に同意
これに慣れると他の物が使えない諸刃の剣
俺もPascal知らなかったからBCB使ってたけど、試しにDelphi使ってみたら
マシンスペックが上がったらコンパイル速度は
712 ：
デフォルトの名無しさん ：02/01/07 13:16
>>711 Sullacoの64kbyteでもはD6でコンパイルすると192kに...(藁
Geforceのコードは使っていないけれど
Pickingのサンプルとかあるのでよろしい。
Quake2というよりすでにMD3ファイルローダはできてるようだ
あとDelphi3DとかGLSCENEなんかもよいのだが．．．
713 ：
デフォルトの名無しさん ：02/01/07 13:24
許諾コードって何回取得してもチェックしてないんだと。
許諾コードって？
715 ：
デフォルトの名無しさん ：02/01/07 16:47
>>714 基本的にWindows2000ではいまだに許諾コード取得のバグがあるそうで
管理者権限以外では許諾コードをユーザーごとに取り直さないといけないそうです。
それにやってないけれどアンインストールして情報残っていたらアンインストールとはいえないのでは？
基本的にWin2KやWinXpでDelphiを使うのは無理っぽいのでWin-MeのHDDにしようと思うのですが
許諾は何回とっても関係ないという情報は特に初心者向きだと思うのでこのスレに書きました。
あと未許諾でコンパイルしても特に影響はないそうです。
>>715 みんな黙ってるだけで、
レジストリのどこにソレがあるかくらいは判ってると思われ
Delphi6の初心者向け勉強サイトで
初心者向けって いったい どこが判らないのよ？
どこがわからないと言うか
720 ：
デフォルトの名無しさん ：02/01/07 19:04
Delphi、どこで買ったらいいの？
一ヵ月後に俺が作ってやるから待ってろw
本気で激しく希望！！
本買え
>>717 じゃ今から やってみたげるから
ファイル(F)->プロジェクトを開くで
Demos\doc\TextEdit\ のTextEdit.dprを開いてみて
>>724 開いた！
ボタンが1つ出てきた！
あっちなみにPesonalね！
まずコンパイル＆goしてみよう やり方は判る？
実行できたけどこれは一体？
じゃ、それを終了して MDIFrame.pas を開いてみよう
最初は画面に文字を書いてみよう
このプログラムの意味がｻﾊﾟｰﾘ・・
つぎは その間に
ちっちゃくこんにちはって出てきた！！
ごめんアナウンサー見たいんで落ちます
procedure は手続きを定義しますという意味
>>717 サイトでなないが
ヘルプ-Delphiヘルプ-チュートリアル:テキストエディタアプリケーション
では駄目か？
おおぉーー！
>>735 サンクス！気づかなかった！
これでいいもの作ってみんなにあげるから待っててくれ！！
次に717は
たぶんね。
>>712 > Sullacoの64kbyteでもはD6でコンパイルすると192kに...(藁
本当だ(w
readme.txtにDelphi5ってかいてあるけれど、それでも60KByteなんていかねって。
upxで圧縮も解凍も出来ないところから、何か別のexe圧縮使っているとみた。
【アクションマネージャにアクションを追加する】まで来たら
しかし、ホント D6パーソナルには D5 のチュートリアルを付けるべきじゃないのか？
743 ：
デフォルトの名無しさん ：02/01/07 23:21
つーか、こんなこと、どっかチャットでやらんか？普通。
>744 スマン 1回やってみたかんだ
746 ：
デフォルトの名無しさん ：02/01/08 02:49
あのー、「ソースファイルがみつかりません:classes.pas」、っていうダイアログが出るんですが、
747 ：
デフォルトの名無しさん ：02/01/08 04:41
749 ：
デフォルトの名無しさん ：02/01/08 23:21
例外出すとワケワカメなヤツのソース要求されるヤツじゃないの？
>>746 アレ、直らんのかな？
最初は「ﾊｧ？」って思う。
例外なら「例外よ♥」って出てくれ。
∧,,∧ ／￣￣￣￣￣￣￣￣￣￣￣
FileNameの文字列をフルパスじゃなくて、ファイル名だけ欲しい場合は
>>751 たぶん
ExtractFilename(パス付きファイル名); string で返ってくる。
ExtractFileName
756 ：
デフォルトの名無しさん ：02/01/09 07:30
32ビットCRCって何ですか？
ZLibにCのソースがあったと思うＹＯ！
クラスのインスタンスを生成してほんのちょこっとだけ処理したいときって、
classではなくobject使え
>759
with TFileStream.Create(FileName, Mode) do try
764 ：
デフォルトの名無しさん ：02/01/09 09:57
>>756 PNG関連のルーチンを探せばZlibにCRC32がついている。
完全なPASCAL版もあるけれどD6ProについてくるGLDPNGのように
Cでコンパイルしたobjファイルを$Lでインクルードしたものも多い
CRC32は初期化と終了処理が必要なのでそれを知らないと結果が異なってしまう
ZlibのC版は継続的にファイルを流し込めないけれど一回呼び出せば
ちゃんと初期化と終了処理をするので値としては基本
765 ：
デフォルトの名無しさん ：02/01/09 10:01
SysutilesやClassesって宣言して使っているときと
>>756 CRCの計算そのものはすごく簡単です
CRC32（ITU-T76ですか？）の規格を持っていないので
procedure crc(dt:byte;var crc:integer);
var w,i:integer;
begin
for i:=0 to 7 do begin//dtにバイトを渡す場合 32bitを渡すなら 定義を変更して下さい
w:=((dt xor crc) and 1)*$xxxxxxxx ;//ここに規格にあるビット位置を1にした２進数を入れ
dt := dt shr 1;
crc:= crc shr 1; //シフト方向は規格により違うんであわせて下さい
crc:= crc XOR w;
end;
end;
初期化と終了があります。初期化でcrcを-1にし終了で反転したりの処理が規格書にあるかと
それと上のコードは遅い方法です。バイト単位に計算したテーブル検索にすると８倍高速になります
自分専用の規格なら $EDB88320 くらいが適当かと
>>765 同じフォルダに置くからでは？ 元々あるフォルダのをプロジェクトに入れてみたら？
Delphi6 PersonalにUIWebBrowserをインストしようと思ったら、
インストーラーで レジストリから個人情報（良く使うメーラのアドレスとかプロバイダのIDとかFTPの履歴とか)
770 ：
デフォルトの名無しさん ：02/01/09 12:21
誤爆失礼
773 ：
ビープ音が消えない ：02/01/09 13:17
TEditを使って、文字列を入力するモノを作っています。
774 ：
デフォルトの名無しさん ：02/01/09 13:29
イベントハンドラでやるからだめなんでしょ
>>773 イベントハンドラの前に、
KeyDownていうメソッドがコールされてて、
その中で、OnKeyDownがAssignされてればOnKeyDownをコールするとなってる。
だから、KeyDownをオーバーライドして、下のようにしたら？
if not 殺す処理の場合 then
inherited;
>>773 key:=0 の代わりに abort; 入れてみたら？
うまくいったら教えてね
776 ：
ビープ音が消えない ：02/01/09 14:40
ありがとうございます。今回、EnterとCtrl+Enterの区別がつき
777 ：
デフォルトの名無しさん ：02/01/10 09:33
Delphi3で作ってたプログラム
>>777 と言われてもなあ・・・再現性のあるテストコード作ってみてよ
779 ：
デフォルトの名無しさん ：02/01/10 10:01
そのままだと長いし解り難んで、単純なコード作ってみる。
780 ：
デフォルトの名無しさん ：02/01/10 10:26
TfilestreamとTmemorystreamでやってみてどう？
>>757 >>764 >>766 色々な情報と関連する背景やキーワードやヒントや場所、
そしてソースコードまで教えていただきまして
みなさん、本当にありがとうございました。
この情報を元にさらに勉強して自分のものにしたいと思います。
感謝しています！！
782 ：
デフォルトの名無しさん ：02/01/10 10:55
TabControlとPageControl
TabControl
784 ：
デフォルトの名無しさん ：02/01/10 11:24
なんとなくイメージ湧きました。
TabControlの方がシンプル
PageControlの方がゴージャス
という感じでしょうか？
TabControlは各ページを統一して管理しやすいが
逆に制限も多い
PageControlは色々細かいこともできるが
いちいち各ページを別々に設定せにゃならんくて
面倒くさい
というイメージをしたのですが
おおよそ当たってます？
>>783 のアドバイス通りまずTabControlから使ってみます。
どうもありがとう！
>>777 どのフォルダに書こうとしてるの？
権限ちゃんと取得してる？
テスト結果ぐらいつけろ
>>784 TabControl はタブの外見だけ。ページ切り替えたときの処理は自分で書かないとだめ。
PageControl はページ切り替わったときに中のコントロールも切り替わってくれる。
789 ：
デフォルトの名無しさん ：02/01/12 02:26
ドラッグドロップが出来ません。
検索していくつものサンプルを試したけど
OnCreate がちゃんとコールされているか確認してみましょう．
あ・・・・・う、動きました
>>793 ﾒｲﾝｱｲﾃﾑっちゅーか、TlsitItemのCaptionで設定する項目、
ここはどうしても左寄せになるっぽい。
漏れはここに数字いれて、右寄せしてｲﾝﾃﾞｯｸｽ表示したかったけど、
どうしても右寄せできなくって、ｵｰﾅﾄﾞﾛｰ面倒になって、0で埋めた(ｗ
>>793-794 設計時にはそのままじゃ出来ない(コンポ作らなければ)けど、
FullDragをtrueにして
SendMessageで
LVM_GETCOLUMNORDERARRAY
LVM_SETCOLUMNORDERARRAY
を使えば、いけるよ。かちゅとかでも使ってるはず。
C++でwindows.hのマクロを使えるなら
ListView_GetColumnOrderArrayとかでも可。
>>795 お、これは(･∀･)ｲｲ!こと聞いた、ｻﾝｸｽ。
>ListView_GetColumnOrderArray
CommCtrlをUsesしてみ、使えるよ。
@Del5ProUp1 on Win2kProSp2
>>794 うんおれも親のアイテム(?)をインデックス表示にしたいと考えてました。
でその次に実用上のメインアイテムを持ってきたかったのだけど
実際はSubItems扱いで選択もEditCaptionも出来なさそうで。
結局TListViewで可能なのはエクスプローラ詳細表示と同等なのかなと。
SubItemsをユーザー入力で編集したければストリンググリッド使うしかない
のかな？と思いはじめていました。
>>795-796 試してみます、アリガト。
TabSetのTabs[2]を消してTabs[3]をTabs[2]に…というようにして、
799 ：
デフォルトの名無しさん ：02/01/13 01:55
>>798 TabSet1.Tabs.Count で全タブ数。
TabSet1.Tabs.Delete(TabSet1.Tabs.Count - 1); で最後のタブ削除
Delphiの場合、TTabSetやTComboBox、TListBoxなどの各アイテムは
TStringsから派生したオブジェクトになっています。
ですので、AddやDelete、CountなどTStringsで定義されているのは使えるので
TStringsのヘルプを見て、どのようなメソッドがあるか確認してみるのが良いでしょう。
800 ：
デフォルトの名無しさん ：02/01/13 05:38
プリンタポートに25ピンのパラレルケーブルで接続された外部機器
801 ：
デフォルトの名無しさん ：02/01/13 14:42
全てのクラス型に使えるような
TMoge = class;
>>801 あなた以前にもここで聞いてなかった？
できっこないよ
804 ：
デフォルトの名無しさん ：02/01/13 18:24
$APPTYPE が CONSOLE なときに、
>>802 べつにどうにもならないと思う。
普通にコンパイルが通ってハイ終わり。
>>804 if IsConsole then
Writeln(ErrOutput, 'hogehoge');
809 ：
ErrOutput ：02/01/14 00:43
しらなんだ、ありがとう。
810 ：
デフォルトの名無しさん ：02/01/14 00:49
if IsWet then
>AObject.SaveToStream( Stream );
812 ：
デフォルトの名無しさん ：02/01/14 21:06
上位バイトと下位バイトを分割するにはどうすればスマートですか？
813 ：
デフォルトの名無しさん ：02/01/14 21:08
あう、ズレたよ
814 ：
デフォルトの名無しさん ：02/01/14 21:09
ｺﾞﾒｿ。今度こそ
815 ：
デフォルトの名無しさん ：02/01/14 21:11
だめだあ・・・でも意味は通じるよね？
上位"バイト"とかいうと、それはバイトより大きな単位の中の上位にある1バイトのことになるが。
>>816 うざい書き方して申し訳ないでしたm(__)m
素早いレスありがとうございました！感謝します！！
あう、上位ニブルと表現しないといけないのか、勉強になりました。
divで良くない？
たとえば？
div は遅いだろ
元に戻すには逆にshlすればいいの??
>>819 普通はこういうとき(bit演算)はシフト演算を使います。
ちなみにdivだと符合が考慮されてイヤーンな結果になる恐れアリ。
ていうかdivだとshrじゃなくてsarになるね
岡本さんへ。
MLのLogに残らないと、見た人が信じちゃって困るから、フィードバックせな。
>>830 そんなの義務じゃないんだから命令するな。
インターネットの情報を頭から信じると戸田みたいになるぞ。
おろ、けっこうMLとココって見る人と書く人かぶってるのね
>>832 あそこは「サロン」です。技術情報メーリングリストではない。
■［サロン］の大辞林第二版からの検索結果
こっちじゃないのか？
>>827 IsConsole 質問者が納得しそうだよ！？
>>836 今見た。戸田ちゃんがでてくることを（ちょっと）期待しているんだけど
このままいくかな？
元質問者は TERRY か。Delphi-ML 以外の Delphi 系メーリングリストでは
回答者側に回っているんだけどなぁ。
838 ：
デフォルトの名無しさん ：02/01/15 22:06
上下位ニブルではなく上下位バイト(?)に分けるのはどうするの?
839 ：
デフォルトの名無しさん ：02/01/15 22:16
俺は最近、広場のHotkeyから目を離せないよ！！
>>838 a := $6053
b := Hi(a) + Lo(a) shl 8;
>838
>>839 Hotkey 本人さんですね？宣伝ご苦労様。
844 ：
デフォルトの名無しさん ：02/01/15 22:49
>>840 >>841 ありがとうです
shl, swap, 両方調べて使わせてもらいます
各変数に代入するなら shl
ただひっくり返すだけでいいなら swap なんですね
みんな、
ファイルの先頭行を取得する関数を作りたいのですが、
＿＿＿＿＿＿＿＿＿
∧,,∧ ／
>>839 ミ；ﾟДﾟ彡＜ おれも、おれも・・・
ﾐつ つ ＼
～ﾐ ,, ﾐ. ￣￣￣￣￣￣￣￣￣
∪∪ フリー談話室で......
849 ：
デフォルトの名無しさん ：02/01/16 00:00
わ…ビクーリ…。お…オレも（藁
ここで、この名前が出るとは…。
前から「痛いなー… 痛いよＨｏｔちゃん…」って思ってたから
>>848 のレス見て（その先は見てなかった）、今、苦笑いと共にビクーリしてる。
なんてゆーか、「ツワモノ」って感じだよな。
何歳なんだろう？
>>847 と、言うか遅いのか？
API直呼び出しするとか。
ｳｻﾞ
>>847 必要充分に速いと思うけど、どういうのを期待してるの？
ガリガリのアセンブラコード？キャッシュの効く読み込み？
853 ：
デフォルトの名無しさん ：02/01/16 00:08
>>847 その行の先頭に行の長さを入れておけば、
一行の取得は簡単で速くなるよ。
854 ：
デフォルトの名無しさん ：02/01/16 00:29
Ｈｏｔちゃん、１回「すごくまともな怒られレス」返されて、
MDI子ウィンドウの切り替えをWinXPで行うとスキンがちらつきますよね。
856 ：
デフォルトの名無しさん ：02/01/16 00:54
win95へOSを変え（略）
Pちゃん以上のつわものとお見受けした。
>>857 どうやら黙殺されてると思ってないみたいよ。
平気でマルチポストしてるし。
つーか、答えてほしいなら最低限、誤字は見直せよ（藁
広場ってどこ？
863 ：
デフォルトの名無しさん ：02/01/16 09:22
ストリームに以下みたいに書くとエラーになってしまいます。
参照渡しだからねえ
865 ：
デフォルトの名無しさん ：02/01/16 10:25
TIdHTTP を使ってプログラムを書いてるんですが、リクエストタイムアウトの
866 ：
こだわり派 ：02/01/16 18:18
実数型のRealとDoubleってどっち使った方がいいの？
double
Real
Real はコンパイラスイッチで 6 byte 実数と 8 byte 実数に切り替わる。
Extended
ツールバーで使える 16x16 or 16x15 のサイズのビットマップファイルを
873 ：
デフォルトの名無しさん ：02/01/16 23:24
>>866 Extended つかっとけ
VCL はだいたいそうなんだから
談話室、落ちてる？
そのファイルがWindowsで使用中かどうか調べるのってどうやるんですか？
書き込みモードでオープンでよかったっけ？
http://do.sakura.ne.jp/~junkroom/cgi-bin/megabbs/readres.cgi?bo=lounge&vi=999486538 ∧.,,∧ ／
>>872 ミ.,,ﾟ∀ﾟ彡＜ ここの3よみーな
ﾐ つ目(ﾐ . ＼
～ミ,,Ｏ,,,,,,つ
あるフォルダに存在する拡張子のないデータ（例：アイコン）
>>880 アイコンって、普通、拡張子あるだろ（例：hoge.ico）？
エクスプローラの設定がまずいのかな？
エクスプローラ → フォルダ オプション → すべてのファイルとフォルダを表示する
はずしていたらごめんなさい。
>>881 それがないんですよ。
渡されたデータなんですが普通のショートカットだと
ちょっと違うみたいで・・・・・・・・
業務アプリケーション（どこかの会社の）ショートカットだと
思うのですが・・・・・・・・・・・
>>881 エクスプローラの設定はきちんとなっています。
通常Microsoft等のショートカットのプロパティを
PathFileExists関数って何処にあるのでしょう？
あなたの脳内にのみexists
>>885 Shlwapi.dll にあると思いますが
FileExists関数を使った方がいいでしょう
Google
>>887 どうしてFileExists関数の方が良いのでしょうか？
>>885 <shlwapi.lib> はテキストファイルではないので
#include で 取り込むことはできません。
これは shlwapi.dll を暗黙で使うためのインポート
ライブラリなので リンカに渡す必要があります。
C++Builderではリンクに使う指令があります
#pragma link "shlwapi.lib"
とソースファイル中に書くことによってリンカに
渡されます。
ただ、このままだと"shlwapi.lib"へのパスが
正しく張られていないので
[プロジェクト|オプション][ディレクトリ/条件]
の[ライブラリパス]に
$(BCB)\Lib\PSDK
を追加してください。
関数と言う響きでHELPしか確認しませんでした
>>886-888 お騒がせしてすいませんでした、逝ってきます・・・・
||←LANケーブル
Λ||Λ
（ / ⌒ヽ ＜ Delphiと思ってレスしちゃたーよ
| | Del|
∪ 亅|
| | |
∪∪
>>889 PathFileExists は LPCTSTR を渡さなければならないからです
Delphi内部で使うぶんにはAnsiStringで渡せる FileExistsが便利でしょう
TSTRを使いたい理由があるなら別でしょうけど
>>892 ありがとうございます。
勉強になりました。m(_ _)m
>>776 恐れすだけど
if (Key = #10) and (GetKeyState(VK_CONTROL) < 0) then
Key := #0;
で駄目？ssShift求めるルーチンにまんまあるんだけど。
まんまじゃないか
自己レスです。
>>897 IdAntiFreeze は用途がちょっと違いますね。
使えば画面は固まらなくなりますが、読んだ関数から帰ってこないのは一緒
なんです。
shellTreeViewの.アイテムのTextプロパティの動作が変なのですが…
900 ：
そすぃんさ ：02/01/18 01:03
ちょっと前にＤ＆Ｄのサンプルが動かないってレスがありましたが、
>>900 TObject.Dispatch
の
JMP ECX
では？
>>901 レス、どーもです。うーむ…。もすこし自分で調べてみます。
>>899 確認しないでコメントするが、commuinty.borland.com にある、修正パッチを
当ててからテストしたほうが吉。
>>900 動いているサンプルコードの一部をコメントアウトすると動かなく
なるのはあたりまえだろ。「message 指令」をヘルプでよく見るように。
ＶＣＬオブジェクトでメッセージを捕まえてイベントハンドラを記述する
一般的な方法だよ。メッセージ指令をコメントアウトすると、メッセージを
捕まえられなくなるので動作しないのは当たり前。
906 ：
デフォルトの名無しさん ：02/01/18 10:52
TMemIniFileを使って Iniファイルの読み書きをしようとしてるんですが、
補足です。
自己レスです。
>ini := TMemIniFile.Create('Sample.ini');
の個所でファイル名指定をフルパスでやるとうまくいくようになりました。
フルパス指定しなくてもカレントフォルダとかに出来るはずだと思ってたんですが、、、
ちなみに
>>906 の *1 の個所を通らないように実行するとカレントディレクトリに
ファイルが作成されていたのですが。
よくわかりませんが、動いたのでヨシとします。
お騒がせしました。
カレントフォルダがOpenDialogで変更されちゃうというオチ？
>>908 kylixもここ？
>>909 OpenDialog で開いたフォルダを見てみたら、、、、ありました、Iniファイル。
鬱だ氏のう。。。
>ini.UpdateFile;
はじめまして。
>>913 こういったコードっていうから慌てて書いたんでしょ
>914
>916
>>913 ありゃ、そこもまずいっすか。
例外が発生した場合でも問答無用で UpdateFile するのがやばいかな。
もう少し考えます。
919 ：
デフォルトの名無しさん ：02/01/18 21:09
TFontをLOGFONT構造体(TLogFont)に変換する効率の良い方法は無いですかいのう？
>>854 「Delphi 広場」復旧。
だれ？Hotkey に 2ch を教えた人。
玄みたいにならないといいが
921 ：
デフォルトの名無しさん ：02/01/18 21:52
FastnetのSMTPコンポーネントなんですが、サブジェクトで全角使うと
>>919 ちなみに逆ってどうやるのよ。
まさか各フィールドを代入すんじゃないだろうね。（笑）
CreateFontIndirect() でのハンドルを代入するとか？
解決。922スマソ。
>>923 それでやっていたら最初から質問しなかったとおもう。
逆は
Font.Handle := CreateFontIndirect(LOGFONT);
でやっているが、何か問題ある？
>>925 うん、オレもそうしてる。
問題があるとすれば、TFont のハンドルに代入しても、LOGFONT の内容が
TFont のプロパティーの値に反映されないことかな。すくなくとも、オレの時は
そうだったが。どうよ？
漏れの場合は問題なかった。
>>927 あ、そういうふうに描画だけで使うんなら、問題ないね。
Assign() で入れ替えてしまうわけね。なるほど。勉強になった。アリガト。
オレが言ってたのは
Label1.Font.Handle := CreateFontIndirect(LogFont);
の場合、もともとの Font のプロパティーにハンドルの内容が
伝わらない、ということだよ。描画はＯＫなんだけどね。
うん、でも Assign() だと元が free される直前にコピーがつ
くられるから、このほうがよいね。たぶん。
ついでですまんが Labe1.Font.Name 、Style、Charset なんかで
LogFont の内容とプロパティーが同じになってるか、確かめてくれ
ないかなぁ。
>このほうがよいね。たぶん。
あの.. VCL ソースお持ちでは無いの？
はいよ
procedure TForm1.Button1Click(Sender: TObject);
var
NFont:TFont;
LogFont:TLogFont;
begin
NFont := TFont.Create;
try
SystemParametersInfo(SPI_GETICONTITLELOGFONT,SizeOf(LogFont),@LogFont,0);
NFont.Handle := CreateFontIndirect(LogFont);
Label1.Font.Assign(NFont);
with NFont do
Label1.Caption := Name+'/'+IntToStr(Height)+'/'+IntToStr(Charset);
with Label1.Font do
Label2.Caption := Name+'/'+IntToStr(Height)+'/'+IntToStr(Charset);
with LogFont do
Label3.Caption := lfFaceName+'/'+IntToStr(lfHeight)+'/'+IntToStr(lfCharSet)
finally
NFont.Free;
end;
end;
結果
http://cgi.members.interq.or.jp/green/katu4/imgboard/img-box/img20020118231820.png ちなみにこれは家にあるDel6Personal
ＶＢでは同種のコントロールにインデックスを付けて一緒に扱えますが、
>>933 ソースの使い回しはいくらでも出来ますが、どういう方法でやるかは、やりたい内容に依る。
>>933 単なるイベントの使い回しなら、このようにやる。
Label1,Label2,Label3がフォーム上にあったとする、
Label1～Label3をクリックした時同じイベントを割り当てたいとすれば、
Label1のOnClickを定義して、Label2,3にもLabel1OnClickを割り当てる。
どのLabelがイベントを発生させたかを知るには、
VBではIndex仮変数を使うところだが、Delphiでは代わりに(Sender as TLabel)を使う。
procedure TForm1.Label1Click(Sender: TObject);
begin
Form1.Caption := (Sender as TLabel).Caption;
end;
とやれば、
Label1をクリックすればForm1.CaptionはLabel1.Caption,
Label2をクリックすればForm2.CaptionはLabel2.Caption,
と同価になる。
>>931 ソース見るのさぼってたのね。すまぬ。＞＞特に919
SetHandle → GetFontData でまた Handle から GetObject()
して、TLogFont を取得して、それからプロパティー部分を代入
してから、FontManager に渡してるわけね。
だとすると、919 のコードのように TFont のインスタンスを
作って、それの Handle に代入してから、Assign() するより
直接、CreateFontIndirect() の 返値を Handle に代入した
ほうがよいみたいだね。うーむ。
ＶＢの例では、
あ、書いてるうちに別のレスがついてた‥‥。
では、イベントの取得ではなく、
>>940 インデックス参照できる用に拡張したクラスをひょいと再定義して
それを使う。
942 ：
デフォルトの名無しさん ：02/01/19 00:07
外部プロセスを起動して、そのプロセスの標準入出力を Stream で取り出すような
あれ？ＶＢ．ＮＥＴじゃコントロール配列なくなるんじゃ
>>940 procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
for i := 0 to ControlCount-1 do
if Controls[i] is TLabel then
(Controls[i] as TLabel).Caption := 'Changed!';
end;
そろそろ新スレの時期ですな。
>>938 その質問は今まで200回くらい見たきが...
∧,,∧ ／
ミ ﾟДﾟミ ∫＜ TEditの配列作ることもできるし
.(ﾐ ﾐっ-~ ＼ FindComponentでもいいし
～ﾐ,,⊃ﾐ⊃
なんでもござれです。
>>946 またギコが爆弾発言して途中退場しそうだから難しそうだな。
ネタキャラなしにしようぜ。
広場の方が仮再開したようだ。Hotな活躍がまだまだ見られる。
950 ：
デフォルトの名無しさん ：02/01/19 01:02
どーも２ちゃんねらじゃないフリして、ここの人がHotちゃんに
>949-950
>951
>>950 みんな見てると思うぞ。
実際役立つTipsも有るし、ネタが有る所は見るんじゃないかな･･
俺は役立ちそうなスレ片っ端からwgetしてNamazuしてる
# 繋いじゃうと何かと無駄な時間が･･･(笑
>>950 最近のレスといえば、Ｈ と q だけど、ご両人はあそこでは古株
だろう？ だれのこといってんの？
もっともご両人ともここ見てるってことはあるよな。
もうよさない？
もうやめようよ。
∧,,∧
>>948 ミ,, 彡 ﾌｻ次ｽﾚは辞めときますかねえ....
ミ ミ
ﾐ～,, ﾐ
∪ ∪
細く長く生き延びたいな...
>>957 オレはフサギコのキャラ好きだよ。
でも、このごろフサさん、忙しそうであまり出現しないんだね。
ちょっと、あのスレ、廃れ気味だよね。
がんばって、細く長く続けるのには異議なし！ です。
1000
960 ：
デフォルトの名無しさん ：02/01/19 02:36
２バイト文字１バイト文字混在の文字列の文字数は
おれのヘルプだとLength()バイト数を返す、って書いてあるけど
WideStringに放り込め
963 ：
デフォルトの名無しさん ：02/01/19 02:45
// ２バイト文字を２個としてカウントするのでバイト数がわかる
>>962 そうすると元のバイト数がわかるんですか？信じられない！
２で割ると文字数が分かるってのは知ってるが。
すみません思い込み勘違いでサンプル間違ってました。
Delのバージョンによってヘルプは違うＹＯ！
>>967 アメ公には１バイトも１文字も同じ。連中にとっては Length は“常に”文字数を返すんだよ。
>>964 MBCS / １バイト２バイト混在文字列の場合、「２で割ると文字数」とはならないぞ
>>968 964 は 962 へのレスであることが分からんのか？
970 ：
デフォルトの名無しさん ：02/01/19 19:38
FlashGetでAlt+↑↓するとリストのアイテムを↑↓に移動できますが
971 ：
デフォルトの名無しさん ：02/01/20 22:03
>>942 自己レスです
結局 Delphian World に登録されてる「CosoleApplication リダイレクト実行ユニット」
てのを改造して使いました。
stdin, stdout, stderr を string で受け渡しできます。
後で見つけたんで使わなかったんだけど、Torry's Delphi Pages に登録されてる
「DOSCommand v.2.0」ってのも良さそうでした。
＞「DOSCommand v.2.0」ってのも良さそうでした。
973 ：
デフォルトの名無しさん ：02/01/21 00:06
975 ：
デフォルトの名無しさん ：02/01/21 10:20
uses 節って unit の interface部、implementation部、両方に書けるけど
循環参照を回避できる
977 ：
デフォルトの名無しさん ：02/01/21 10:44
>>976 なるほど、ありがとうございます。
ちょうど 975 を書いた後に循環参照でコンパイル出来ないトラブルに
当たってたところでした。
片方を implementation部に移しても問題ない場合は循環参照を回避
できるけど、両方の unit が interface部で互いを参照しちゃってるような
場合はどうしようもないんですね。
こういう場合は同一 unit に入れとけってことなんでしょうな。
なかなか Pascal も難しい。
＞両方の unit が interface部で互いを参照しちゃってるような場合
相互に参照しあう場合はもう一段階 抽象化するといいと思う
1000
ああ、困ったねえ 1000盗鳥がやってきた。
＞こういう場合は同一 unit に入れとけってことなんでしょうな。
,,,,,,,,,,,,,,,,∧,,∧ ／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
～′,,,,,,,,,,ミ,,ﾟДﾟ彡 ＜ ちゃうがな。
UU"""" U U ＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
>>978-979 さんでガイシュツですが
抽象化って呼ぶのかどうかしらませんが
Unit1とUnit2で同じ型やクラスを使いたいなら
新しくUnit3を作ってそこに記述するといいです。
Unit3からはUnit1やUnit2の定義は参照しないように。
フサは自作でも他作でも
interfaceのusesは汎用クラスライブラリ
implementationのusesはそのアプリだけの処理ユニット
として使い分けてます。
汎用クラスライブラリ的にコードを書くと
ソースがきれいになりますよ。
>>981 ＞MLウオッチネタはどこにいけばいいのよ？
マ板に作って！
1000
>>978 >＞両方の unit が interface部で互いを参照しちゃってるような場合
>こういう場合は「自分の設計が悪い」と思い込むことにしてます。
>本当に設計が悪いのかは別にして。
設計が悪いかどうかは別にして、複数のユニット/クラスの依存関係が強い
ことは明らかだから、ひとつのユニットに押し込むか依存関係が強い部分を
抜き出してひとつユニット/クラスをこしらえる。
早い時期にやっておいたほうが跡で困るより楽だよ。
>>983 つくるなら、ML に特化しないスレタイトルをｷﾎﾞﾝﾇ
1000
988 ：
デフォルトの名無しさん ：02/01/21 23:13
usesにmmSystemとwindowsは記してある
hWndってなに？Handleのこと？
>>989 コールバック用のハンドルです。
Handle: HWND～っていうやつじゃないから
手続きの外に cbHandle: THandle と定義しておいて
mpp.dwCallback:=DWORD(cbHandle); とすれば良いのですね。
>>978 >こういう場合は「自分の設計が悪い」と思い込むことにしてます。
そうっすね。Delphi、素人なんでよくわかんないんですが、クラス設計とは別に
unit設計のような作業が必要で、相互依存関係のあるクラスは同じ unit に入る
ように設計する必要があるのかなと感じています。
>>979 >相互に参照しあう場合はもう一段階 抽象化するといいと思う
手っ取り早くコンパイルを通すにはこれが簡単ですね。
俺も最初はこれをやってみました。片方の参照ををスーパークラスで定義して、
実際使う際にダウンキャストするってことですよね。
ただ、コンパイラの都合でクラス設計をいじるのは気持ちが悪い気もするです。
>>982 >フサは自作でも他作でも
>interfaceのusesは汎用クラスライブラリ
>implementationのusesはそのアプリだけの処理ユニット
>として使い分けてます。
なるほど、参考になります。
>>985 仰る通りだと思います、急がばまわれですね。
992 ：
DELモナー ：02/01/22 06:44
∧ ∧
994
Ｈｏｔｋｅｙ９９５age！
Ｈｏｔｋｅｙ９９６age！
今だ！997ゲットォォｫｫ！！
今だ！998ゲットォォｫｫ！！
今だ！999ゲットォォｫｫ！！
∧ ∧
1001 ：
１００１ ：
Over 1000 Thread このスレッドは１０００を超えました。
