1 ：
毛の生えたフサギコ ：
03/05/24 15:33 このスレッドは、
２
3 ：
毛の生えたフサギコ ：03/05/24 15:35
仕事には使えない。
6 ：
毛の生えたフサギコ（実はブリーフ） ：03/05/24 21:19
>1
うむ、VBしか使えない連中の方が、それを口実にしてやすく雇えるからな。
そういう意味でDelphiは中途半端なんだな。
はいはい、趣味専用ってのはわかったからさ。
無料版が無いと、趣味では使えないよね。
11 ：
デフォルトの名無しさん ：03/05/25 07:47
D6用のBPLをD7にインストールしたいのですが、やっぱり無理でしょうか？
dpkではなくて？
>>11 細かなアドレス差を吸収するようなトランスレータ作らないと無理でしょ。
アドレスどころか VMT の中身もまるっきし違うから無理。
15 ：
デフォルトの名無しさん ：03/05/25 12:57
>>15 だからどのフォントを指定したのよ？フォント名は正確に指定しないと
意味無いぞ。
>>15 lbl.lfCharSet := SHIFTJIS_CHARSET;
これを追加しなさい
待ってました、このスレッド
あら。ほんと。サンプルが時代遅れだね。
＿＿＿＿＿＿＿＿＿＿＿＿＿
22 ：
デフォルトの名無しさん ：03/05/25 15:53
FormStyleを変更すると、高速で一度フォームが消えるんですが、そうならないように出来ます？
くだすれレベルの回答じゃなくなってしまうが、質問がわに回答内容を想定することはできないからなぁ
で、FormStyle プロパティを変更しない代わりに、自分で管理。
25 ：
デフォルトの名無しさん ：03/05/25 16:15
では、内部的にチラつかせなければならなかった理由をお聞かせください。
>>24 とても親切に、ありがとうございます。
助かります。
全部出来ました。
Delphi7のTwilightColorMapってどう使うの？？？？
>>17 ,20
うおっ、上手くいきました！
どうもありがとうございます。
昼寝のつもりでちょっと横になったら６時間も寝てしまい
レス遅れてすいません・・・。
>>25 それはWindowsの制限なのです。
WNDCLASS構造体 を変更しなければならないようなプロパティの変更があると、
一度 窓をWindowsに返却して、 RegisterClass/CreateWindowをやり直さなければいけません。
Delphi 6 パーソナル 使ってるんだけど、
xxx.dllのｘｘｘという関数を使うサンプルをください
33 ：
デフォルトの名無しさん ：03/05/26 01:45
初歩的な質問だと思うのですが、Tstringsで普通のHD上のテキストファイルなどを
開くことは出来るのですが、ネット上のソースファイルなどを開くにはどうすればいいか
教えてください。たとえば
http://i.2ch.net/2chi.html のソースをTstringsに読み込むにはどうすればいいのでしょうか。
よろしくお願いします。
34 ：
デフォルトの名無しさん ：03/05/26 01:47
「はじめてのObject Pascalプログラミング テクニカルマスターシリーズ
>>二つ上
36 ：
毛の生えたブリーフ ：03/05/26 06:39
>34
37 ：
毛の生えたブリーフ ：03/05/26 06:42
＞３４
38 ：
毛の生えたブリーフ ：03/05/26 06:45
>34
39 ：
毛の生えたブリーフ ：03/05/26 06:49
前スレッドで「Senderとは何か？」の話題がありましたが、
40 ：
デフォルトの名無しさん ：03/05/26 08:06
質問です
41 ：
デフォルトの名無しさん ：03/05/26 08:13
質問相談談話室スレに書いたのですが、反応がないようなので、
VAIOの場合も書いてあった。
44 ：
毛の生えたフサギコ ：03/05/26 08:29
>40
イベントというのは そのクラスの機能を拡張する手法の一つで
47 ：
デフォルトの名無しさん ：03/05/26 14:40
APIでも書けるところはAPIを使ったほうが良いんですか？
API使う場合は出来るだけラップして自分で抽象化して使うようにね
>>36 ,37,38
レスありがとうございます。
「Delphi始める」は間違いで、「プログラミング始める」でした。
ですので、Delphi/KylixのIDEの使い方も書いてる方がイイです。
>>37 当の本人が実は多少廚入っているので(^_^;;)、たぶんWindowsを
前提にした本で取っ掛かりを作った方がイイと思っています。
>>38 「はじめてのDelphi」、amazonで見てみたところ、一応好意的な
評がついてました−１人だけですが(^_^;;)
>>36 「・・・持っていて損はない・・・」
よくわかりました。
全くの初心者の、１冊目として「悪い」本ではないのがわかればOKです。
ありがとうございました。
どういうことですか？？
51 ：
デフォルトの名無しさん ：03/05/26 20:58
以下のようにTreeView1とTreeView2の２つのTTreeViewがあったとして
ようは実行後下のようになるようにしたいのです。
>一つ一つaddしてくしかないのでしょうか？
ごめん。確かめていないけど、TTreeNode.MoveTo( コピー先, コピーモード)
連続してクリックをさせるようなものを作りたいんですが、どんな命令を使えばいいですか？
>>35 拡張子をかえるというのは一度保存してから拡張子を変えて改めて
HD上から読み込むということでしょうか？
でもその一度保存するのもどうすればいいかわかりません。。ブラウザで読み込んで、
そのキャッシュをＴstringsで読み込むとかならできるみたいなんですけど、
できればネット上から直接ひらくみたいな感じでやりたいのです。
>>46 ありがとうございます。早速落としてみました。
難しそうですけど何とか使えるように頑張ります。
よろしければIndyを日本語で解説しているサイトなどあれば教えていただけませんか。
もし無ければ自力でがんばってみます。とりあえずありがとうございました。
↑は33でした。
>>53 そうですか･･･
簡単な方法がないなら踏ん切りがつきました。
あきらめてゴリゴリ関数書きます。
ありがとです。
>>54 それはすでに試したのですがダメでした。。
>>33 何度見ただろう？「indyを日本語で解説してるサイトはありませんか？」って…。
多分無いんじゃないの？
wininet使うってのは？何度かdelphiスレ（どこか忘れた（藁）で勧めたけど
食いつきが悪い…。
Indyは日本語ヘルプあるってばさ。
モナジラかどこかにもIndyのことちょっと書いてあったような
63 ：
デフォルトの名無しさん ：03/05/27 09:39
Delphi購入しました。
Delphiパーソナルダウンロードして登録したんだけどメールこないよぅ
>>64 ダメじゃない。Hotmailでいけたよ。
66 ：
毛の生えたフサギコ ：03/05/27 09:50
とりあえず、簡単な入門から、これまた簡単なデータベースまで
>>63 順番が逆かも知れない
DelphiのありがたみはDBをやると良く分かる
コードを1行も書かずにデータを読み書きできるアプリを作ることも可能だよ
68 ：
毛の生えたフサギコ ：03/05/27 09:55
＞６３
69 ：
デフォルトの名無しさん ：03/05/27 10:16
サーバーの日付、時間の取得について検索して１つ例を見つけたのですが、
TMediaPlayerはActiveXを使わないでメディアを扱えるようですが、
>>70 QuickTimeはWindows用SDKがあるからそれ使えばActiveX無しで再生できる。
ただC前提だからそのままDelで使えるかは知らん。
>66 >67 >68
>>69 その方法でやるなら、今度は 無名パイプ 名前なしパイプ CreatePipe などで検索する必要があるでしょう。
あと /SET だと 取得すると同時に時間を同期してしまうけど、それでいいの？
>>69 Indyを使って SNTP サーバから時間を貰ってくる例；
function GetSNTP(server:string):TDateTime;
begin
with TidSNTP.Create(Self) do try
Host:=server;
Port:=123;
Result:=DateTime;
finally free;end;
end;
例：
Self.Caption:=
FormatDateTime('YY/MM/DD HH:MM:SS',GetSNTP('clock.nc.fukuoka-u.ac.jp'));
>>69 他のPCの時刻を参照するのなら作ったことある。
NetRemoteTODで検索してみそ。
ShellExecute(Handle,'OPEN',PChar(C:\something),'','',SW_SHOW);
実行時にPopupMenuにmenu1を追加して、さらにサブメニューにmenu2を追加したいのですが、
79 ：
デフォルトの名無しさん ：03/05/27 22:45
長い式の計算だと答えが合わないことがあるんですけど？
>>78 勘でレス。
> Menu1.Insert(0,NewITem2);
Menu1 って誰か設定してるのか ?
四捨五入の関数が無いなんて何かの冗談でしょうか
どうか忘れないでﾚｽ下さい。
85 ：
デフォルトの名無しさん ：03/05/28 01:51
思わぬハケーン！
86 ：
デフォルトの名無しさん ：03/05/28 01:53
一足遅かった・・・
>>77 多分 CreateProcess を使えばよいかと。google でひけば幾らでも使い方は見つかるだろう。
ただし、ShellExecute が提供する便利な部分、拡張子からアプリケーションの関連付けとか
はサポートされない。
Shell 関数は便利な分、余計なライブラリを使ってしまう。ってこと。
ただ、3M くらい気にしない。ってほうが良くないか？
見かけの数値にだまされないようにね。
すみません、質問させて下さい
XPStyleがD7のウリなんだしなー
すみません。超くだらない質問ですが、誰か教えてください。
>>92 Delphi式のRADではTButtonからTButton1は派生していません。
Button1はTButtonのインスタンスを示す参照です。
イベントの化わりに、TButtonからTButton1を派生してメソッドを定義する方法のRADもありえるでしょうが
その仕掛けは非常に複雑になるように思います。
すみません、もう一つ質問です。
>>94 .dfmがコンパイル時にリソースに組み込まれています。
一方publishedプロパティも実行ファイルにその情報が入っています。
FormのCreate時、このdfmからpublishedプロパティを検索しては作成してゆくわけです。
>95
>>96 いいえ、内部的にコンストラクタを呼んでいますよ。
ただし、コンストラクタをコンストラクではなくメソッドの格好で呼んでいるので判り難いと思います。
Pro版ならソースを追いかけてみるといいでしょう。
メモリを確保してから、 Instance.Create(Self); とメソッドの格好で呼んでいます。
Instance.Create(Self) の中で InitInheritedComponent を呼ぶと、dfmにあるコンポーネントが構築される仕掛けです
>>91 Delphi7は既にもっているので
それを素直に使うのがよいのですが
Delphi6のヘルプの使いやすさやIDEが若干Delphi7よりも軽快
なのが気に入っているので、この質問をしました
昔、海外のサイトで見かけたような気がしたのですが
昨晩からずっと検索してますが見つからない・・・
>>100 D6のヘルプが使い易いならD6のヘルプをD7にコピーすればいいじゃない。
IDEが重いのはたぶんコンポーネントを全部組み込んでるからだと思うよ。
不要なのを取り外したら？
>>97 ,98
それが「仮想コンストラクタ」です。Delphi の言語仕様上もっとも重要なもの。
103 ：
デフォルトの名無しさん ：03/05/28 11:59
アクティブでないアプリのコントロール（ツールボタンとか）に
>>103 定期的にタイマーでマウスを監視するとか
>>104 GetCursorPosなどで座標をとってってことですかね？
そうしたらTPointの座標からコンポーネントとかを求める関数とかってあるのでしょうか？
>アクティブでないアプリ
107 ：
デフォルトの名無しさん ：03/05/28 13:04
こんないいスレを落としたくない。
>>106 >それは任意のアプリ？あなたが作ったアプリ？
自分で作ったアプリです。
>ポップアップはアクティブではないアプリ上で？
>そのときの文字列はどちら/誰が保持しているの？
はい、アクティブでないアプリ上です。
文字列はマウスカーソル下のコンポーネントがそれぞれ保持してる場合と、
Application.OnShowHintでツリービューのノードごとのTTreeNode.Dataに基づいて
それぞれヒントを出します。
>>108 procedure TApplication.ActivateHint
をコピペして
procedure TApplication.ActivateHintnotForregrand
ッて名前にして
and ForegroundTask
って部分を探してコメントアウトしてしまいなさい。
そしてタイマーで
procedure TForm1.Timer1Timer(Sender: TObject);
var CursorPos: TPoint;
begin GetCursorPos(CursorPos);
Application..ActivateHintnotForregrand(CursorPos);
end;
てやればどうだ？
>>109 レスどうもです。
これはFormsのTApplicationクラスの
procedure TApplication.ActivateHint メソッドを
まるまるコピーして、新しくand ForegroundTask を削除した
procedure TApplication.ActivateHintnotForregrand メソッドを
作成するってことですか？
また、それはどこに書けば良いのでしょうか？Forms内に書くの？
>>110 とりあえず Forms 内に書いて試して、動作がOKなら、そこから考えてみたらどう？
112 ：
デフォルトの名無しさん ：03/05/28 15:42
Delphiで使われている文字コードはシフトJISですよね？
>>111 Forms 内のTApplicationのpublicに
procedure ActivateHintnotForregrand (CursorPos: TPoint);
を追加して、実相部に
procedure TApplication.ActivateHint(CursorPos: TPoint);を
まるまるコピーして
procedure TApplication.ActivateHintnotForregrand(CursorPos: TPoint);
にしてand ForegroundTask をコメントアウトして
>>109 のを
実行しようとしたのですがｬ'未定義の識別子'ってでてしまう・・・
Formsに書くだけじゃだめなのでしょうか？
ところで、いままでやったことなかったのですがVCLって書き換えて良いの？
今回はテストだけど、ちょっと変更したいなって時とか。
>>113 .DPR ファイルの uses Forms でパスを指定するか
これを消して、Forms を プロジェクトに追加してから、
再構成する必要があります。
>>112 Unicode は WideString と UCS2 という意味でほぼ同一。
Shift-JIS との暗黙の変換がとても便利。
UTF8 に関しては上のほうに記述があったと思うが、専用の変換関数がある。
EUC を直接作成/変換/文字操作するライブラリは用意されていない。
Windows だからね。MultiByteTOWideString で WideString/UNICODE に変換してから
作業するほうが、遠回りのようで確実。
>>113 >VCLって書き換えて良いの？
良いです。ライブラリを変更、流用すること、そうやって作ったバイナリを配布、商用利用することが
許されています。あなたが書き換えた部分に関しては公開してもかまわない。
逆に、あなたの修正コードが入っているからといって、VCL コード丸ごと公開は不可。
他人のソースは他人の物なのだから。ここらへんは常識の範囲で。
必要に応じてどんどん書き換えていくのが吉。
あまり変えすぎると他人のコンポーネントが動かなくなるけどね。
>>114 ありがとです、やってみます。
>>116 へー知らなかったです。
でも俺みたいな素人が書き換えると
後で大変なことになりそ…
もっと勉強してからにしよう。。
>>118 ほら
var
NewItem1, NewItem2, Menu1 : TMenuItem;
って自分でローカル変数として定義してるじゃないの。
たぶん TForm1のメンバにもMenu1があってそっちを参照するつもりだったんでしょ？
>>88 >>99 ﾚｽありがとうございます。
CreateProcessで解決しました。
var
SI: TStartupInfo;
PI: TProcessInformation;
begin
GetStartupInfo(SI);
CreateProcess(nil,PChar(パス), nil , nil, false,0,nil,nil,SI,PI)
end;
>>119 FAQを見ながらやったのでごっちゃになってました。
設計時にMenu1を生成した場合だとTypeのところで宣言されますが、
後から生成したので、未定義ですと叱られたのでその場しのぎ的に書いたものでした。
まだDelphi始めたばかりで、変数を定義する場所がよく分からず、適当に決めてるんですけど
この場合はTypeで宣言しないといけませんか?
自分なりに調べてみてポインタとやらが関係しているとおもったのですが、
とりあえず宣言場所変えてやってみます。
というか
>>122 そうです。今やってみたら出来ました。
宣言場所やらポインタなんかは関係なかったですね。
変なミスに付き合わせてほんとすみません。
>>59-62 よく調べずに質問してしまったためindyのヘルプがあることを知らずに
質問してしまいました。どうもすいません。
何とかネット上から直接ソースを開けるようになりました。
遅くなりましたがヘルプの場所まで張っていただいてどうもありがとうございました。
前スレとかで見たIndyのインスト方法が変わってるんだな。
126 ：
デフォルトの名無しさん ：03/05/29 13:19
変数をたくさん作ったら、実行速度が速くなるですか？
127 ：
デフォルトの名無しさん ：03/05/29 14:15
jconvert.pasの作者のページがなくなってるんですけど
128 ：
デフォルトの名無しさん ：03/05/29 14:21
文字列の比較のやり方を教えて下さい。
>>129 そんな関数があったんですね。
なんとかやりたかった事が出来そうです。
ありがとうございました。
132 ：
デフォルトの名無しさん ：03/05/29 14:40
>>129 えっと、そこのはもうすでにリンク切れなんで質問したんですけど？
135 ：
デフォルトの名無しさん ：03/05/29 14:44
jconvert以外にありませんか？
お礼もなしに次の質問か
(((((((( ；ﾟДﾟ)))))))ｶﾞｸｶﾞｸﾌﾞﾙﾌﾞﾙｶﾞﾀｶﾞﾀﾌﾞﾙｶﾞﾀｶﾞｸｶﾞｸｶﾞｸｶﾞｸｶﾞｸ
,,----、,,,,,,,,,､､
〆るぞコラ
〆鯖まいうー
あっ、あの、しっ、しつもん、して、いいですか？（ｶﾞｸｶﾞｸﾌﾞﾙﾌﾞﾙ
お前はもう質問している
144 ：
デフォルトの名無しさん ：03/05/29 16:37
hello.txtというテキストファイルに、
方法を教えてください
いくらくれる？
１００モナーでおねがいします
ブチ殺すぞ！ゴルァ！
if １００モナー = \0 then
>>144 .ブチ殺す;
D7でXPManifestコンポーネントを使用した時のように
すいません。
154 ：
デフォルトの名無しさん ：03/05/29 17:33
外部エディタ使えないの？
>>152 XPスタイルに対応したコンポーネントを使うしかない
>>144 procedure TForm1.FormCreate(Sender: TObject);
var
F: TextFile;
begin
AssignFile(F, 'c:\hello.txt');
Rewrite(F);
Writeln(F, 'world');
CloseFile(F);
end;
159 ：
デフォルトの名無しさん ：03/05/29 18:41
ソースでDLLの宣言してるんだがUnitで使う時はまたUnitごとに書かないといけないのかの？
>>159 書きたくなければ external 宣言した ユニットのinterface節で公開すればいい
162 ：
デフォルトの名無しさん ：03/05/29 22:21
メモリ使用量５０００Kを切れる兵はいないの？
Ｄ6パーソナル
>>163 TForm2を変数に入れた良いと思うが一応これで｡
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
I: Integer;
begin
I:=0;
while I<ComponentCount do
begin
if Components[I] is TForm2 then
begin
if TForm(Components[I]).Visible then
TForm(Components[I]).Close;
end;
Inc(I);
end;
end;
> またForm2を表示させたままForm1(プログラム）を終了させた場合ちゃんとＦＲＥＥしているのでしょうか？
Freeされます。
ありがとうございました。
166 ：
デフォルトの名無しさん ：03/05/30 02:21
2ch なんだからお礼はいらんよ。お礼でスレッドが埋まるのはデメリット
168 ：
デフォルトの名無しさん ：03/05/30 03:18
>>167 すばらしいお言葉ありがとうございました。
>>167 貴方のレスのおかげでスレが3レス分無駄になりました。
>>169 貴方がレスしなければ2レス分ですんだのにね。
173 ：
デフォルトの名無しさん ：03/05/30 10:15
174 ：
デフォルトの名無しさん ：03/05/30 11:46
TEditで、数値を入力すれば自動的に
175 ：
デフォルトの名無しさん ：03/05/30 11:51
突然失礼します。質問なんですがネットゲームでみんなが「マクロ」って言ってるんですが、それはなんですかー？
176 ：
デフォルトの名無しさん ：03/05/30 11:58
>>174 TEditを上位クラスに設定して、カスタムコンポーネントを作ればいい
そんなに難しくはないよ
>>177 レス、ありがとうございます。
それしかないですか？（＾＾；
>>178 そういわずにやってみ
思ったより簡単だぞ
>> 174
181 ：
デフォルトの名無しさん ：03/05/30 15:02
呼び出したＤＬＬの中で呼び出し元のアプリをクローズはできるんですが、
>>179 コンポーネントはいくつか作った事があるのですが、
何かと面倒なんです。
（プロジェクトメンバー全員にインストールしてもらう必要があるとか）
>>180 TMaskEditの使い方を調べてみたのですが、
どうやれば
>>174 が出来るのか分かりませんでした。
あぁ
>>174 では、「数値を入力」でおそらく「数値で出力」を想定しているのか。
数値と文字列の相互変換は省略。
TMaskEdit の EditMask プロパティを '\\9,999;0; ' に。
これで text プロパティに文字列 '1234' を書き込むと \1,234 と表示される。
編集後の値は同じく text プロパティを読めば、\ と , が取り除かれた文字列として
手に入る。
\ や , が入った、表示されているものと同じ文字列は EditText プロパティで。
>>181 Windows のバージョンで動作が変わるので気をつけて。
>呼び出したＤＬＬの中で呼び出し元のアプリをクローズはできるんですが、
どうやって「クローズ」してるのかな？
アプリケーションとそれが自動的に読み込む DLL の羅列は WIndows のローダーが管理していますから
勝手に開放（クローズ）できません。排他読み込みをおこなっているはずなので
削除は不可能。
開いているファイルハンドルを強制開放する API があったような気がするが。
>>183 丁寧な説明ありがとうございます。
試してみたのですが、この方法だと入力する前に
\_,___
と表示されてしまいます。
これを消す事は出来ますか？
188 ：
デフォルトの名無しさん ：03/05/30 18:39
今日delphi7を買ってきました。
まずはOpenJaneのソースでも解析する事だな。
ネタか知らんけどインターネットの使い方間違ってるよ
とりあえず
>>4 の初心者向けのサイトでもまわっておいで
>>188 いきなりJane読むのはしんどいかもしれないから
簡単なカレンダーとかメモ帳とかメールチェッカーを
練習として作ってから挑戦したら？
嫌です
188≠192
194 ：
デフォルトの名無しさん ：03/05/30 20:37
ありがとうございます。
もっと良いインターネットを教えてください。
これから
ここは酷いインターネットですね
ホームページ⊂インターネット
♀ホームページ⊂♂インターネット
200 ：
デフォルトの名無しさん ：03/05/30 23:34
インターネットやってます
（´-`）。o ○ （「面倒なこと」がイヤなら、プログラミングなんてや（略））
楽をする事を考えないプログラマーは糞です
インターネットを配布したいのでうｐろだ教えてください
204 ：
デフォルトの名無しさん ：03/05/31 04:10
オブジェクトインスペクタで設定するのと、
>>204 どちらかが良い場合もそれぞれあるので、どちらでも可能になってるのでしょう。
D6からは、TFORMがテキストなので、テキスト保存の問題も、ほぼなくなりました。
まぁ、オブジェクトインスペクタ無しにDelphiは語れないかもです。
>>202 「楽をする事」の定義をちゃんとしないと揉める元だぞ。
>>204 自分だけで作る場合は、オブジェクトインスペクタで楽していいと思います。
共同開発の場合は、仕様書にオブジェクトインスペクタの値を書いておくことになるでしょう。
ユニットに直に書くのは、明示的にプロパティを書いておきたい、などの理由がない限りしなくていいと思います。
208 ：
デフォルトの名無しさん ：03/05/31 11:01
try～except間でテキストデータを大量に外部から読み込んで、StrToIntなどで
exceptでエラー文字列を取れるんじゃあないかい？
>>209 tryって例外があったら中断されるんですよね？
それなら、頭から順に今何を読んでいるのかを保持するようにしてみます。ｻﾝｸｽ！
そうだね。StrToIntを直接使わずに
おぉﾃﾞｷﾀ! (ﾟ∀ﾟ) ｱﾘｶﾞﾄｰ!
>>208 try節をネストすれば良いだけの事
SL := TStringList.Create;
try
try
SL.LoadFromFile('D:\DATAFILE.DAT');
for I:=0 to SL.Count -1 do
begin
try
ConvertValue( StrToInt(SL[I]) );
except
PutError('変換エラー:'+IntToStr(I)+'行');
end;
end;
except;
PutError('致命的エラー発生');
end;
finally
SL.Free;
end;
SL := TStringList.Create;
>>214 なるほど、そういう手も･･･(つД｀)ｱﾘｶﾞﾄ
216 ：
デフォルトの名無しさん ：03/05/31 12:54
アプリを起動してからFormのAlphaBlendを
アルファブレンドがかかってると、両方が描画するわけで、
218 ：
デフォルトの名無しさん ：03/05/31 13:37
どういう事情で何処が悪いのか解からないけど、たまにファイルが壊れているのは何故？
>>218 Win98?
OS と Delphi のバージョン名くらいは教えてください。
>>216 使っているマシンの CPU の種類とクロック速度、
使っているビデオカードの名前。
ビデオカードの種類とドライバのバージョンによっては、ソフトウェア描画に
なるから、とっても遅くなるぞ。
>>220 w2k sp3
D5のupdate済み
いま、既にあるアプリでApplication.Handle取得のテストしてみたら、0だった・・・
223 ：
デフォルトの名無しさん ：03/05/31 14:27
メモリーアドレスを参照するにはどうしたらいいです？
ちなみにＣＰＵ画面はファイルの保存場所を変えて実行すると出なかったりする。
>>219 del居れ直しならまだしもＯＳからはつらいな。
今のような快適設定にレジストリ変更する自身が無い。
AnimateWindow(Handle, 2000, AW_BLEND or AW_HIDE);
ごめん。いっしょに使うなって書いてるな。
猫には書いてるけど、MSDNには書いてないような…
>>224 Delphi5 だから。という話かなぁ。
CPU ウィンドウが開かなくなる。ってのは聞いたこと無いし
>>223 (PByte($12345678)) := $12;
(Pword($12345678)) := $1234;
てな感じでどうかな？他にもいろいろやり方あり。
Application.Handle０になる発生条件がちょっとだけわかった。
>>230 開かなくなるのではなくて開いてしまうんだよ
>>232 うーん。みてみたいよ。あんたの環境。
・*.bpl が変なディレクトリに落ちている
・日本語を含むパス名を常用している。
どちらか、心当たりないかな？
ちょっと「くだすれ」っぽくなくなってきてしまったが、どうしましょ。
>>226 猫が間違ってるっぽい。
「AW_HIDEとは併用できません。」は、AW_ACTIVATEの説明に入るはず。
>Delphiから実行時にアプリ終了してもＣＰＵ画面が出てもう一度実行ボタンを
>>238 いや、やってみてちゃんとフェードアウトしたけど、
駄目って書かれてるから、ちょっと気になったもんで。
>>234 どちらも普通みたいです。こうなったら仕方ないので
別のＨＤＤに非常用ＯＳ入ってるので、まっさらなdelphi入れて試します。
また報告します。
猫より MSDN
242 ：
デフォルトの名無しさん ：03/05/31 15:30
そういえばインストールの時にSQLとかINTERBASEとかはなんなんでしょう？
>240
実際の動きよりMSDN
>>245 それに何年裏切られつづけてきたか....
へー
>>244 言葉自体は知っていますがプログラムでどのような働きをするのかは知りません。さっさと教えなさい。
>>218 とりあえず、
今あるDelphiのフォルダをリネームしておいてDelphiを再インストールして比べてみろ
それから
--------- ここから -------
del *.tds
del *.~*
del *.dsk
del *.dof
del *.dsm
del *.dcu
----------- ここまで -------
をバッチファイルにして、あちこちのプロジェクトの不要ファイルを消して回れ
う。
>>227 >>236 >>238 ほんとだ…
AnimateWindow(Handle, 2000, AW_HIDE or AW_BLEND);
hide;
上のコードでちゃんとフェードアウトする。。
何事も実際やってみないとだめっすねえ、、
ありがとうございました。
いちおう書いておきます。
DbgBreakPint で止まっています。これはブレークポイントのようなものにぶつかったことを
意味します。
IDE のデバッガの誤動作。ということも否定しませんが、良くあるのはビデオドライバにデバッグ用として
残してあったブレークポイントに引っかかった。というやつ。
>>250 さんの場合、止まったり止まらなかったりする。ということなのでビデオドライバでは
なさそうですが。
249 さんの方法も意味あるかも。
某社サポートが常駐する板はここですか？
NT OS 側のメモリマネージャーの中でアサートが出て、それを IDE のデバッガが拾っているようだね。
>>249 ,253
不要ファイルを消すのってなにか意味があるのですか？
>>257 ありがとう。しかし掲示板ではちょっと無理か。隔靴掻痒。
どこかメモリを壊していて、それがアプリケーション終了時、OS のメモリ開放中に
検出されているのではないかと考えます。
ターゲットアプリケーションの終了処理部分を１ステップずつ追っていけば問題点に
到達できますが、それはかなり面倒（かつ経験が必要）です。
もし、再インストール相当をおこなえるのならそちらの方法で回避してください。
力になれず、ごめんなさい。
>>247 デバッグしてるうちにこれら中間ファイルが壊れたりしてしまうと
色々と不都合が出来てしまいます。
ですんで、終了時におかしくなったり、コンパイルで変な事が起きたりするようになったら
まず、あのあたりのファイルを全部消すと直る率が高いです。
特に複数のバージョンで開いたりコンパイルしたい場合には、その前にやっておく習慣付けた方がいいです。
>>261 気悪くしないでね。正当なシリアル使ってる？
>>262 使ってます。一時期サポートかなんかもあったような。期限切れましたが。
265 ：
デフォルトの名無しさん ：03/05/31 18:10
TIniFileとTMemIniFileはどういう使い分けをすればいいんですか？
常にTMemIniFileで。
質問です。TEditやTComboboxに入力された値が空だったらエラーを出したいのですが、
RadioButtonのCaptionの部分の背景は透明なのに、
TWinControlにTextはないから無理。
>>269 TIniFileは
・遅い
・64KB(たしか)制限有り
で良いことない。
CheckBoxのCaption部分だけ透明にできないので、XPスタイルにするとそこだけ色が違うということになる。
裏に絵でも貼ってるの？
Thank you and good-bye, see you next time!
>>267 です。
TControlからGetTextBufメソッドが利用できたので、それを使用して解決しました。
>>274 XPスタイルにしたらTabControlが白っぽくなるでしょ？
あの時も灰色のまなののよ。
最初からあの色にしておくとクラシックスタイルにしたときにそこだけ白っぽくなってるのも嫌だし。
CheckBoxはTabControlの上で使われることって少なくないと思うんだけど。
いかがなもんでしょうかと。＞某
いかがなものかと言ってますよ＞某
CheckBox作った人は気の利かない人で、
Del7だけど普通に透明だな。
Borlandから２ちゃんねるやるなよ
日本ボーランドの回線もcomドメインなのか
283 ：
デフォルトの名無しさん ：03/05/31 19:22
DELPHI、NETはDELPHIの純粋な後継なのでしょうか？？
Del7を買ったらBorlandの策略にハマったみたいで嫌なんです
じゃあ、DELPHI8,9,10は無いということですね。
> whois 143.186.50.154
ﾌｧｲﾙの拡張子を取得するいい方法ってありませんか。
ある文字列変数の中身がファイルなのかフォルダなのかを判別する方法はありまするか？
GetFileAttr
FileGetAttr
AttrGetFile
FileExists、DirectoryExists等もあります。
Get Along Together
298 ：
デフォルトの名無しさん ：03/06/01 03:05
DelphiでDLLを使うにはどうすればいいのですか？
タダじゃ教えられないぬるぽ
では100円払いますので振込先を教えてください。
税込みで１０５円です。
>>298 ヘルプで
external 宣言
動的にロード可能なライブラリの呼び出し
動的ロード
などを読んでゆくとよいです
>>298 Windows.pas は Personal にもついていなかったけ？
あれは丸ごと Windows の DLL を使うための定義ファイルだぞ。
>>287 げっ！！
>Address: 1800 Greem Hills Rd
古いままじゃん。
305 ：
デフォルトの名無しさん ：03/06/01 11:01
ある文字が何番目にあるか調べるプログラム組みたいんですが、どうしたらよい
307 ：
デフォルトの名無しさん ：03/06/01 11:15
データ構造？
>>307 VCLリファレンス > ルーチン一覧（カテゴリ別） > 文字列処理ルーチン
pos ansipos でヘルプを見て下さい。 それから、わざわざShortStringを何故使うのでしょ？
310 ：
デフォルトの名無しさん ：03/06/01 11:19
文字列処理ルーチンのなんてやつですか？
311 ：
デフォルトの名無しさん ：03/06/01 11:19
ShortStringじゃなくてもＯＫです。
312 ：
デフォルトの名無しさん ：03/06/01 11:21
ansiposですか？
まず、ヘルプを読め。
判らないならこうやっとけ
315 ：
デフォルトの名無しさん ：03/06/01 11:34
Moji[i]・・・こんなこと出きるんですか。
これでは遅すぎると怒られますよ。
var
>>316 ん？処理時間のオーダーも大差ないと思うけど？
MDIアプリを作るとMainMenuの右上に子ウィンドウの__□×ボタンが出ますよね。
320 ：
デフォルトの名無しさん ：03/06/01 23:48
DELPHI6のパーソナル版、タダなんで試してみたいけど、うちXPなんだよな。
ﾄﾞｺｶﾞﾂﾜﾓﾉﾀﾞﾖ
var
end;
>>320 とりあえず、インストールして、アップデートして、ML検索で「大野」氏のメールを検索。
当方、XPでDEL6PER使ってるツワモノにございます
326 ：
デフォルトの名無しさん ：03/06/02 03:55
if ParamStr(1) = '/w' then
解決しました
>>324 大野ﾀﾝのメールって... テキストサービスの話かな？
VS.NET でも同じ問題を持っていたのだけど、VS.2003 では直ったのかな？
Delphiのニュースｸﾞﾙｰﾌﾟって人が居ないばかりか評判落ちそうな投稿は消されるよな。
>>329 あんたのニュースリーダーの設定が、古い物は削除。になっているからだよ。
開設時からのすべての記録が残っているぞ
331 ：
デフォルトの名無しさん ：03/06/02 09:12
ODBC接続ばかり使ってましたが、dbExpressの方が新しいようですね。
332 ：
動画直リン ：03/06/02 09:13
「高性能なネイティブSQL RDBMSアクセス」で、
335 ：
デフォルトの名無しさん ：03/06/02 09:57
QuickrReportで縦書きテキストを印刷する方法ってないですか?
>>333 しまったしまった。これはテキストマネージャとは関係ない話だ。
吐駄ﾁｬﾝとかが、理解せずにコメントつけてるから...
これは ActiveIME とデバッグサービスの相性問題だ。
プロセス終了中に COM 初期化が起きる。
>>331 それはどの種類のデータベースを使うかによるのでは？ナニ使ってんの？
>>335 無い。こんな関数を使ってごまかして表示させた。
//疑似縦書き表示文字列に変換する（固定幅フォントを使用しないとずれる）
function VertWrite(Source: String; LineLength: Integer): String;
var
WStr:WideString; SWord:String;
I,J,Ptr,Len:Integer;
SL:TStringList;
begin
WStr :=Source;
SL := TStringList.Create;
try
for I:=0 to LineLength-1 do SL.Add('');
Len := Length(WStr);
for J:=0 to (Len div LineLength) do
for I:=0 to LineLength-1 do
begin
Ptr := (J*LineLength+(I+1));
if Ptr <= Len then
begin
SWord := WStr[Ptr];
if CharLength(SWord,1)=1 then SWord := ' '+SWord;
SL[I] := SWord + SL[I];
end
else SL[I] := ' ' + SL[I];
end;
Result := SL.Text;
finally
SL.Free;
end;
end;
>>337 Firebird。
IBQueryが良いのか、dbExpressが良いのか。
MySQLをODBCで試したけど、イマイチ。
でも、dbExpressがあることが今日分かった。
MySQLに２万件BLOB入れて、Database Explorerでデータを見るとフリーズ。
dbExpress Explorerってのはあるのかな？
自分のBCB6には付いてない。
thanx!
>>340 dbExplorerが一番よさげなのが分かりました。
ちょっと、一貫性無くてやだなー、ってのが、Database ExplorerがODBCのみで。
これじゃ、MySQLにデータ書けても何万件になったとき中身確認ﾃﾞｷﾅｲよ。
342 ：
デフォルトの名無しさん ：03/06/02 11:19
>>341 データ見るだけのアプリなら小1時間もあれば楽に作れるでしょ（多分、数分）
>>343 同じDBを参照する関連のプロジェクトが他にもあって、
テーブルも違うし、自分だけが見れても駄目だしー。
出席（・∀・）イイ !
347 ：
デフォルトの名無しさん ：03/06/02 15:00
変数Hensuは初期化されない場合があります。
>>347 DelはVBのように変数宣言しても、自動で0入れたりして初期化してはくれない（例外もある）
よってその変数を使う前に初期値を代入しる
350 ：
デフォルトの名無しさん ：03/06/02 15:19
出席（・∀・）イイ !
土曜に
>>218 あたりから質問してた者なんですが、
別のＯＳの方ではＣＰＵ画面は出なくなったようです。
しかし、別のＯＳのDelphiフォルダを現在使用の方へ持って来たら発生します。
「Application Handleが0になる」の発生条件ですが、
自作ＤＬＬの方と呼び出し元アプリの両方の
「実行時パッケージを使って構築」をチェックすると0になるようです。
どちらかチェックなら取得できます。
何故か解からんがチェック出来ないとファイルがでかくなる・・・
そんなもんなんでしょうかね？
352 ：
デフォルトの名無しさん ：03/06/02 15:32
あの～ これから del厨になろうかと 思ってるのですが
>342
ヘルプファイル
FAT に傷がぁぁぁぁぁ！
YOU IS FATMAN
>>353 ありがとうございます。助かります。
さっそく今から解析して自分のにも試してみます。
また分からないことがあったら質問させてください。
359 ：
デフォルトの名無しさん ：03/06/02 18:47
業務用に販売するソフトのDBにパラドックスを使うのは
361 ：
オイお前ら ：03/06/02 18:58
10ｍsec って何分の1秒になるのですか
1mmは1000分の1m
363 ：
デフォルトの名無しさん ：03/06/02 19:01
ミリセコンドだろ？
364 ：
デフォルトの名無しさん ：03/06/02 19:02
ミリセコンドだろ？
365 ：
オイお前ら ：03/06/02 19:02
みごとに釣られたな（ワラ
つまんね
369 ：
デフォルトの名無しさん ：03/06/02 19:09
>>360 InterBaseは持ってるのですが、パラドックスじゃダメなのかな～と思って。
あくまで試験用だと思ってた方が良いのかどうか、その辺よく知らないんです。
370 ：
デフォルトの名無しさん ：03/06/02 19:20
>>369 昔はBDEでパラドックス対応を売りにしてましたが、
現在のDelphi的にはdbExpressを推奨してるので、
Interbase > パラドックス
じゃないかな。
>>371 レスありがとうございます。
なるほど、実用に耐えないという事はないんですね。
（ああ、無知な自分が恥ずかしい・・）
ネットワーク越しじゃない普通の業務アプリならBDE-パラドックスで十分。
もう先がない枯れた BDE と、パフォーマンスと将来性が売りの dbExpress.
>>352 >超怒級初心者向け
「プログラミング初心者」か「Delphi初心者」かでも、選択肢が異なると思われ、、、
まぁ、文体からすると、プログラミング初心者なのかな。
とりあえず、プログラマ板を巡回することを推奨。
Buttonをクリックすると、Tagが3のLabelに0を表示したいんですが
if Label1.Tag = 3 then Label1.Caption :='0';
Components/ComponentCountや、Controls/ControlsCount使って、
Del厨はループも知らないのか。
>377 >378
フリーでマルチインデックス付けられるおすすめのコンポってないですかねぇ。
382 ：
デフォルトの名無しさん ：03/06/02 23:57
マルチインデックスって何？
384 ：
デフォルトの名無しさん ：03/06/03 00:34
Ord関数でISO-Litin-1コードに変換しようと思ったのですが、
385 ：
デフォルトの名無しさん ：03/06/03 01:10
http://delphi.sakura.vg/index2.html 今まで何度かプログラムに挫折してきて
最後の砦としてDelphiを始めようとして、
パーソナル版をダウンして
↑のページを読みながらやってみようとしました。
そうしたら、しょっぱなのActiveXの取り込みから失敗・・。
なにをどうしたらよいのかもさっぱり分からない・・ﾟﾟ(´□｀｡)°ﾟ｡
386 ：
動画直リン ：03/06/03 01:13
>>385 釣りでないなら、
１．「トリップ付けれ」
２．「環境書けれ」
３．「エラー内容書け」
つーか、そのレス内容じゃ「日記」なのか「助言が欲しい」のか分からんぞ。
質問文にもなってない。
>>385 まず、「自分にはできないんだ」という壁を越えなきゃね。
「できないんだ」じゃなくて、「どうやれば、できるのだろう」でないと
質問することすら、ままにならないのかも。
壁って、破らないと、厚みがわからないけど、破ってみると結構薄かったりするかも。
そもそも、まず、触れてみなければ破ることなんか、まず無理。
ところで、'Hello! World'は、できたのだろうか?
次はボタンで画像を表示するとか、テキストエディタを作るとか。
「はじめてのDelphi」のアプローチって、好きだなぁ。
かつての「トレーニングマニュアル」みたいな本が出ないかなぁ。
作りたいものも無くて、ただ単にプログラミングを始めるっていうのは続かないと思う。
実は何よりも目的が大事。
>>385 Delphi入門でいきなりActiveXという椰子もいう椰子だが…
>>353 353さんおられますでしょうか？
このコードの宣言部はどのように書けば良いのでしょうか？ただ
TreeViewNewWndProc(var Message: TMessage);
と書いただけではメッセージをとらえないようなので。
メッセージ関係はほとんどいじったことが無くて、
見当も付きません。。というか見当違いのことを言ってるかも…
よかったら教えていただけないでしょうか？
>>392 さっするにタブブラウザを作りたくて Delphi6 を使っているようだし。
ActiveX といってもインポートして使うだけ。COM を使いまわすわけじゃなし。
広い意味でのコンポーネントということでよいのでは？
>>385 さんは、何が起きたか位は公開してくれ。
または近くにいるひとに聞け。
>>390 オレもそうだった。
2年前 Delphi 6 Personal が無償公開された時、
WEB 乞食の務めとして DL し、 Install はしたが、
何もしたい事がなく、結果すぐ放置となった。
しかし1年後、機械的な処理を大量に行う必要に
迫られ、結果としてプログラミングという方法が
最善だと知り、目的の達成の為に習得に努めた。
プログラマとしての技量が上がったかどうかは
ともかく、(その後も頻発する)要求の処理に
必要なツールを作る程度には言語を習得できた、
と思っている。アマなので、今の状態でも一応満足
している。
もし必要に迫られていなかったら、いまだに論理
演算の意味さえ理解できなかっただろう。
必要はプログラマの母だね
一般論としては同意するが、このスレはお説教コーナーではないので雑談スレに移動してください。
Delphiの限界について教えてください
限界厨は氏んでください
>>399 生産性ならVC++の限界を簡単に超える事が出来ます。
しかしＣ言語中心のコンピューター社会を超えるのは無理。
Delでデバイスドライバを作る奴などいない。いたらそいつは神聖Ｄｅｌ厨。
あるコントロールのcanvasから、別のコントロールのcanvasに複写する方法教えてください。
Inifileで
>>403 では横着しないで、いったんChar型の変数にTemp[1]を代入してから試してみろと言ってみる。
それで合ってる筈だよ。
すみません勘違いでした。
ったく
408 ：
デフォルトの名無しさん ：03/06/03 23:32
NowでPCの現在時刻を取得してTXTに書き出すようにしたのですが、
>>408 FormatDateTime('yyyy/mm/dd hh:mm:ss', Now);
>>402 これで、Aの内容がBに描かれるはず。
B.Canvas.CopyRect( B.ClientRect, A.Canvas, A.ClientRect);
411 ：
デフォルトの名無しさん ：03/06/04 00:54
質問です。
↓もちろん、お前は釣られた敗北者じゃないよな。
415 ：
デフォルトの名無しさん ：03/06/04 02:41
Borland C++ Compiler 5.5 をダウンロードしたんだけど
>>401 >Delでデバイスドライバを作る奴などいない。いたらそいつは神聖Ｄｅｌ厨。
真のデバイスドライバは Win32 API をつかえない場所で動くので、Win32 アプリ用ツールでは難しい。
この難しさは Delphi に限らないので、NT2000 から Mini Driver ってのが出てきて、デバイスドライバ
本体は OS 組み込み。動作を変更したいところを指定すると Win32 アプリケーションのコードをコールバックしてくれる。
リアルタイム性とかを極端に要求しない限り、ほとんどのデバイスドライバは Win32 アプリケーションとして
実装できる。（実際にはデバイスドライバの性格上、サービスにすることが多いが）
たとえば、
http://www.xlsoft.com/jp/products/windriver/products.html こういったツールを使えば、めんどくさいインターフェースコードまで自動作成してくれて、
ほんとに必要な部分だけ書けばよい。
入門書とか、入門Webを読むと、TStringListは最後に必ず解放しろって
>>419 関数の設計として TStringList を返すより TStrings を引数として渡してそれに設定する方式の方が汎用的でしょ
どうしても関数の引数で返す場合は、名前を使わずに
with func(hoge) do try
StringListを使う処理
finally free ;end;
とやる癖を付けた方がいいですね。
>>418 関数の戻り値にオブジェクト型を使うと、コーディングが激しくめんどくさくなるだけ。
関数の戻り値は数値などの単純型に限定した方がよい。
（もちろんコンストラクタなど例外はある）
レスありがとうございます。
どうもwithを使うと敗北者の気分になる。
with文の中でCreateしてそのままFreeするというのは
424 ：
デフォルトの名無しさん ：03/06/04 16:27
指定したフォルダにあるファイル名を調べるにはどうしたら良いのですか？
>>423 VCLソースを見るとたまにそういうの見かけるよ。
>>426 なるほど
例えばTBlobFieldでも使いまくってるね
昨日、６のパーソナル版を落としてきて、SDIの簡単なエディタもどきを作ってます。
ShellExcute
しかしその手の目的なら、少し難しいがCreateProcessでやっておくと後々便利。
VC厨です。おねがいします。
>>432 １．フォームのオブジェクトインスペクタ
２．OnCreateメソッド
＞１．フォームのオブジェクトインスペクタ
>>435 できました。ありがとうございます。
biMaximizeをFALSEにしたらできました。
ヘルプも読まない厨房が紛れ込んでるな
>>437 だって、くだすれなんだもん :-)
つーか、
>>437 のほうが、このスレでは、くだらないと思います。
どうせ、名無しなら、答える気があるときだけ、答えばいいんだし。
>>432 にしたがってメインフォームに以下のように書きました。
procedure TMain.OnCreate(Sender: TObject);
var
t:TTimer;
begin
t:=TTimer.Create(Self);
if t.ShowModal = mrCancel then
Close;
t.Free;
end;
しかし、TTimerでキャンセルボタンを押して、Closeが実行されるのを
確認したんですが、メインフォームが開いてしまいます。
どうしたらいいのでしょうか？
>>440 それよくコンパイル通ったね…
TTimerにShowModalなんてメソッドは…ないよな…少なくともDel6までは
TTimer.ShowModalなんて何処から涌いてきたんだ？
>>440 program Project1;
uses
Forms,
Unit1 in 'Unit1.pas' {Form1},
Unit2 in 'Unit2.pas' {Form2};
{$R *.RES}
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.CreateForm(TForm2, Form2);
Form2.ShowModal;
Application.Run;
end.
参考になるかな？
しょぼいのでいいなら
TTimerは自分で作ったクラスでした。混乱させてすいません。
あとで直します。
>>443 ありがとうございます。こんな風にしてできました。
var
r:Integer;
begin
Application.Initialize;
Application.CreateForm(TTimer, Timer);
r:=Timer.ShowModal;
Timer.Free;
if r <> mrCancel then
begin
Application.Title := 'TTT';
Application.CreateForm(TMain, Main);
Application.Run;
end;
VFWを使ったUSBカメラを使ったアプリを作ってみたくなったんですけど
まずCで書かれたサンプルを探せ。話はそれからだ。
アイコンダブルクリックした時点でユーザーは起動すると言ってるようなもんなのに、
ウザい時は適当に「起動します」か「起動しません」とか
↑
まさに正論。
>>432 は無駄にインストーラを作りたがるタイプのプログラム初心者だと思われ。
451 ：
デフォルトの名無しさん ：03/06/05 10:30
フォーム上で、キーが押された時、KeypreviewをTrueにしておけば、
>>446 それはDirectXのDirectShowで実現できるような。
DirectXSDKにそういうやつのサンプルプログラムが付いていた。
>>451 イベントが連鎖的に起こる事を期待してコーディングしない方がよい。
予想外の動作する可能性が高くなるし、その対処も面倒くさくなるだけ。
その機能ような機能を実現したければ、
ボタンのOnClickの中で、Form1MouseDownを呼び出すようにしる。
>>453 やはりそれしかないっすか。トホホ・・・。
ボタンの数がものすごく多くて、いちいち全部に同一のコードを追加するのが
面倒だから、「Formの上でマウスダウン」というくくりでイベントが発生しないものかと
思ったのですが、残念です。
>>451 Delは同じ型のイベントならば、他のコンポのイベントと共有出来るのを知っているか？
どういうプログラムか知らないので適用できるかどうかはわからないが。
ボタン共通のOnClickを作り、最初に共通の処理をさせてから、
次にSenderオブジェクトを調べ、どのボタンが押されたか判別してボタン固有の処理をやれば良い。
>>454 ものすごくボタンの数が多い場合は、Senderで分岐するのってなんだか、
あまりかっこよくない気がする…。
もし、そのものすごく多い物が全部TButtonなら、TButtonを継承して、
Mouseイベントを受け取ったら、Formに伝えたあとに、自分のOn～を
呼び出すような、クラスを作って、それに差し替えてやるといいと思う。
ボタンの数が不定なら動的にボタンを作成するだろうけど
Delでstringの動的配列に関する質問です。
>>455 ボタンの数が50個ぐらいあって、それぞれ別の種類の処理をしているので、
今から変更したくないです。（＾＾；
ところでTButtonが何個あっても全て一つのイベントにまとめてTagで処理を
分けるのがセオリーなんですか？
そんな事考えたこともないので勉強になります。
>>456 なるほど。確かにその方法だと最初からそう作れば出来そうですね。
ただ今からやるには、ボタンの宣言を全てやり直したり、
新規にコンポーネントを作って画面の作り直しをしないと
出来ないので、難しいですが。
結局、全てのイベントに同一の関数を書き込んで解決しました。
いろいろアドバイスありがとうございました。
460 ：
デフォルトの名無しさん ：03/06/05 14:14
自宅のパオコンでPG作ってます。
>>458 for do begin
SetLength(a,length(a)+1);
end;
すいません。間違えました。
象さんコンピュータ
>>459 ＞ところでTButtonが何個あっても全て一つのイベントにまとめてTagで処理を
＞分けるのがセオリーなんですか？
イベントハンドラを共通にして、Senderでどのボタンが押されたかを判断する
やり方はぐぐれ
>>460 Memo1.Items.add('内容１');
Memo1.Items.add('内容2');
結果↓
内容１
内容2
じゃだめ？
469 ：
42歳男性より ：03/06/05 14:32
>>468 ＞改行マークを入力して改行したい
って書いてますね。
すまそ。
パオコン、カコ（・∀・）イイ
472 ：
デフォルトの名無しさん ：03/06/05 16:59
TListViewを使用してデータを表示しています。
パオコンはNASAでも使われているよね
474 ：
デフォルトの名無しさん ：03/06/05 18:53
パレットSampleのページにあるコンポーネントって使わないほうがいいの？
>>474 Personalでもソースが付いてくるコンポーネントというだけで別に問題ないはず。
でもSpinよりはUpDown使った方が良いな。
なんでUpDownの方がいいの？
477 ：
デフォルトの名無しさん ：03/06/05 19:36
実行ファイルが数十KBになるときと、数百KBになる場合があるんですがどうしてですか？
なんか余計なものをUsesに追加してたんじゃないの？
いろいろ試行錯誤しているうちに。
>>447 それがあればとっくに作れてます。
ソフトならゴロゴロ落ちてるのになぁ。
みんなどうしてるんだろうか。
>>480 入出力データの仕様や、命令の一覧とかが無いと作れないぞ。
ドライバがあるならそれの製造元を探したら？
>>479 プロジェクトのオプションで"実行時パッケージを使用して構築"にチェックが入ってるか入ってないかだと思われ。
チェックが入ってるとサイズは小さくなるが、exe単独では動かなくなる罠。
>>476 UpDownとSpinEditは一長一短だから、場合によりけり。
UpDownは、Windows標準コントロールなので、OSになじむ。
ただし、Editと組み合わせてエラー処理を自前でする必要がある。
SpinEditはDelphi専用だから、たとえばXPスタイルなんかは適用されない。
でも、エラー処理とか全部してくれるから、乗せるだけですぐ使える。
>>483 >>481 情報ありがとうございますた。
SDKをDLしないと…
7kb/secのダウンロード速度キツい。
最適化にチェック入ってたら、usesで不要なものは自動的に省かれてるんじゃないの？
PageControlで、Tabの大きさをPageControlの端に合わせるにはどうすればいいんですか？
>>487 自分で計算して合わせる。（漏れはそうした）
489 ：
デフォルトの名無しさん ：03/06/06 00:07
下記の条件で、ホストPC上のDBを操作するにあたって
>>459 もう解決しちゃったみたいだから、いいといえばいいんだけど。
ボタンの宣言は、置換で、フォームの設計は、フォームをテキストで表示して
同じく、ボタンのクラス名の部分だけ置換すれば、大丈夫だったと思う。
そうすれば、配置や設定はすべてそのままだし。
すれ違いかもしれませんがｻｯと教えて下さい。
delphiで
無いのかYO！
Tipsを求めてるのなら
ダブルクリックを禁止したいんですがどうすれば良いですか？
Label1.Caption := 'ダブルクリックをしないでください';
ActionListでスルー
>>451 あたり
>つまりボタンコントロールをクリックしたら必ずTForm1のOnMouseDownを通るように
>したいのです。
TApplication の OnMessage で対応できそうだよ。
504 ：
デフォルトの名無しさん ：03/06/06 12:18
AnimateWindow(Handle, 1000, AW_BLEND or AW_ACTIVATE);
HideしてShowする
>>490 レスありがとうございます。
私の読解力とスキル不足により、具体的にどうすればその方法が出来るのか分かりません。
すいませんが具体的なやりかたを教えて下さい。
宜しくお願いします。
>>502 TApplicationを少し調べてみました。
他にもいろいろ有効に使えそうなコンポーネントですね。
使いこなせるように頑張ります。
教えてくださってありがとうございます。
Button押したらButtonが消えちゃう！
Button.Hide
バグらないドッキングウィンドウのサンプル無いでつか？
>>505 それももちろんやってて
Hide;
AnimateWindow(Handle, 1000, AW_BLEND or AW_ACTIVATE);
Show;
とやってるのですがうまくいかないです。。
なんでだろう…
RedrawWindow(handle, nil, 0, RDW_INVALIDATE or RDW_ALLCHILDREN);
RDW_ALLCHILDREN これがキモ。
514 ：
デフォルトの名無しさん ：03/06/06 18:51
自作ＤＬＬファイルにバージョン情報が載りません。
>>514 Delphi のバージョンは？
D4 か D5 の IDE のバグ。.RC ファイルを手で書くか、自動生成されるリソースを
ちょいと変えるだけ。
>>512 >>513 オールチルドレン…なるほど。
おかげさまでうまくいきました。
俺一人では一ヶ月悩んでも解決できなかったと思います。
ありがとうございます!!!
517 ：
デフォルトの名無しさん ：03/06/06 19:48
すいません。自分のEXEのあるフォルダーを知るにはどう知ればよいのでしょうか？
ExtractFilePath(Application.ExeName)
>>518 レスありがとうございます。
実はまだ解決してなかったのでほんと助かりました。
なるほど、こうやればよかったんですねー。
でも
>>353 さんのソースのおかげでいろいろ検索かけて
CommCtrlからTreeView_SetInsertMarkとか
TreeView_SelectDropTargetなどの便利な関数とか
発見できたりいろいろ勉強になりました。
教えてもらったの早速やってみます。
ぶっちゃけExtractFilePath(ParamStr(0))の方が短い
523 ：
デフォルトの名無しさん ：03/06/07 00:01
Folder5
ぶっちゃけExtractDirPath(ParamStr(0))の方が短い
>>482 そのチェック外したら、実行速度が速くなった気がするんだけど、気のせい？
でも、ぶっちゃけ
Application.ExeNameを全部ParamStr(0)に置き換えたら実行形式ファイルのサイズ減ったよ
>>526 Pascalらしさを選ぶならParamStrの方が正しいのだが
>>515 ありがにょん。
リソースで気づいたのですがサンプル見ながら作ったので
{$R *.RES}を削ってました。
530 ：
デフォルトの名無しさん ：03/06/07 10:02
BDE Administrator
>>529 >{$R *.RES}を削ってました。
そりゃしょうがない。
解決したならよかった。
>「データベース」タブの＋
>>532 そうです。ツリービューの＋です。
右クリック→閉じる で解決しました。
ありがとうございます。
データベースが開かれているという意味だったんですね。
（再起動といったのは、BDE Adminの事です。混乱させてすいませんでした）
534 ：
デフォルトの名無しさん ：03/06/07 11:07
任意のファイルを削除するには、どうすれば良いのですか？
Del7を購入するべきでしょうか。
537 ：
デフォルトの名無しさん ：03/06/07 11:12
>>534 DeleteFile('D:\DeleteFile.txt');
これで D:\DeleteFile.txt が削除できます。
>>535 もしも、Del6が、Personal、ならば、Del7Proを、買うと、とても、良い、だろう。
540 ：
31歳男性 ：03/06/07 12:19
Delphi7のRaveって何？
Del7を買った次の日にDel8が発売されます
僕はそろそろDelphiに飽きてきたかな。
マネージ度は、デルファイ方がうまいと思いました。
>>540 そんなレベルでよくDelphi使えるな…。
>>542 実行ファイルを0と1を直接入力で作れないうちは、まだまだひよっこ
>>545 漏れも知らんが、一応メインプログラマーだよ。
5000万円程度のプロジェクトだけどね。
一応マジレス。QuickReportの後継らしい。広告見れ→Rave
知ったかぶりﾊｹｰﾝ
>>548 後継、というわけではないんだが、レポートツール。
漏れはＬｉｇｈｔＲｅｐｏｒｔ使ってるからいらんぽ。
552 ：
デフォルトの名無しさん ：03/06/07 18:52
ClientSocketで2つ以上のサーバーに繋ぐことって不可なんですか？
553 ：
デフォルトの名無しさん ：03/06/07 19:12
HICON型で宣言すると「定数または型が必要です」のエラーが
TFormを継承したクラスが三つあります。
手続きというのは、そもそもCreate時に動的に追加されるものではありません。
メンバ変数とかコンポーネントも大丈夫ですか？
阿呆なこと言わないでください。
>>553 おそらくuses節にwindowsが宣言されていないだけと思われる。
>>557 クラス内部で生成したメモリ領域はそのクラス自体が解放する責任を持ちます。
よって外部から直接Createした領域がない限り、デストラクタが呼び出されると解放されると思っていいです。
コンポーネント側がちゃんとコーディングしてなかったら意味ないけどね（・∀・）
TShellTreeViewで、指定した拡張子だけ表示するようにできますか？
質問です。
すみません、エラーメッセージが出たとき
実行したらランタイムエラー105が出ました。
>>563 Delphiでは、ユニットファイルは、usesでソースに記述されるので
アルファベットと数字ぐらいしか使わないのが無難。
正確に、どこまでつかえるのかは、ヘルプで調べてみて。
このスレ良スレだね～
568 ：
デフォルトの名無しさん ：03/06/08 01:46
>>562 procedure TForm1.ShellTreeView1AddFolder(Sender: TObject;
AFolder: TShellFolder; var CanAdd: Boolean);
begin
CanAdd := CompareText(ExtractFileExt(AFolder.PathName), '.lnk') <> 0;
end;
あ、これは指定した拡張子だけ表示しない方法だ。
やだよ
571 ：
デフォルトの名無しさん ：03/06/08 05:05
フリーウェアしか作らないんですけど、プロ版を買う価値ありますか？
＿＿＿＿＿＿＿＿＿
>>571 １．「ある」
２．「無い」
好きな方を選らんでﾁｮ。
∧,,∧ ／ しまった…
.VBS使え
>>572 そういう時こそ、DialogBox系を使うのがよいでしょ
subitemも編集可能なListViewｺﾝﾎﾟって無いでしょうか
580 ：
デフォルトの名無しさん ：03/06/08 10:35
>>571 もちろん「ある」ぞ。VCLソースが付いてるか否かで雲泥の差。
DelphiはProfessionalが基本で、Personalは機能限定版と考えた方がよい。
>>582 それ、API じゃないじゃん。
ダイアログボックスに Edit コントロールをはっつけているだけじゃないか。
>>575 Delﾌｻｷﾞｺ は「超初心者」の枠には入らないと思うんだが。
どのスレで質問してもつきあってあげるからさ。
>>571 >580のいうことはあまりあてにならないよ。
ビデオデッキでビデオを再生するには
ビデオデッキの内部構造を
完璧に把握しておかなければならない
とか逝ってる基地外の原理主義者だから。
で、Proが必要になるのは自分でいくつものプロジェクトを作って
その中でたくさんコンポーネントやクラスを設計して
それらをプロジェクト間で使いまわすくらいのことを
やりだすとProのありがたみがわかってくるよ。
あとはDBやコンポーネントやソースの編集機能の違いがあるから
オフィシャルサイトで差を確認してみるといいよ。
コンポーネントのプロバティのTagってどういう使い道があるんでしょ？
>>586 意味が無いから何でも使えるのだす。
６４ビットが普通になれば盲腸になるかもしれないな。
ふむ・・・変数みたいな使い方すればいいのかな？
代入できるものであれば何でもあり。
Button1.Tag := GetTickCount; // 時間を覚えておく
TWinControl(Button1.Tag).Visible := False; // ボタンに関連付けられたコンポーネントを隠す
>>587 オブジェクトの関連付けは結構便利。
多用すると汚くてわかりづらくなっちゃうけど。
もひとつ質問です。
ピ→ポ
ピーポくん
>>590 そう。
カーソルというかそのイベントを発生させる原因となったコンポーネントだね。
ｐｒｏはクラス補完とコードエクスプローラだけでも充分使える
>>593 なるほど。
ちょっとラベルで試してみました。便利。
うまく使えばソースの簡略化に繋がるかも。
Tagを使いまくってるソースは・・・
XXXを使いまくってるソースは・・・
あれ？これのTagって何に使ってたっけ？とか、
∧∧
∧,,∧ さんくーす。
Pagecontrolのタブって消せますか？
各ページのTabVisibleをFalseにして、PageControlのActivePageIndexで
>>604 （・∀・）ﾃﾞｷﾀｰ!!
Tabvisibleの存在を見落としてました。即レス感謝です！
606 ：
デフォルトの名無しさん ：03/06/08 22:01
>>585 おまえ、何言ってんだ？何が原理主義者だ。ばっかだねぇ。
ありがたみが分かる、って何だ？初心者だから身分相応のパッケージ買えってことか？
初心者だからこそVCLソースが必要なんだよ。はじめから当然のようにソースが見られるって素晴らしいだろ？
必要・不要じゃない。そういうことが当然に可能になっている、ってことが重要なわけ。それが「本物」なんだよ。
か～やっぱり出てきたかw基地外原理主義者君www
608 ：
デフォルトの名無しさん ：03/06/08 22:47
マジレス。まずはPersonalやれ。それで物足りなければProを買う。
PersonalにはVCLソースなぞついていないんだから
611 ：
デフォルトの名無しさん ：03/06/08 23:12
Personal買えって言ってる奴は安い楽器から始めろってのと同じだ。
Delphiはタダなのが魅力だと思っていたのに･･･。
>>611 確かにそうといえる。
ＶＣＬソース読まないとまともなデバッグができない。
こんなクソソース作るなといいつつ、次のバージョンアップに
おびえる今日この頃.
Iniファイルに書き出す時に
TStringList.CommaTextに変換するとか
616 ：
デフォルトの名無しさん ：03/06/08 23:31
>>614 使用禁止できる文字があるならば（たとえばタブ文字禁止とか）、
改行コードをその文字に置換して書き出し、読むときに置換し直せば大丈夫。
こんな感じ
Ini.WriteString('Section', 'Ident', StringReplace(S, #13#10, #9, [rfReplaceAll]));
S := StringReplace(Ini.ReadString('Section', 'Ident', ''), #9, #13#10, [rfReplaceAll]);
>>615-616 素早いレスありがとうございます。
StringReplaceは知りませんでした。
便利ですねこれ。
無事できました。
ありがとうございました。
エスケープシーケンスと制御文字のエスケープって別物じゃないか？
jpeg2000を扱えるdllとか、ありますかね？
パレットの扱いが容易とのことでTNkDIBを使い始めましたが躓いてます。
＞躓いてます。
Delphi を使い始めました。
>>623 描く頻度が少ないならそれでいいでしょう。
処理が落ちそうと心配なら
with TNkDIBCanvas.Create(image2.picture.graphic as tnkdib) do try
TextOut(20, 50, '●');
finally Free; end;
と一時オブジェクトをｔｒｙで受けて finally でfreeするコーディングにすれば大丈夫でしょう。
無名なので、どこかに忘れたりする心配がありませんから
もし、もっと格好良く書きたいなら、 TImageのCanvasをTNkDIBCanvasに置き換えたコンポーネントを作ればどうかと思います
>>626 さて、ビジュアルな設計という事は
１、そのTCustomPanel継承コンポの設計上で行いたい
-->それは無理です。TFrameを使う方がいいでしょう。
２、継承コンポを普通のPanelと同じように使いたい。
-->可能です。RegisterComponentでIDEに登録すればよい
630 ：
デフォルトの名無しさん ：03/06/09 11:32
ひとつ質問させてください。
すいません。全然違うことを書いていました。
632 ：
デフォルトの名無しさん ：03/06/09 11:48
633 ：
デフォルトの名無しさん ：03/06/09 11:52
>>630 試しに "Image1. "を消してみたらどう？ つまり Canvas.Drawとフォームに描いてみる
636 ：
デフォルトの名無しさん ：03/06/09 11:53
>>634 ありがとうございます。Image1を消してみたらできました。
理由が分からないところがひっかかりますが、なんとか見られる姿になりました。
>>627 あれこれ試してみたところ、大きなサイズの画像にガンガン
Canvasのcreateをしても特に処理落ちがなかったので
とりあえずcreate-freeのセットをおまじないのようにくっつけて使うことにしてみます。
コンポーネントをいじるなんてまだまだｻﾊﾟｰﾘです…レスありがとうございました。
激しく初歩的だろう質問で申し訳ないのですが。
641 ：
デフォルトの名無しさん ：03/06/09 14:27
>>640 published
ま、publicだと思っていても問題ないけど
>>641 ありがとうございます。
とすると、外からアクセスできてしまいますが、今、単純に Edit1 を protected/private に
移動してみたら、例外が出てしまいました。
こういった制限はどうやってかけたら良いのでしょう？
>>642 フォームデザイナから配置したコントロールは
publishedでなければならないので途中で移動しちゃだめ。
どうしてもprivate/protectedにしたければ自分でEdit1を宣言して
FormCreateかどこかでインスタンスを生成する必要がある。
Edit1 := TEdit.Create(Self);
Edit.Parent := Self;
...
そう、フォームファイルをテキストで見てみれば判ると思うけど
あの情報から、Edit1を作り直す為には、 Edit1という名前から
フォームのメンバが見つけられなければいけない。
publishedでなければ、それは無理。
一方 C# とかでは デザイナは直接コードを書き換えてしまう。
つまり
>>643 のような手作業するのと同じ事をやってくれる。
ScrollBarをくっつけたらｻﾑがチカチカ(フォーカス時)してるんですけど
>645
Dynamoの曲リストのようなものを作りたいんですが、
>>644 >一方 C# とかでは
ひとこと多いね。IDE と言語処理系を混ぜないでね。
処理系がコードを書き換えるのは .DFM / フォームファイルが存在しないからであることを
書いておかないとフェアではないし、JBuilder / Java も C#/VS と同じ方法だね。
フェアって・・・
>>646 ﾅﾙﾎﾄﾞ！！ これは盲点でした。ありがとです
ねむくなるスレだ
プログラミング自体が殆どはじめてなんですが、
とりあえず・・・googleであらかたのことは検索できる・・・と思う
本には本のよさもあるわけで（寝床で横になりながら読めるとか）
>>653 ＆
>>654 webでの勉強は少し慣れてからにしたいと思っいるので、
明日にでも本屋で「基礎からのDelphi6」を見てみたいと
思います。
即レス、ありがとうございます。
オレ的には「基礎的なこと」は全てネットから。
>>655 書名書き間違えたみたい
「基礎からわかるDelphi6」
ね
はじめてのObject Pascalも中々いいですよ。
はじめてのVBを世mr
Object Pascal 言語ガイド
API関係の本を探してます。
>>661 問題は別に無いと思うけど、本である以上出版以降に追加されたAPIはやっぱり載って無いと思うので
C言語を関数宣言だけでも読めるようにしてMSのPlatform SDKを直にあたった方がいいんじゃない？
Delphi7製品版Personalのヘルプのテキスト検索機能が使えないのは仕様ですか？
667 ：
デフォルトの名無しさん ：03/06/10 12:14
OnCreateでCloseしても、アプリケーションが終了しないのですがどうすればいいのでしょうか
OnCreateでフラグ立てて後でチェックしてCloseするか
Application.Terminate 呼ぶ
もし、起動時のパラメータや多重起動防止で即座にアプリを終了させたいのなら
>>665 いえ、XP Homeです。
具体的に症状を書きます。
ヘルプを表示して、テキスト検索のタブに切り替えると
"検索のセットアップウィザード"ってのが出るんですが、
そのウィザード終了時の完了ボタンを押すとエラーが起きてしまいます。
エラーが起きる前まではトライアル版と全く一緒です。
普通はPersonal版でもトライアルのようにテキスト検索も使えるのでしょうか？
普通は使える。
XPだと不具合があるという話は何度か見かけたけど
>>673-674 なるほど、普通は使えるのですか。
では取り敢えず再インストールなり色々と試してみます。
レスありがとうございました。
676 ：
デフォルトの名無しさん ：03/06/10 15:43
Delphiのような時代遅れでマイナーな言語使うのやめてC#でも勉強したほうが
678 ：
デフォルトの名無しさん ：03/06/10 15:49
C#勉強すればJav勉強する必要ないし、
普通はPascal、C, C++, BASIC, Javaくらい使える。
680 ：
デフォルトの名無しさん ：03/06/10 15:53
>>679 それはすごいね。
ここはCも分からないような初心者が集まるスレだからね。
これから言語始める人には余計な苦労するよりも
もっと有意義に時間を使ったほうがいいと思ってマジレスしたまでさ。
実際のところ文献は色々な言語で書かれてるわけで
そうだね。cygwin入れれば FORTRANまではフリーだ。
人生相談スレ？
Pascal系列を覚えておくとALGOLなんかも読めてよし。
はたして ALGOL を読む機会があるだろうか……
世にネットでの釣りを趣味とする者がいると聞くが
687 ：
デフォルトの名無しさん ：03/06/10 17:16
Delphi 2.0J DesktopにはWinSightは入ってないのでしょうか？
Modulaもいいねえ。
>>688 素早い回答ありがとうございます。
無料の6 Personalも落としてみたんですが、入ってませんでした。
ProfessionalかEnterprise版を買わないと
WinSightは入手できないんでしょうか？
SPY++を使え
692 ：
デフォルトの名無しさん ：03/06/10 18:30
ダイアログ周りで質問です
>>690 PlatformSDKのSPY使え('A`)
>>693 690じゃないけど
上の方のレスにも出てたけどPlatformSDKってどれを入れればいいのですか？
ググってＭＳのPlatformSDKのＨＰに行ったんだけどCORE SDKって奴ですか？
それと日本語版って無いんでしょうか？
>>692 そんな昔のDOSツールじゃないんだから モーダルダイアログからモーダルダイアログ呼ぶ設計はちょっとなあ
(´-`).oO(メッセージぐらいだすだろ･･･
692の再現できないのは漏れだけだろうか
>>698 あーすいません環境書いてなかった
WinXP+Delphi6Personalです
Form2は BorderStyle:=bsDialog; FormStyle:=fsStayOnTop; くらいしかいじってなくて
Input:TEditとOKボタン（ModalResult:=mrOK;）があって
Input.Textが正の数を表す文字列じゃなかったら
MessageDlg('正の数じゃないとダメよ', mtWarning, [mbOK], 0); してます
以下該当部分のソース（全角インデントなのでｺﾋﾟﾍﾟじゃ動きません）
procedure TForm2.btnOKClick(Sender: TObject);
var
InputBuf: integer;
begin
//Check Input
if Input.Modified then
begin
InputBuf := StrToIntDef(Input.Text, -1);
if (InputBuf < 0) then
begin
MessageDlg('有効な値ではありません', mtWarning, [mbOK], 0);
Input.SetFocus();
exit;
end;
end;
{ 事後処理略 }
Form2.Hide();
end;
WEBでよくみかける「マウスが乗るとイメージが切り替わる」ボタン、
ググったら、ちょうど↓で出てるようなことをしたいんですけど
ttp://www.users.gr.jp/ml/archive/delphi/61178.asp ここでの回答にあったTSpeedButtonを使ってみましたが
ロールオーバー時の切り替えが解りません(フチが浮き上がるだけ)。
押下時のイメージ切り替えは出来たのですが、
マウスが乗ってる時のイメージ切り替えはどのようにすればよいのでしょうか。
バージョンは6 Personalです。
自分でマウスポインタの
>>699 MessageDlgの直後に、ModalResult := mrNone; を置く。
703 ：
デフォルトの名無しさん ：03/06/10 20:35
>>700 そのボタンはツールバーを作るのに使ってるのですか？それだとTToolBarで可能ですよ。
ImagesとHotImagesを指定してFlatをTrueにするだけです。
>>702 解決しました ありがとう
そういう仕組みだったんですね・・・
指定したプログラムの再起動をするにはどうしたらいいのでしょうか?
>>701 うーん、やっぱりそうでしたか。基本機能で可能ならそれで済ませたかったのですが。
>>703 独立したボタンでやりたいので…
でも、ToolBarのボタンでそうした処理ができるとは勉強になりました。
結局、LMD ToolsをインストールしてTLMDMMButtonを使ったところ
思っていたものと同様の動作が可能でした。おとなしくこれ使うことにします。
レスありがとうございました。
procedure TApplication.CreateForm(InstanceClass: TComponentClass; var Reference);
709 ：
デフォルトの名無しさん ：03/06/10 23:57
>>707 気にするな。いつか分かるときが来る。それまではDelphiに任せておけ。
>>685 学術書なんかでは結構ALGOL見かけるよ
>>707 InstanceClassで指定した型のインスタンスを生成して引数Referenceに参照渡し
711 ：
デフォルトの名無しさん ：03/06/11 00:00
00:00age
var a as array of integar
asよりisの方がいいな。
>>713 すまん、あなたがコンパイル段階で指摘してくれた。
ＣとかＣ＋＋では無理だな。
A:Pointer;
715
717 ：
デフォルトの名無しさん ：03/06/11 01:18
プレフィックスとかプリフィクスとか呼ばれるもの無いのか？
123.45F
あ、これは差フィックスだ
律儀に、
基地害がいるの？
723 ：
デフォルトの名無しさん ：03/06/11 12:50
アカデミックって、通常のバージョンとの違いはあるんでしょうか？
値段が違う
商用開発が出来ない。
>>459 内部処理はデータモジュールなどの他のユニットで行うようにすれば
フォームの作り直しが楽になります．
>>585 私も無理してプロ版を買うことはないと思います．
自分でコンポーネントを作ったりとかある程度高度なことを始めると
VCLのソースコードがほしくなりますし実際役に立っています．
プログラミング技術者でDelphiは初めてという場合は
中の仕組みを見たくなるかも知れませんが
それなら『中村の里』に行って来た方が良さそうな気がします．
どなたかフォントにスムージング（アンチエイリアス？）を掛ける方法をご存知ないでしょうか・・
メモリ上のビットマップ(TBitmap.Create)に2倍のサイズで作成して
Delphiのアカデミって作ったのはフリーソフトといえども配布できないっていう制限がなかったっけ。
733 ：
デフォルトの名無しさん ：03/06/11 20:01
kylixっておまけソフトとなんですか？
>>731 >>734 さんくす
で、GetGlyphOutlineを調べてたらこんなの見つけた↓
SystemParametersInfo( SPI_SETFONTSMOOTHING, 1, Nil, 0 );
これでもスムージングできたんだけど、これだとなんか問題あるのかな？
・・・と思ったらTextOutでTBitmapにスムージング描画できんかった・・
OnKeyDown で
738 ：
はじめたばっか ：03/06/12 00:39
>>732 シェアがだめなんじゃなかったけ？
プログラミングって、本に書いてある通りのことをやっていけば、自然にアプリケーションとかを作れるようになるのかな？
どのコマンドをどのように使えばいいのかが、まだ良く分かんないんだけど。
SPI_SETFONTSMOOTHINGはフォントサイズが小さいと
スムージングが上手く行われないらしい・・
>>737 if (Shift=[ssCtrl]) and (Key=67) then
Showmessage('押した') ;
740 ：
デフォルトの名無しさん ：03/06/12 00:46
>>737 集合演算子
↓
if (Key = Ord('F')) and ssCtrl in Shift then ShowMessage('押した');
Key=70だな
ありがと
743 ：
デフォルトの名無しさん ：03/06/12 00:48
あちゃ、カッコ忘れた
if (Key = Ord('F')) and (ssCtrl in Shift) then ShowMessage('押した');
>>739 は可読性が低いという意味で悪い例
このスレは親切すぎるぜーーーー！
>>729 ,732,738
ありがとうございます。単純に安いだけじゃなく
色々制約があったんですね。
746 ：
デフォルトの名無しさん ：03/06/12 02:12
TComboBoxとTComboBoxExは、
747 ：
デフォルトの名無しさん ：03/06/12 09:50
dbExpressのパラメタクエリーサンプルありませんか？
748 ：
デフォルトの名無しさん ：03/06/12 10:42
どうしてDelphiやBCBの入門書籍は発行されないのですか？
>>748 DelphiはともかくBCBは入門書いらんと思う。
DelとC++の入門書があれば事足りるわけだし。
需要が無い（と出版社が思っている）からです
>>748 VBやVCの場合は、これで作れ! と本人の意思に関係なく強制される事が多いわけです。
そうなると、入門書見てそれに書いてある通りに操作してでも、なんとか動かしたいという
要求が強くなり、需要が生まれます。
道具を自分で選ぶ事が出来る人は、入門書が無くとも専門書からどう学んでいけば
良いか当然判っていますから、入門書の需要は少ない事になります。
需要が無ければこの出版不況の時代では供給は生まれません。
良書でも、値段が廉く利幅が少ないと、十分な数が売れなくなれば再販ルートに乗せ
られず、どんどん廃刊になるのが現実なのです。
Delphi/BCBを使いこなす為には、先に、専門書とどう付き合うかの訓練が必要かもしれませんね。
１行で書けることを何で長文にしたがるのですか？
>>752 お前にも分かるように丁寧に書いてくれてんだと思うよ
DelphiXってDelphi6じゃ絶対に使えないんでしょうか？
>>755 それ使ってみたんだけど、インストールしてサンプルを実行しても、
#00021 | Direct3DDeviceオブジェクトの生成を行います
#00022 | Direct3DDeviceオブジェクトの生成に失敗しました(Error Code = D3DERR_NOTAVAILABLE)
#00023 |
#00024 | ■■■お別れの時がやってまいりました■■■
#00025 | DGCaradオブジェクトの解放に伴い、全ての関連オブジェクトを解放します
とか出て動いてくれないのです。。。
漏れのヘボPCでは動かないんじゃなかろうか。。
>ヘボPC
（；´д｀）Delphi5ってどこに行けば買えるの？
ちょっと探してみたけど無いね・・・
762 ：
デフォルトの名無しさん ：03/06/13 03:39
情報試験受けるのですが
全画面表示について質問なのですが
BorlandのDelphiのTipsのページにその対策について書いてあった気がする
>>763 Win9x のタスクバーのバグ。BorderStyle の方が問題だったんじゃないかな？
アプリ起動時と終了時で Windows Style が変更されていると、アプリケーションを
識別できなくなるため、ボタンが残る。
>>763 元のウィンドウ表示に戻してからプログラムを終了させる。
これに何か問題あるのか？
>>754 一部ソースを書き換えることで一応使える。
そのやり方も、DelphiXのBBSに書いてあった……のだが、BBSが落ちてて見れないっぽい。
どこかに残ってないのかな…？
768 ：
デフォルトの名無しさん ：03/06/13 08:22
delとBCBのどちらかで神と呼ばれるレベルまで到達したいのですが、
神は言語を選ばず
>>768 どちらもやることをお勧めする。
BCBはPascalが読めないとライブラリ理解できないし、
DelphiもC/C++が読めないと各種SDKを利用する時に困る。
どちらのプロ版も他方の旧バージョンが含まれていたはず。
（中村拓男氏もどちらもやってるけど、どちらかと言うと
Delphiに重きを置いてるようだ。）
Delphiのスレで尋ねているので、
>>764-765 言われたように、BorlandのDelphiのFAQに載っていました
どうもありがとうございます。
解決方法は以下のとおりです。
この動作についてプログラム中で回避する場合には，フォームのOnDestroyメソッドにて以下のコードを実行してください。
タスクバーにウィンドウが残らないようになります。
ShowWindow(Application.Handle, SW_SHOW);
773 ：
デフォルトの名無しさん ：03/06/13 13:56
procedure TForm1.Button1Click(Sender: TObject);
774 ：
デフォルトの名無しさん ：03/06/13 14:05
775 ：
デフォルトの名無しさん ：03/06/13 14:16
ちょっと質問ですが、
>>773 Delphiは構造化言語でもあります。
そのメソッド内で定義した変数は、メソッドという構造の中でしか有効でありません。
別のメソッドの引数にする事や、内部で定義した手続きからはそのxを見る事が出来ます。
変数類を外部との通信に使う方法としては
１、一番外側の構造で定義する
外側には、
・クラス内変数
・UNIT内グローバル変数
・公開されたグローバル変数
などがあります。
２、const で定義してて 無理やり寿命の長い変数として使う
３、ヒープからメモリを確保する
などがあります。
>>775 with TStringList.Create do try
LoadFromFile('C:\Test.txt');
for i:=0 to Count-1 do begin
DownLoadFrom( Strings[i] );
end;
finally free;end;
778 ：
デフォルトの名無しさん ：03/06/13 14:32
DownloadFromどうすんだよ（笑
780 ：
デフォルトの名無しさん ：03/06/13 15:03
「ヒープ」と「スタック」について教えてください。
781 ：
デフォルトの名無しさん ：03/06/13 18:19
DBにParadoxを使う時の事について質問です。
>>780 「ヒープ」はWindowsが扱えるメモリ領域全般。
物理、仮想両方。構造体とかクラスとか大きなメモリを使うときはこっち。
「スタック」はプログラムが起動したときに
メモリに読み込まれたプログラム周辺に確保されるメモリ領域。
大きさが制限されているけどヒープよりちょっと早い。
ただし、足りなくなるとプログラムの動作がおかしくなる。
かなり古い本だがBorland PressのC++Builder入門Vol.1、Vol.2が
そういう流されがちなことをいちいち書いているのでお勧め。
Delphiでも参考になる部分は多い。
MicrosoftPressの絶版になっちまった本がすごい丁寧なんだけど、
今じゃ入手できないからなぁ
>MicrosoftPressの絶版になっちまった本がすごい丁寧なんだけど、
情けなくて悲しくなるのですが、
>>773 とりあえず
implementation
var
x: Integer;//
>>776 UNIT内グローバル変数
{$R *.dfm}
787 ：
デフォルトの名無しさん ：03/06/13 20:16
今日、ヨドバシカメラにDelphiを買いに出かけたら、どこを探してもありませんでした。
788 ：
デフォルトの名無しさん ：03/06/13 20:18
ネットで手にいれんだよ。
Ｄｅｌｦﾀに優しいソフマップｷﾀ━━━━(ﾟ∀ﾟ)━━━━!!
蛇足だが「垣間見た」を使う香具師って基地外おおくね?
ヨドバシカメラでおねがいします。
794 ：
デフォルトの名無しさん ：03/06/13 22:57
ヨドバシカメラ大阪梅田店地下１階ＰＣソフト売り場へどうぞ。
エディターを作っています。
1.TFileStreamにファイル内容を読み出す
限界厨、まだ生きてたか
799 ：
デフォルトの名無しさん ：03/06/14 00:55
縦読みのプログラムコード教えてください。
{
801 ：
デフォルトの名無しさん ：03/06/14 04:55
TEditに数字だけを入力させるようにするにはどうすればいいのでしょうか？
Tmaskeditでも使うﾖﾛし
ファイルの中身をメモリに読み込んでおいて、
805 ：
デフォルトの名無しさん ：03/06/14 07:30
>>803 １、TBitmapを作ってBitmap上で描画しておいてから Draw
２、CLXにする
>>806 激しくﾚｽに感謝
1でやってみます(`・ω・´)
2はまだD5を使ってる不良ﾕｰｻﾞなので使えないのです(´･ω･`)
Delに限らず開発ﾂｰﾙって高いよ…
↓無償をアピールする.NET信者
Delphi.NETは有償です。
>>806 クリックスにするだけで速くなるんですか？
811 ：
デフォルトの名無しさん ：03/06/14 12:31
ステータスバーにプログレスバーを乗っけたんだが
812 ：
デフォルトの名無しさん ：03/06/14 12:40
プログラムを起動したときにはメモリ使用量が５８００Kだったのに操作しているうちにどんどん増えて１００００Kを超えてしまいました。
>>811 2番目のパネルの位置を算出して、その位置に移動させる。
>>812 Windowsプログラムってそういうもんです。
815 ：
デフォルトの名無しさん ：03/06/14 14:57
クラスの中で
>>817 見たまんまだとvar i: integer;してないけどどうなの？
そこは問題ないです。
アイデア１．
すみません。おっしゃるとうり
「グローバル変数じゃダメアルヨ」ってヤツかな？
一つ賢くなった､多分。
824 ：
デフォルトの名無しさん ：03/06/15 01:12
Del6Personalで質問です
825 ：
デフォルトの名無しさん ：03/06/15 01:12
constructor
で、MemoryStreamの使い方が間違ってるのか
>>754 使えます。思い切りFAQです。半年に同じ1度質問が来ます。
海外サイトを検索してください。
>>758 グラフィックボードがへぼいからかと。
ボード名を書かないことから、大体わかる。
a
LUIDという型をDELPHIで使うには
IDEでコンパイルして生成されたアプリを終了すると必ず
>>830 WMPコンポーネントを追加してるとそーなることが
>>831 まだﾊﾟｿﾅﾙと修正ﾌｧｲﾙしか入れてない状態なので
そりはありませんです、情報どもデス。
２度目のDELPHI再インストをしたらバグが出なくなりました。
834 ：
デフォルトの名無しさん ：03/06/15 20:35
TMediaPlayer1.Positionの返ってくる数字を
>>834 procedure TransrateTMediaPlayer1PositionReturnValueToxx:xx:xx()
836 ：
デフォルトの名無しさん ：03/06/15 20:53
ＰＲＩＮＴ文のあとにつける
そりゃBASICだろ
>>837 まったくの初心者なんで迷惑をおかけしました(´･ω･`)
助かりました
839 ：
デフォルトの名無しさん ：03/06/15 21:21
TApplicationEventsコンポのOnMinimizeイベントを使って最小化したときタスクバーから消す
840 ：
デフォルトの名無しさん ：03/06/15 21:35
>>839 そんなのどういうインターフェースにしたいかでいくらでもあるだろ。
タスクトレイへ収納するのか、バックグラウンドで動かすのか、その他…
>>839 まさかとは思うがApplication.Restoreをしていないなんて事はないよな？
>>824 がまだ解決してませんが
別の質問です・・・
TServerSocketは何故かOnError（OnErrorEvent？）が隠されてるので
仕方なくTry...ExceptでESocketErrorをキャッチしてるんですが
そのとき飛んできた例外がMessage: Stringと
HelpContext: Integer（いつもゼロ）しか持って無いみたいで
これまた仕方なくif E.Message = <エラーメッセージ全文> then
で条件分岐するトンチキな実装になってしまいます
これを例えばエラーコードを順序型で得る方法とか
何か良い方法は無いですか？
PersonalなのでTServerSocketの実装みてオーバーライドするわけにもいかず
もうお手上げです
#Enterprise版のHelpを手に入れて手探りでオーバーライドしてみたけど
#Error関数もOnErrorプロパティもError周りの関数がことごとく呼ばれなかった・・・
843 ：
デフォルトの名無しさん ：03/06/16 11:38
列挙型の値を配列の添え字に使えないんですか？
844 ：
デフォルトの名無しさん ：03/06/16 11:45
>>843 キャストすりゃ使えるけど？
不安なら定数宣言しときゃいいだけで
type enum = (first = 1, second = 2);
にしといて、
var buf: Array[enum] of Integer;
でサイズ指定したりとか
buf[Integer(first)] := 123;
buf[Integer(second)] := 456
とかできる
こういう場合キャストじゃなくてOrd関数使う方が文法的には正しいか
>>845 いや
var buf: Array[enum] of Integer;
と定義したんなら
buf[first] とアクセスするのが一番正しい。
結論：
>>850 やべぇ俺が持ってるのDelphiじゃないのかも（笑
テスト方法間違えたかな
>>824 DELのことはあんまりわからないでうｓが
825のReadBufferはWriteBufferの間違いでは？
>>842 ServerSocketからrecvしようとしてエラーになるのかな？
853 ：
デフォルトの名無しさん ：03/06/16 14:20
今日からDelphiで開発を命じられました。
>>852 確かに逆ですね・・・なんでメモリの内容は正しかったんだろう・・・
>>824 はもうSendBufで自己管理するやり方にまるまる書き直しちゃったので
忘れてください
>>842 に関しては、エラーが起きてしまうというトラブルじゃなくて、
例えばServerSocket.Open()でWSAEADDRINUSEが返って来た場合など
そのエラーをキャッチする為のイベントがTServerSocketに無いので
仕方なくtry...exceptで受ける様にしてあるのを
もっとスマートにできませんか？という質問です
856 ：
デフォルトの名無しさん ：03/06/16 19:40
質問します。
>>840 すいません書き足りませんでした。
キャンプションバーの最小化ボタンを押した時にタスクトレイに収納したいんです。
今はOnMinimizeにHide、タスクトレイのアイコンを左クリックしたらShowとしています。
しかしこう書くと二度目以降キャンプションバーの最小化ボタンが押せないんです。
この動作を二回目以降も問題なく動かすにはどうすればいいでしょうか？
>>841 niftyのサンプルで見た気がしますが、それはやっていません。
>>830 の不具合の原因が解ったので書いておきます。
「AVG」というフリーのアンチウイルスソフトが原因でした。
これが起動している状態でコンパイルし、生成されたアプリを
終了するとOSの不具合が発生し、Explorerがダウンします。
つい最近まではAVGを起動した状態でも問題無かったのですが、
AVGのバージョンアップによりこういう現象が現れたようです。
すべての環境でAVGがDELPHIを妨害するのかどうかは解りませんが
AVGをお使いの方はお気をつけ下さい。(^^;
>>857 TApplicationのソース見たわけじゃないからハッキリとした事は言えないけどね。
Showした後、タスクバーに表示された自分のプログラムを右クリックしてみなよ。
「元のサイズに戻す」ってなっている筈。
ApplicationとFormはそれぞれ別のウィンドウで成り立っていて、
Formは普通に使うウィンドウなんだけれども、ApplicationはWidth, Height共に0の見えないウィンドウになっている。
また、タスクバーに表示されるウィンドウはApplicationのもので、Formのものではない事に注意。
んで、Form側の最小化ボタンを押した場合、Applicationが最小化し、Applicationが管理している全てのウィンドウの表示を消す。
同時に、Applicationも最小化し、ユーザーがタスクバーをクリックして、元のサイズに戻してくれるのを待っている。
そして、Applicationが元のサイズに戻ると、管理しているFormに通知し、再表示する処理を行ってるわけだ。
つまり839の場合、Formの最小化ボタンを押してApplicationを最小化したのはいいが、
タスクアイコンのクリックで直接Formを表示してしまったために、Applicationが最小化になったままで、
Formの最小化ボタンを押しても通知先のApplicationが「まだ最小化中」と勘違いしてスルーしているのであった。
多分。想像だから。
つまり841の言うとおりApplication.Restoreを実行してアプリケーションが復帰したと知らせれば言い訳だ。
>>859 なんというか、目からウロコです。
ApplicationとFormが別のウインドウだとは想像もつきませんでした。
>>860 すいません、読み間違えです。
＞まさかとは思うがApplication.Restoreをしていないなんて事はないよな？
というのを
まさかとは思うがApplication.Restoreをしているなんて事はないよな？
となぜか読んでしまったようです。本当にすいません。ごめんなさい。
そしてありがとうございました。
>>856 リストの上にボタン？？
カラムヘッダーのことかな？だとしたら、TListViewでViewStyleプロパティをvsReportにして、
Columnsプロパティを設定すればヘッダーが出てきます。
864 ：
デフォルトの名無しさん ：03/06/17 10:18
MySQLとFireBirdはどっちがおすすめですか？
リストビューコンポーネントってラーニング版にありますか？
6Perにはある
>>864 DelphiスレとしてはFirebirdがおすすめ
なんといってもIBXがあるためデータグリッドも容易に使えて楽
C/Sならストアドが（フリーで）使えるかどうかということも大きい
868 ：
デフォルトの名無しさん ：03/06/17 13:48
くだらない質問ですいません。
くだらないので答えません。
870 ：
デフォルトの名無しさん ：03/06/17 14:06
くだらなくない質問ですいません
>>867 レスどうもっす。
Firebirdを使ってみます。
873 ：
デフォルトの名無しさん ：03/06/17 15:06
Delphi7でC++のオブジェクトモジュールリンクできますか？
874 ：
デフォルトの名無しさん ：03/06/17 15:42
s: String;
875 ：
873 874 ：03/06/17 15:44
くだらない質問ですみません。
騙りですみません。
>>874 String型は配列として扱えるので t := s[n]でn文字目がtに入る
なぜか n≦1 なので注意
イベントドリブンの質問なのでスレ違いかもしれませんがお願いします
不等号の向きに違和感を感じます
やってみればわかる
>>880 非同期に読んだ場合だね？
非同期といっても結局イベントは Windowsメッセージとして送られて来ます。
つまりはメッセージループを持ってるスレッド（大抵はメインスレッド）でイベントは処理されるわけです。
よって、イベント内部でメッセージループを回さない限りは 勝手に再帰する事はありません。
＞880
>>883 なるほど
つまりメインのVCL上でやっている限りは、どのイベントから
何にアクセスしても問題ないと考えてOKなわけですね
そのためにTThreadにSynchronizeがあるのかな
>>882 やってみようにもどうやったらバッティングさせられるのかわかりませんでした（笑）
>>884 話を簡単にするためにStringListとクリップボードで例をだしただけなので
ホントはもっとややこしいことしてるんです・・・
そうですね。 昔はTThread の SynchronizeもWindwsメッセージにしていました。
887 ：
デフォルトの名無しさん ：03/06/17 22:40
var
>>887 Streamポインタが変なところにあるから。とか。
メッセージボックスとか表示するとメッセージ回るよね
890 ：
デフォルトの名無しさん ：03/06/17 22:44
その前に
891 ：
デフォルトの名無しさん ：03/06/17 22:55
すみません。やっぱ、Streamを文字列に変換する方法
893 ：
デフォルトの名無しさん ：03/06/17 23:34
調べて分からなかったのです・・・。
某所で「MemoryStreamをStringに代入する方法」を聞いてるヤツがいるなぁ…。
>>887 は俺じゃねぇぞ・・・念のため・・・匿名掲示板でメンツを守るってのもアレだが・・・
TrackBar の使い方のというかアクティブの方法なのですが、
[致命的エラー] UxThemeRT.pas(402): ファイル '..\obj\UxThemeRT.dcu' を作成できません
>>898 エミュレートについては合法なのだが、
その手のゲームサーバーは
ごめんミスった。
>>899 そのエラーだけしかでていないのですね？
それでは何が原因かを突き止めるのは、不可能です。
諦めてください。
質問スレで一番嫌われるのは小出し野郎です。
>ファイル '..\obj\UxThemeRT.dcu' を作成できません
904 ：
デフォルトの名無しさん ：03/06/18 09:36
Delphi7でRave帳票ツールが付いたのは良いとして、
>>891 >すみません。やっぱ、Streamを文字列に変換する方法
いくつかあるけど確実なやつ
with TStringList.create do
LoadFromStrem( aTStrem );
ResultString := text;
Free;
end;
With TStringStrem.create do
>>906-907 素直な初心者がそのまま書いてエラーがでてまた質問というのもなんだから…
・2行目にbeginを入れる
・念のためtry finally文で確実にFreeさせる
こんなところでしょうか
>>904 >ライブラリだけは残してくれてるのか？
QR ライブラリは添付されています。
ML の記事を中途半端に読んでこっちで質問か？
>>908 try finally文ってなんですか？
914 ：
デフォルトの名無しさん ：03/06/18 15:53
begin
begin
>>914 釣りか？
上と下の結果は同じにならんように見えるが・・・？
TFindDialogの「検索する文字列」の内容が書き換わったら
つまり、コードが少し横に長くなるけれど変数を使わないでも再現できるのに、
じゃあ、GetTickCountじゃなくてGetDC(GetDesktopWindow)で
あえていえば、意味のある名前の変数を使うことで
変数を使わないことによる処理速度の高速化とかは無いのですか？
with文拡張してくれ
>>921 ほぼない。
ただしWin32API(GetTickCount)の呼び出し回数を減らすと高速化につながることはある。
.Caption.Label1. := .Caption.Label2. ;
>>921 プロパティをひとつの関数内で二回以上読んでいたら、変数にキャッシュした方が速くなる(場合もある)
プロパティの値を読み出して、
>>926 頭固すぎ。GUIまわりでそこまで気を使う必要はない。
せめて具体的に問題になるケースくらいageたら?
TCustomWinSocketの質問です
>>927 知っててやってるのと
知らないでやってる場合だと
問題が起きたときに対処の仕方が変わってくると思うけど・・・
だから知っておくことは必要だし
知ってるなら普通セーフティなコードを書くんじゃない？
そうなんですか。
Delphi 7 Personalでmp3のプレイリスト(m3u)を作りたいのですが。
>>929 だからその問題って何?
すくなくともまともなGUIコンポーネントではそんな問題はみたことないね。
TYourLabel.GetCaptionが一時間かかるなんてケースを想定することは可能だけど
そんな妄想上の超例外ケースを持ってGUI周りのコーディング全てに
>>926 の制約を課す意味はないよ。
>>931 m3u専用のはないです。
TStringListとFormatを使えばできるでしょう。
Text型変数とWriteLnで上等じゃ…
まあTextFileだと編集が面倒だしね
936 ：
デフォルトの名無しさん ：03/06/18 23:09
蛾次郎ヅラ
誤爆すみません
Delphi 6 Personal って、デバック関係にバグがあるらしいですが、どんなバグですか？
>>914 一般論として、関数/プロパティが内的副作用を持つかどうかがわからないときは、結果を
変数で受けてそれを再利用すると潜在的問題を回避できる。
最初の例の GetTickCount は、呼び出すたびに異なる値（Windows 起動時からの Tick (55msec?) 単位の積算時間）
を返す可能性のある関数なのだから、ラベルごとに GetTickCount を呼んでしまうと意味が変わってしまう。
逆に、副作用が存在しないこと（複数回呼び出しても一回呼び出しても意味が同じ）場合は
動作的にも性能的にも大差はない。
DelphiにはWindowsの音量を変更する関数またはクラスなどあるのでしょうか。
躊躇せず、API を使いましょう。
API
945 ：
デフォルトの名無しさん ：03/06/19 06:37
初めてのプログラム板に流されてきました。
① if A and B Then なにか:=not B ; C; end;
いまいちわかりづらいが、行間を読み取ってあげよう。
>>945 考え方としては、問題に共通している部分が無いかよく見る事
今回は１と２でどちらも「Ａであり、かつ」が出てくるので
まず「Ａであり」でくくってしまう。
if A then
begin
end;
次に「～してＣ」も共通しているので、さっきくくった部分の
最後でやってしまう。
if A then
begin
C;
end;
あとはＣする前にＢをどうするか考えるだけ。
if A then
begin
B := not B;
C;
end;
949 ：
デルファイの名無しさん ：03/06/19 08:06
if A and B then not B C
950 ：
デフォルトの名無しさん ：03/06/19 08:17
not B にして、C する → オッパイ揉むのをやめて、挿入する？
よそ逝け
次スレ立てれ
リージョンを扱うオブジェクトってないんでつか？
954 ：
デフォルトの名無しさん ：03/06/19 10:09
TQuery.RequestLiveってのがありますよね。
>>954 RequestLive は BDE の固有機能。IBX ではできない。
キャッシュアップデートを使えば同様のことは可能。（BDE も内部で同じことをやっている）
>>953 ない。
API 呼び出しを躊躇しないこと。
960 ：
デフォルトの名無しさん ：03/06/19 11:21
>RequestLive は BDE の固有機能。IBX ではできない。
963 ：
デフォルトの名無しさん ：03/06/19 13:00
thanx!
>>962 自分使ってるのBCBだから大丈夫でつ。
で、コンポーネントも常時調べとかないと、知らないうちに進化するんですね。
964 ：
デフォルトの名無しさん ：03/06/19 14:53
Sleepの操作を受け付ける版ないですか？
966 ：
デフォルトの名無しさん ：03/06/19 16:43
D:\cool\kakinotane.s7.xrea.com\dirDelphi2\s033.html
Print~以降に文がないから、区切る必要ないからじゃね？
>>966 begin 文 ; 文 ; 文 ; 文 ; 文 end セミコロンは文と文の「区切り」
begin 文 ; end 文の後に「空文」があるとみなされる
つながらないみたいす。
http://www.ss.u-tokai.ac.jp/~kikyo/02/lexa/pascalc.txt こっちはつながりまった。
開発中にusesをいろいろ変更してると、いつも不満に感じる事があります。
おそらくPascalの文区切りの思想と通じる所だと思いますが
uses
a,
b,
c;
の記述でcをコメントアウトしたいときに
行頭に"//"つけるだけじゃなくて、セミコロンとカンマを
付け直すのが、面倒で面倒で…ﾊｧ
何かよい解決方法ありませんか？
逃げとして、cの位置にはいつもusesするユニットを
もってきて、開発中にコメントアウトはしない。という手段は使っています。
using a;
using b;
using c;
という記述も取り入れてくれないかな…
uses
普通 作成中は
レスありがとうです。
∧,,∧ ／
>>971 さん
ミ,,ﾟДﾟ彡 ＜ Unitを作っているとwindows.pasも
ﾐ つ旦)~~ ＼ 使わないときがあるので…
>>972 さん
・・・・・
えっとそれでは、aをコメントアウトしたい時
同様に困るかと…
男ならコメントアウトなんぞしないで、ガンガン削除しろ！
自分はどっちかいうと IDE が勝手に カンマを後に残して分割するのがちょっと嫌だな。
言語仕様の制約を超えた万能解などあるわけもない。
>>970 空っぽのユニットを用意してそれを参照する，というのはどうでしょ．
uses
DUMMY // ←空っぽのユニット
{$IFDEF USE_HOEHOE}
, HoeHoe
{$ENDIF}
;
まあ var もtype も複数書けるんだら uses も複数書けて良さそうなもんだけど、
>>977 それなら、typesとかsysutilsとかmathとかを先頭にしておけばいいじゃんと思ってみたり。
よくよく考えてみれば、typeやvarも、";"を書いても尚且つその節自体は継続されるのだから、
｛｝←この括弧ってコメントとして使っていいの？
∧,,∧ ダミーunit使う
ミ,,ﾟДﾟ彡 手はありそうですが、、
ミつ旦(ﾐ なんかちょい嫌かも。
～と,,,~),,~)
>>979 さん
それらなら、Exeのバイト増えないのかな？
SysUtilsにはinitializationがあるから、ちょっと増えるかも。
下位互換性を考えるとか以前に
コンパイラをちょと修正ってことは
ほとんどないすよね....
>>980 さん
｡NET化にともなって、
言語仕様もちょっとずつ変更してしまって欲しいなぁ。
usesの名前空間については実装されても、
結局uses 某.A, 某.B, 某.C;形式らしいっすね。
そんな瑣末なところで悩むのはお前だけ。
おかげさまで理解出来ました。
∧,,∧ そぉね。
そんなにはやくいらないよ。
>>979 その用途なら system が最適だと思うのだが
しかしそれをやると2重定義になるのが残念なんだよね
>>987 そんなにはやくいらないよ。
まだまだ .NET が市場的立ち上がってないんだからさ、
もっと時間かけて Delphi.NETで .NETの足を引っ張れるくらいに成熟させてから出して欲しいね。
991
梅
994 ：
デフォルトの名無しさん ：03/06/21 20:13
996 ：
デフォルトの名無しさん ：03/06/21 20:16
う
め
oljhn
;knn mk; mm
1001 ：
１００１ ：
Over 1000 Thread このスレッドは１０００を超えました。
