<?xml version="1.0" encoding="utf-8" standalone="yes"?><rss version="2.0" xmlns:atom="http://www.w3.org/2005/Atom"><channel><title>Delphi on WorkToolSmith</title><link>https://worktoolsmith.com/category/program/delphi/</link><description>Recent content in Delphi on WorkToolSmith</description><generator>Hugo</generator><language>ja-jp</language><lastBuildDate>Fri, 01 Apr 2022 13:13:37 +0900</lastBuildDate><atom:link href="https://worktoolsmith.com/category/program/delphi/index.xml" rel="self" type="application/rss+xml"/><item><title>FastReport VCLで「dclfrxIBX27.bplが有効なWin32アプリケーションではありません」などと出る</title><link>https://worktoolsmith.com/post-61628/</link><pubDate>Mon, 16 Aug 2021 17:48:38 +0900</pubDate><guid>https://worktoolsmith.com/post-61628/</guid><description>&lt;p&gt;自分への備忘録です。?&lt;/p&gt;&#10;&lt;p&gt;DelphiにFastReport VCLをインストールしたあと、Delphiを起動すると「&lt;strong&gt;dclfrxIBX27.bplが有効なWin32アプリケーションではありません&lt;/strong&gt;」のようなメッセージが出る場合の対処です。&lt;/p&gt;</description></item><item><title>Delphiで翌月1日を求めるならIncMonthを活用するべし！</title><link>https://worktoolsmith.com/delphi-incmonth/</link><pubDate>Wed, 26 May 2021 17:34:51 +0900</pubDate><guid>https://worktoolsmith.com/delphi-incmonth/</guid><description>&lt;p&gt;Delphiで&lt;strong&gt;翌月&lt;/strong&gt;を求める場合には、DateUtilsのIncMonthとStartOfAMonthを使うと確実という話。&lt;/p&gt;</description></item><item><title>DelphiでDBGridにデータを表示させると(MEMO)ばかりになる場合の対処方法</title><link>https://worktoolsmith.com/delphi-db-field-memo/</link><pubDate>Wed, 27 Feb 2019 18:28:19 +0900</pubDate><guid>https://worktoolsmith.com/delphi-db-field-memo/</guid><description>&lt;p&gt;DelphiのDBコンポーネント（ADOやFireDACなど）で、&lt;strong&gt;テキスト長に制限のないDB&lt;/strong&gt;（SQLite、FileMaker）などに接続すると、&lt;strong&gt;文字が全部「 (MEMO&lt;/strong&gt;)」 などとなってしまう現象があります。&lt;/p&gt;</description></item><item><title>DelphiのGetItでインストールに失敗した場合に強制削除する</title><link>https://worktoolsmith.com/delphi-getit-uninstall/</link><pubDate>Thu, 21 Feb 2019 12:00:46 +0900</pubDate><guid>https://worktoolsmith.com/delphi-getit-uninstall/</guid><description>&lt;p&gt;どうも太田アベル(&lt;a href="https://twitter.com/LandscapeSketch"&gt;@LandscapeSketch&lt;/a&gt;)です。&lt;/p&gt;&#10;&lt;p&gt;DelphiのGetItパッケージマネージャで&lt;strong&gt;インストールに失敗&lt;/strong&gt;した場合、アンインストール不能になることがたまにあります。&lt;/p&gt;</description></item><item><title>Delphi 10 Seatlle モバイル開発の進化はどうかな？ レビュー 1</title><link>https://worktoolsmith.com/delphi-10-seattle-review-1/</link><pubDate>Thu, 10 Sep 2015 20:00:00 +0900</pubDate><guid>https://worktoolsmith.com/delphi-10-seattle-review-1/</guid><description>&lt;p&gt;先日発売された、Delphi 10 Seatlle (デルファイ10 シアトル)のレビューです。&lt;/p&gt;&#10;&lt;p&gt;&lt;a href="http://ck.jp.ap.valuecommerce.com/servlet/referral?sid=2818777&amp;amp;pid=881715076&amp;amp;vc_url=http%3A%2F%2Fwww.seshop.com%2Fspecial%2Fembarcadero%2Fcampaign%2F"&gt;SE-Shop&lt;/a&gt;から購入し、Delphi 10 Pro + モバイルアドオンパック + サブスクリプションで&lt;span style="color: #ff0000;"&gt;&lt;strong&gt;175,824円&lt;/strong&gt;&lt;/span&gt;&#10;でした！（高！）&lt;/p&gt;</description></item><item><title>Delphiのエディタカラーを自在に変える神ツール Delphi IDE Theme Editor</title><link>https://worktoolsmith.com/delphi-ide-theme-editor/</link><pubDate>Thu, 04 Sep 2014 12:00:25 +0900</pubDate><guid>https://worktoolsmith.com/delphi-ide-theme-editor/</guid><description>&lt;p&gt;&lt;strong&gt;Delphiのエディタカラーの設定&lt;/strong&gt;は非常に(x2)めんどうです。さらに保存や新バージョンへの移植も&lt;strong&gt;レジストリをエクスポート&amp;gt;インポートしないといけない鬼設定&lt;/strong&gt;。（レジストリがいやなら手動！）&lt;/p&gt;</description></item><item><title>FireMonkeyのTImageは画像変換が超カンタン！</title><link>https://worktoolsmith.com/delphi-advent-2013/</link><pubDate>Thu, 12 Dec 2013 08:00:30 +0900</pubDate><guid>https://worktoolsmith.com/delphi-advent-2013/</guid><description>&lt;p&gt;｛この記事はDelphi Advent Calendar 2013の参加記事です｝&lt;/p&gt;&#10;&lt;p&gt;こんにちは太田アベルです。Delphi Advent Calendar に今年も参加中です。&lt;/p&gt;&#10;&lt;p&gt;昨日は&lt;a href="https://twitter.com/uskz"&gt;@uskz&lt;/a&gt;さんの「Assertの話(2)」でした。&lt;/p&gt;&#10;&lt;p&gt;今日は「&lt;strong&gt;FireMonkeyのTImageは画像変換が超カンタン&lt;/strong&gt;！」と題して、FireMonkeyで画像変換の方法を書いています。ちなみに変換というのはフォーマット変換のことです。エフェクトではありません。&lt;/p&gt;</description></item><item><title>Delphiで月ごとの最終日(月末日)を求める</title><link>https://worktoolsmith.com/6251/</link><pubDate>Tue, 03 Dec 2013 11:44:44 +0900</pubDate><guid>https://worktoolsmith.com/6251/</guid><description>&lt;p&gt;すごくよく忘れるので自分用のメモ。&lt;/p&gt;&#10;&lt;p&gt;uses に System.DateUtils を追加。&lt;/p&gt;&#10;&lt;p&gt;最終日を求めたい月の適当な日でTDateTimeを生成、EndOfTheMonthで最終日の時間を求める。（下記では1日で作っている）&lt;/p&gt;</description></item><item><title>DelphiのPAServerでデバッガが動かない場合の対処方法</title><link>https://worktoolsmith.com/5628/</link><pubDate>Wed, 25 Sep 2013 13:40:17 +0900</pubDate><guid>https://worktoolsmith.com/5628/</guid><description>&lt;p&gt;DelphiはWindows、OS X、iOS、Androidなどをシングルソースで開発できる開発環境です。&lt;/p&gt;&#10;&lt;p&gt;他のOS用アプリをデバッグするときは「&lt;strong&gt;Platform Assistant Server&lt;/strong&gt;（以下PAServer）」と呼ばれるプログラムを介して、目的のOSにワンタッチで転送、実行できます。&lt;/p&gt;</description></item><item><title>DelphiでiOSアプリを作るならこの本は必携だと思う (Delphiでかんたん iOSアプリプログラミング レビュー)</title><link>https://worktoolsmith.com/delphi-ios-book/</link><pubDate>Sun, 19 May 2013 23:55:28 +0900</pubDate><guid>https://worktoolsmith.com/delphi-ios-book/</guid><description>&lt;p&gt;&lt;strong&gt;Delphi XE4でのiOS開発は楽しいですね&lt;/strong&gt;〜！&lt;/p&gt;&#10;&lt;p&gt;Delphi大好きな太田アベルです。こんにちは。&lt;/p&gt;&#10;&lt;p&gt;今日は細川 淳さんの最新著書「&lt;a href="http://www.amazon.co.jp/exec/obidos/asin/4877833102/worktoolsmith-22/"&gt;&lt;strong&gt;Delphiでかんたん iOSアプリプログラミング&lt;/strong&gt;&lt;/a&gt;」が出ましたので、速攻レビューです。&lt;/p&gt;</description></item><item><title>FireMonkey環境でリッチビジュアルなListViewを作る</title><link>https://worktoolsmith.com/delphi-xe4-listview/</link><pubDate>Wed, 15 May 2013 14:04:59 +0900</pubDate><guid>https://worktoolsmith.com/delphi-xe4-listview/</guid><description>&lt;p&gt;こんにちは。Delphi大好きな太田アベルです。&lt;/p&gt;&#10;&lt;p&gt;先日に引き続きDelphi XE4を主体に体験記を書いています。&lt;/p&gt;&#10;&lt;hr&gt;&#10;&lt;p&gt;&lt;strong&gt;前回までの体験記事&lt;/strong&gt;&lt;/p&gt;</description></item><item><title>Delphiで作ったMacアプリケーションの配布(バンドル .app化)</title><link>https://worktoolsmith.com/make-osx-bundle/</link><pubDate>Mon, 13 May 2013 08:01:18 +0900</pubDate><guid>https://worktoolsmith.com/make-osx-bundle/</guid><description>&lt;p&gt;Delphi XE4でMacアプリケーションづくりを楽しんでいる太田アベルです。&lt;/p&gt;&#10;&lt;p&gt;&lt;a href="https://worktoolsmith.com/delphi-mac/"&gt;前回の記事&lt;/a&gt;でDelphiからMacソフトを手軽にデバッグする手順を紹介しました。&lt;/p&gt;&#10;&lt;p&gt;&lt;strong&gt;PAServer&lt;/strong&gt;というDelphi付属のソフトを使えば、&lt;strong&gt;MacとWindowsでファイルをコピーしたりしなくても、すぐに実行・デバッグできて便利&lt;/strong&gt;です。&lt;/p&gt;</description></item><item><title>MacにDelphiのデバッガI/F PAServerをセットアップする</title><link>https://worktoolsmith.com/delphi-mac/</link><pubDate>Sun, 12 May 2013 16:31:05 +0900</pubDate><guid>https://worktoolsmith.com/delphi-mac/</guid><description>&lt;p&gt;Delphi XE4の使い心地を確認中の太田アベルです。&lt;/p&gt;&#10;&lt;p&gt;ちなみに購入したのはモバイル開発環境を含む&lt;strong&gt;Add-On Pack for Delphi XE4&lt;/strong&gt;。&lt;/p&gt;&#10;&lt;p&gt;&lt;img src="https://worktoolsmith.com/wp/wp-content/uploads/2013/05/XE4seshop.jpg" alt="XE4購入画面" width="600" loading="lazy" decoding="async"&gt;&lt;/p&gt;&#10;&lt;p&gt;購入したのは恒例の&lt;a href="http://ck.jp.ap.valuecommerce.com/servlet/referral?sid=2818777&amp;amp;pid=881715076&amp;amp;vc_url=https%3A%2F%2Fwww.seshop.com%2Fproduct%2F2-1544%2F"&gt;SEShop&lt;/a&gt;です。&lt;/p&gt;</description></item><item><title>Delphi Mac OSでのShellExecute</title><link>https://worktoolsmith.com/macos_shellexecute/</link><pubDate>Wed, 01 May 2013 17:26:41 +0900</pubDate><guid>https://worktoolsmith.com/macos_shellexecute/</guid><description>&lt;p&gt;Delphiからでブラウザを開きたいときなど、&lt;strong&gt;ShellExecute&lt;/strong&gt;を使う必要があります。&lt;/p&gt;&#10;&lt;p&gt;FireMonkeyプロジェクトでも、WindowsならusesにWinapi.ShellAPI, Winapi.Windowsを追加し、&lt;/p&gt;</description></item><item><title>Delphi XE4発売！モバイル開発はどんな具合？</title><link>https://worktoolsmith.com/4527/</link><pubDate>Wed, 24 Apr 2013 09:56:14 +0900</pubDate><guid>https://worktoolsmith.com/4527/</guid><description>&lt;p&gt;&lt;img src="https://i0.wp.com/www.seshop.com/static/images/product/15737/L.jpg?w=1058&amp;amp;ssl=1" alt="" loading="lazy" decoding="async"&gt;&lt;br&gt;&#10;&lt;a href="http://ck.jp.ap.valuecommerce.com/servlet/referral?sid=2818777&amp;amp;pid=881715076&amp;amp;vc_url=https%3A%2F%2Fwww.seshop.com%2Fproduct%2F2-1544%2F"&gt;&lt;img class="px" src="http://ad.jp.ap.valuecommerce.com/servlet/gifbanner?sid=2818777&amp;amp;pid=881715076" alt="" width="1" height="1" loading="lazy"&gt;Delphi XE4&lt;/a&gt;（SEShopへリンク）&lt;/p&gt;&#10;&lt;p&gt;エンバカデロより&lt;strong&gt;RAD Studio XE4、Delphi XE4、C++ Builder XE4&lt;/strong&gt;が発売されました！&lt;/p&gt;&#10;&lt;p&gt;今回の目玉はやはり&lt;strong&gt;モバイル強化&lt;/strong&gt;。XE2で搭載されたiOS、Android対応が&lt;strong&gt;なぜかXE3では消え&lt;/strong&gt;、そして&lt;strong&gt;機能を強化してXE4で復活&lt;/strong&gt;という流れです。&lt;/p&gt;</description></item><item><title>Adobe PhotoShop(初代)のソースコードがダウンロード可能に</title><link>https://worktoolsmith.com/photoshop-sourcecode/</link><pubDate>Mon, 18 Feb 2013 13:34:13 +0900</pubDate><guid>https://worktoolsmith.com/photoshop-sourcecode/</guid><description>&lt;p&gt;&lt;img src="https://i0.wp.com/www.computerhistory.org/atchm//wp-content/uploads/2013/01/splashscreen.jpg?w=1058" alt="" loading="lazy" decoding="async"&gt;&lt;/p&gt;&#10;&lt;p&gt;デザイン業務、映像業務になくてはならないソフト「&lt;strong&gt;PhotoShop&lt;/strong&gt;（フォトショップ）」&lt;/p&gt;&#10;&lt;p&gt;その一番最初の公開バージョン「1.0.1」のソースコードが公開されました！&lt;/p&gt;</description></item><item><title>Delphiでrtl170.bplがないエラーが発生</title><link>https://worktoolsmith.com/3760/</link><pubDate>Mon, 21 Jan 2013 10:40:11 +0900</pubDate><guid>https://worktoolsmith.com/3760/</guid><description>&lt;p&gt;DelphiでJVCLをインストールしようとしたら、変なエラーが出ましたのでメモ。&lt;/p&gt;&#10;&lt;p&gt;エラーは&lt;/p&gt;&#10;&lt;blockquote&gt;&#10;&lt;p&gt;コンピューターに rtl170.bpl がないため、プログラムを開始できません。この問題を解決するには、プログラムを再インストールしてみてください。&lt;/p&gt;&#10;&lt;/blockquote&gt;</description></item><item><title>DelphiでMapファイルを出力するには？</title><link>https://worktoolsmith.com/delphi-map-file/</link><pubDate>Thu, 17 Jan 2013 12:01:04 +0900</pubDate><guid>https://worktoolsmith.com/delphi-map-file/</guid><description>&lt;p&gt;コードカバレッジやデバッグなどで使用する「.map」ファイルですが、Delphiでももちろん出力できます。&lt;/p&gt;&#10;&lt;p&gt;設定方法を説明します。&lt;/p&gt;</description></item><item><title>Indyでホームページを取得し、タイトルを抽出</title><link>https://worktoolsmith.com/delphi_atnd_2012/</link><pubDate>Sat, 15 Dec 2012 00:00:54 +0900</pubDate><guid>https://worktoolsmith.com/delphi_atnd_2012/</guid><description>&lt;p&gt;こんにちは太田アベルです。&lt;/p&gt;&#10;&lt;p&gt;&lt;a href="http://atnd.org/events/34390"&gt;Delphi Advent Calender&lt;/a&gt;の投稿記事です。&lt;/p&gt;&#10;&lt;p&gt;昨日は&lt;a href="https://twitter.com/lynatan"&gt;@lyna&lt;/a&gt;さんの「&lt;a href="http://d.hatena.ne.jp/tales/20121214/1355418690"&gt;IDEにおける背景変更機能の導入による開発効率への影響とその考察。&lt;/a&gt;」でした。タイトルに反して&lt;strong&gt;痛IDE作成記事&lt;/strong&gt;となっていましたが、痛いIDE実現のためにプラグインを開発してしまうあたりが恐ろしいところです。&lt;/p&gt;&#10;&lt;p&gt;私は非常にライトに、Indyを使ったインターネットデータへのアクセスをしてみようと思います。もちろん健全なデータです（笑）&lt;/p&gt;</description></item><item><title>Delphi XE3 FireMonkey変更点</title><link>https://worktoolsmith.com/delphi-xe3-firemonkey/</link><pubDate>Tue, 25 Sep 2012 14:35:15 +0900</pubDate><guid>https://worktoolsmith.com/delphi-xe3-firemonkey/</guid><description>&lt;p&gt;Delphi XE3ではFireMonkeyが2となりました。&lt;/p&gt;&#10;&lt;p&gt;いろいろな宣言やユニットの変更が行われていますが、問題はヘルプが追いついていないということで・・・&lt;/p&gt;</description></item><item><title>ソースコードを表示するためのフォント「Source Code Pro」をアドビがオープンソースで無料公開</title><link>https://worktoolsmith.com/2385/</link><pubDate>Tue, 25 Sep 2012 11:39:40 +0900</pubDate><guid>https://worktoolsmith.com/2385/</guid><description>&lt;p&gt;&lt;img src="https://i0.wp.com/blogs.adobe.com/typblography/files/2012/09/SourceCodeSplash.png?resize=352%2C218" alt="" width="352" loading="lazy" decoding="async"&gt;&lt;/p&gt;&#10;&lt;p&gt;ソースコードを表示するフォントは悩みます。適切な行間、モノスペース、見やすい字体など人によって好みが違います。合うフォントを使えば作業効率が上がります。&lt;/p&gt;</description></item><item><title>Delphi XE2の正規表現「System.RegularExpressions」を試す</title><link>https://worktoolsmith.com/delphi-xe2-system-regularexpressions/</link><pubDate>Wed, 12 Sep 2012 13:30:15 +0900</pubDate><guid>https://worktoolsmith.com/delphi-xe2-system-regularexpressions/</guid><description>&lt;p&gt;Delphi XEからは正規表現ライブラリが標準搭載されています。&lt;/p&gt;&#10;&lt;p&gt;ユニットは「&lt;strong&gt;System.RegularExpressions&lt;/strong&gt;」&lt;/p&gt;&#10;&lt;p&gt;このライブラリを試してみたいと思います。&lt;/p&gt;</description></item><item><title>DelphiでGUID（一意識別子）を生成</title><link>https://worktoolsmith.com/delphi-guid/</link><pubDate>Sat, 08 Sep 2012 13:34:00 +0900</pubDate><guid>https://worktoolsmith.com/delphi-guid/</guid><description>&lt;p&gt;Delphiでも&lt;strong&gt;GUID&lt;/strong&gt;を生成する関数が用意されています。&lt;/p&gt;&#10;&lt;p&gt;XE2からは&lt;strong&gt;System.SysUtils&lt;/strong&gt;にまとめられました。&lt;/p&gt;&#10;&lt;p&gt;Delphiヘルプから引用&lt;/p&gt;</description></item><item><title>Delphi XE2でComObj.dcuが見つからない</title><link>https://worktoolsmith.com/delphi-xe2-comobj-not-found/</link><pubDate>Sat, 08 Sep 2012 13:30:08 +0900</pubDate><guid>https://worktoolsmith.com/delphi-xe2-comobj-not-found/</guid><description>&lt;p&gt;GUIDの生成などに使うユニット「Comobj.dcu」がXE2からは名称が変わっています。&lt;/p&gt;&#10;&lt;p&gt;uses に &lt;strong&gt;System.Win.Comobj&lt;/strong&gt; の追加でOKです。&lt;/p&gt;</description></item><item><title>Delphiで文字列を表示するための高さ、幅を取得する</title><link>https://worktoolsmith.com/delphi-text-height-get/</link><pubDate>Sat, 08 Sep 2012 13:08:04 +0900</pubDate><guid>https://worktoolsmith.com/delphi-text-height-get/</guid><description>&lt;p&gt;Canvasに文字列を表示するとき、Gridなどの高さや幅を指定したいときにつかえる関数。&lt;/p&gt;&#10;&lt;p&gt;文字列は全てCanvasから高さを得ています。&lt;/p&gt;</description></item><item><title>Delphiで32bitのアイコンの背景が黒くなってしまう症状</title><link>https://worktoolsmith.com/delphi-32bit-icon-black/</link><pubDate>Fri, 07 Sep 2012 15:48:17 +0900</pubDate><guid>https://worktoolsmith.com/delphi-32bit-icon-black/</guid><description>&lt;p&gt;Delphiの過去のプロジェクトをXE2などに移植した場合、&lt;strong&gt;32bitの半透明アイコンの背景が黒くなってしまう場合&lt;/strong&gt;があります。&lt;/p&gt;</description></item><item><title>DelphiのIndy TIdHTTPで処理が返ってこない</title><link>https://worktoolsmith.com/delphi-indy-noresponse/</link><pubDate>Wed, 04 Apr 2012 11:42:48 +0900</pubDate><guid>https://worktoolsmith.com/delphi-indy-noresponse/</guid><description>&lt;p&gt;DelphiのIndy TIdHTTPでGETなどを行っても、&lt;strong&gt;処理が返ってこない&lt;/strong&gt;時があります。&lt;/p&gt;&#10;&lt;p&gt;正確にはOnConnectまでは発生するがまったくそこから動かない状態。その場合、&lt;strong&gt;GETメソッドのURLをURLEncodeしていない可能性&lt;/strong&gt;があります。&lt;/p&gt;</description></item><item><title>Delphi TFrameでCreate, Destroyを実装する</title><link>https://worktoolsmith.com/delphi-tframe-create-destroy/</link><pubDate>Tue, 03 Apr 2012 18:24:57 +0900</pubDate><guid>https://worktoolsmith.com/delphi-tframe-create-destroy/</guid><description>&lt;p&gt;TFrameはフォームのように設計できますが、OnCreate, OnDestroyイベントがありません。&lt;/p&gt;&#10;&lt;p&gt;しかし上位クラスからCreate, Destroyを継承すれば問題なく初期化、廃棄処理ができる。&lt;/p&gt;</description></item><item><title>DelphiでTTextFormatでtfVerticalCenterを指定しても上下センターにならない</title><link>https://worktoolsmith.com/delphi-ttextfformat-tfvertialcenter/</link><pubDate>Sat, 31 Mar 2012 16:43:18 +0900</pubDate><guid>https://worktoolsmith.com/delphi-ttextfformat-tfvertialcenter/</guid><description>&lt;p&gt;DelphiでTextRect関数を使用して文字を描画する場合、TTextFormatsで描画位置を調整できます。&lt;/p&gt;&#10;&lt;p&gt;しかしtfVerticalCenterという型があるのに、&lt;strong&gt;指定しても上下中央になりません&lt;/strong&gt;。&lt;/p&gt;</description></item><item><title>Delphi XE2 Update 4が来た</title><link>https://worktoolsmith.com/delphi-xe2-update-4/</link><pubDate>Wed, 21 Mar 2012 14:57:39 +0900</pubDate><guid>https://worktoolsmith.com/delphi-xe2-update-4/</guid><description>&lt;p&gt;いつのまにかDelphi XE2のUpdate 4が公開されています。&lt;br&gt;&#10;（いまだにDelphi2009ばかり使っているので更新を見逃してました）&lt;/p&gt;</description></item><item><title>Delphiで月の初日、末日を求める</title><link>https://worktoolsmith.com/delphi-syonichi-getsumatsu/</link><pubDate>Wed, 18 Jan 2012 10:56:31 +0900</pubDate><guid>https://worktoolsmith.com/delphi-syonichi-getsumatsu/</guid><description>&lt;p&gt;Delphiである月の初日、月末日を求める方法です。&lt;/p&gt;&#10;&lt;p&gt;以前にもこのブログで書いたことがありますが、&lt;a href="https://worktoolsmith.com/delphi-getsu-matsu/"&gt;以前の記事&lt;/a&gt;では翌月の求め方が書いてありませんでした。&lt;/p&gt;&#10;&lt;h2 id="コード"&gt;コード&lt;/h2&gt;&#10;&lt;div class="highlight"&gt;&lt;pre tabindex="0" style="color:#f8f8f2;background-color:#272822;-moz-tab-size:4;-o-tab-size:4;tab-size:4;-webkit-text-size-adjust:none;"&gt;&lt;code class="language-pas" data-lang="pas"&gt;&lt;span style="display:flex;"&gt;&lt;span&gt;&lt;span style="color:#66d9ef"&gt;var&lt;/span&gt;&#10;&lt;/span&gt;&lt;/span&gt;&lt;span style="display:flex;"&gt;&lt;span&gt;&#10;&lt;/span&gt;&lt;/span&gt;&lt;span style="display:flex;"&gt;&lt;span&gt; FirstDay, LastDay &lt;span style="color:#f92672"&gt;:&lt;/span&gt; TDate;&#10;&lt;/span&gt;&lt;/span&gt;&lt;span style="display:flex;"&gt;&lt;span&gt;&#10;&lt;/span&gt;&lt;/span&gt;&lt;span style="display:flex;"&gt;&lt;span&gt;&lt;span style="color:#66d9ef"&gt;begin&lt;/span&gt;&#10;&lt;/span&gt;&lt;/span&gt;&lt;span style="display:flex;"&gt;&lt;span&gt;&#10;&lt;/span&gt;&lt;/span&gt;&lt;span style="display:flex;"&gt;&lt;span&gt; &lt;span style="color:#75715e"&gt;//1日を作る&lt;/span&gt;&#10;&lt;/span&gt;&lt;/span&gt;&lt;span style="display:flex;"&gt;&lt;span&gt;&#10;&lt;/span&gt;&lt;/span&gt;&lt;span style="display:flex;"&gt;&lt;span&gt; FirstDay &lt;span style="color:#f92672"&gt;:=&lt;/span&gt; StrToDate&lt;span style="color:#f92672"&gt;(&lt;/span&gt;‘&lt;span style="color:#ae81ff"&gt;2012&lt;/span&gt;&lt;span style="color:#f92672"&gt;/&lt;/span&gt;&lt;span style="color:#ae81ff"&gt;1&lt;/span&gt;&lt;span style="color:#f92672"&gt;/&lt;/span&gt;&lt;span style="color:#ae81ff"&gt;1&lt;/span&gt;’&lt;span style="color:#f92672"&gt;)&lt;/span&gt;;&#10;&lt;/span&gt;&lt;/span&gt;&lt;span style="display:flex;"&gt;&lt;span&gt;&#10;&lt;/span&gt;&lt;/span&gt;&lt;span style="display:flex;"&gt;&lt;span&gt; &lt;span style="color:#75715e"&gt;//月末を求める&lt;/span&gt;&#10;&lt;/span&gt;&lt;/span&gt;&lt;span style="display:flex;"&gt;&lt;span&gt;&#10;&lt;/span&gt;&lt;/span&gt;&lt;span style="display:flex;"&gt;&lt;span&gt; LastDay &lt;span style="color:#f92672"&gt;:=&lt;/span&gt; IncMonth&lt;span style="color:#f92672"&gt;(&lt;/span&gt;FirstDay&lt;span style="color:#f92672"&gt;)&lt;/span&gt; &lt;span style="color:#f92672"&gt;-&lt;/span&gt;&lt;span style="color:#ae81ff"&gt;1&lt;/span&gt;;&#10;&lt;/span&gt;&lt;/span&gt;&lt;span style="display:flex;"&gt;&lt;span&gt;&#10;&lt;/span&gt;&lt;/span&gt;&lt;span style="display:flex;"&gt;&lt;span&gt;&lt;span style="color:#66d9ef"&gt;end&lt;/span&gt;;&lt;/span&gt;&lt;/span&gt;&lt;/code&gt;&lt;/pre&gt;&lt;/div&gt;&#10;&lt;p&gt;まずStrToDateで初日をあらわす文字列からTDate型を生成します。&lt;br&gt;&#10;次にIncMonth関数でFirstDayを1ヶ月進めます。&lt;br&gt;&#10;そこから-1で1日引けば月末日が出ます。&lt;/p&gt;</description></item><item><title>文字列とカラー値(TColor)を相互変換する</title><link>https://worktoolsmith.com/924/</link><pubDate>Thu, 12 Jan 2012 09:20:23 +0900</pubDate><guid>https://worktoolsmith.com/924/</guid><description>&lt;p&gt;Delphiで文字列とTColorを相互変換するには以下の関数を使うと便利。&lt;/p&gt;&#10;&lt;h2 id="文字列からtcolorへ"&gt;文字列からTColorへ&lt;/h2&gt;&#10;&lt;p&gt;&lt;strong&gt;StringToColor(String文字列&lt;/strong&gt;)&lt;/p&gt;</description></item><item><title>超高品質、大量のツールアイコン</title><link>https://worktoolsmith.com/tool-icon-free/</link><pubDate>Tue, 06 Dec 2011 12:32:16 +0900</pubDate><guid>https://worktoolsmith.com/tool-icon-free/</guid><description>&lt;p&gt;ソフトを作っていく中で、ツールのアイコンは非常に重要です。&lt;/p&gt;&#10;&lt;p&gt;でも購入するとかなり高額だったり、フリーのものでは種類が少なかったりとなかなかうまく見つからないものです。&lt;/p&gt;</description></item><item><title>Delphi TImageListへの画像追加をカンタンにする</title><link>https://worktoolsmith.com/delphi-timagelist-add-image/</link><pubDate>Tue, 06 Dec 2011 11:47:32 +0900</pubDate><guid>https://worktoolsmith.com/delphi-timagelist-add-image/</guid><description>&lt;p&gt;Delphiで多数のメニューを使う場合、TImageListで画像を一括管理するのが便利です。&lt;/p&gt;&#10;&lt;p&gt;しかし大きなアイコン、大きなアイコンのフォーカス状態、小さなアイコン、小さなアイコンのフォーカス状態・・・などと作っていくと、管理するだけで大変です。&lt;/p&gt;</description></item><item><title>Delphi高機能エディタコンポーネント「SynEdit」</title><link>https://worktoolsmith.com/delphi-synedit-component/</link><pubDate>Mon, 05 Dec 2011 11:40:50 +0900</pubDate><guid>https://worktoolsmith.com/delphi-synedit-component/</guid><description>&lt;p&gt;Delphiでシンタックスハイライティング、オートコンプリート、高度な行数えなどなどを実現してくれるエディタコンポーネント「SynEdit」を紹介します。&lt;/p&gt;</description></item><item><title>Delphiで月末日を求める</title><link>https://worktoolsmith.com/delphi-getsu-matsu/</link><pubDate>Tue, 29 Nov 2011 18:21:55 +0900</pubDate><guid>https://worktoolsmith.com/delphi-getsu-matsu/</guid><description>&lt;p&gt;翌月の1日を代入し、そこから1日引くことで作成できる。&lt;/p&gt;&#10;&lt;div class="highlight"&gt;&lt;pre tabindex="0" style="color:#f8f8f2;background-color:#272822;-moz-tab-size:4;-o-tab-size:4;tab-size:4;-webkit-text-size-adjust:none;"&gt;&lt;code class="language-pas" data-lang="pas"&gt;&lt;span style="display:flex;"&gt;&lt;span&gt;&lt;span style="color:#66d9ef"&gt;var&lt;/span&gt;&#10;&lt;/span&gt;&lt;/span&gt;&lt;span style="display:flex;"&gt;&lt;span&gt;&#10;&lt;/span&gt;&lt;/span&gt;&lt;span style="display:flex;"&gt;&lt;span&gt; LastDay &lt;span style="color:#f92672"&gt;:&lt;/span&gt; TDate;&#10;&lt;/span&gt;&lt;/span&gt;&lt;span style="display:flex;"&gt;&lt;span&gt;&#10;&lt;/span&gt;&lt;/span&gt;&lt;span style="display:flex;"&gt;&lt;span&gt; &lt;span style="color:#66d9ef"&gt;begin&lt;/span&gt;&#10;&lt;/span&gt;&lt;/span&gt;&lt;span style="display:flex;"&gt;&lt;span&gt;&#10;&lt;/span&gt;&lt;/span&gt;&lt;span style="display:flex;"&gt;&lt;span&gt; LastDay &lt;span style="color:#f92672"&gt;:=&lt;/span&gt; StrToDate&lt;span style="color:#f92672"&gt;(&lt;/span&gt;‘&lt;span style="color:#ae81ff"&gt;2011&lt;/span&gt;&lt;span style="color:#f92672"&gt;/&lt;/span&gt;&lt;span style="color:#ae81ff"&gt;11&lt;/span&gt;&lt;span style="color:#f92672"&gt;/&lt;/span&gt;&lt;span style="color:#ae81ff"&gt;1&lt;/span&gt;’&lt;span style="color:#f92672"&gt;)&lt;/span&gt;;&#10;&lt;/span&gt;&lt;/span&gt;&lt;span style="display:flex;"&gt;&lt;span&gt;&#10;&lt;/span&gt;&lt;/span&gt;&lt;span style="display:flex;"&gt;&lt;span&gt; LastDay &lt;span style="color:#f92672"&gt;:=&lt;/span&gt; LastDay &lt;span style="color:#f92672"&gt;-&lt;/span&gt; &lt;span style="color:#ae81ff"&gt;1&lt;/span&gt;;&#10;&lt;/span&gt;&lt;/span&gt;&lt;span style="display:flex;"&gt;&lt;span&gt;&#10;&lt;/span&gt;&lt;/span&gt;&lt;span style="display:flex;"&gt;&lt;span&gt; ShowMessage DateToStr&lt;span style="color:#f92672"&gt;(&lt;/span&gt; LastDay &lt;span style="color:#f92672"&gt;)&lt;/span&gt;;&#10;&lt;/span&gt;&lt;/span&gt;&lt;span style="display:flex;"&gt;&lt;span&gt;&#10;&lt;/span&gt;&lt;/span&gt;&lt;span style="display:flex;"&gt;&lt;span&gt; &lt;span style="color:#66d9ef"&gt;end&lt;/span&gt;;&lt;/span&gt;&lt;/span&gt;&lt;/code&gt;&lt;/pre&gt;&lt;/div&gt;</description></item><item><title>TValueListEditorの行の高さ</title><link>https://worktoolsmith.com/tvalue-list-editor-line-height/</link><pubDate>Mon, 28 Nov 2011 16:51:23 +0900</pubDate><guid>https://worktoolsmith.com/tvalue-list-editor-line-height/</guid><description>&lt;p&gt;DelphiでTValueListEditorの行が狭すぎるときがあります。&lt;/p&gt;&#10;&lt;p&gt;TValueListEditorはTCustomGridを継承しています。&lt;/p&gt;</description></item><item><title>Delphi スレッドエラー:ハンドルが無効です。(6) の対処</title><link>https://worktoolsmith.com/delphi-thread-error-6/</link><pubDate>Thu, 24 Nov 2011 12:06:42 +0900</pubDate><guid>https://worktoolsmith.com/delphi-thread-error-6/</guid><description>&lt;p&gt;DelphiでTThreadを使っていると、「&lt;strong&gt;&lt;em&gt;スレッド&lt;/em&gt;エラー:&lt;em&gt;ハンドルが無効&lt;/em&gt;です。(6&lt;/strong&gt;)」というエラーが生成されることがあります。&lt;/p&gt;</description></item><item><title>Delphi XE2とMac OS</title><link>https://worktoolsmith.com/delphi-xe2-macos-test/</link><pubDate>Sun, 30 Oct 2011 09:35:00 +0900</pubDate><guid>https://worktoolsmith.com/delphi-xe2-macos-test/</guid><description>&lt;p&gt;今日は久しぶりの土用休みなので朝からDelphi XE2をいじっています。&lt;/p&gt;&#10;&lt;p&gt;目玉のFireMonkeyでMac OSアプリを開発してみていますが、コレ、問題だらけかも・・・&lt;/p&gt;</description></item><item><title>Delphiで16進数の文字列からバイナリストリームを生成する</title><link>https://worktoolsmith.com/delphi-16hex-binary/</link><pubDate>Thu, 27 Oct 2011 09:32:10 +0900</pubDate><guid>https://worktoolsmith.com/delphi-16hex-binary/</guid><description>&lt;p&gt;16進数の文字列「932F34E5A890」からバイナリデータを生成する関数を作りました。PHP等からHEXで出力した文字列をバイトストリームに変換します。&lt;/p&gt;</description></item><item><title>Delphi XE2とJCL、JVCL</title><link>https://worktoolsmith.com/delphi-xe2-jedi/</link><pubDate>Thu, 08 Sep 2011 09:40:00 +0900</pubDate><guid>https://worktoolsmith.com/delphi-xe2-jedi/</guid><description>&lt;p&gt;Delphiで非常に有用な超巨大コンポーネントパックJEDIです。&lt;br&gt;&#10;私も非常に多くの場面で使わせていただいています。&lt;/p&gt;&#10;&lt;p&gt;こちらは2011/9/8現在、正式最新版は出ていませんが、&lt;br&gt;&#10;SVNからの最新リビジョンでインストールできました。&lt;/p&gt;</description></item><item><title>Delphi XE2発売！</title><link>https://worktoolsmith.com/delphi-xe2-on-store/</link><pubDate>Mon, 05 Sep 2011 09:36:00 +0900</pubDate><guid>https://worktoolsmith.com/delphi-xe2-on-store/</guid><description>&lt;p&gt;ついにこの日がキター！&lt;/p&gt;&#10;&lt;p&gt;Delphi XE2が発売です！&lt;/p&gt;&#10;&lt;p&gt;今回のバージョンアップは64ビット化などものすごい大きな変化が含まれていますが、&lt;br&gt;&#10;そのなかでもMac、iOSに対応！！が個人的にものすごいうれしいです！&lt;/p&gt;</description></item><item><title>DelphiでBase64符号、複合化</title><link>https://worktoolsmith.com/delphi-base64/</link><pubDate>Wed, 29 Jun 2011 16:50:37 +0900</pubDate><guid>https://worktoolsmith.com/delphi-base64/</guid><description>&lt;p&gt;DelphiでBase64を使用したい場合、Delphi2009以降は標準で便利なユニットが付いています。&lt;/p&gt;&#10;&lt;p&gt;使い方を説明します。&lt;/p&gt;</description></item><item><title>Delphi OpenXMLがうまく動かない</title><link>https://worktoolsmith.com/delphi-openxml/</link><pubDate>Tue, 21 Jun 2011 10:05:09 +0900</pubDate><guid>https://worktoolsmith.com/delphi-openxml/</guid><description>&lt;p&gt;DelphiのネイティブXMLコンポーネント「&lt;a href="http://www.philo.de/xml/"&gt;OpenXML&lt;/a&gt;」があります。&lt;br&gt;&#10;（しかしOpenXMLのページの背景色はものすごいな・・・目が痛い）&lt;/p&gt;&#10;&lt;p&gt;項目数の多いXMLでXPathが使いたかったのでインストールしてみましたが・・・うまく動きません。環境はWindows 7 + Delphi2009&lt;/p&gt;</description></item><item><title>EvernoteからGMailへ移行するツールを作ったが・・・</title><link>https://worktoolsmith.com/evernote-to-gmail-tool/</link><pubDate>Fri, 14 May 2010 11:49:44 +0900</pubDate><guid>https://worktoolsmith.com/evernote-to-gmail-tool/</guid><description>&lt;p&gt;Evernoteをずっと使っていましたが、それぞれのクライアントにインストールする手間があることと、携帯などからのメモもGMailに送っていることもあり、全部GMailに移行することにしました。&lt;/p&gt;</description></item><item><title>Delphi 2009発売</title><link>https://worktoolsmith.com/delphi-2009%E7%99%BA%E5%A3%B2/</link><pubDate>Fri, 06 Nov 2009 22:40:31 +0900</pubDate><guid>https://worktoolsmith.com/delphi-2009%E7%99%BA%E5%A3%B2/</guid><description>&lt;p&gt;さて本日発売されたらしいDelphi 2009ですが、なにやら出荷が遅れているようです。&lt;/p&gt;&#10;&lt;p&gt;エンバカデロテクノロジーズになって１発目からこれでは・・・&lt;/p&gt;</description></item><item><title>自分用メモ</title><link>https://worktoolsmith.com/post_14/</link><pubDate>Fri, 23 Oct 2009 11:59:35 +0900</pubDate><guid>https://worktoolsmith.com/post_14/</guid><description>&lt;p&gt;JvPlugInはDLL側からホストアプリケーションのコンポーネントを参照し、キャストする。&lt;/p&gt;&#10;&lt;p&gt;PKGタイプにするとDelphiのシステムディレクトリにBPLができてしまう。&lt;/p&gt;</description></item><item><title>Delphi2009でDLLが読み込めない場合</title><link>https://worktoolsmith.com/delphi2009-dll-cant-load/</link><pubDate>Fri, 29 May 2009 09:37:10 +0900</pubDate><guid>https://worktoolsmith.com/delphi2009-dll-cant-load/</guid><description>&lt;p&gt;Delphi2009では内部文字コードがすべてUniCode化されました。&lt;/p&gt;&#10;&lt;p&gt;この変化がDelphi2007以前からのDelphiコードの移植に多少の混乱を与えます。&lt;br&gt;&#10;もっとも変化が大きいのはやはりCOMやActiveXを操作する場合でしょうか。&lt;/p&gt;</description></item><item><title>Delphi2009についての詳細なテキストが発売されました</title><link>https://worktoolsmith.com/delphi2009_3/</link><pubDate>Thu, 28 May 2009 15:32:55 +0900</pubDate><guid>https://worktoolsmith.com/delphi2009_3/</guid><description>&lt;p&gt;ようやっとDelphi2009の頼りになりそうな本が発売されます。&lt;/p&gt;&#10;&lt;p&gt;&lt;a href="http://www.amazon.co.jp/gp/product/487783222X?ie=UTF8&amp;amp;tag=gracixcom-22&amp;amp;linkCode=as2&amp;amp;camp=247&amp;amp;creative=7399&amp;amp;creativeASIN=487783222X"&gt;DELPHI2009HANDBOOK―Delphi最新プログラミングエッセンス&lt;/a&gt;&lt;img src="http://www.assoc-amazon.jp/e/ir?t=gracixcom-22&amp;amp;l=as2&amp;amp;o=9&amp;amp;a=487783222X" alt="" loading="lazy" decoding="async"&gt;&lt;/p&gt;&#10;&lt;p&gt;監修はもちろんエンバカデロ・テクノロジーズ。&lt;br&gt;&#10;著者のMarco Cantuさんはインプレスから発売されていた&lt;a href="http://www.amazon.co.jp/exec/obidos/ASIN/4844316346/gracixcom-22/ref=nosim"&gt;Delphi 6 プログラミングバイブル&lt;/a&gt; の作者で有名です。&lt;br&gt;&#10;（この本にもお世話になりました）&lt;/p&gt;</description></item><item><title>Delphi 2009 リボンメニューの作り方 その4</title><link>https://worktoolsmith.com/delphi_2009_4/</link><pubDate>Thu, 09 Apr 2009 18:58:44 +0900</pubDate><guid>https://worktoolsmith.com/delphi_2009_4/</guid><description>&lt;p&gt;&lt;a href="https://worktoolsmith.com/delphi_2009_3/"&gt;前回&lt;/a&gt;まででアプリケーションメニューの作り方がわかりました。&lt;/p&gt;&#10;&lt;p&gt;今回は「オプションアイテム」というアプリケーションメニューの下につく「終了」などのボタンを作ってみます。&lt;/p&gt;&#10;&lt;h2 id="オプションアイテムを作る"&gt;オプションアイテムを作る&lt;/h2&gt;&#10;&lt;p&gt;Ribbon1を選択します。&lt;/p&gt;</description></item><item><title>Delphi 2009 リボンメニューの作り方 その3</title><link>https://worktoolsmith.com/delphi_2009_3/</link><pubDate>Thu, 09 Apr 2009 18:36:58 +0900</pubDate><guid>https://worktoolsmith.com/delphi_2009_3/</guid><description>&lt;p&gt;前回まででリボンメニューの基本的なベース、項目を設置するところまで説明できました。&lt;/p&gt;&#10;&lt;p&gt;次はちょっとクセのあるアプリケーションメニューです。&lt;/p&gt;</description></item><item><title>Delphi2009 リボンメニューの作り方 その2</title><link>https://worktoolsmith.com/delphi2009_2/</link><pubDate>Thu, 09 Apr 2009 18:03:30 +0900</pubDate><guid>https://worktoolsmith.com/delphi2009_2/</guid><description>&lt;h2 id="ボタン配置の前に必要なことがあります"&gt;ボタン配置の前に必要なことがあります&lt;/h2&gt;&#10;&lt;p&gt;リボンへメニューやボタンを配置するには通常のTButtonではできません。操作するオブジェクトはすべてTActionからの派生になります。 &lt;br&gt;&#10;といっても難しいコーディングは不要です。（このあたりさすがDelphi）&lt;/p&gt;</description></item><item><title>Delphi 2009 リボンメニューの作り方 その1</title><link>https://worktoolsmith.com/delphi_2009_1_1/</link><pubDate>Thu, 09 Apr 2009 18:02:49 +0900</pubDate><guid>https://worktoolsmith.com/delphi_2009_1_1/</guid><description>&lt;p&gt;そこかしこで「使いにくい」と大評判(笑)の、Office2007から採用された「リボンメニュー」。&lt;/p&gt;&#10;&lt;p&gt;Delphi2009で純正コンポーネントとして使えるようになりました。&lt;/p&gt;</description></item><item><title>Delphi 2009 リボンメニューの作り方 その1</title><link>https://worktoolsmith.com/delphi_2009_1/</link><pubDate>Thu, 09 Apr 2009 18:00:06 +0900</pubDate><guid>https://worktoolsmith.com/delphi_2009_1/</guid><description>&lt;p&gt;そこかしこで「使いにくい」と大評判(笑)のOffice2007から採用された「リボンメニュー」。 &lt;br&gt;&#10;Delphi2009で純正コンポーネントとして使えるようになりました。&lt;/p&gt;</description></item><item><title>Delphi2009 JCL JVCLインストール その３</title><link>https://worktoolsmith.com/delphi2009_jcl_jvcl/</link><pubDate>Tue, 07 Apr 2009 10:46:15 +0900</pubDate><guid>https://worktoolsmith.com/delphi2009_jcl_jvcl/</guid><description>&lt;p&gt;Delphi2009でうまくインストールできないJCL、JVCLの話題その3です。（まだやってたのか）&lt;/p&gt;&#10;&lt;p&gt;&lt;a href="https://worktoolsmith.com/delphi2009jcljvcl_1/"&gt;前回までで日本語名ユーザーで、管理者権限がないとダメという結論が出ました&lt;/a&gt;が、日本語名のユーザーでもインストールできたという情報があり、再度深く確認しました。&lt;/p&gt;&#10;&lt;p&gt;答えは「%TEMP%に２バイト文字が入っているとダメ、管理者権限がないとダメ」になりました。&lt;/p&gt;</description></item><item><title>Delphi2009とJVCL 完結編</title><link>https://worktoolsmith.com/delphi2009jvcl_1/</link><pubDate>Sat, 04 Apr 2009 17:24:46 +0900</pubDate><guid>https://worktoolsmith.com/delphi2009jvcl_1/</guid><description>&lt;p&gt;紆余曲折、インストールとアンインストールの嵐をへて、ついに完結編です。&lt;/p&gt;&#10;&lt;h2 id="日本語名のユーザーではインストール不可能"&gt;日本語名のユーザーではインストール不可能&lt;/h2&gt;&#10;&lt;p&gt;以上でございます(; ;&lt;/p&gt;&#10;&lt;p&gt;アルファベットだけのユーザー名で、AdministratorsグループのユーザーならOKです。 &lt;br&gt;&#10;ソースすら変更する必要がありませんでした・・・&lt;/p&gt;</description></item><item><title>Delphi2009とJVCL ユーザに戻ったら使えねー</title><link>https://worktoolsmith.com/delphi2009jvcl/</link><pubDate>Sat, 04 Apr 2009 15:05:25 +0900</pubDate><guid>https://worktoolsmith.com/delphi2009jvcl/</guid><description>&lt;p&gt;&lt;a href="https://worktoolsmith.com/delphi2009jcljvcl/"&gt;前回&lt;/a&gt;AdministratorでインストールできたJVCL。&lt;/p&gt;&#10;&lt;p&gt;ユーザーアカウントに戻ったら登録されていません・・・(; ;&lt;/p&gt;&#10;&lt;p&gt;当たり前といえば当たり前。&lt;/p&gt;&#10;&lt;p&gt;でもなんとかしないと完全な移行ができません。&lt;/p&gt;</description></item><item><title>Delphi2009 JVCLインストール後のエンコードエラー</title><link>https://worktoolsmith.com/delphi2009_jvcl/</link><pubDate>Sat, 04 Apr 2009 14:40:49 +0900</pubDate><guid>https://worktoolsmith.com/delphi2009_jvcl/</guid><description>&lt;p&gt;Delphi2009にJVCLはインストールできましたが、EnvOptions.projというファイルで致命的エラーになる症状が出ます。&lt;/p&gt;</description></item><item><title>Delphi2009笑える</title><link>https://worktoolsmith.com/delphi2009_1/</link><pubDate>Sat, 04 Apr 2009 14:15:09 +0900</pubDate><guid>https://worktoolsmith.com/delphi2009_1/</guid><description>&lt;p&gt;Delphi2009は全面的にユニコードを採用しています。&lt;br&gt;&#10;コード自体にも日本語が使えるということなのでちょっと実験。&lt;/p&gt;&#10;&lt;div class="highlight"&gt;&lt;pre tabindex="0" style="color:#f8f8f2;background-color:#272822;-moz-tab-size:4;-o-tab-size:4;tab-size:4;-webkit-text-size-adjust:none;"&gt;&lt;code class="language-pas" data-lang="pas"&gt;&lt;span style="display:flex;"&gt;&lt;span&gt;&lt;span style="color:#66d9ef"&gt;procedure&lt;/span&gt; TForm1.Button1Click&lt;span style="color:#f92672"&gt;(&lt;/span&gt;Sender&lt;span style="color:#f92672"&gt;:&lt;/span&gt; TObject&lt;span style="color:#f92672"&gt;)&lt;/span&gt;;&#10;&lt;/span&gt;&lt;/span&gt;&lt;span style="display:flex;"&gt;&lt;span&gt;&#10;&lt;/span&gt;&lt;/span&gt;&lt;span style="display:flex;"&gt;&lt;span&gt;&lt;span style="color:#66d9ef"&gt;var&lt;/span&gt;&#10;&lt;/span&gt;&lt;/span&gt;&lt;span style="display:flex;"&gt;&lt;span&gt;&#10;&lt;/span&gt;&lt;/span&gt;&lt;span style="display:flex;"&gt;&lt;span&gt;なんかの文字&lt;span style="color:#f92672"&gt;:&lt;/span&gt; &lt;span style="color:#66d9ef"&gt;String&lt;/span&gt;;&#10;&lt;/span&gt;&lt;/span&gt;&lt;span style="display:flex;"&gt;&lt;span&gt;&#10;&lt;/span&gt;&lt;/span&gt;&lt;span style="display:flex;"&gt;&lt;span&gt;&lt;span style="color:#66d9ef"&gt;begin&lt;/span&gt;&#10;&lt;/span&gt;&lt;/span&gt;&lt;span style="display:flex;"&gt;&lt;span&gt;&#10;&lt;/span&gt;&lt;/span&gt;&lt;span style="display:flex;"&gt;&lt;span&gt;なんかの文字 &lt;span style="color:#f92672"&gt;:=&lt;/span&gt; &lt;span style="color:#e6db74"&gt;&amp;#39;あああ&amp;#39;&lt;/span&gt;;&#10;&lt;/span&gt;&lt;/span&gt;&lt;span style="display:flex;"&gt;&lt;span&gt;&#10;&lt;/span&gt;&lt;/span&gt;&lt;span style="display:flex;"&gt;&lt;span&gt;Caption &lt;span style="color:#f92672"&gt;:=&lt;/span&gt; なんかの文字;&#10;&lt;/span&gt;&lt;/span&gt;&lt;span style="display:flex;"&gt;&lt;span&gt;&#10;&lt;/span&gt;&lt;/span&gt;&lt;span style="display:flex;"&gt;&lt;span&gt;&lt;span style="color:#66d9ef"&gt;end&lt;/span&gt;;&lt;/span&gt;&lt;/span&gt;&lt;/code&gt;&lt;/pre&gt;&lt;/div&gt;&#10;&lt;p&gt;「なんかの文字」という変数を定義してみました。上記コードを実行すると、フォームのCaptionがちゃんと「あああ」になります。&lt;/p&gt;</description></item><item><title>Delphi2009にJCL、JVCLをインストール その２</title><link>https://worktoolsmith.com/delphi2009jcljvcl_1/</link><pubDate>Sat, 04 Apr 2009 13:41:30 +0900</pubDate><guid>https://worktoolsmith.com/delphi2009jcljvcl_1/</guid><description>&lt;p&gt;さて&lt;a href="https://worktoolsmith.com/delphi2009jcljvcl/"&gt;前回&lt;/a&gt;でJCLをインストールできました。&lt;/p&gt;&#10;&lt;p&gt;次はJVCLです。&lt;/p&gt;&#10;&lt;p&gt;JCLのインストールがちゃんとできていれば、インストーラはちゃんと起動します。&lt;/p&gt;&#10;&lt;p&gt;ちゃんとといっても&lt;/p&gt;&#10;&lt;p&gt;\jvcl\run\JvJCLUtils.pas(2565) 警告: W1057 文字列の暗黙的なキャスト (‘AnsiString’ から ‘string’)&lt;/p&gt;</description></item><item><title>Delphi2009にJCL、JVCLをインストール</title><link>https://worktoolsmith.com/delphi2009jcljvcl/</link><pubDate>Sat, 04 Apr 2009 12:00:13 +0900</pubDate><guid>https://worktoolsmith.com/delphi2009jcljvcl/</guid><description>&lt;p&gt;Delphi2009をようやっと購入できました！&lt;/p&gt;&#10;&lt;p&gt;さっそくDelphi2007をアンインストールし、コンポーネントの移植を始めます。&lt;/p&gt;</description></item><item><title>Delphi 2009発売</title><link>https://worktoolsmith.com/delphi-2009-on-sale/</link><pubDate>Fri, 19 Sep 2008 23:36:16 +0900</pubDate><guid>https://worktoolsmith.com/delphi-2009-on-sale/</guid><description>&lt;p&gt;さて本日発売されたらしいDelphi 2009ですが、なにやら出荷が遅れているようです。&lt;/p&gt;&#10;&lt;p&gt;エンバカデロテクノロジーズになって１発目からこれでは・・・&lt;/p&gt;</description></item><item><title>Delphi2009はどうか？</title><link>https://worktoolsmith.com/delphi2009-review-1/</link><pubDate>Wed, 10 Sep 2008 23:14:31 +0900</pubDate><guid>https://worktoolsmith.com/delphi2009-review-1/</guid><description>&lt;p&gt;Delphi2009の発表からしばらく経ちました。&lt;/p&gt;&#10;&lt;p&gt;発売日は９月１８日予定です。&lt;/p&gt;&#10;&lt;p&gt;エンバカデロテクノロジーズのブランドになって、どのようにBorland、CodeGearのコンセプトが継承されていくかが気になりますね。&lt;/p&gt;</description></item><item><title>SQL ServerへのInsertで「右側が切り捨てられました」のエラー</title><link>https://worktoolsmith.com/sql_serverinsert/</link><pubDate>Thu, 05 Jun 2008 17:56:26 +0900</pubDate><guid>https://worktoolsmith.com/sql_serverinsert/</guid><description>&lt;p&gt;あまりに悩んで無駄な時間をすごしたので自分のメモ。まあいわゆるハマリというやつですね。&lt;/p&gt;&#10;&lt;p&gt;ADOQueryなどでSQL ServerへInsertした場合に&lt;/p&gt;</description></item><item><title>TRegExprで半角カタカナにマッチ</title><link>https://worktoolsmith.com/delphi-tregexpr-1/</link><pubDate>Sat, 22 Mar 2008 19:28:04 +0900</pubDate><guid>https://worktoolsmith.com/delphi-tregexpr-1/</guid><description>&lt;p&gt;Delphiの正規表現ユニットTRegExprで、半角カタカナにマッチさせる&lt;/p&gt;&#10;&lt;div class="highlight"&gt;&lt;pre tabindex="0" style="color:#f8f8f2;background-color:#272822;-moz-tab-size:4;-o-tab-size:4;tab-size:4;-webkit-text-size-adjust:none;"&gt;&lt;code class="language-pas" data-lang="pas"&gt;&lt;span style="display:flex;"&gt;&lt;span&gt;&lt;span style="color:#66d9ef"&gt;procedure&lt;/span&gt; TForm1.Button1Click&lt;span style="color:#f92672"&gt;(&lt;/span&gt;Sender&lt;span style="color:#f92672"&gt;:&lt;/span&gt; TObject&lt;span style="color:#f92672"&gt;)&lt;/span&gt;;&#10;&lt;/span&gt;&lt;/span&gt;&lt;span style="display:flex;"&gt;&lt;span&gt;&#10;&lt;/span&gt;&lt;/span&gt;&lt;span style="display:flex;"&gt;&lt;span&gt;&lt;span style="color:#66d9ef"&gt;var&lt;/span&gt;&#10;&lt;/span&gt;&lt;/span&gt;&lt;span style="display:flex;"&gt;&lt;span&gt;&#10;&lt;/span&gt;&lt;/span&gt;&lt;span style="display:flex;"&gt;&lt;span&gt;r&lt;span style="color:#f92672"&gt;:&lt;/span&gt; TRegExpr;&#10;&lt;/span&gt;&lt;/span&gt;&lt;span style="display:flex;"&gt;&lt;span&gt;&#10;&lt;/span&gt;&lt;/span&gt;&lt;span style="display:flex;"&gt;&lt;span&gt;&lt;span style="color:#66d9ef"&gt;begin&lt;/span&gt;&#10;&lt;/span&gt;&lt;/span&gt;&lt;span style="display:flex;"&gt;&lt;span&gt;&#10;&lt;/span&gt;&lt;/span&gt;&lt;span style="display:flex;"&gt;&lt;span&gt;r &lt;span style="color:#f92672"&gt;:=&lt;/span&gt; TRegExpr.create;&#10;&lt;/span&gt;&lt;/span&gt;&lt;span style="display:flex;"&gt;&lt;span&gt;&#10;&lt;/span&gt;&lt;/span&gt;&lt;span style="display:flex;"&gt;&lt;span&gt;r.Expression &lt;span style="color:#f92672"&gt;:=&lt;/span&gt; &lt;span style="color:#e6db74"&gt;&amp;#39;[ｱ-ﾝﾞﾟ]&amp;#39;&lt;/span&gt;;&#10;&lt;/span&gt;&lt;/span&gt;&lt;span style="display:flex;"&gt;&lt;span&gt;&#10;&lt;/span&gt;&lt;/span&gt;&lt;span style="display:flex;"&gt;&lt;span&gt;&lt;span style="color:#66d9ef"&gt;if&lt;/span&gt; r.exec&lt;span style="color:#f92672"&gt;(&lt;/span&gt;Edit1.&lt;span style="color:#66d9ef"&gt;text&lt;/span&gt;&lt;span style="color:#f92672"&gt;)&lt;/span&gt; &lt;span style="color:#66d9ef"&gt;then&lt;/span&gt;&#10;&lt;/span&gt;&lt;/span&gt;&lt;span style="display:flex;"&gt;&lt;span&gt;&#10;&lt;/span&gt;&lt;/span&gt;&lt;span style="display:flex;"&gt;&lt;span&gt;ShowMessage&lt;span style="color:#f92672"&gt;(&lt;/span&gt;&lt;span style="color:#e6db74"&gt;&amp;#39;OK&amp;#39;&lt;/span&gt;&lt;span style="color:#f92672"&gt;)&lt;/span&gt;&#10;&lt;/span&gt;&lt;/span&gt;&lt;span style="display:flex;"&gt;&lt;span&gt;&#10;&lt;/span&gt;&lt;/span&gt;&lt;span style="display:flex;"&gt;&lt;span&gt;&lt;span style="color:#66d9ef"&gt;else&lt;/span&gt;&#10;&lt;/span&gt;&lt;/span&gt;&lt;span style="display:flex;"&gt;&lt;span&gt;&#10;&lt;/span&gt;&lt;/span&gt;&lt;span style="display:flex;"&gt;&lt;span&gt;ShowMessage&lt;span style="color:#f92672"&gt;(&lt;/span&gt;&lt;span style="color:#e6db74"&gt;&amp;#39;No&amp;#39;&lt;/span&gt;&lt;span style="color:#f92672"&gt;)&lt;/span&gt;;&#10;&lt;/span&gt;&lt;/span&gt;&lt;span style="display:flex;"&gt;&lt;span&gt;&#10;&lt;/span&gt;&lt;/span&gt;&lt;span style="display:flex;"&gt;&lt;span&gt;r.Free;&#10;&lt;/span&gt;&lt;/span&gt;&lt;span style="display:flex;"&gt;&lt;span&gt;&#10;&lt;/span&gt;&lt;/span&gt;&lt;span style="display:flex;"&gt;&lt;span&gt;&lt;span style="color:#66d9ef"&gt;end&lt;/span&gt;;&lt;/span&gt;&lt;/span&gt;&lt;/code&gt;&lt;/pre&gt;&lt;/div&gt;</description></item><item><title>TRegExprで大文字、小文字を無視してマッチ</title><link>https://worktoolsmith.com/delphi-tregexpr-2/</link><pubDate>Sat, 22 Mar 2008 12:10:52 +0900</pubDate><guid>https://worktoolsmith.com/delphi-tregexpr-2/</guid><description>&lt;p&gt;TRegExprで大文字小文字をも無視してマッチさせたい場合があります。&lt;br&gt;&#10;この場合はどうすればよいのでしょうか？&lt;/p&gt;&#10;&lt;p&gt;Linux系統などでは /i などのオプション文字を付けます。&lt;/p&gt;</description></item><item><title>XDW_GetInformationをDelphiから利用する</title><link>https://worktoolsmith.com/docuworks-api-xdw-getinformation/</link><pubDate>Fri, 21 Mar 2008 18:42:22 +0900</pubDate><guid>https://worktoolsmith.com/docuworks-api-xdw-getinformation/</guid><description>&lt;p&gt;&lt;strong&gt;XDW_GetInformation&lt;/strong&gt;はDocuWorksのシステム情報を取得する関数です。&lt;/p&gt;&#10;&lt;p&gt;システム情報とはインストール先のフォルダ、バージョンなどです。&lt;/p&gt;</description></item><item><title>CとDelphiの型と算術記号の互換性</title><link>https://worktoolsmith.com/c_to_delphi/</link><pubDate>Mon, 17 Mar 2008 17:12:37 +0900</pubDate><guid>https://worktoolsmith.com/c_to_delphi/</guid><description>&lt;p&gt;CのソースをDelphiに移植する際に悩むのが型と算術記号。&lt;/p&gt;&#10;&lt;p&gt;算術記号はだいたい同じように対応しているからいいものの、型はかなり違っていて、しかも対応するものが無い物があったりするから困り者です。&lt;/p&gt;</description></item><item><title>Delphi次期バージョンのアンケート</title><link>https://worktoolsmith.com/delphi-next-version/</link><pubDate>Sat, 15 Mar 2008 10:03:09 +0900</pubDate><guid>https://worktoolsmith.com/delphi-next-version/</guid><description>&lt;p&gt;MDelphi次期バージョンへ向けてアンケートが実施されています。もちろんCordGear純正（？）のアンケートです。&lt;/p&gt;&#10;&lt;p&gt;かなり長いですが、私も答えてみました。&lt;/p&gt;</description></item><item><title>XDW_COLORについて</title><link>https://worktoolsmith.com/docuworks-api-xdw-color/</link><pubDate>Wed, 12 Mar 2008 15:15:02 +0900</pubDate><guid>https://worktoolsmith.com/docuworks-api-xdw-color/</guid><description>&lt;p&gt;DocuWorks APIで使える（定義されている）標準カラーについて覚え書き。&lt;/p&gt;&#10;&lt;div class="highlight"&gt;&lt;pre tabindex="0" style="color:#f8f8f2;background-color:#272822;-moz-tab-size:4;-o-tab-size:4;tab-size:4;-webkit-text-size-adjust:none;"&gt;&lt;code class="language-pas" data-lang="pas"&gt;&lt;span style="display:flex;"&gt;&lt;span&gt;XDW_COLOR_NONE &lt;span style="color:#f92672"&gt;=&lt;/span&gt; &lt;span style="color:#ae81ff"&gt;$010101&lt;/span&gt;;&#10;&lt;/span&gt;&lt;/span&gt;&lt;span style="display:flex;"&gt;&lt;span&gt;&#10;&lt;/span&gt;&lt;/span&gt;&lt;span style="display:flex;"&gt;&lt;span&gt;XDW_COLOR_BLACK &lt;span style="color:#f92672"&gt;=&lt;/span&gt; &lt;span style="color:#ae81ff"&gt;$000000&lt;/span&gt;;&#10;&lt;/span&gt;&lt;/span&gt;&lt;span style="display:flex;"&gt;&lt;span&gt;&#10;&lt;/span&gt;&lt;/span&gt;&lt;span style="display:flex;"&gt;&lt;span&gt;XDW_COLOR_MAROON &lt;span style="color:#f92672"&gt;=&lt;/span&gt; &lt;span style="color:#ae81ff"&gt;$000080&lt;/span&gt;;&#10;&lt;/span&gt;&lt;/span&gt;&lt;span style="display:flex;"&gt;&lt;span&gt;&#10;&lt;/span&gt;&lt;/span&gt;&lt;span style="display:flex;"&gt;&lt;span&gt;XDW_COLOR_GREEN &lt;span style="color:#f92672"&gt;=&lt;/span&gt; &lt;span style="color:#ae81ff"&gt;$008000&lt;/span&gt;;&#10;&lt;/span&gt;&lt;/span&gt;&lt;span style="display:flex;"&gt;&lt;span&gt;&#10;&lt;/span&gt;&lt;/span&gt;&lt;span style="display:flex;"&gt;&lt;span&gt;XDW_COLOR_OLIVE &lt;span style="color:#f92672"&gt;=&lt;/span&gt; &lt;span style="color:#ae81ff"&gt;$008080&lt;/span&gt;;&#10;&lt;/span&gt;&lt;/span&gt;&lt;span style="display:flex;"&gt;&lt;span&gt;&#10;&lt;/span&gt;&lt;/span&gt;&lt;span style="display:flex;"&gt;&lt;span&gt;XDW_COLOR_NAVY &lt;span style="color:#f92672"&gt;=&lt;/span&gt; &lt;span style="color:#ae81ff"&gt;$800000&lt;/span&gt;;&#10;&lt;/span&gt;&lt;/span&gt;&lt;span style="display:flex;"&gt;&lt;span&gt;&#10;&lt;/span&gt;&lt;/span&gt;&lt;span style="display:flex;"&gt;&lt;span&gt;XDW_COLOR_PURPLE &lt;span style="color:#f92672"&gt;=&lt;/span&gt; &lt;span style="color:#ae81ff"&gt;$800080&lt;/span&gt;;&#10;&lt;/span&gt;&lt;/span&gt;&lt;span style="display:flex;"&gt;&lt;span&gt;&#10;&lt;/span&gt;&lt;/span&gt;&lt;span style="display:flex;"&gt;&lt;span&gt;XDW_COLOR_TEAL &lt;span style="color:#f92672"&gt;=&lt;/span&gt; &lt;span style="color:#ae81ff"&gt;$808000&lt;/span&gt;;&#10;&lt;/span&gt;&lt;/span&gt;&lt;span style="display:flex;"&gt;&lt;span&gt;&#10;&lt;/span&gt;&lt;/span&gt;&lt;span style="display:flex;"&gt;&lt;span&gt;XDW_COLOR_GRAY &lt;span style="color:#f92672"&gt;=&lt;/span&gt; &lt;span style="color:#ae81ff"&gt;$808080&lt;/span&gt;;&#10;&lt;/span&gt;&lt;/span&gt;&lt;span style="display:flex;"&gt;&lt;span&gt;&#10;&lt;/span&gt;&lt;/span&gt;&lt;span style="display:flex;"&gt;&lt;span&gt;XDW_COLOR_SILVER &lt;span style="color:#f92672"&gt;=&lt;/span&gt; &lt;span style="color:#ae81ff"&gt;$C0C0C0&lt;/span&gt;;&#10;&lt;/span&gt;&lt;/span&gt;&lt;span style="display:flex;"&gt;&lt;span&gt;&#10;&lt;/span&gt;&lt;/span&gt;&lt;span style="display:flex;"&gt;&lt;span&gt;XDW_COLOR_RED &lt;span style="color:#f92672"&gt;=&lt;/span&gt; &lt;span style="color:#ae81ff"&gt;$0000FF&lt;/span&gt;;&#10;&lt;/span&gt;&lt;/span&gt;&lt;span style="display:flex;"&gt;&lt;span&gt;&#10;&lt;/span&gt;&lt;/span&gt;&lt;span style="display:flex;"&gt;&lt;span&gt;XDW_COLOR_LIME &lt;span style="color:#f92672"&gt;=&lt;/span&gt; &lt;span style="color:#ae81ff"&gt;$00FF00&lt;/span&gt;;&#10;&lt;/span&gt;&lt;/span&gt;&lt;span style="display:flex;"&gt;&lt;span&gt;&#10;&lt;/span&gt;&lt;/span&gt;&lt;span style="display:flex;"&gt;&lt;span&gt;XDW_COLOR_YELLOW &lt;span style="color:#f92672"&gt;=&lt;/span&gt; &lt;span style="color:#ae81ff"&gt;$00FFFF&lt;/span&gt;;&#10;&lt;/span&gt;&lt;/span&gt;&lt;span style="display:flex;"&gt;&lt;span&gt;&#10;&lt;/span&gt;&lt;/span&gt;&lt;span style="display:flex;"&gt;&lt;span&gt;XDW_COLOR_BLUE &lt;span style="color:#f92672"&gt;=&lt;/span&gt; &lt;span style="color:#ae81ff"&gt;$FF0000&lt;/span&gt;;&#10;&lt;/span&gt;&lt;/span&gt;&lt;span style="display:flex;"&gt;&lt;span&gt;&#10;&lt;/span&gt;&lt;/span&gt;&lt;span style="display:flex;"&gt;&lt;span&gt;XDW_COLOR_FUCHIA &lt;span style="color:#f92672"&gt;=&lt;/span&gt; &lt;span style="color:#ae81ff"&gt;$FF00FF&lt;/span&gt;;&#10;&lt;/span&gt;&lt;/span&gt;&lt;span style="display:flex;"&gt;&lt;span&gt;&#10;&lt;/span&gt;&lt;/span&gt;&lt;span style="display:flex;"&gt;&lt;span&gt;XDW_COLOR_AQUA &lt;span style="color:#f92672"&gt;=&lt;/span&gt; &lt;span style="color:#ae81ff"&gt;$FFFF00&lt;/span&gt;;&#10;&lt;/span&gt;&lt;/span&gt;&lt;span style="display:flex;"&gt;&lt;span&gt;&#10;&lt;/span&gt;&lt;/span&gt;&lt;span style="display:flex;"&gt;&lt;span&gt;XDW_COLOR_WHITE &lt;span style="color:#f92672"&gt;=&lt;/span&gt; &lt;span style="color:#ae81ff"&gt;$FFFFFF&lt;/span&gt;;&#10;&lt;/span&gt;&lt;/span&gt;&lt;span style="display:flex;"&gt;&lt;span&gt;&#10;&lt;/span&gt;&lt;/span&gt;&lt;span style="display:flex;"&gt;&lt;span&gt;XDW_COLOR_FUSEN_RED &lt;span style="color:#f92672"&gt;=&lt;/span&gt; &lt;span style="color:#ae81ff"&gt;$FFC2FF&lt;/span&gt;;&#10;&lt;/span&gt;&lt;/span&gt;&lt;span style="display:flex;"&gt;&lt;span&gt;&#10;&lt;/span&gt;&lt;/span&gt;&lt;span style="display:flex;"&gt;&lt;span&gt;XDW_COLOR_FUSEN_BLUE &lt;span style="color:#f92672"&gt;=&lt;/span&gt; &lt;span style="color:#ae81ff"&gt;$FFBF9D&lt;/span&gt;;&#10;&lt;/span&gt;&lt;/span&gt;&lt;span style="display:flex;"&gt;&lt;span&gt;&#10;&lt;/span&gt;&lt;/span&gt;&lt;span style="display:flex;"&gt;&lt;span&gt;XDW_COLOR_FUSEN_YELLOW &lt;span style="color:#f92672"&gt;=&lt;/span&gt; &lt;span style="color:#ae81ff"&gt;$64FFFF&lt;/span&gt;;&#10;&lt;/span&gt;&lt;/span&gt;&lt;span style="display:flex;"&gt;&lt;span&gt;&#10;&lt;/span&gt;&lt;/span&gt;&lt;span style="display:flex;"&gt;&lt;span&gt;XDW_COLOR_FUSEN_LIME &lt;span style="color:#f92672"&gt;=&lt;/span&gt; &lt;span style="color:#ae81ff"&gt;$C2FF9D&lt;/span&gt;;&lt;/span&gt;&lt;/span&gt;&lt;/code&gt;&lt;/pre&gt;&lt;/div&gt;&#10;&lt;p&gt;の21色ですが、じつはB,G,Rの順番で0～255（FF）までの設定をすれば、上記以外の色も使えます。（ピンクとか）&lt;/p&gt;</description></item><item><title>XDW_GetPageText</title><link>https://worktoolsmith.com/docuworks-api-xdw_getpagetext/</link><pubDate>Sat, 08 Mar 2008 15:56:25 +0900</pubDate><guid>https://worktoolsmith.com/docuworks-api-xdw_getpagetext/</guid><description>&lt;p&gt;&lt;a href="https://worktoolsmith.com/xdw_getpagetext/"&gt;XDW_GetPageTextToMemory&lt;/a&gt;は指定ページのテキストを抽出し、変数に代入する関数でした。&lt;/p&gt;&#10;&lt;p&gt;もうひとつ似たような関数で&lt;strong&gt;XDW_GetPageText&lt;/strong&gt;があります。&lt;/p&gt;&#10;&lt;p&gt;例によって移植したヘッダ&lt;/p&gt;&#10;&lt;div class="highlight"&gt;&lt;pre tabindex="0" style="color:#f8f8f2;background-color:#272822;-moz-tab-size:4;-o-tab-size:4;tab-size:4;-webkit-text-size-adjust:none;"&gt;&lt;code class="language-pas" data-lang="pas"&gt;&lt;span style="display:flex;"&gt;&lt;span&gt;&lt;span style="color:#66d9ef"&gt;function&lt;/span&gt; XDW_GetPageText&lt;span style="color:#f92672"&gt;(&lt;/span&gt;handle&lt;span style="color:#f92672"&gt;:&lt;/span&gt; p_XDW_DOCUMENT_HANDLE; nPage&lt;span style="color:#f92672"&gt;:&lt;/span&gt; &lt;span style="color:#66d9ef"&gt;Integer&lt;/span&gt;; &lt;span style="color:#66d9ef"&gt;const&lt;/span&gt; lpszOutputPath&lt;span style="color:#f92672"&gt;:&lt;/span&gt; &lt;span style="color:#66d9ef"&gt;PChar&lt;/span&gt;;&#10;&lt;/span&gt;&lt;/span&gt;&lt;span style="display:flex;"&gt;&lt;span&gt;reserved&lt;span style="color:#f92672"&gt;:&lt;/span&gt; &lt;span style="color:#66d9ef"&gt;pointer&lt;/span&gt;&lt;span style="color:#f92672"&gt;):&lt;/span&gt; &lt;span style="color:#66d9ef"&gt;Integer&lt;/span&gt;; &lt;span style="color:#66d9ef"&gt;stdcall&lt;/span&gt;;&lt;/span&gt;&lt;/span&gt;&lt;/code&gt;&lt;/pre&gt;&lt;/div&gt;&#10;&lt;p&gt;この関数は何をするかというと、指定ページのテキストをファイルに出力します。&lt;/p&gt;</description></item><item><title>XDW_GetPageTextToMemory</title><link>https://worktoolsmith.com/docuworks-api-xdw_getpagetexttomemory_1/</link><pubDate>Sat, 08 Mar 2008 13:39:14 +0900</pubDate><guid>https://worktoolsmith.com/docuworks-api-xdw_getpagetexttomemory_1/</guid><description>&lt;p&gt;指定ページのテキストをメモリ（変数）に格納します。&lt;/p&gt;&#10;&lt;p&gt;&lt;strong&gt;Delphiでの宣言&lt;/strong&gt;&lt;/p&gt;&#10;&lt;div class="highlight"&gt;&lt;pre tabindex="0" style="color:#f8f8f2;background-color:#272822;-moz-tab-size:4;-o-tab-size:4;tab-size:4;-webkit-text-size-adjust:none;"&gt;&lt;code class="language-pas" data-lang="pas"&gt;&lt;span style="display:flex;"&gt;&lt;span&gt;&lt;span style="color:#66d9ef"&gt;function&lt;/span&gt; XDW_GetPageTextToMemory&lt;span style="color:#f92672"&gt;(&lt;/span&gt;handle&lt;span style="color:#f92672"&gt;:&lt;/span&gt; p_XDW_DOCUMENT_HANDLE; nPage&lt;span style="color:#f92672"&gt;:&lt;/span&gt; &lt;span style="color:#66d9ef"&gt;Integer&lt;/span&gt;;&#10;&lt;/span&gt;&lt;/span&gt;&lt;span style="display:flex;"&gt;&lt;span&gt;lpszValue&lt;span style="color:#f92672"&gt;:&lt;/span&gt; &lt;span style="color:#66d9ef"&gt;PChar&lt;/span&gt;; nDataSize&lt;span style="color:#f92672"&gt;:&lt;/span&gt; &lt;span style="color:#66d9ef"&gt;Integer&lt;/span&gt;; reserved&lt;span style="color:#f92672"&gt;:&lt;/span&gt; &lt;span style="color:#66d9ef"&gt;pointer&lt;/span&gt;&lt;span style="color:#f92672"&gt;):&lt;/span&gt; &lt;span style="color:#66d9ef"&gt;Integer&lt;/span&gt;; &lt;span style="color:#66d9ef"&gt;stdcall&lt;/span&gt;;&lt;/span&gt;&lt;/span&gt;&lt;/code&gt;&lt;/pre&gt;&lt;/div&gt;&#10;&lt;p&gt;handle には &lt;a href="http://1docuworks.gracix.com/2008/02/xdw-opendocumenthandle.php"&gt;XDW_OpenDocumentHandle&lt;/a&gt; で得たハンドルを渡します。&lt;/p&gt;&#10;&lt;p&gt;nPageはページ番号ですね。&lt;/p&gt;</description></item><item><title>Delphi2007で正規表現 テンプレートで置き換え</title><link>https://worktoolsmith.com/delphi2007-regexpr/</link><pubDate>Fri, 29 Feb 2008 15:36:02 +0900</pubDate><guid>https://worktoolsmith.com/delphi2007-regexpr/</guid><description>&lt;p&gt;&lt;a href="https://worktoolsmith.com/delphi_regular_expression/"&gt;先日から使っているTRegExpr&lt;/a&gt;ですが、Delphi2007でも特に問題は起こっていません。&lt;/p&gt;&#10;&lt;p&gt;やはりクラスはコード内に適当に入れて動くので、 コンポーネントよりも小回りが聞くときが多いですね。&lt;/p&gt;&#10;&lt;p&gt;その機能の一つに( )で囲んでマッチした文字列をテンプレートとなる文字列に埋め込んで出力するものがあります。これは便利！&lt;/p&gt;</description></item><item><title>正規表現には何を使ってますか？</title><link>https://worktoolsmith.com/delphi_regular_expression/</link><pubDate>Mon, 18 Feb 2008 16:20:37 +0900</pubDate><guid>https://worktoolsmith.com/delphi_regular_expression/</guid><description>&lt;div class="blank-box bb-yellow"&gt;&#10;&#10;&#10;正規表現ユニットは標準ライブラリ「 System.Regularexpressions 」となりました。&#10;&#10;下記情報は古いものです。&#10;&#10;&#10;&#10;&lt;/div&gt;&#10;&#10;&lt;p&gt;文字列の修正が多いソフトでは手放せない正規表現。&lt;/p&gt;</description></item><item><title>DocuWorks APIのラッピングクラス</title><link>https://worktoolsmith.com/docuworks_api_wrapping_class/</link><pubDate>Tue, 12 Feb 2008 18:00:09 +0900</pubDate><guid>https://worktoolsmith.com/docuworks_api_wrapping_class/</guid><description>&lt;p&gt;DocuWorks APIは便利ですが、それをさらにDelphi流に扱うため、ラッピングクラスを作成中です。&lt;/p&gt;&#10;&lt;p&gt;たとえば&lt;/p&gt;&#10;&lt;div class="highlight"&gt;&lt;pre tabindex="0" style="color:#f8f8f2;background-color:#272822;-moz-tab-size:4;-o-tab-size:4;tab-size:4;-webkit-text-size-adjust:none;"&gt;&lt;code class="language-pas" data-lang="pas"&gt;&lt;span style="display:flex;"&gt;&lt;span&gt;&lt;span style="color:#66d9ef"&gt;var&lt;/span&gt;&#10;&lt;/span&gt;&lt;/span&gt;&lt;span style="display:flex;"&gt;&lt;span&gt; DWF&lt;span style="color:#f92672"&gt;:&lt;/span&gt; TDwFile;&#10;&lt;/span&gt;&lt;/span&gt;&lt;span style="display:flex;"&gt;&lt;span&gt;&lt;span style="color:#66d9ef"&gt;begin&lt;/span&gt;&#10;&lt;/span&gt;&lt;/span&gt;&lt;span style="display:flex;"&gt;&lt;span&gt; &lt;span style="color:#66d9ef"&gt;if&lt;/span&gt; OpenDialog1.Execute &lt;span style="color:#66d9ef"&gt;then&lt;/span&gt;&#10;&lt;/span&gt;&lt;/span&gt;&lt;span style="display:flex;"&gt;&lt;span&gt; &lt;span style="color:#66d9ef"&gt;begin&lt;/span&gt;&#10;&lt;/span&gt;&lt;/span&gt;&lt;span style="display:flex;"&gt;&lt;span&gt; S &lt;span style="color:#f92672"&gt;:=&lt;/span&gt; OpenDialog1.Filename;&#10;&lt;/span&gt;&lt;/span&gt;&lt;span style="display:flex;"&gt;&lt;span&gt; DWF &lt;span style="color:#f92672"&gt;:=&lt;/span&gt; TDWFile.Create&lt;span style="color:#f92672"&gt;(&lt;/span&gt;S, XDW_OPEN_UPDATE, XDW_AUTH_NONE&lt;span style="color:#f92672"&gt;)&lt;/span&gt;;&#10;&lt;/span&gt;&lt;/span&gt;&lt;span style="display:flex;"&gt;&lt;span&gt; S &lt;span style="color:#f92672"&gt;:=&lt;/span&gt; ExtractFileDir&lt;span style="color:#f92672"&gt;(&lt;/span&gt;ParamStr&lt;span style="color:#f92672"&gt;(&lt;/span&gt;&lt;span style="color:#ae81ff"&gt;0&lt;/span&gt;&lt;span style="color:#f92672"&gt;))+&lt;/span&gt;&lt;span style="color:#e6db74"&gt;&amp;#39;\test.bmp&amp;#39;&lt;/span&gt;;&#10;&lt;/span&gt;&lt;/span&gt;&lt;span style="display:flex;"&gt;&lt;span&gt; DWF.AddBMPAnnotation&lt;span style="color:#f92672"&gt;(&lt;/span&gt;S, &lt;span style="color:#ae81ff"&gt;1&lt;/span&gt;, &lt;span style="color:#ae81ff"&gt;0&lt;/span&gt;, &lt;span style="color:#ae81ff"&gt;0&lt;/span&gt;&lt;span style="color:#f92672"&gt;)&lt;/span&gt;;&#10;&lt;/span&gt;&lt;/span&gt;&lt;span style="display:flex;"&gt;&lt;span&gt; DWF.Save;&#10;&lt;/span&gt;&lt;/span&gt;&lt;span style="display:flex;"&gt;&lt;span&gt; DWF.Free;&#10;&lt;/span&gt;&lt;/span&gt;&lt;span style="display:flex;"&gt;&lt;span&gt; &lt;span style="color:#66d9ef"&gt;end&lt;/span&gt;;&#10;&lt;/span&gt;&lt;/span&gt;&lt;span style="display:flex;"&gt;&lt;span&gt;&lt;span style="color:#66d9ef"&gt;end&lt;/span&gt;;&lt;/span&gt;&lt;/span&gt;&lt;/code&gt;&lt;/pre&gt;&lt;/div&gt;&#10;&lt;p&gt;こんな感じですぐにBMPアノテーションが貼り付けられてしまうというお手軽クラスです。&lt;/p&gt;</description></item><item><title>ヘッダファイル公開所</title><link>https://worktoolsmith.com/dwapi_header_delphi/</link><pubDate>Tue, 12 Feb 2008 17:21:58 +0900</pubDate><guid>https://worktoolsmith.com/dwapi_header_delphi/</guid><description>&lt;p&gt;Delphiに移植しているDocuWorks APIのヘッダファイルです。&lt;/p&gt;&#10;&lt;p&gt;Ver.0.6&lt;/p&gt;&#10;&lt;p&gt;DocuWorks 6.2のヘッダファイルを元にしたDelphi用ヘッダです。&lt;/p&gt;</description></item><item><title>開発環境</title><link>https://worktoolsmith.com/delphi_rad/</link><pubDate>Thu, 31 Jan 2008 23:15:21 +0900</pubDate><guid>https://worktoolsmith.com/delphi_rad/</guid><description>&lt;p&gt;開発環境はCodeGearのDelphi2007&lt;/p&gt;&#10;&lt;p&gt;１０年ほど前、まだお金のまったくない学生時代に&lt;br&gt;&#10;プログラムを本格的にやってみたい！と突如神が降り、&lt;br&gt;&#10;まるでそれを見ていたかのように発売された&lt;br&gt;&#10;Delphi1.0 for win3.1を購入してからのお付き合いです。&lt;/p&gt;</description></item><item><title>DwAPI移植日記</title><link>https://worktoolsmith.com/dwapi/</link><pubDate>Thu, 31 Jan 2008 23:05:10 +0900</pubDate><guid>https://worktoolsmith.com/dwapi/</guid><description>&lt;p&gt;DwAPI移植日記はいきなり途中から始まったりします。&lt;/p&gt;&#10;&lt;p&gt;これはなぜかというと、この日記を書きはじめたのは２００８年。&lt;/p&gt;&#10;&lt;p&gt;でも移植自体は２００６年(^^;)から地味にやっていて、とちゅうで挫折、とちゅうで忙しくなった、とちゅうで自分の無能さにDelphiを見ないことにした、などを経ているからです。&lt;/p&gt;</description></item><item><title>char**に悩む</title><link>https://worktoolsmith.com/char/</link><pubDate>Thu, 31 Jan 2008 22:48:55 +0900</pubDate><guid>https://worktoolsmith.com/char/</guid><description>&lt;p&gt;CからDelphiへの移植は、ポインタの違いに大変悩まされます。&lt;/p&gt;&#10;&lt;p&gt;特に悩むのがこの &lt;code&gt;char**&lt;/code&gt; などのポインタ記号が二つ付いたもの。&lt;/p&gt;&#10;&lt;p&gt;Cの表記には謎が多いです。&lt;/p&gt;</description></item></channel></rss>