いつも忘れてしまうので備忘録。

UPDATE 住所録A A
 SET (A.氏名,A.住所,A.電話番号)
   = (SELECT B.氏名,B.住所,B.電話番号 FROM 住所録B B WHERE A.ID = B.ID)
WHERE EXISTS (SELECT 1 FROM 住所録B B WHERE A.ID = B.ID);

• 1フィールドのときもこの書き方をしておけば、増えたときも楽に対応できる。
  1フィールドずつSELECT文を書くと条件が変わったときに大変＞＜；

すでに一般的になって久しい多ボタン多機能マウス。
ビジネス用途での浸透率はいまいちなのだが、家庭ではほとんどのパソコン利用者が使っているのではないだろうか？

最近、仕事でメニューアプリを作成している。そのメニューはウィンドウズアプリなのであるが、WEBサイトのリンクのように実行形式ファイルなどのオブジェクトに関連づけされているもの、次のメニューに関連づけされているものなど様々な登録が可能になっている。他のメニューに関連づけられたボタンをクリックした際にはそのメニューが展開されるのだが、一つ前のメニューに戻る機能を持ったボタンを画面上に配置していた。

それを見たお客さんが…「マウスの戻るボタンへの対応」を聞いてきた…。
Delphiの標準機能には当然無いのでたぶんメッセージを受け取ってるのだろうと当たりを付けて調べる。Spy++を動かすのも良かったが、面倒なのでGoogle検索すると、C#のコーディング例などが載っていた。
Delphiでも1件そのままのコードがあった。

こんな感じ

GExpertsはDelphi IDEを拡張するツール(エキスパート?ウィザード)集でXEにも対応しています。
現時点での最新版は1.34です。
http://www.gexperts.org/

GExpertsには非常に便利な機能がまとめられているので、インストールしておくと便利です。
しかし、フォームのフォントが欧文の設定になっているので修正しておく必要があります。
Font.CharSet が CHARSET_DEFAULT では無く大部分が CHARSET_ANSI になっています。

GExpertsにはいくつか便利な機能がありますが、英語表記なので読めなくて取りあえず使ってみるという感じで手探りです。
他のサイトでも紹介がありますが、くろねこが使って便利だと思った機能を抜粋。

Format 関数には困った仕様が…
Format 関数の仕様に幅指定子と精度指定子があって、フォーマットした際の文字列長を指定できる。

たとえば、下記の様に書くと「123」は、5桁に満たないので足りない分を頭から"0"で埋めて「00123」となる

Format('%.6d', [123]); { 123 -> 000123 }

しかし、下記のコードは…

Format('%.30d', [123]);