くだすれDelphi(超初心者用)その43

1 名前：デフォルトの名無しさん mailto:sage [2007/08/03(金) 12:18:00 ] Delphi(デルファイ)について、他のスレッドでは書き込めない超低レベル、 もしくは質問者自身何が何だか分からない質問を 勇気を持って書き込むスレッドです。 Delphi使いが優しくコメントを返しますが お礼はDelphiの布教と初心者の救済をお願いします。 <前スレ> くだすれDelphi(超初心者用)その42 pc11.2ch.net/test/read.cgi/tech/1180613145/ <過去スレ> DelWiki避難所 delwiki.info/?Delphi 関連の過去スレッド 75 名前：デフォルトの名無しさん mailto:sage [2007/08/06(月) 19:27:21 ] Delphiは関数内関数や、関数の中で構造体を定義出来たり、定数を定義出来たりするのに クラスの中で　そういうのが出来ないんだよな まあ、ユニットを１つの単位と考えて、１ユニット１クラスで考えればいいと思うんだけどな 76 名前：デフォルトの名無しさん mailto:sage [2007/08/06(月) 20:02:06 ] Delphi6ではできないことがわかってすっきりしました。 代替方法でやってみます。 ありがとうございました。 77 名前：デフォルトの名無しさん mailto:sage [2007/08/06(月) 20:56:11 ] （´-`）｡oO(なんで普通の定数だとまずいんだろう…) 78 名前：ななしへたぐらま ◆XcB18Bks.Y mailto:sage [2007/08/06(月) 21:24:10 ] VCLのソースファイルの再構築はどうやればよいのでしょうか． Delphi 5を使っているのですが HeaderControlにメモリリークのバグがあるので VCLのソースファイル（comctrl.pas）に手を加えてみました． しかしソースファイルを書き換えただけでは駄目，bcc32でコンパイルしても駄目， パッケージの再構築をしようにもパッケージのソースファイルがないようなので困っています． 79 名前：デフォルトの名無しさん mailto:sage [2007/08/06(月) 21:43:35 ] www2.big.or.jp/~osamu/Delphi/delphi-browse.cgi?index=061257 80 名前：ななしへたぐらま ◆XcB18Bks.Y mailto:sage [2007/08/06(月) 22:08:45 ] ありがとうございます． おかげさまでうまくいきました． これで今日は家に帰れます… 81 名前：デフォルトの名無しさん [2007/08/07(火) 02:53:32 ] >>75 おいおい。できるってｗ 82 名前：デフォルトの名無しさん [2007/08/07(火) 02:54:34 ] アンチは、デマばかり振りまく。 かまうな馬鹿 83 名前：デフォルトの名無しさん mailto:sage [2007/08/07(火) 03:28:23 ] ふるいバージョンではできないでしょ。質問者はそういってるし。 84 名前：デフォルトの名無しさん mailto:sage [2007/08/07(火) 03:47:57 ] いつになったらテンプレートが使えるようになるんですか？ 85 名前：デフォルトの名無しさん mailto:sage [2007/08/07(火) 11:11:45 ] StringGridのセルを初期化するにはどうすればいいんでしょうか？ 86 名前：ななしへたぐらま ◆XcB18Bks.Y mailto:sage [2007/08/07(火) 19:26:07 ] >>85 文字列グリッドのすべてのセルの文字列をカラにするということですか？ 特にそういうメソッドはないので手でカラにしてください． { 文字列グリッドのすべてのセルの文字列をカラにする手続き } procedure ClearGridCells(Grid: TStringGrid); var 　iRow, iCol: integer; begin 　for iRow := 0 to Grid.RowCount - 1 do 　　for iCol := 0 to Grid.ColCount - 1 do 　　　Grid.Cells[iCol, iRow] := ''; end; procedure TForm1.Button1Click(Sender: TObject); begin 　ClearGridCells(StringGrid1); end; 87 名前：デフォルトの名無しさん mailto:sage [2007/08/07(火) 20:28:16 ] これでもいけそうだぞ。 for I := 0 to Grid.RowCount - 1 do Grid1.Rows[I].Clear; 88 名前：デフォルトの名無しさん [2007/08/07(火) 21:27:39 ] >>87 オレもそうしている。 でも、行の削除なんかのときに１行削除するたびにクリアしないと、 再度行を増やしたときに前の値が出てくるのは何でなんだろう。 89 名前：デフォルトの名無しさん [2007/08/07(火) 23:04:30 ] DataBaseからデータを取得してグローバル配列変数List:array[1..8]of TListに格納しているのですが、 リストにあるデータを使おうと思ったら変な値が出てきます。 どうしたらいいのでしょうか？ 環境はにD5Entです。 90 名前：デフォルトの名無しさん mailto:sage [2007/08/07(火) 23:12:07 ] >>89 ・「変な値」とは具体的に何？ ・値を取得するコードは？ ・TListはちゃんとCreateしたか？ 91 名前：89 [2007/08/07(火) 23:19:39 ] >>90 変な値とは次に使うSQL文です。 値を取得するコードは次に書きます。 TListはちゃんとFrameのInit(FormのShowイベントで呼ぶ)関数でCreateしています。 92 名前：89　1/2 [2007/08/07(火) 23:34:36 ] >>90 SQL.Add('SELECT BEID,GAKKOID'); //集計条件 if SMC.F_KT_DispType=0 then begin // SQL.Add(',MODEL'); end else begin // SQL.Add(',G_TYPE'); end; SQL.Add(',sum(SEITO) FROM V_OPE_U11 WHERE BEID=:b AND GAKKOID=:ga'); SQL.Add(' GROUP BY OWNER,GAKKOID'); //集計条件 if F_KT_DispType=0 then begin // SQL.Add(',MODEL'); end else begin // SQL.Add(',G_TYPE'); end; ParambyName('b').AsInteger := BEID; // ParambyName('ga').AsInteger := GAKKOID; // Open; 93 名前：89　2/2 [2007/08/07(火) 23:37:19 ] >>90 while not EOF do begin List.Add; p.F_KT_OWNER:=FieldByName('BEID').AsInteger; p.F_KT_STORE:=FieldByName('GAKKOID').AsInteger; //集計条件 if F_KT_DispType=0 then begin // p.F_KT_MODEL := FieldByName('MODEL').AsInteger; // p.F_KT_GAKKO_TYPE_CD := ''; end else begin // p.F_KT_MODEL := -1; p.F_KT_GAKKO_TYPE_CD := FieldByName('G_TYPE').AsString; // end; p.F_KT_SEITO := FieldByName('SUM').AsInteger; // List.Add(p); NEXT; end; 大体こんな感じです。 94 名前：デフォルトの名無しさん mailto:sage [2007/08/07(火) 23:56:18 ] Jw_cad for Windows のクロックメニューってどうやって実現しているのでしょうか？ 95 名前：デフォルトの名無しさん mailto:sage [2007/08/07(火) 23:57:05 ] 何かｸｾｪ List.Add; p. 96 名前：デフォルトの名無しさん mailto:sage [2007/08/08(水) 00:04:17 ] >>89 うん。Listとpが怪しい。 宣言は？ pは何処で入れてる？ 97 名前：89　2/2 [2007/08/08(水) 00:27:52 ] >>92の前に procedure TDM1.Get_SeitoSuu(Cond: TGakkoCond_Rec; List: TList); var p: PGakko004_Rec; beginで PGakko004_Rec = ^TGakko004_Rec; TGakko004_Rec = record F_KT_BEID: Integer; // F_KT_GAKKOID: Integer; // F_KT_MODEL: Integer; // F_KT_GAKKO_TYPE_CD: String[1]; // F_KT_SEITO: Integer; end; です。 98 名前：デフォルトの名無しさん mailto:sage [2007/08/08(水) 01:23:52 ] >>97 New 99 名前：デフォルトの名無しさん mailto:sage [2007/08/08(水) 01:45:05 ] クラスにして、Create で生成し、TObjectList で管理することを勧める。 １レコードごとに、New でポインタをつくってメモリ確保しなけりゃ ならないなんて、非効率すぎだし、メモリリークも心配。それに、そのコードを 見ると、ポインタそのものも理解してるのか疑問。 100 名前：89 [2007/08/08(水) 02:02:23 ] >>98 List.Add;はNew(p)でした。 >>99 14430000件以上もレコードがあるのですが大丈夫でしょうか？ >>100Get_Seitosuuは今オーバーロードして新しいの作り始めたんですけど、 そっちのほうをコピーしたのでList.Addが二回も出てきちゃったみたいです。 101 名前：デフォルトの名無しさん mailto:sage [2007/08/08(水) 02:13:59 ] >>100 あらかじめ件数分かってるなら配列でいいんじゃない？ すっきりするしポインタで悩むこともなくなる ちなみに>>99の言ってることは間違ってるから無視していいよ クラスにしてもCreateする度に内部でメモリ確保してるわけで変わらない むしろ余計なものが付く分そんなに件数あると有意な差が出てくる ただその前に、全部メモリに読み込む必要あるの？300MB弱くらいにならない？ SQLで完結しそうにも思えるんだけど 102 名前：89 [2007/08/08(水) 02:27:26 ] >>101 データを一覧表とグラフに集計してまとめるんです。 横浜市の学校で1990年以降に出来た小学校限定とか、 関西地区を除く地区の生徒数2000人以下の学校限定とか、 これを検索ボタンを押したら、条件変更ボタンですぐに一覧表とグラフを変えないといけないんです。 2秒以内に表示しなおすことが前提なのでいちいちSQLを使って取得している時間が無くて、 メモリに確保したままにしてグローバルから読み込もうと思ったんです。 103 名前：デフォルトの名無しさん [2007/08/08(水) 02:27:37 ] > 14430000件 ふつうは、DB使う罠ｗ 104 名前：89 [2007/08/08(水) 02:40:36 ] >>103　使ってますよ。 SQLで取得したデータをどうするかで悩んでるんです。 105 名前：デフォルトの名無しさん mailto:sage [2007/08/08(水) 02:41:15 ] >>102 やっぱりSQL発行すれば済む問題じゃないかな ひょっとしてDBから1件ずつ取得して比較してると時間がない、なんて思ってるのかもしれないけど、 SQLってのはそういう条件で絞り込んで結果だけ返してくれる道具ですよ？ コード見てる限り高速検索アルゴリズムを自分で実装するってわけでもなさそうだし、 素直にSQL出しといた方がよっぽど早いかと思われます。 106 名前：89 [2007/08/08(水) 02:47:00 ] >>105　SQLは使ってますよ。 SQL使って取得したデータをいち早く表示するために考えたのが、 「取得したらグローバル変数に格納する」なんです。 ですけど、いちいちSQLでデータを取得して書き込みだと、 データを一時変数に代入するのに時間がかかりすぎていて困っているのです。 条件ボタンを押すたびに一千万件以上のデータをSQLから取得していくと、 時間がかかりすぎといわれるのです。 107 名前：デフォルトの名無しさん [2007/08/08(水) 03:01:33 ] バックエンドにDB使ってて、その中身をまんま持ってきて、 フロントエンドの言語のデータ構造に入れ込む状況が思い浮かばん 108 名前：89 [2007/08/08(水) 03:15:30 ] >>107 DBへのアクセスは専用のフォームを使っているんです。 ですけどデータ表示とかはおのおののフレームが担当しているんです。 DBへアクセスした後そのフォームが別のグリッドやリストビュー、グラフにアクセスするのはおかしいし、 引数に渡すのも不自然だし、フレームに書いていくと修正が大変なので。 109 名前：デフォルトの名無しさん [2007/08/08(水) 04:27:16 ] >>106 どうも読んでる限りではDBを使いこなせてないみたいだね SQLは色んな書き方があるから、まずはそれを学ぶといいよ SQLってのは単にレコードを1件1件読むためのものじゃない また、1000万件以上の処理ということに変な思い込みを持ってるようだけど、 DBを使う場面ってのは大抵それと同じかそれ以上の件数のレコードを扱うよ だからそれぞれのDBだってほとんどの場合それに耐えうるように設計されてる 110 名前：89 [2007/08/08(水) 04:38:09 ] >>109 分かりました。もうちょっとSQLも勉強したいと思います。 そういえば此処に来たら何を調べていたのか忘れていましたが、 今思い出しました。 TListだとSQLに変わるので、TObjectListを使おうと思ったのですが、 var Ob:TObject; begin Ob:=TObject.Create; ObjectList1.Add(Ob); Ob:=TObject.Create; ObjectList1.Add(Ob); end; と言うように同じ変数にCreateを複数回も使ってもエラーとか言わないでしょうか？ また前にObjectListにAddしたオブジェクトは破棄されたり変な値が入らないでしょうか？ それと共にグローバルにおいて、関数が終了したら不正なデータに代わるとか無いでしょうか？ 111 名前：デフォルトの名無しさん mailto:sage [2007/08/08(水) 08:34:19 ] Q 同じ変数にCreateを複数回も使ってもエラーとか言わないでしょうか？ A 同じ変数にCreateしたものを複数回代入してもエラーにはならない。　 　　ただメモリーリークに注意しなければいけないが、この場合は他の管理方法に委ねているので大丈夫 Q 前にObjectListにAddしたオブジェクトは破棄されたり変な値が入らないでしょうか A Createによりヒープにオブジェクトが作成され　 Addでその参照が管理されるだけなので、それは杞憂 Ｑ 関数が終了したら不正なデータに代わるとか無いでしょうか？ Ａ オブジェクトはヒープにしか作成されない（スタックには作成されない）ので杞憂 なおTObjectのインスタンスを作成してるけど、これは単なる例？ TObjectList　を使うより、record を使って型を作り array of TMyRecord ; のような、動的配列の方が扱い易いよ 112 名前：デフォルトの名無しさん mailto:sage [2007/08/08(水) 11:07:18 ] 2秒以内か。データベースサーバー何使って、Delphi側はからデータベースに接続するのに BDE使ってるの？ADO使ってるの？BDEのこと忘れたけど、ADOならTADODataSetのCacheSizeプロパティで 一度に取り出す行数制限できるからそれ使えば？一度に1千万のデータなんか画面に表示できないから、 一度に1千万のデータなんて読み込まなきゃいいだけ。 113 名前：ななしへたぐらま ◆XcB18Bks.Y mailto:sage [2007/08/08(水) 11:45:03 ] >>110-111 TObjectListはデフォルトで項目オブジェクトを所有します． つまりリストをクリアしたりオブジェクトを解放すると全項目のオブジェクトを解放します． TListのような参照するだけのリストを作りたい場合は コンストラクタで引数にFalseを指定するか （ナントカ := TObjectList.Create(False) ） 生成後にOwnsObjectsプロパティにFalseを代入すると （ナントカ.OwnsObjects := False ） 所有しなくなります． つまりリストをクリアしたりオブジェクトを解放しても項目のオブジェクトは解放されなくなります． 114 名前：デフォルトの名無しさん [2007/08/08(水) 12:11:06 ] Turbo Delphi Explorerで Delphi 7と同じ規格？で作ることできますでしょうか？ 115 名前：89 [2007/08/08(水) 12:37:31 ] >>111 詳しい情報有難うございます。 TObjectは例で実際には構造体を使うのですが、動的配列のほうが速いのですか？ >>112 FireBirdとIBQueryを使っています。 >>113 標準だと参照型じゃないんですね。 参照型だと関数が終了した時に代入していたローカル変数をうやむやにして、 変な所を参照してしまうみたいで。でもそんな心配ないのですよね？ 116 名前：ななしへたぐらま ◆XcB18Bks.Y mailto:sage [2007/08/08(水) 15:35:15 ] >>115 Delphiのオブジェクト変数（キーワードclassを使うもの）は常にポインタです． つまりDelphiのオブジェクト変数はそのオブジェクトの場所を覚えているに過ぎません． そしてTObjectListはオブジェクトの場所の一覧です． TObjectListのAddメソッドではオブジェクトの場所が渡されて内部のリストにこの場所を書き足します． たとえば以下のようなコードだと TMyForm = class(TForm) private 　FList: TObjectList; 　procedure Nantoka; end; procedure TMyForm.Nantoka; begin 　obj := TMyObject.Create; // �@ 　FList.Add(obj); // �A end; �@でオブジェクトが生成されてその場所が変数objに書き込まれます． �Aでリストにそのオブジェクトの場所が渡ります． メソッドNantokaを抜けると変数objは消滅しますがオブジェクトそのものは残ります． （目的のビルの場所を書いたメモが捨てられてもそのビルが消滅するわけではないのと同じです） リストはオブジェクトの場所しか見ていないので 変数objが消滅しても見てはいけないところを見てしまう心配はありません． これはリストが項目オブジェクトを所有する場合もしない場合も全く同じです． 117 名前：デフォルトの名無しさん mailto:sage [2007/08/08(水) 15:38:02 ] >>114 　コンパイラそのものはＤ7から殆ど変わってない。ライブラリも殆ど同じ。 >>115 ＞TObjectは例で実際には構造体を使うのですが、動的配列のほうが速いのですか？ いちいちオブジェクトをCreateするより、構造体の動的配列の方が一度にメモリを確保するから 多少速度も上がると思うよ。 サイズが判らない場合でも、動的配列は最初に多めにとって、足らなくなったらまた多めにとって というようにやればいい。 118 名前：89 [2007/08/08(水) 15:48:00 ] >>116 だと本来出てこない値が出てきてしまうのは何故でしょう？ >>117 procedure TFrame1.ListSwitch(List1: TList; var List2: array of TSeitoSuu_Rec); var i:integer; p:PSeitoSuu_Rec; begin SetLength(List2,List1.Count);←互換性の無い型です。 for i:=0 to List1.Count-1 do begin p:=POPE004_Rec(ListA[i]); list2[i]:=p^; end; end; と成ってしまいます。 どうしたら再定義できますか？ 119 名前：デフォルトの名無しさん mailto:sage [2007/08/08(水) 15:55:18 ] >>118 関数の引数でソレをやったら、動的配列ではなくなる Type TArraySeitoSuu_Rec = array of TSeitoSuu_Rec;　と動的配列型を定義しておいてから procedure TFrame1.ListSwitch(List1: TList; var List2: TArraySeitoSuu_Rec); とやらないと 120 名前：89 [2007/08/08(水) 15:59:06 ] >>119解決しました。 皆さん有難うございました。 121 名前：デフォルトの名無しさん mailto:sage [2007/08/08(水) 16:06:21 ] こんなレベルの人が学校関係のDB扱う仕事やってんのか… そりゃ情報流出しまくるよなとおもた 122 名前：デフォルトの名無しさん mailto:sage [2007/08/08(水) 16:19:47 ] 引数で　動的配列のような格好の定義が出たら、ソレはオープン配列パラメータだ 123 名前：デフォルトの名無しさん [2007/08/08(水) 19:11:06 ] また匿名でコテハン叩きか キャノンかダかな？ 124 名前：デフォルトの名無しさん [2007/08/09(木) 10:19:34 ] Delphi4 Pro　を使ってます。 それでKOL（EXEのサイズが小さくなるやつ）を使いたいと思って KOLとMCKをDLして同じフォルダに解凍、「開く」からDelphi4用の パッケージ（.dpk）を開き、インストールを選択。 でもKOLaddが無いと怒られてしまった。 オフィシャルからKOLadd.zipを何度DLしても 解凍しようとすると「破損してる」って言われるし・・・ どこが間違ってるんでしょうか？ 125 名前：デフォルトの名無しさん [2007/08/09(木) 17:00:21 ] メモ： TNT Unicode Controls 配布場所 Silverpoint Development club.telepolis.com/silverpointdev/sptbxlib/support.htm#installation club.telepolis.com/silverpointdev/sptbxlib/TntUnicodeControls.2.3.0.zip 126 名前：デフォルトの名無しさん [2007/08/09(木) 17:03:09 ] >>114 Explorer版は、コンポーネントのインストールができないので、 Delphi7で、コンポーネントを使っている場合は、そのままは移植できない。 THoge.Create(Self)のような、動的生成はできるので、無理やり移すことは一応可能。 （Explorer版ではない有償版や、同規格のDelphi2006では、ほぼ修正なしでコンパイルは通る） 127 名前：デフォルトの名無しさん [2007/08/09(木) 17:05:46 ] >>124 ちょっと聞きたいのですが、 KOLってどういう理由で使いたいのですか？ ただ、EXEが小さくなる、という理由だと、はっきりいって、 茨の道を火を付けて歩くことになるので、やめた方がいいです。 128 名前：デフォルトの名無しさん [2007/08/09(木) 18:49:40 ] コンポーネントのツールパレットを、キーボードで、検索したいのですが、 部分一致で検索する方法はなかったでしょうか？ 通常は前方一致だけのようです(というか、THogeなら、hogeにヒットする) 環境は、Delphi2006 129 名前：デフォルトの名無しさん mailto:sage [2007/08/09(木) 21:18:58 ] >>127 だな。 ＵＰＸMask を勧めとく 130 名前：ななしへたぐらま ◆XcB18Bks.Y mailto:sage [2007/08/09(木) 22:27:40 ] >>118 本来出てこない値について結局わからなかったので適切な答を出せませんでした（すいません）． 131 名前：89 [2007/08/09(木) 23:55:07 ] >>130 本来出てこない値とは取得したデータが>>97のレコードだった場合に、 本来、Modelは-1〜1しかないのに適当な値(118927354等)や >>97では書き忘れていたんですけど、F_KT_GakkoMei:String;があって、 そのF_KT_GakkoMeiに取得用SQLがそのまま書かれていたりするんです。 解決したんですが、新たな所でつまずいてここにもう一度来ました。 TFrame1のプライベート静的配列を宣言したんです。 ListA:array[1..3]of char;と言う具合に そして>>118のListSwitchの中で ListA[0]:='0'; ListA[1]:='T'; ListA[2]:='F'; 代入するようにしてButton1Clickの中でListSwitchを呼ぶのですけど、 Button1Clickの関数を一度通り抜けるとListFは('','','','','','','',...)となって、 次にアクセスしようとするとおかしくなるのです。 解決する方法は無いのでしょうか？ どうか教えてください。 132 名前：デフォルトの名無しさん mailto:sage [2007/08/10(金) 00:09:13 ] ListFって何？ 133 名前：89 [2007/08/10(金) 00:22:57 ] >>132 ListAでした。結構打ち間違えますね。 134 名前：デフォルトの名無しさん mailto:sage [2007/08/10(金) 00:33:55 ] Button1Clickからその後のListAの確認するまでの間でぶっ壊してるんだろ コードも晒さずに解決法など出るわけ無いと何度 135 名前：デフォルトの名無しさん mailto:sage [2007/08/10(金) 00:34:44 ] あとコード出す時は再現できる最小のコードでな 136 名前：デフォルトの名無しさん mailto:sage [2007/08/10(金) 04:03:24 ] >>131 ご自分で宣言した添え字をお忘れですか？ 137 名前：デフォルトの名無しさん mailto:sage [2007/08/10(金) 04:38:35 ] >>134-135 わかったか？能無しは黙ってろってことだ。 138 名前：ななしへたぐらま ◆XcB18Bks.Y mailto:sage [2007/08/10(金) 12:11:35 ] >>131 >>118のコードですが 3バイトの文字配列であるListAの内容を無理矢理POPE004_Rec型だと解釈させていることになります． POPE004_Rec型は恐らくTOPE004_Recっていうレコード型を定義していて それに対するポインタ型（レコードのある場所を指す型）なのだと思いますが ＞　ListA[0]:='0'; ＞　ListA[1]:='T'; ＞　ListA[2]:='F'; という文字の並びを4バイトのアドレスだと解釈すると$??465430番地になります． 当然この場所は意味をなしませんからList2[i]にはでたらめな値が入っていると思われます． このコードはコピー元がでたらめになるだけなのでListAの内容を壊しているわけではないと思われます． しかし似たようなミスをほかの場所でもやらかしてListAの内容を壊している可能性は低くないと思います． 139 名前：デフォルトの名無しさん mailto:sage [2007/08/10(金) 15:22:57 ] フォームからドラッグしてデスクトップやエクスプローラにドロップする 処理はどうしたら良いんでしょうか？ エクスプローラからアイテムをドラッグしてフォームにドロップする 処理は彼方此方で見かけるんですが、その逆が見つかりません・・・ 140 名前：デフォルトの名無しさん mailto:sage [2007/08/10(金) 15:43:19 ] ドロップして単にショートカット を作るというような事なら、そのままマウスイベントで処理すればいい ドロップして独自の動作をさせるものを貼り付けるというような事なら　シェルエクステンションを作成しないといけない 141 名前：デフォルトの名無しさん [2007/08/10(金) 17:04:51 ] みなさんは、 ・配置したコンポーネント名： ・フォーム名： ・フォームのユニット名： をどのように決めてますか？ コーディング規約に属すると思いますが、 参考までにお聞きしたく。 （どこかに記述あったかなあ？） 私の場合は、 ・配置したコンポーネント名：TPanelなら、 HogePanel ・フォーム名：メインフォームなら MainForm、他、HogeForm ・フォームのユニット名：MainFormUnit、HogeFormUnit としてます 142 名前：128 [2007/08/10(金) 17:27:44 ] Delphi 7以降の IDEの新機能 dn.codegear.com/no/article/34361 これによると、 dn.codegear.com/article/images/34323/ToolPalette.gif 部分一致検索が標準でできるように見えるのですが、 どうやったらいいんでしょ・・・ 143 名前：128 [2007/08/10(金) 17:42:45 ] こちらのプラグインで部分一致検索はできるようですが、 >>142のアニメーションが解せないなあ・・・ D_DevLog DDevExtensions ddev.blog46.fc2.com/blog-entry-57.html DelphiSpeedUp Delphi/BCB/BDS IDE plugin andy.jgknet.de/dspeedup/index.php?page=DDevExtensions 144 名前：デフォルトの名無しさん mailto:sage [2007/08/10(金) 18:00:53 ] デルファイはもうやめｔロケ、最近、ザイリンクスのハードウエアみたいなプログラミング が面白い 145 名前：デフォルトの名無しさん mailto:sage [2007/08/10(金) 18:24:56 ] 確かに VHDLはpascalに似てるけど、このスレで話題にするより他のスレでお願いね 146 名前：デフォルトの名無しさん [2007/08/10(金) 19:16:13 ] ヘルプの表示項目をカスタマイズすることはできないでしょうか？ 具体的には、Win32のDelphiだけを表示したいです。 WinHelpの時代は、手動でカスタマイズできたのですが・・・ 環境は、Delphi2006です。 147 名前：146 [2007/08/10(金) 19:22:10 ] メニューの「ヘルプ」「ページのフィルタの編集」で、 デフォルトの表示を編集しようとしたのですが、フィルタなしを 　("DevLang"="Delphi") OR ("DocSet"="bds_Win32") に、カスタマイズして、Saveをしても、 >このページのスクリプトでエラーが発生しました。 >'undefined'は、Nullまたはオブジェクトではありません。 と出てしまいます。 148 名前：146 [2007/08/10(金) 19:40:48 ] ("DevLang"="Delphi") だけにしたら、Saveできたけど、 空欄にしたり、変更するとエラーが出て、もどせなくなってしまった。 orz 「フィルタなし」を空欄にしてSaveした場合 --------------------------- Microsoft Internet Explorer --------------------------- Filter cannot be saved without a definition --------------------------- OK --------------------------- ("DocSet"="bds_Win32")で、Saveした場合 --------------------------- Microsoft Internet Explorer --------------------------- All keywords and attributes must be enclosed with in double quotes ( " ). Please correct your text for this filter definition. --------------------------- OK --------------------------- ちゃんと " つけてるよ・・・ orz 149 名前：146 [2007/08/10(金) 19:50:24 ] 試行錯誤していたら、うまく設定を保存できました。 「ページのフィルタの編集」で、 Newして、 　("DevLang"="Delphi") と書いて、Save Asで、「(デフォルト)」と書いて保存したらうまくいきましたヽ( ´ー｀)ノ 括弧（）つけると最初の項目になり、デフォルトで選択されるようです。 さらに、 ("DocSet"="bds_Win32") OR ("DevLang"="Delphi") にすると、うまくエラーが出ずに保存できました。 （エラー出たりでなかったりするので、うまくいかないかもしれませんけど） 150 名前：デフォルトの名無しさん mailto:sage [2007/08/10(金) 22:26:19 ] >>142-143 つ インクリメンタルサーチ 151 名前：デフォルトの名無しさん mailto:sage [2007/08/10(金) 22:54:52 ] ドキュメントのない開発環境はドキュンだな・・・ 152 名前：デフォルトの名無しさん mailto:sage [2007/08/10(金) 23:01:32 ] 座布団一枚... 食え 153 名前：デフォルトの名無しさん mailto:sage [2007/08/11(土) 05:06:14 ] >>139 OLE Drag&Drop >>141 それがいいと思う。 154 名前：デフォルトの名無しさん [2007/08/11(土) 13:33:07 ] >>150 だから困るんですよ なんで、部分一致検索じゃないかと・・・ 155 名前：デフォルトの名無しさん mailto:sage [2007/08/11(土) 17:30:58 ] >>154 別に誰も部分一致検索じゃないなんて言ってないけど 156 名前：デフォルトの名無しさん [2007/08/11(土) 18:29:36 ] いやだから、部分一致検索じゃないから、困ってるんです。 157 名前：デフォルトの名無しさん mailto:sage [2007/08/11(土) 19:50:48 ] ドキュメントのない開発環境はドキュンだな・・・ 158 名前：デフォルトの名無しさん mailto:sage [2007/08/11(土) 20:06:02 ] >>156 はぁ？部分一致検索じゃん 勝手な思い込みで困ると書かれても困るんですけど 第一プラグインで解決したんじゃないの？じゃあもういいだろ 159 名前：デフォルトの名無しさん [2007/08/11(土) 21:02:44 ] >>158 プラグインで問題は、解決はしましたが、 うちの2007では部分一致ではなく、前方一致です。 解せません。 160 名前：デフォルトの名無しさん [2007/08/11(土) 21:03:30 ] すみません、2006でした。 161 名前：デフォルトの名無しさん [2007/08/11(土) 21:05:31 ] 二つの環境で試しましたが、両方とも、前方一致検索でした。 なんで、デフォルトでこんな不便な仕様なんだろう・・・ 162 名前：デフォルトの名無しさん mailto:sage [2007/08/11(土) 22:23:05 ] 画像を任意の角度だけ回転させるような手続き Rotate(TImage, kakudo)　みたいなのは標準でありますか？ 163 名前：デフォルトの名無しさん mailto:sage [2007/08/11(土) 22:30:02 ] ない。 164 名前：デフォルトの名無しさん mailto:sage [2007/08/11(土) 22:31:11 ] そうですか じぶんで描くしかないみたいですね 165 名前：デフォルトの名無しさん [2007/08/11(土) 22:37:48 ] コンポーネントさがす 166 名前：デフォルトの名無しさん mailto:sage [2007/08/11(土) 22:42:58 ] GDI+を使う 167 名前：デフォルトの名無しさん mailto:sage [2007/08/11(土) 23:15:38 ] TImage は画像じゃないよ 168 名前：デフォルトの名無しさん mailto:sage [2007/08/12(日) 10:29:47 ] www.asahi-net.or.jp/~HA3T-NKMR/DGS/ 169 名前：デフォルトの名無しさん mailto:sage [2007/08/12(日) 12:08:42 ] TBigBitmapCanvas って塗りつぶしうまくいかないよね。 170 名前：デフォルトの名無しさん mailto:sage [2007/08/12(日) 13:13:58 ] 回転にCanvasはつかわないしょ。 普通に補間関数書いて、座標変換するだけ。 171 名前：デフォルトの名無しさん mailto:sage [2007/08/12(日) 15:50:19 ] >>170 > 普通に補間関数書いて それが意外と難しい罠。 172 名前：デフォルトの名無しさん [2007/08/12(日) 23:47:28 ] Threadの扱いで困っています。 Thread内でエラーが出た時に、ユーザーにしらせたいのですが、 どうするのがよいのでしょうか？ 今は、Threadは、ひとつだけなので、 メインスレッドで、FThread: THogeThread; として、 サブスレッドの変数をもたせ、 開始時は、 FThread := THogeThread.Create(False); とし、サブスレッド停止時には、スレッドの終了を待つように、 procedure TMainThread.StopThread; begin 　if Assigned(FThread) then begin 　　FThread.Terminate; 　　FThread.WaitFor; 　　FreeAndNil(FThread); 　end; end; としています。 173 名前：172 [2007/08/12(日) 23:48:21 ] そして、サブスレッド内で、エラーが起きた場合 Synchronize で、メインスレッドでエラーをポップアップし、 Terminate; を呼び出しています。 しかし、こうすると、メインスレッドから、停止処理(StopThread)を呼ぶのはよいのですが サブスレッドで、エラーが起きた場合は、 FThread が、終了したにも関わらず、FThreadが、保持された状態になります。 次に開始したときは、また生成してしまい、メモリリークになります。 こういうときはどうするのが良い方法なのでしょうか？ それとも、FThreadを持たない方法がよいのでしょうか？ （その場合、どうやってスレッドの終了を待てばよいのか……？） 174 名前：172 [2007/08/12(日) 23:49:04 ] あ、よく考えたら、 サブスレッド開始時に、StopThread呼べばいいのか・・・ 175 名前：172 [2007/08/12(日) 23:55:04 ] もしくは、スレッド一個なら、最初から生成しておく方法でもいいですね。 メインスレッド(メインフォーム)生成時に、生成しておいて、 SyncObj.TSimpleEvent を使って、イベント待ちにして、 スレッド開始時には、TSimpleEvent .SetEvent;する。 スレッド停止時は、フラグを立てて、ループを抜け、イベント待ちにもどる、と。 で、メインスレッド破棄時のみ、TMainThread.StopThread を呼び出すと。

---

---

[ 続きを読む ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef