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

1 名前： ◆XcB18Bks.Y mailto:sage [2008/06/24(火) 16:24:25 ] Delphi(デルファイ)について、他のスレッドでは書き込めない超低レベル、 もしくは質問者自身何が何だか分からない質問を 勇気を持って書き込むスレッドです。 Delphi使いが優しくコメントを返しますが お礼はDelphiの布教と初心者の救済をお願いします。 <前スレ> くだすれDelphi(超初心者用)その46 pc11.2ch.net/test/read.cgi/tech/1205323779/ <過去スレ> DelWiki避難所（Delphi 関連の過去スレッド） delwiki.info/?%E3%83%AA%E3%83%B3%E3%82%AF%2F%E3%82%B3%E3%83%9F%E3%83%A5%E3%83%8B%E3%83%86%E3%82%A3%2FDelphi%20%E9%96%A2%E9%80%A3%E3%81%AE%E9%81%8E%E5%8E%BB%E3%82%B9%E3%83%AC%E3%83%83%E3%83%89 331 名前： ◆XcB18Bks.Y mailto:sage [2008/08/10(日) 21:15:41 ] >>329 編集中のテキストにファイルから別のテキストを追加読み込みしたいということですね。 別に文字列リストを用意してそれに読み込んでからMemo1.Linesに追加。 procedure TForm1.Action_AddFromFileExecute(Sender: TObject); var 　Strings: TStringList; begin 　Strings := TStringList.Create; 　try 　　if OpenDialog1.Execute then 　　begin 　　　//　文字列リストにファイルを読み込む． 　　　Strings.LoadFromFile(OpenDialog1.FileName); 　　　//　Memo1のテキストにこの内容を追加． 　　　Memo1.Lines.AddStrings(Strings); 　　end; 　finally 　　Strings.Free; 　end; end; 332 名前：デフォルトの名無しさん mailto:sage [2008/08/11(月) 07:32:07 ] ClientDataSetに大量のデータ突っ込んだ後、EmptyDataSetでクリアしても、 タスクマネージャのメモリ使用量が変わらないんだけど、これは？？ データ突っ込んで、タスクマネージャで100MB近くなったんだけど、ずっとそのまま・・ 333 名前：デフォルトの名無しさん mailto:sage [2008/08/11(月) 18:05:35 ] TurboDelphiを先日落とした身です。 例えば procedure TForm1.Button2Click(Sender: TObject); var hoge: string; begin end; でF9実行しようとすると、その変数は使われてないと警告が出てデバッグが実行できません。 警告を残したままデバッグの実行はできないものなのでしょうか。 334 名前：デフォルトの名無しさん mailto:sage [2008/08/11(月) 18:08:42 ] {$WARN SYMBOL_DEPRECATED OFF} みたいなのを頭に書いとけば消せる。 具体的な指定はヘルプにあるはず。 その警告は残しておいた方がいいとは思うが。 335 名前：デフォルトの名無しさん [2008/08/11(月) 19:24:36 ] Delphiでのアプリケーション間通信のよい方法があったら教えてください。 環境は双方ともDelphi製で、片方VCL GUIアプリ、片方Win32アプリです。 実際にはマップエディタで設定したマップを、別アプリのゲーム側で リアルタイムに読み込んでプレビュー処理をしたいのです。 そこで、マップエディタで現在編集中のマップをファイルで保存しておいて、 そのファイル名（もしくはマップのIDなり）をゲーム側に伝えたいのです。 336 名前：デフォルトの名無しさん mailto:sage [2008/08/11(月) 19:38:34 ] ファイル名程度ならWM_COPYDATAで十分じゃ？ 337 名前：デフォルトの名無しさん mailto:sage [2008/08/11(月) 19:39:06 ] ファイル名程度なら、WM_COPYDATAで十分じゃ？ 338 名前：デフォルトの名無しさん [2008/08/11(月) 19:40:24 ] Delphiでのアプリケーション間通信のよい方法があったら教えてください。 環境は双方ともDelphi製で、片方VCL GUIアプリ、片方Win32アプリです。 実際にはマップエディタで設定したマップを、別アプリのゲーム側で リアルタイムに読み込んでプレビュー処理をしたいのです。 そこで、マップエディタで現在編集中のマップをファイルで保存しておいて、 そのファイル名（もしくはマップのIDなり）をゲーム側に伝えたいのです。 339 名前：デフォルトの名無しさん mailto:sage [2008/08/11(月) 19:45:33 ] SendMessage(WM_COPYDATA でマップデータを送るのはどうか。 使ったこと無いけど、SendMessageTimeout の方がいいのかもしれない。 受け取り側でデータをコピーするから、マップデータが巨大だと 時間がかかる。 340 名前：デフォルトの名無しさん mailto:sage [2008/08/11(月) 22:10:29 ] 普通に考えればメモリマップドファイルだろうね。 341 名前：デフォルトの名無しさん [2008/08/11(月) 22:11:12 ] >>339-340 ありがとうございます。WM_COPYDATAが簡単にできそうです。 こちらが参考になりました。 WM_COPYDATA メッセージによるプロセス間通信 homepage2.nifty.com/Mr_XRAY/Halbow/Notes/N012.html 342 名前：デフォルトの名無しさん mailto:sage [2008/08/12(火) 00:09:05 ] 警告ならできるだろ >333 原因は別にある 343 名前：デフォルトの名無しさん mailto:sage [2008/08/12(火) 00:55:49 ] 変更のあるたびに全部送るんじゃなくて、変更のあったところのみ送れば 速くなりそうですね。 344 名前：デフォルトの名無しさん mailto:sage [2008/08/12(火) 13:06:48 ] >>334>>342 新規でプロジェクト作成してみたら警告が出るようなコードでもデバッグが実行できました。 どうもお騒がせしましたorz 345 名前：デフォルトの名無しさん mailto:sage [2008/08/12(火) 20:09:22 ] >>331 遅くなりましたが、ありがとうございます！ おかげでできました〜 346 名前：デフォルトの名無しさん mailto:sage [2008/08/13(水) 19:18:29 ] TMenuItemからTMenuItemに全てのプロパティをコピーするにはどうすればいいんでしょうか Assignでは「TMenuItem から TMenuItem に代入することはできません.」と例外が発生しました 347 名前：346 mailto:sage [2008/08/13(水) 20:30:24 ] 自己解決しました delfusa.main.jp/delfusafloor/archive/www.nifty.ne.jp_forum_fdelphi/faq/00069.htm このCopyComponentを使えば出来ました 348 名前：346 mailto:sage [2008/08/13(水) 20:57:39 ] と思ったけど完全にはコピー出来ないようです 何とかコピー出来ないものでしょうか 349 名前：デフォルトの名無しさん mailto:sage [2008/08/13(水) 21:01:06 ] TStream.WriteComponent/ReadComponentしてみたら。 それかメニュー構造を再帰的にコピーしていくコード書くか。 350 名前：346 mailto:sage [2008/08/13(水) 22:33:53 ] >>349 > TStream.WriteComponent/ReadComponentしてみたら。 例外が発生し、動きませんでした > それかメニュー構造を再帰的にコピーしていくコード書くか。 適当に書いたら普通に出来てしまいましたｗ ありがとうございました 351 名前：デフォルトの名無しさん mailto:sage [2008/08/14(木) 00:24:35 ] 以前からこのスレを拝見しておりました いきなりの質問ですみませんがお答えいただけたら幸いです var str: array of array of String i : Integer; List: TList; begin SetLength(str,10); for i:=0 to 9 do begin SetLength(str[i],10) end; //str[0,0]からstr[9,9]まで領域を作る List:= TList.create; としたとき、 TListにstring型の１時配列を格納したいと思い、 List.add(str[Idx]) としたのですが、その後ListからItemsプロパティによって中身にアクセスできないんです・・・どうしたらよろしいのでしょうか？ 352 名前：デフォルトの名無しさん mailto:sage [2008/08/14(木) 01:42:22 ] >>351 usesにTypesを追加します。 TStringDynArray(List[x])[y] で str[x, y] にアクセスできます。 353 名前：デフォルトの名無しさん mailto:sage [2008/08/14(木) 23:26:38 ] >>352 お答えありがとうごさいました！とても助かりました。 354 名前：322 [2008/08/15(金) 20:04:40 ] Delphi2007Pro版アップグレードの価格比較をみつけたので、こちらで吟味することにします。 ボーランド/Borland Borland Delphi 2007 for Win32 Professional R2 アップグレード版 価格比較 [coneco.net] www.coneco.net/PriceList/1070922054/order/MONEY/ amazonとかだと50000円超えててびくりしました お騒がせしました。 ありがとうございました。 355 名前：デフォルトの名無しさん mailto:sage [2008/08/15(金) 20:51:48 ] 直販でUGすれば３１５００円だろ。 直販のUGってもう終了したんかな。 356 名前：デフォルトの名無しさん mailto:sage [2008/08/15(金) 21:50:23 ] 電話してお姉さんに丁寧に説明してもらいなさい。 357 名前：デフォルトの名無しさん mailto:sage [2008/08/15(金) 23:04:26 ] おねいさんに手取り足取り教えてもらいたい。 358 名前：デフォルトの名無しさん mailto:sage [2008/08/16(土) 00:16:26 ] おねいさんに手コキ足コキしてもらいたい。 359 名前：322 [2008/08/16(土) 06:40:01 ] >>355 もう直販やってない希ガスCodeGearのページいってもたらいまわしにされる 360 名前：322 [2008/08/16(土) 07:06:51 ] 製品の購入のページってこれですよねえ。 www.codegear.com/jp/shop > バージョンアップ版を購入の方 > 以下のCodeGear製品については、バージョンアップ版も、新規購入と同様に、ソフトウェア流通代理店各社、SEshopのCodeGear専門ショップなどのオンラインショップサイトよりお求めいただけます。 > > CodeGear RAD Studio 2007 > Delphi 2007 for Win32 R2 > C++Builder 2007 R2 > JBuilder 2007 > 上記製品のバージョンアップ版の詳細については、こちらをご覧ください。その他の製品については、下記までお問い合わせください。 直販やってない？ たらいまわしは、商品詳細とかんちがいしてましたw 問い合わせてみるか・・・ それともTiburon待ったほうがいいのかなあ 361 名前：デフォルトの名無しさん mailto:sage [2008/08/16(土) 08:49:32 ] Unicode が必須じゃなければ２００７にしとけ。 BDS2006持ってて2007買うのはどうかと思うがな。 お金持ちならだめもとでTiburonを。 362 名前：デフォルトの名無しさん mailto:sage [2008/08/16(土) 08:54:10 ] こういう業界じゃ、バージョンアップの3万なんて日給分程度だろ？ お金持ちって・・。 363 名前：デフォルトの名無しさん mailto:sage [2008/08/16(土) 09:18:41 ] ＩＴ土方をなめるなよ。 ピンハネされまくって、ひ孫受けの土方に渡る金は、元金の１／３以下 364 名前：デフォルトの名無しさん mailto:sage [2008/08/16(土) 09:31:53 ] Delphiできる人少ないから、手が足りない。 バイトで内職してくれる人おらん？ 365 名前：デフォルトの名無しさん mailto:sage [2008/08/16(土) 09:33:29 ] 思いっきり丸投げしといて 「内規で２割引かないといけないんですよてへへー」が ２つ３つ挟まるとか平気であるしなｗ 366 名前：デフォルトの名無しさん mailto:sage [2008/08/16(土) 09:34:58 ] 3割引かれてﾃﾍﾍｰだけど、1社しか挟まってないからまだ楽だ。 367 名前：デフォルトの名無しさん mailto:sage [2008/08/16(土) 09:36:28 ] 他所でやれ 368 名前：デフォルトの名無しさん mailto:sage [2008/08/16(土) 10:09:56 ] スキルが高まれば高まるほど逃げ出す、それが日本のIT業界。 369 名前：デフォルトの名無しさん mailto:sage [2008/08/16(土) 13:10:00 ] >360 だからとりあえず電話してみなさいって。連絡先は ttp://www.codegear.com/jp/about/contact ここね。ただアップグレード期間は終わってるような気がするので通常の購入になって 高いかもしれないけど、そしたら他のところで買うことを考えてみればいいだけの話。 >366 3割ってよっぽど舐められてるか893か、いずれにしろろくでもないところだと思う。 370 名前：デフォルトの名無しさん mailto:sage [2008/08/16(土) 13:25:53 ] スキルの低い底辺クズがいる、それがIT業界。 371 名前：デフォルトの名無しさん mailto:sage [2008/08/16(土) 13:40:40 ] >>338-339 へぇ、メッセージで投げられるんだ 普通はアプリの通信ってパイプ使うけど マップデータ自体を送るんじゃなくてファイル名って言ったよね　たった数文字送るなら パイプ通信のほうがいいんじゃないの 372 名前：デフォルトの名無しさん [2008/08/16(土) 13:40:50 ] Form1からForm2へドラッグ＆ドロップするにはどうすればいいんでしょうか？ 373 名前：322 mailto:sage [2008/08/16(土) 15:41:26 ] >>369 電話してみます。 みなさんありがとう。 374 名前：デフォルトの名無しさん mailto:sage [2008/08/16(土) 15:57:45 ] >>372 OnDragOverイベントでAccept設定して出来ないか？ 375 名前：デフォルトの名無しさん mailto:sage [2008/08/16(土) 18:00:12 ] >>371 受け取る方はパイプのデータが更新されたことをどうやって知るの？ 376 名前：デフォルトの名無しさん mailto:sage [2008/08/16(土) 20:41:12 ] 数文字程度でもWM_COPYDATAの方が簡単かもしれない。 377 名前：デフォルトの名無しさん mailto:sage [2008/08/16(土) 21:18:38 ] 自前のTMyFormの機能としてWM_COPYDATAをラップして 識別用のDWORD一つとデータ本体を送受信できるようにしておくといろいろ便利。 378 名前：デフォルトの名無しさん mailto:sage [2008/08/16(土) 23:16:21 ] 現在Delphi2007を使用しています。 デバッグ機能について教えていただきたいのですが Visual Studioでいうところの「次のステートメントの設定」は Delphiに存在しないのでしょうか。 無いととても不便な気がするのですが どうしても見つかりません。 379 名前：デフォルトの名無しさん mailto:sage [2008/08/16(土) 23:30:13 ] ない。なくても別にそれほど不便じゃないし。 QCに登録したら次の次で採用されるかも。 380 名前：デフォルトの名無しさん mailto:sage [2008/08/16(土) 23:45:05 ] >>379 即レスありがとうございます。探し回っていたのですが これ以上探さずにすみます。それにしても残念。 381 名前：デフォルトの名無しさん mailto:sage [2008/08/17(日) 03:40:24 ] >>372 VCL標準のD&D機構では出来ないから、 MouseCaptureして自分でやる。 382 名前：372 mailto:sage [2008/08/17(日) 10:49:16 ] >>374 >>381 レスありがとうございます。 MouseCaptureググッって、午後からいろいろ試してみようと思います。 383 名前：デフォルトの名無しさん mailto:sage [2008/08/17(日) 11:13:40 ] TFormのDnD、VCLでできないんならOLEDnDのほうがスマートじゃ？ プロセス間でも平気だし、テキストや画像なら未知のアプリケーション間でも出来るし 384 名前：デフォルトの名無しさん mailto:sage [2008/08/17(日) 11:30:37 ] フォーム上にカラーパレットのようなものを配置(カラーグリッドでいいのかな) お絵描きコントロールを配置(たぶんペイントボックス) ペイントボックスに、既存のbmpファイルを読み込む(←ここがすでにわからない) カラーパレットをクリック で、色を選択 ペイントボックスに読み込まれた絵のどこか適当な場所をクリック その「クリックした個所と同じ色が」選択した色に塗りつぶされる (MSペイントの塗りつぶしみたいな感じ。あれは別な色で囲まれちゃってる部分は無視されるけど、 そこもぶち破って塗りつぶしてくれるならなおよろし。あれと同じでも充分) 顰蹙非難罵詈雑言何もかも覚悟でおねがい 以上を実現するコードください まるごとください おねがいします 385 名前：デフォルトの名無しさん mailto:sage [2008/08/17(日) 11:34:30 ] どっかでペイントソフト作るチュートリアル無かったか。 丸投げするなら金額も一緒に書いとけよ。 386 名前：デフォルトの名無しさん mailto:sage [2008/08/17(日) 11:38:11 ] 大人しくTPaintBox使わずにTImage使えば？ 387 名前：デフォルトの名無しさん mailto:sage [2008/08/17(日) 11:47:07 ] ， 　　，:‘. 　　　　　　　　　。　　　　　　　　　　　　　+　　 ，.. 　’‘ 　　　　+　　 ，.. 　　　　　　. ..; '， 　　，:‘ 　　　　　　. .; : ’　　　　　　　　　　　　　　　　　　　　　　　　　　 '　，:‘. 　　　　　　　　　　 あ　あ　　　　　　　　　　　　　，:‘. 　　　　　+ .. '　，:‘. 　　　　　　　　　　　　　　　　　　　　　　　　　　　　. ...::　’‘ ’‘ 　　　　.;　　　 こ　ん　な　に　お　断　り　し　た　い 　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　。 .　　　　　。　　　気　持　ち　に　な　っ　た　の　は　　　，:‘. 。 　'+。 　　　　　　　　　　　　　　　　初　め　て　で　す　　　　　　　　　　.. '　，:‘. :: . .. 　　　　　　　　　　　　　　　　　　　　　　　　　　　.. '　，:‘. 　　　　　　ﾊ,,ﾊ 　　　　　( ﾟωﾟ ) 388 名前：デフォルトの名無しさん mailto:sage [2008/08/17(日) 11:48:25 ] 　 /＼＿＿_／＼ ／　／　　 　ヽ ::: ＼ |　（●）,　、（●）、　| |　　,,ノ(、_, )ヽ、,, 　 | |　　　,;‐＝‐ヽ 　 .:::::| ＼　　｀ニニ´　 .:::／　　　　　　NO THANK YOU 　 ／｀ー‐--‐‐―´´＼ 　 　　　　 .ｎ:n　　　 ｎｎ 　 　 　　nf|｜| 　　　| | |^!n 　 　 　　ｆ|.| | ∩　　∩|..| |.| 　 　 　　|: ::　 ! }　　{！ ::: :| 　 　　　 ヽ　　,イ 　　ヽ　 :イ 389 名前：デフォルトの名無しさん mailto:sage [2008/08/17(日) 12:12:59 ] 　　　　　　　　　　　　お断りします 　　　　　　ﾊ,,ﾊ　ﾊ,,ﾊ　ﾊ,,ﾊ　ﾊ,,ﾊ 　　　　　（ ﾟωﾟ ）ﾟωﾟ ）ﾟωﾟ ）ﾟωﾟ ）　　お断りします 　　　　／　　 　＼　　＼　　＼　　＼　 　　お断りします 　 ((⊂ 　） 　 ﾉ＼つﾉ＼つﾉ＼つﾉ＼つ)) 　　お断りします 　　　　　（＿⌒ヽ　⌒ヽ　⌒ヽ　⌒ヽ　　　　　　　お断りします 　　　　　　ヽ　ﾍ　}　ﾍ　} 　ﾍ　}　ﾍ　} 　 ε≡Ξ　ﾉノ ｀Jノ ｀J ノ ｀J ノ ｀J 390 名前：デフォルトの名無しさん mailto:sage [2008/08/17(日) 15:47:38 ] 再度おねがいにきました あきらめないで待ってます 391 名前：デフォルトの名無しさん mailto:sage [2008/08/17(日) 15:48:24 ] 　　　　　　　　　　 ＿＿＿_ 　　 やなこったｗｗｗｗｗｗｗｗｗ 　 .ｎi 7　　　　　／⌒　　⌒＼ l^l | | ｌ ,/) 　 ／ （ ﾟ ） 　（。 ）＼　　　　 .ｎ 　　　 ', U ! ﾚ' / ／ ::::::⌒（__人__）⌒:::::＼　　l^l.| | /） 　 /　　　 〈　| 　 　　 　ﾍ　 / 　 　　　| 　 | U ﾚ'/／)　　 　　　　　ヽっ　　 　　｀ ⌒´ 　 　／　　ﾉ　　　 ／　　 　／´￣￣　ノ　　　 　　　　　　 ＼ｒニ 　　　　| 　　　　　　　　　　　　　　　　　　　　　 `ヽ　　　l　 392 名前：デフォルトの名無しさん mailto:sage [2008/08/17(日) 16:19:04 ] そんなことよりポインタ演算の話しようぜ。 393 名前：デフォルトの名無しさん mailto:sage [2008/08/17(日) 22:17:46 ] もうちょっと待て。ベータブログに出てきてNDAから外れたらな。 394 名前：デフォルトの名無しさん mailto:sage [2008/08/17(日) 22:19:01 ] >390 WindowsのPaint使えばいいんじゃね？ 395 名前：デフォルトの名無しさん mailto:sage [2008/08/18(月) 00:18:16 ] お絵かきソフトのサンプルをCDから探して。 396 名前：デフォルトの名無しさん mailto:sage [2008/08/18(月) 11:40:11 ] その１ Image1.Picture.LoadFromFile('hoge.bmp'); 以降よろしく。 397 名前：デフォルトの名無しさん mailto:sage [2008/08/18(月) 11:58:30 ] canvas.FloodFill(なんたらかんたら) 398 名前：デフォルトの名無しさん mailto:sage [2008/08/18(月) 19:12:39 ] DEMOSとかというフォルダからサンプルらしきものを発見しました imageでも絵かけるんですね >>396 >>397 ありがとうございます ちょっと自力でがんばってみます 399 名前：398 mailto:sage [2008/08/19(火) 19:05:38 ] おかげさまでどうにか以下までは成功しました procedure TForm1.Image1Click(Sender: TObject); var MouseP:TPoint; MouseX:integer; MouseY:integer; GetColor:integer; begin GetCursorPos(MouseP); MouseP:=Image1.ScreenToClient(MouseP); MouseX:=MouseP.X; MouseY:=MouseP.Y; GetColor:=Image1.Canvas.Pixels[MouseX,MouseY]; Image1.Canvas.Brush.Color:=塗りつぶしたい色; Image1.Canvas.FloodFill(MouseX,MouseY,GetColor,fsSurface); end; 元のbmpファイルがけっこう小っちゃいので、Imageをめいっぱい大きくとったうえストレッチ表示にしたら クリック位置を補正しなきゃならなくなってしまいました MouseX:= Trunc(Image1.Picture.Bitmap.Width*MouseP.X/Image1.Width) とか、とりあえずやってみたらできたけど、何かこのあたりはまだ考える余地がありそうです あとちょっとだけがんばります 400 名前：デフォルトの名無しさん mailto:sage [2008/08/19(火) 20:27:01 ] 始めたばかりで頑張っていた頃を思い出させるいいレス。 頑張れ！ 401 名前：デフォルトの名無しさん mailto:sage [2008/08/20(水) 01:07:43 ] WideStringでのインデックスをAnsiStringでのインデックスに直すにはどうすればいいんでしょうか？ 例えば 関数('あああ',3) = 5 みたいな感じです 402 名前：デフォルトの名無しさん mailto:sage [2008/08/20(水) 01:25:08 ] >>401 こんな感じかな function WideIndexToAnsiIndex(const ws: widestring; index: Integer): Integer; begin   if (Index < 1) or (Index > Length(ws)) then     Result := 0   else     Result := Length(AnsiString(Copy(ws, 1, index - 1))) + 1 end; 403 名前：デフォルトの名無しさん mailto:sage [2008/08/20(水) 01:36:25 ] >>402 うお、こんな簡単に出来ちゃうんですね ありがとうございました 404 名前：デフォルトの名無しさん mailto:sage [2008/08/20(水) 03:34:47 ] >>401 なぜユニコードだったりそれをMCBSに変換しなければならないかにもよるけど、 ByteToCharIndexやCharToByteIndexでもっと幸せになれるかもしれない。 405 名前：デフォルトの名無しさん mailto:sage [2008/08/20(水) 12:47:33 ] Button1を押したら Memo1の書いてる文章を 全て選択 コピー 切り取り 貼り付け するにはどうやればいいでしょうか？ 406 名前：デフォルトの名無しさん mailto:sage [2008/08/20(水) 13:36:46 ] >>405 Memo1.SelectAll; Clipboard.AsText:=Memo1.SelText; Memo1.SelText:=''; Memo1.SelText:=Clipboard.AsText; 407 名前：デフォルトの名無しさん mailto:sage [2008/08/20(水) 14:00:30 ] マジありがとうございます。 超助かります！ Memo1.SelectAll; をしたら、ちゃんと全部選択できるてるみたいですが 選択範囲の色が変わりません。 普通のメモ張だったら 全て選択とかCTRL+Aで選択範囲が青くなりますよね？ 青くするのはどうやるんですか？ 408 名前：デフォルトの名無しさん mailto:sage [2008/08/20(水) 14:17:29 ] >>407 Memo1.SelectAll; Memo1.SetFocus; 409 名前：デフォルトの名無しさん mailto:sage [2008/08/20(水) 14:24:01 ] あー。できました。 ありがとうございましたー。 410 名前：デフォルトの名無しさん mailto:sage [2008/08/20(水) 20:57:20 ] SpeedButtonかToolButton使え 411 名前：デフォルトの名無しさん mailto:sage [2008/08/21(木) 12:41:16 ] ファイルネームの最後だけ、たとえば c:\AAA\BBB\CCC\asdf.html というファイルなら OpenDialogやFileListBoxのFileNameは c:\AAA\BBB\CCC\asdf.htmlになってしまうので Edit1.Text:=FileNameみたいにすると長くなっちゃうんだけど c:\からCCCまでいらなくてasdf.htmlだけ取得するにはどうしたらいいんですか？ 412 名前：デフォルトの名無しさん mailto:sage [2008/08/21(木) 13:00:55 ] ExtractFileName 413 名前：デフォルトの名無しさん mailto:sage [2008/08/21(木) 13:02:45 ] このくらい考えられないか？ FileName := 'c:\AAA\BBB\CCC\asdf.html'; while pos('\',FileName) > 0 do FileName := copy(FileName,pos('\',FileName)+1); edit1.Text := FileName; 414 名前：デフォルトの名無しさん mailto:sage [2008/08/21(木) 13:10:37 ] >>413 Pos2回もやってるのって無駄じゃね？ それに「ソ」とかのことも考えたほうがいいぜ まあLastDelimiter使った方が楽だがｗｗ 415 名前：デフォルトの名無しさん [2008/08/21(木) 14:53:29 ] 役に立たないスレだな 416 名前：デフォルトの名無しさん mailto:sage [2008/08/21(木) 15:46:36 ] 412で答え出てるじゃん。 417 名前：デフォルトの名無しさん mailto:sage [2008/08/22(金) 07:16:18 ] Delphiはchar型って変数じゃないんですか？ 418 名前：デフォルトの名無しさん mailto:sage [2008/08/22(金) 07:19:56 ] 変数です。整数ではありませんが。 419 名前：デフォルトの名無しさん mailto:sage [2008/08/22(金) 08:15:42 ] checklistbox1 にあるすべての項目にチェックを入れるボタンと チェックをはずすボタンはどうやればいいんですか？ Seleckallやclearを押してもチェックがはずれたりしなくて困ってます。 ボタンクリック begin CheckListBox1.SelectAll; end; ってやってもなんも変わらないんですけど、どうすりゃいいですか？ 420 名前：デフォルトの名無しさん mailto:sage [2008/08/22(金) 08:55:17 ] >>419 まわしたら？ 421 名前：デフォルトの名無しさん mailto:sage [2008/08/22(金) 17:00:54 ] Button2をクリックしたら、Button1クリックと同じ処理をしたいときはどうやるの？ procedure TForm1.Button2click(sender:Tobject); begin Button1click(sender) end; とかやってもエラーがでてコンパイルできません。 422 名前：デフォルトの名無しさん mailto:sage [2008/08/22(金) 17:13:13 ] >>421 それで間違ってないだろ。つかエラーメッセージくらい読めよ。 423 名前：デフォルトの名無しさん mailto:sage [2008/08/22(金) 17:15:56 ] button1.onclick(sender); 424 名前：デフォルトの名無しさん mailto:sage [2008/08/22(金) 17:34:25 ] Button2のイベントハンドラをButton1Clickに設定する 425 名前：デフォルトの名無しさん mailto:sage [2008/08/22(金) 17:37:16 ] interfaceの宣言の下に書くGUIDはCtrl+Shift+Gで出る奴でいいんですか？ 426 名前： ◆XcB18Bks.Y mailto:sage [2008/08/22(金) 19:23:55 ] >>421 エラーメッセージはなんですか？ 　未定義の識別子 Button1click と出たなら Button1click という名前のメソッドがないということです。 （このメソッドがあるはずだ！ということなら似たような違う名前になっていないか調べてください） 427 名前：デフォルトの名無しさん mailto:sage [2008/08/22(金) 21:20:55 ] 俺俺っていうコードを変換したいんだけど (俺のコードは89 B4です) 89 B4 89 B4をchrを使って chr(89)+chr(B4)+chr(89)+chr(B4)ってやっても ｴｴって出てきちゃいます。(半角のｴはB4) どうやったら89 B4を「俺」になおせますか？ chr(46127)てやっても出来ませんでした。 数値を日本語に変えるやりかたを教えてください！ 428 名前：デフォルトの名無しさん mailto:sage [2008/08/22(金) 21:29:25 ] ShowMessage(chr($89)+chr($B4)) で普通に俺って出るぞ 429 名前：デフォルトの名無しさん mailto:sage [2008/08/22(金) 21:37:50 ] なぁんだ、$をつければよかったんだ。 どうもありがとう 430 名前：デフォルトの名無しさん mailto:sage [2008/08/22(金) 22:17:39 ] Chr(B4)でコンパイル通るのかｗｗ 431 名前：デフォルトの名無しさん mailto:sage [2008/08/22(金) 22:32:41 ] ListviewのFullDragをtrueにしてドラッグで入れ替えても 見かけ上は入れ替わるんですけど、中身のデータはその場所と一致してないんですけど ちゃんと一致させる方法ありますか？

---

---

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

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