くだすれ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 関連の過去スレッド 283 名前：デフォルトの名無しさん mailto:sage [2007/08/18(土) 23:32:05 ] >>281 こんな感じに使う。 AnsiIndexStr('うう', ['ああ', 'ううい', 'うう', 'ええ']); 詳しくはヘルプの「オープン配列コンストラクタ」を参照のこと。 284 名前：デフォルトの名無しさん mailto:sage [2007/08/19(日) 00:00:59 ] >>280 他の奴にも礼言ったれよ死ね 285 名前：デフォルトの名無しさん mailto:sage [2007/08/19(日) 08:19:09 ] つまりはつぎはぎのないC#が最高なのです。 Pascalは糞です。いますぐやめるべきです。 286 名前：デフォルトの名無しさん mailto:sage [2007/08/19(日) 09:01:12 ] まあPascalが廃れC#が主流になったとしても VBしか使えない人がが主役になることはない訳だが。 287 名前：デフォルトの名無しさん mailto:SAGE [2007/08/19(日) 14:19:13 ] >>283 THX.　よくわかりました。 288 名前：デフォルトの名無しさん mailto:sage [2007/08/19(日) 21:26:42 ] while True do ShowMessage('あひゃ'); 289 名前：デフォルトの名無しさん mailto:sage [2007/08/19(日) 22:41:16 ] >>285 　おまいは鮮人か？ 290 名前：デフォルトの名無しさん mailto:sage [2007/08/19(日) 22:48:11 ] そっとしておいてあげてください。 291 名前：デフォルトの名無しさん mailto:sage [2007/08/19(日) 22:56:48 ] var i : integer; S : TStringList; begin i:=0; S := TStringList.Create; try while True do begin S.SaveToFile(IntToStr(i)); inc(i); end; finally S.Free; end; end; 292 名前：デフォルトの名無しさん [2007/08/20(月) 09:47:50 ] ある文字列の中に０〜９、a〜fの文字が使われていればTrue、それ以外の文字 が使われている場合はFalseを入れるプログラムを作りたいのです。 どうかご教授よろしくお願いします。 293 名前：デフォルトの名無しさん mailto:sage [2007/08/20(月) 09:50:34 ] function have09af(s: string): boolean; var i: integer; begin 　for i := 1 to length(s) do if s[i] in ['0'..'9', 'a'..'f', 'A'..'F'] then begin result := true; exit; end; 　result := false; end; 294 名前：デフォルトの名無しさん mailto:sage [2007/08/20(月) 09:56:31 ] >>292 一つでも 0..9 a..f があれば真なら >>293 さんの通り １６進数の文字列だけで構成されているかどうかなら var p: PChar; p:=PChar(s); while p^ in ['0'..'9', 'A'..'F', 'a'..'f'] do inc(p); このあと、 p^ = #0　がtrue falseか 295 名前：デフォルトの名無しさん [2007/08/20(月) 10:00:01 ] >>293,>>294 御二方ともありがとうございます。 早速試してみますね。 296 名前：デフォルトの名無しさん [2007/08/20(月) 10:46:19 ] 無事にできました。 ありがとうございます。 更に文字列がすべて空白の場合はTrue、 それ以外の空白（１文字空白等）はFalseという条件をつけ足そうとしました。 begin 　for i := 1 to length(s) do 　begin 　 if s[i] in ['0'..'9', 'a'..'f', 'A'..'F'] then begin if s = '' then begin result := true; exit; end; end; 　 result := false; end; end; 上記のようなコードを書いたのですが、上手くいきません。 重ね重ね申し訳ありませんが、ご教授お願いします。 297 名前：デフォルトの名無しさん mailto:sage [2007/08/20(月) 12:44:14 ] 当方見習いエスパーなので、読み取れませんが、 全部spcかどうかは function spcCheck(s: string): boolean; var p: PChar; begin p:=PChar(s); while p^ in [' ', #7 ] do inc(p); 　result := p^ = #0; end; のような感じで 298 名前：デフォルトの名無しさん [2007/08/20(月) 19:02:33 ] try 　raise EMyError.Create('foo'); except 　on E: EMyError do 　　self.error := E; // インスタンスを開放せずにerrorにセット。後でfreeなんてことは出来ませんか? end; 299 名前：デフォルトの名無しさん [2007/08/20(月) 19:13:23 ] こんにちは。 Delphi7で、Excelに書き込まれた値を読むプログラムを作成します。 ユーザー側のExcelのバージョンが統一されていないため、 バージョン依存しないようにプログラムを作成したいのです。 VBだと、ExcelのDLLに対する参照設定を行わずに dim objExcel as Object Set objExcel = CreateObject("Excel.Application") というようにできるのですが、 Delphiではどのように行えばよいのかお知恵を拝借させてください。 "Delphi レイトバインディング"などで検索したのですが、 見つけることができませんでした。 お力をお貸しくださいませ。 どうぞよろしくお願いします。 300 名前：デフォルトの名無しさん mailto:sage [2007/08/20(月) 20:17:03 ] >>299 Delphi Excel CreateOleObject これでぐぐれば色々でてくるから参考に汁 301 名前：デフォルトの名無しさん [2007/08/20(月) 20:25:39 ] >>300 参考になるサイトがわんさか出てきました。 これでいけそうです♪ ありがとうございます！！ 302 名前：デフォルトの名無しさん mailto:sage [2007/08/20(月) 22:10:17 ] >>298 raise した分は勝手に破棄されるので�_ 同じ例外オブジェクトをもう一度 raise 無しで作ればおｋ 303 名前：Delﾌｻｷﾞｺ ◆A6VzDeLphI mailto:sage [2007/08/20(月) 22:22:48 ] >>292-296 　　　　　　　　　　＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿ 　　 ∧.,,∧　　 ／そこで、前にも紹介した 　　ミ.*ﾟДﾟ彡＜　CheckStrInTableですよ。 　　ﾐ つ目(ﾐ .　＼ 〜ミ,,Ｏ,,,,,,つ 　　　￣￣￣￣￣￣￣￣￣￣￣￣￣￣ いつでもどこでも、一度書いていれば再利用できて汎用的って素敵。ｳｯﾄﾘ delfusa.main.jp/delfusafloor/opensource/delfusalibrary/20070708185145/StringUnit/StringUnitLight.pas type TInTable = (itUnknown, itAllInclude, itAllExclude, itPartInclude); function CheckStrInTable(const Str, Table: WideString): TInTable; 文字がテーブルに指定したもので 全部含まれている、全部含まれていない、一部含まれている を判断できます。 304 名前：デフォルトの名無しさん mailto:sage [2007/08/20(月) 22:25:46 ] 　　 ∧.,,∧　　 　　ミ.*ﾟДﾟ彡 　　ﾐ つ目(ﾐ . 〜ミ,,Ｏ,,,,,,つ 　　 305 名前：Delﾌｻｷﾞｺ ◆A6VzDeLphI mailto:sage [2007/08/20(月) 22:34:38 ] 　　　　　　　　　　　 ＿＿＿＿＿＿＿＿＿＿＿＿＿ 　　 　 ∧,,∧　　 ／ 　　　 ミ,,ﾟДﾟ彡＜　　ところでですね。 　　　'ﾐ つ旦(ﾐ~~ ＼＿＿＿＿＿＿＿＿＿＿＿ 　　⊂ミ",,　,,ﾐ つ delphi-fanさんところで、listviewの項目並び替え テクがのっていますが あたしは、メーラーでよくみかける listviewヘッダの△▽マークを実装したいのですよ。 実装方法はわかっているんですが これが、コンポーネント化誰かしませんか... 漏れ、もうコンポーネント化するとか、って 相当わすれちゃったので、誰か教えてくらさい。 Delphiでlistviewヘッダの△▽マークを実装方法は 日本語で非常に情報が少ないですが、この辺。 ListView?の?カラムクリックによるソート hpcgi1.nifty.com/MADIA/DelphiBBS/wwwlng.cgi?print+200608/06080023.txt delfusa.main.jp/delfusafloor/archive/www.nifty.ne.jp_forum_fdelphi/samples/01281.html 306 名前：デフォルトの名無しさん mailto:sage [2007/08/20(月) 22:37:29 ] 　　 　 ∧,,∧　　 　　　 ミ,,ﾟДﾟ彡 　　　'ﾐ つ旦(ﾐ~~ 　　⊂ミ",,　,,ﾐ つ 307 名前：デフォルトの名無しさん mailto:sage [2007/08/20(月) 22:46:59 ] >>303 これはひどい 308 名前：デフォルトの名無しさん mailto:sage [2007/08/20(月) 22:48:52 ] >>307 これはひどい 309 名前：Delﾌｻｷﾞｺ ◆A6VzDeLphI mailto:sage [2007/08/20(月) 23:34:40 ] 　　　　　 ∧,,∧＿__　　　／最近、よーやく 　　　 ／ミ*ﾟДﾟミ／＼＜　　テストコードを 　　／|￣∪∪￣|＼／ 　＼同一ユニットに 　　　 |＿＿＿＿|／ 　　　　いれるべきではないかなと 　　　 　,,,,∪∪,,, ,, 　　　　　きがちいた。 310 名前：デフォルトの名無しさん mailto:sage [2007/08/21(火) 03:27:38 ] >>323 つまりどーすんの？ 311 名前：デフォルトの名無しさん mailto:sage [2007/08/21(火) 04:10:32 ] >>323に期待 312 名前：デフォルトの名無しさん mailto:sage [2007/08/21(火) 22:45:47 ] >305 ListViewのソートの対象カラムに方向の矢印を出す方法の別解。 予めFBitmapArrowDnとFBitmapArrowUpに下向き、上向きのビットマップを用意しておく。で、 var 　Index: Integer; 　Hdr: HWND; 　HdItem: THDItem; begin 　Hdr := Listview_GetHeader(ListView1.Handle); 　for Index := 0 to ListView1.Columns.Count - 1 do 　begin 　　FillChar(HdItem,sizeof(HdItem),0); 　　HdItem.Mask := HDI_FORMAT; 　　Header_GetItem(Hdr,ListView1.Columns.Items[Index].Index,HdItem); 　　if (矢印を出すカラムだったら) then 　　begin 　　　if (昇順だったら) then 　　　begin 　　　　HdItem.hbm := FBitmapArrowDn.Handle; 　　　end 　　　else 　　　begin 　　　　HdItem.hbm := FBitmapArrowUp.Handle; 　　　end; 　　　HdItem.Mask := HDI_FORMAT or HDI_BITMAP; 　　　HdItem.fmt := HdItem.fmt or HDF_BITMAP_ON_RIGHT or HDF_BITMAP; 　　end 　　else 　　begin 313 名前：312 mailto:sage [2007/08/21(火) 22:46:50 ] 　　　HdItem.Mask := HDI_FORMAT; 　　　HdItem.fmt := HdItem.fmt and not(HDF_BITMAP_ON_RIGHT or HDF_BITMAP); 　　end; 　　Header_SetItem(Hdr,ListView1.Columns.Items[Index].Index,HdItem); 　end; end; こんな感じでやってます。コンポーネント化？うぅむ…。 314 名前：デフォルトの名無しさん mailto:sage [2007/08/22(水) 00:02:43 ] うぅむ 315 名前：デフォルトの名無しさん mailto:sage [2007/08/22(水) 00:16:25 ] procedure ahya; begin 　ahya; end; 316 名前：デフォルトの名無しさん mailto:sage [2007/08/22(水) 00:26:31 ] うぅむ…。 317 名前：312 mailto:sage [2007/08/22(水) 00:43:17 ] そういやこれのネタ元どこだっけな？確か海外だったような希ガス。 318 名前：デフォルトの名無しさん mailto:sage [2007/08/22(水) 16:55:31 ] TComboBoxでTMemoのModifiedみたいに、値が変更されたのかを知るにはどうすればいいのですか？ 319 名前：デフォルトの名無しさん mailto:sage [2007/08/22(水) 17:03:03 ] うぅむ…。 320 名前：haru [2007/08/22(水) 17:36:28 ] はじめましてよろしくお願いします。 GetWindowやFindWindowを使って、ウインドウハンドルを取得し、 とあるソフトを自動的に操作したいのですが、 そのソフトが、確認の際にダイアログを表示してきます (delphiでいうMessageDlgを使用している感じ) その際、delphiのソフトは待ち状態になってしまうのです。 そのダイアログを消さないと操作が続かないのですが、 delphiのソフトからはどうにもこうにもできなくて困っています。 何かよい方法をご存知の方はいらっしゃいませんか？ 321 名前：デフォルトの名無しさん mailto:sage [2007/08/22(水) 17:42:23 ] ダイアログも自動的に操作すればいいじゃん 322 名前：デフォルトの名無しさん mailto:sage [2007/08/22(水) 21:54:50 ] >>323に期待 323 名前：デフォルトの名無しさん mailto:sage [2007/08/22(水) 22:07:59 ] テスト専用のプロジェクトを作るんでしょ。 >>320 OKボタンがウィンドウなら、OKボタンに対してWM_LBUTTONDOWNを送る。 324 名前：デフォルトの名無しさん mailto:sage [2007/08/23(木) 07:03:08 ] >>320 SendMessage を使って操作したら、その操作の中で相手がダイアログを出すから処理が帰って来ないって事だよね？ ならPostMessageに変更したらどう？ 325 名前：haru [2007/08/23(木) 09:40:41 ] 早速のお返事ありがとうございます。 >>321さん ダイアログが出た瞬間、delphiのソフトは待ち状態になるので ウィンドウが取得できないのです。 >>323 そのダイアログのウィンドウハンドルが取得できなくて悩んでいます。 >>324 そのとおりです。 PostMessageについて調べてみました。 確かにこれを使えばできそうな気がしますが、 その前に、出てきたダイアログのウィンドウハンドルが取得できません。 これは元のウィンドウから見てハンドルが決まってたりするんでしょうか？ ダイアログが出ていないときに、 ウィンドウハンドルやその中のﾎﾞﾀﾝのハンドルは決まっているのでしょうか？ (ダイアログが出てしまうとdelphiソフトは何も調べられないので。。) 再度よろしくお願いします。 326 名前：デフォルトの名無しさん mailto:sage [2007/08/23(木) 09:53:27 ] >>325 PostMessage に変更したら、処理は即座に帰って来るので その後開かれるダイアログを検索する事は出来ると思うよ。 Delphiのbinフォルダに WS32.exe があるからコレをまず眺めてみたら？ 327 名前：デフォルトの名無しさん mailto:sage [2007/08/23(木) 14:25:42 ] TListの中身がFreeされているか判断したいとき 予めnilを入れておく以外の方法ってありますか？ 328 名前：haru [2007/08/23(木) 14:54:52 ] >>326 解決しました。 ありがとうございました。 またお世話になるかもしれないので、よろしくお願いします！！ 329 名前：デフォルトの名無しさん mailto:sage [2007/08/23(木) 15:41:34 ] >>327 難しく考えず、ポインタも所詮数値なんだから 数値の正しさとは何か、を追求すればおのずと答えが出るじゃろ 330 名前：デフォルトの名無しさん [2007/08/23(木) 15:45:23 ] コンソールアプリケーションを用いて、 1 4 9 16 2 3 8 15 5 6 7 14 10 11 12 13 17 18 … と書くプログラムを作りたいのですが、よく分かりません。 分かる方、教えてください。 331 名前：デフォルトの名無しさん [2007/08/23(木) 15:47:15 ] すいません。 　 1　4　9　16 2　3　8　15 5　6　7　14 10 11 12 13 … 　 です。 332 名前：デフォルトの名無しさん mailto:sage [2007/08/23(木) 16:22:16 ] >>331 Pascalの宿題は俺にやらせろ！！Part2 pc11.2ch.net/test/read.cgi/tech/1136994325/ 333 名前：デフォルトの名無しさん mailto:sage [2007/08/23(木) 17:14:04 ] begin Writeln('1　4　9　16'); Writeln('2　3　8　15'); Writeln('5　6　7　14'); Writeln('10 11 12 13'); Writeln('…'); end. じゃだめなの？ 334 名前：デフォルトの名無しさん mailto:sage [2007/08/23(木) 17:54:48 ] >>329 kwsk freeしてもポインタはそのままなので判断できないのですが。 335 名前：デフォルトの名無しさん mailto:sage [2007/08/23(木) 17:55:18 ] 規則性のあるものにソレやっちゃったらダメだろうｗ 336 名前：デフォルトの名無しさん mailto:sage [2007/08/23(木) 18:18:18 ] >>327 コミュニケーション能力の欠如した輩がなにやらｸﾞﾀﾞｸﾞﾀﾞ言ってるようだが 一言で言うと「ない」。 337 名前：ななしへたぐらま ◆XcB18Bks.Y mailto:sage [2007/08/23(木) 18:35:02 ] >>327 ないと思います． ポインタの値（場所，アドレス）がnilではない場合， その値自体からそれが指している場所が開放されたかどうかは知ることはできませんし ポインタが指している場所のデータを実際に読み書きして試すこともできません． 結論として領域を解放したあとにnilを入れることになると思いますが 開放する領域がオブジェクト以外ならFreeMem(p)の代わりにReallocMem(p, 0)とすると 領域の解放とnilの代入を一度にできます． >>333 計算して値を出せという宿題なのでしょう． 338 名前：デフォルトの名無しさん mailto:sage [2007/08/23(木) 20:29:37 ] お前ら頭いいな 330の言葉足らずな質問だけでは俺も333としか思わかった 一種のエスパーだよ 339 名前：デフォルトの名無しさん mailto:sage [2007/08/23(木) 20:35:25 ] >>329 が言いたかったのは >>336-337 なんでしょ。つーかポインタって嫌いなんだけど好き 340 名前：329 mailto:sage [2007/08/23(木) 20:40:10 ] 違う 341 名前：デフォルトの名無しさん mailto:sage [2007/08/23(木) 21:59:10 ] 何が 342 名前：デフォルトの名無しさん mailto:sage [2007/08/23(木) 22:10:09 ] 日本語をおｋ 343 名前：デフォルトの名無しさん mailto:sage [2007/08/23(木) 22:50:18 ] 日本語を？ 344 名前：デフォルトの名無しさん mailto:sage [2007/08/23(木) 23:18:38 ] 日本語が 345 名前：デフォルトの名無しさん mailto:sage [2007/08/24(金) 01:43:12 ] >>327 Freeしたとき、Deleteもしちゃえ。 そうすれば、ListになければFreeされてると判断できる。 Createもされてないけどね！ 346 名前：デフォルトの名無しさん mailto:sage [2007/08/24(金) 01:46:59 ] このスレならどんな質問にも答えてくれるよ pc11.2ch.net/test/read.cgi/avi/1102121520/ 347 名前：デフォルトの名無しさん [2007/08/24(金) 09:53:27 ] Turbo Delphi で正規表現って、使えますか？ 348 名前：デフォルトの名無しさん mailto:sage [2007/08/24(金) 09:55:03 ] 使えません www.google.co.jp/search?q=delphi+regexp&sourceid=navclient-ff&ie=UTF-8&rlz=1B3GGGL_jaJP229JP231 349 名前：デフォルトの名無しさん mailto:sage [2007/08/24(金) 10:03:51 ] 使えます 350 名前：デフォルトの名無しさん [2007/08/24(金) 10:32:37 ] Turbo Delphi 無料の で正規表現の使い方を教えてください。 351 名前：自殺志願者 ◆bBXkw6pgOA mailto:sage [2007/08/24(金) 10:58:23 ] Delphi for PHPの話題もココでいいでつか？ 352 名前：デフォルトの名無しさん mailto:sage [2007/08/24(金) 11:02:55 ] 消えろｶｽ 353 名前：デフォルトの名無しさん mailto:sage [2007/08/24(金) 11:55:38 ] >>351 初心者用の質問スレはないからここでいいんじゃね？ あってもどうせすぐ落ちそうだし。 でも、答えられる人がいるかは不明。 PHPに関する質問なら、PHPスレのがいいかもね。 総合的な話題なら、オッチャの方でも時々出てるよ。 354 名前：デフォルトの名無しさん mailto:sage [2007/08/24(金) 12:09:12 ] オッチャ って何？ とgoogle 検索したら・・・・なるほど、オッチャだけで成立してるんだな 355 名前：デフォルトの名無しさん mailto:sage [2007/08/24(金) 12:15:48 ] （ノo`）アチャー （ノO`）アチャー （ノ∇`）アチャー （ノ▽`）アチャー （ノ∀`）アチャー （ノ◇`）アチャー アチャー（ノo｀;） アチャー（ノO｀;） アチャー（ノ∇｀;） アチャー（ノ▽｀;） アチャー（ノ∀｀;） アチャー（ノ◇｀;） アチャ・・・（ノ_< ;） 　 （・o+）アチャー （+。+）あちゃー (*_*)アチャ （^_・;）あちゃー (;´o｀)ゞアチャー!! (;´O｀)ゞアチャー!! (;´∇｀)ゞアチャー!! (;´▽｀)ゞアチャー!! (;´∀｀)ゞアチャー!! (;´◇｀)ゞアチャー!! Σ(´o｀;|||)アチャァ〜ッ Σ(´O｀;|||)アチャァ〜ッ Σ(´∇｀;|||)アチャァ〜ッ Σ(´▽｀;|||)アチャァ〜ッ Σ(´∀｀;|||)アチャァ〜ッ Σ(´◇｀;|||)アチャァ〜ッ （≧o≦;）アチャー （≧O≦;）アチャー （≧∇≦;）アチャー （≧▽≦;）アチャー （≧∀≦;）アチャー （≧◇≦;）アチャー （/≧o≦＼）アチャー!! （/≧O≦＼）アチャー!! （/≧∇≦＼）アチャー!! （/≧▽≦＼）アチャー!! （/≧∀≦＼）アチャー!! （/≧◇≦＼）アチャー!! （/o≦＼）アチャー！ （/O≦＼）アチャー！ （/∇≦＼）アチャー！ （/▽≦＼）アチャー！ （/∀≦＼）アチャー！ （/◇≦＼）アチャー！ （/o≦＼）アチャー！ミテランナイ！（/O≦＼）アチャー！ミテランナイ！（/∇≦＼）アチャー！ミテランナイ！ （/▽≦＼）アチャー！ミテランナイ！（/∀≦＼）アチャー！ミテランナイ！（/◇≦＼）アチャー！ミテランナイ！ アチャ〜（／o＼) アチャ〜（／O＼)アチャ〜（／∇＼) アチャ〜（／▽＼)アチャ〜（／∀＼) アチャ〜（／◇＼) （/・_・＼）アチャー・・ 　 （→←）アチャ (→o←;;; アチャ (→o←)ゞあちゃー 　 q(→-←q)　q(→0←)p　(p→-←)pアチャー 356 名前：Delﾌｻｷﾞｺ ◆A6VzDeLphI mailto:sage [2007/08/24(金) 17:41:33 ] 　　　　　　　　　　　＿＿＿＿＿＿＿＿＿＿＿＿＿ 　　 ,∧,,∧∩ 　／せんせい、 　　ミ,,ﾟДﾟ彡＜　　しつもんでーす ＿_ミ ﾐ　　ﾐ 　　＼ ＼,,∪ ￣￣￣＼　￣￣￣￣￣￣￣￣￣￣￣￣￣ ||ヽ||￣￣￣￣||" 　...||￣￣￣￣|| ファイルパスって A:\とか C:\とか \\マシン名\ とかじゃないですか。 AA:\ とかっていう可能性もあるんですか？ それとも、アルファベット1文字限定？ ネットワークドライブ接続をみると、アルファベット1文字のほうかなと 思っているんですが。 357 名前：デフォルトの名無しさん mailto:sage [2007/08/24(金) 17:46:16 ] >356 スレ違いだが、Windows上では2文字のドライブレターは存在しないと思う。 358 名前：デフォルトの名無しさん mailto:sage [2007/08/24(金) 23:20:22 ] 誰もWindowsなんて言ってない 359 名前：デフォルトの名無しさん mailto:sage [2007/08/24(金) 23:28:27 ] じゃあ>356は何のOSの話してるんだ？ 360 名前：デフォルトの名無しさん mailto:sage [2007/08/24(金) 23:31:13 ] ひ・み・つ♪ 361 名前：Delﾌｻｷﾞｺ ◆A6VzDeLphI mailto:sage [2007/08/25(土) 01:07:59 ] 　　　　　　　　　　＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿ 　　 ∧.,,∧　　 ／ああ、そうか。 　　ミ.*ﾟДﾟ彡＜　 　　ﾐ つ目(ﾐ .　＼ 〜ミ,,Ｏ,,,,,,つ 　　　￣￣￣￣￣￣￣￣￣￣￣￣￣￣ 自分の関数で、ファイルパスか否かを判断する関数を作ろうとしてて 一文字目アルファベット 二文字目： 三文字目\ で、\が連続して追加されてなければ ファイルパスかな、って判断。 している仕様でよいかな、 っておもう思考して質問してたから すれ違いとか、全然わかんなかったよ。 delfusa.main.jp/delfusafloor/opensource/delfusalibrary/20070708185145/FileNameUnit/FileNameUnit.pas これで、CheckDrivePathやCheckUNCPathはOKってことだね。 よかったよかった。 ありがとうございます。 362 名前：デフォルトの名無しさん mailto:sage [2007/08/25(土) 01:14:20 ] 　　 ∧.,,∧　　 　　ミ.*ﾟДﾟ彡 　　ﾐ つ目(ﾐ 〜ミ,,Ｏ,,,,,,つ 　 363 名前：デフォルトの名無しさん mailto:sage [2007/08/25(土) 09:26:27 ] 印刷プレビューを作ってるんですが、 例えばモノクロプリンタで黒以外の色で線を引くと、当然グレーなどで印刷されますよね。 それを画面上でプレビューするにはどうすればいいでしょうか？ ようするに線やフォントのColorプロパティをグレイスケールに変換したいのです。 364 名前：デフォルトの名無しさん mailto:sage [2007/08/25(土) 09:48:28 ] モノクロプリンタで黒以外の色で線を引くと １、グレーで印刷される・ ２、消えたり、黒だったりする　　　　　場合の２通りありますね いったん　TBitmapを作成して そのTCanvasにいったん描画すればいいんじゃないの？ １の場合は256色グレースケールのパレットで ２の場合はモノクロで 365 名前：デフォルトの名無しさん mailto:sage [2007/08/25(土) 10:02:13 ] QuickRep 366 名前：363 mailto:sage [2007/08/25(土) 15:06:29 ] YUV変換でググったらありました。 367 名前：デフォルトの名無しさん [2007/08/25(土) 20:20:47 ] 初心者も初心者でおはずかしいのですが、 0から始めるとしたら、Turbo ExplorerとDelphi6 Personal どっちを選んだほうがいいのかな？ さらにTurbo Explorerを選ぶとするなら、DLページに Turbo C++、Turbo Delphi、Turbo Delphi for .NET、Turbo C#から どれか選べとありますが、どれにしたらいいのか…。 .NET って.Net Framework対応のソフトを作るとかそういう為？ 利点さえよくわかってないので…ごく普通に配布用ゲームとか 自分用プログラムが作りたいだけなんです。 368 名前：デフォルトの名無しさん mailto:sage [2007/08/25(土) 20:27:19 ] DBが使いたいならTurbo。そうじゃなきゃ6でいい。 369 名前：デフォルトの名無しさん mailto:sage [2007/08/25(土) 20:30:47 ] >>367 6はライセンス取得できない。サイズやメモリ消費量の小さいバイナリが作れるTurboにしとけ 370 名前：デフォルトの名無しさん mailto:sage [2007/08/25(土) 20:38:58 ] >>368 DB自体がよくわかって（ｒｙ　言葉自体は聞くんですが… そっから始めないとというレベルで。 でもないよりはあったほうがいいのかな？ >>369 ライセンスキー？は現在取得できないとかまとめWikiに ありましたがそれのことでしょうか？ お二人ともが推薦してくれてるのでおとなしく Turbo Explorerにしてみます。>>366の4つのTurboでは 無印「Turbo Delphi」を選んだほうが無難ですか？ 371 名前：デフォルトの名無しさん mailto:sage [2007/08/25(土) 20:39:26 ] .NET が必要でヘルプが糞でコンポインストールできないTurboにしとけ 372 名前：367=370 mailto:sage [2007/08/25(土) 20:41:58 ] グダグダですいません >>370 ×>>366　→　○>>367 >>371 無印Turboは糞なんすか？ 373 名前：デフォルトの名無しさん mailto:sage [2007/08/25(土) 20:42:25 ] デルファイアンのみなさまこんにちは、毎年お騒がせしています夏厨です。 今日はこのページで配布されているマウスジェスチャーコンポーネントについて 質問です。　⇒　ttp://hp.vector.co.jp/authors/VA024591/ このページの一番下の　「マウスジェスチャー（右クリックでグリグリ）」　のリンクから ダウンロード出来ます　mousegesture.zip 内に収録されている Project1.dpr ですが 何故かエラーが出てコンパイル出来ません。 これを出来るように修正出来る方、良かったらご教授下さいませ。 エラーの内容は 「クラスTMouseGestureが見つかりません」 というものです。 gMouseGesture.pas にはこのクラスが定義されているのにおかしいです。 Unit1の uses節 には gMouseGesture が正しく追加されています。 一体何がいけないのでしょうか、Delphi MLやGoogleさんに聞いても教えて もらえませんでした、よろしくお願い致し候。 374 名前：373 mailto:sage [2007/08/25(土) 20:46:18 ] 環境は Delphi6 personal、RTL3までの全てのアップデートを適用済みでおじゃる。 OSはWindowsXP home SP2でおじゃる。 375 名前：デフォルトの名無しさん mailto:sage [2007/08/25(土) 20:50:51 ] コンポーネントとしてインストールしていないから。 376 名前：デフォルトの名無しさん mailto:sage [2007/08/25(土) 20:51:48 ] あ、ｺﾞﾒﾝ。 インスコしてなかったらIDEがフォームを表示する時にエラーになるわ。 377 名前：デフォルトの名無しさん mailto:sage [2007/08/25(土) 20:57:24 ] いやインストールしてないだけだろ 378 名前：373 mailto:sage [2007/08/25(土) 21:00:07 ] >>375-377 なるほど、そういうことでおじゃるか、今から試してみるでおじゃる。 ありがたき幸せ。 379 名前：373 mailto:sage [2007/08/25(土) 21:04:59 ] 動いたでおじゃる！！　ありがとうごじゃる！　おまんら神！ 380 名前：デフォルトの名無しさん mailto:sage [2007/08/25(土) 21:06:58 ] 偉くレベルの低い神だな 381 名前：デフォルトの名無しさん mailto:sage [2007/08/25(土) 21:33:07 ] >サイズやメモリ消費量の小さいバイナリが作れるTurbo kwsk 382 名前：デフォルトの名無しさん mailto:sage [2007/08/25(土) 21:50:28 ] 自分で試してみればいいじゃん 383 名前：デフォルトの名無しさん mailto:sage [2007/08/25(土) 21:58:30 ] なんとか長所をさがした末の苦しいほめ言葉ｗｗｗｗｗｗ 384 名前：デフォルトの名無しさん mailto:sage [2007/08/25(土) 22:13:01 ] ウザイな。自分が使ってる物が一番だと思ってるんだろうね。 385 名前：デフォルトの名無しさん [2007/08/25(土) 22:15:27 ] >>383 長所のない過去の産物に縋り付いてる人に言われたくないですよ。 386 名前：デフォルトの名無しさん mailto:sage [2007/08/25(土) 22:27:02 ] ばか 反論するなら383だけにしろ。 Personal版使ってる人に謝れ。 387 名前：デフォルトの名無しさん mailto:sage [2007/08/25(土) 23:11:01 ] どっちも素晴らしいと思います。 388 名前：デフォルトの名無しさん mailto:sage [2007/08/26(日) 00:24:34 ] その割には使われてないなぁ・・・

---

---

[ 新着レスの取得/表示 (agate) ] / [ 携帯版 ]

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