2025年4月2日

[書籍]人が壊れるマネジメント

紀伊國屋書店新宿本店

人が壊れるマネジメント (Amazon)/橋本将功著/ソシム/ISBN 978-4-8026-1505-1/2,200円

を購入。

2025年4月1日

2025/04開催のセミナー

  • Web Seminar
  • Live Seminar
  • Community Event

2025年3月13日

RAD Studio/Delphi/C++Builder 12 Athens Release 3 (12.3)

RAD Studio/Delphi/C++Builder 12 AthensのRelease 3 (12.3)がリリースされています。インストールには有効なUpdate Subscriptionが必要です。ポータルサイトからダウンロードできます。

RAD Studio, Delphi, C++Builder 12.3 Inline Web Install
RAD Studio, Delphi, C++Builder 12.3 Inline ISO

12 Athens - Release 3 - RAD Studio
New features and customer reported issues fixed in RAD Studio 12.3 - RAD Studio
List of publicly reported bugs fixed in 12.3 - RAD Studio

RAD Studio 12.3 Athens提供開始のお知らせ (en)

コマンドライン不要で便利に管理: RAD Studio 12ユーザー向けAndroid SDK Manager(GUI版)の提供
RAD Studio 12.3 の AI 搭載 Smart CodeInsight (en)
RAD Studio 12.3 の新機能: 64-bit IDE の初期リリース! (en)
The Android SDK Manager GUI in RAD Studio 12.3
C++Builder 12.3で安全性を確保: サニタイザーの導入 ( en)
RAD Studio 12.3におけるVCL ImageCollectionエディタと画像サポートの改善 (en)
RAD Studio 12.3 で RAD Server が強化されました (en)
12.3 の新機能: InterBase Express から FireDAC への移行用スクリプト (en)
C++Builder 12.3: 新しい命令セットによるパフォーマンス向上の実現 (en)
64bit IDE × 64bitドライバ:RAD StudioとMySQLの接続がもっとシンプルに!
Delphi 12.3でアップデートされたAndroid開発環境
Delphi 12.3 向け FMX Linux が利用可能になりました (en)

2025年2月13日

2025年1月20日

[書籍]クリーンコードクックブック

紀伊國屋書店新宿本店Clean Code Cookbook (Amazon US)の翻訳である

クリーンコードクックブック (Amazon)/Maximiliano Contieri著/田中裕一訳/オライリー・ジャパン/ISBN 978-4-8144-0097-3/4,180円

を購入。

2025年1月9日

[書籍]マネジメントは嫌いですけど

紀伊國屋書店新宿本店

マネジメントは嫌いですけど (Amazon)/関谷雅宏著/技術評論社/ISBN 978-4-297-14581-1/1,760円

を購入。この本、分類が『マネジメント・経営』(Amazonだと『ビジネス・経済>実践経営・リーダーシップ』)になってて見逃すところだった。紀伊國屋さん、5階にも置いたほうが売れると思いますけど…。

2024年11月12日

RAD Studio/Delphi/C++Builder 12.2 Athens Patch 2

RAD Studio/Delphi/C++Builder 12.2 AthensのPatch 2がリリースされています。C++Builderでプロジェクトグループを開いたときにエラーが報告される問題とVTK(Visualization Toolkit)ライブラリがC++Win64Xコンパイラでコンパイルエラーになる問題、macOSのRTLソースファイルが不足している問題を解決します。現時点(2024/11/12)でGetItからのみGetItおよびポータルサイトからダウンロード、インストールすることができます。

RAD Stduion 12.2 Patch 2

RAD Studio 12.2 Athens Patch 2 のリリース (en)

2024年10月28日

[書籍]ものづくり現場からのソフトウェア発注

紀伊國屋書店新宿本店

ものづくり現場からのソフトウェア発注 (Amazon)/高木太郎著/日本能率協会マネジメントセンター/ISBN 9784800592712/2,200円

を購入。高木さんはJapan RAD Studio User Groupでもおなじみですね。

2024年10月18日

RAD Studio/Delphi/C++Builder 12.2 Athens Patch 1

RAD Studio/Delphi/C++Builder 12.2 AthensのPatch 1がリリースされています。不具合対応の他に、12.2でバイナリ互換性が失われた問題を修正しますが、すべてのプラットフォームのDCUとランタイムパッケージが更新されるため、現状のインストールに対するパッチではなく、アンインストールからの再インストールになります。GetItおよびポータルサイトからダウンロード、インストールできます(GetItからの場合も再インストールになります)。

RAD Studio, Delphi, C++Builder 12.2 Inline Web Install
RAD Studio, Delphi, C++Builder 12.2 Inline ISO

RAD Studio 12.2 Athens Inline Patch 1 リリース (en)

2024年9月17日

[書籍]SQL緊急救命室

紀伊國屋書店新宿本店

SQL緊急救命室 (Amazon)/ミック著/技術評論社/ISBN 978-4-297-14405-0/3,520円

を購入。

2024年9月12日

RAD Studio/Delphi/C++Builder 12 Athens Release 2 (12.2)

RAD Studio/Delphi/C++Builder 12 AthensのRelease 2 (12.2)がリリースされています。インストールには有効なUpdate Subscriptionが必要です。ポータルサイトからダウンロードできます。

RAD Studio, Delphi, C++Builder 12.2 Web Install
RAD Studio, Delphi, C++Builder 12.2 ISO

12 Athens - Release 2 - RAD Studio (en)
New features and customer reported issues fixed in RAD Studio 12.2 - RAD Studio
List of publicly reported bugs fixed in 12.2 - RAD Studio

RAD Studio 12.2 Athensの提供開始 (en)
Visual Assist in C++Builderによるリファクタリングの強化: クリーンコードとレガシーコード向けの新機能 (en)
RAD Studio 12.2の新機能および機能強化一覧 (en)
RAD StudioのWeb開発をWebStencilsテンプレートエンジンで刷新 (en)
C++Builder 12.2 の動的パッケージ ! (en)
RAD Studio IDEで「AI LLM」と「Smart CodeInsight」を使用する (en)
Delphi LSP: 大規模プロジェクト向けの 64-bit パワーと改良された CodeInsight (en)
RAD Studio 12.2の新機能: コーディングに集中するためのフォーカス モード (en)
並列配列と順番付きディクショナリによるDelphi RTLの高速化 (en)
C++Builder 12.2 の優れた CMake サポート (en)
C++Builder 12.2のパッケージに関する実用的な情報 (en)
C++Builder 12.2で高速な並列コンパイルを行うためのポイント (en)
Upgrading C++Builder 12.2: Tip #1, the Patch
C++Builder 12.2での古いRTLへの対応 (en)
C++Builder 12.2で 4GB以上のファイルを iostreamsで処理する (en)
C++Builder 12.2でコンパイラオプションを活用する (安全性、正確性、64-bitコードへの移行) (en)
Upgrading C++Builder 12.2: Tip #4 1/2: Check out compiler safety options
Upgrading C++Builder 12.2: Tip #4 ¾, Help When Moving from 32 to 64 Bit
C++Builder 12.2でC++のEHとSEHの例外処理を分割する (en)
C++Builder12.2: 自動リンクによってライブラリを処理する (en)
C++Builder 12.2: bcc64xに関するワンポイントアドバイス (en)

2024年8月3日

2024年8月1日

2024/08開催のセミナー

  • Web Seminar
    • 2024/08/13 02:00(JST)- Dev Days of Summer 2024 Day 1 (Week 1)
      • Replay (1/1)
        • Writing an NT Service: A (Basic) Guide to ...
        • Empowering your apps with AWS
        • Introduction to FireDAC: Fundamentals of Data Access
    • 2024/08/14 03:00(JST)- Dev Days of Summer 2024 Day 2 (Week 1)
      • Replay (1/1)
        • Delphi WebMocks
        • Using Clang with Windows
        • Why you should leave Delphi 7, once and for all
        • FireDAC Secret Weapons
    • 2024/08/15 02:00(JST)- Dev Days of Summer 2024 Day 3 (Week 1)
      • Replay (1/1)
        • Empowering your apps with AWS (repeated)
        • Product demo and showcase of Delphi app - Font Creator
        • GenAI Apps in Delphi!
        • Program the Rainbow: Working with Colors
        • From VCL to WEB: a giant leap for software developers, a small step for Delphi developers
    • 2024/08/16 01:30(JST)- Dev Days of Summer 2024 Day 4 (Week 1)
      • Replay (1/1)
        • Sempare Template Engine
        • Mastering RTTI: From Basics to Advanced Techniques
        • Using SVG Images in Delphi
    • 2024/08/17 01:00(JST)- Dev Days of Summer 2024 Day 5 (Week 1)
      • Replay (1/1)
        • Firestore Cloud Database
        • Make games in Delphi (2024 edition)
        • Boosting Development in Delphi with GitHub Actions and ChatGPT!
        • Add logging to your application in 5 minutes
    • 2024/08/20 02:00(JST)- Dev Days of Summer 2024 Day 6 (Week 2)
      • Replay (1/1)
        • Simplifying Cloud with Delphi
        • Chat about the UK Dev group
    • 2024/08/21 01:00(JST)- Dev Days of Summer 2024 Day 7 (Week 2)
      • Replay (1/1)
        • Handling Exceptions in Delphi
        • Implementing “try - finally” code blocks in C++
    • 2024/08/22 01:00(JST)- Dev Days of Summer 2024 Day 8 (Week 2)
      • Replay (1/1)
        • Coding games using Castle Game Engine and Delphi
        • Advanced usage of jachLog: Performance, filtering, multithreading support and more
        • Resource allocation is initialization for Delphi (RAII) !!
    • 2024/08/23 02:00(JST)- Dev Days of Summer 2024 Day 9 (Week 2)
      • Replay (1/1)
        • A Simpler Approach to Dynamic Web Applications
        • A smart backpack controlled from a mobile application with FGX Native
        • 5 Essential Steps to Modernize Your Analytics Application
        • EasyDBMigrator
        • Maximising Customer Value with Embedded Analytics and Yellowfin
    • 2024/08/24 02:00(JST)- Dev Days of Summer 2024 Day 10 (Week 2)
      • Replay (1/1)
        • About UltraEdit
        • Functional programming
        • Coroutines. What the Heck Are They?
        • OpenAPIWizard
        • Delphi Tips and Tricks – A Personal Selection
    • 2024/08/27 17:00-17:45(JST) 「Community Editionを使おう!」 - エンバカデロ・デベロッパーTV(2024年8月27日)
  • Live Seminar
  • Community Event

2024年7月4日

[書籍]SQLポケットガイド 第4版

紀伊國屋書店新宿本店SQL Pocket Guide, 4th Edition (Amazon US)の翻訳である

O'Reilly Japan - SQLポケットガイド 第4版 (Amazon)/Alice Zhao著/原隆文訳/オライリー・ジャパン/ISBN 978-4-8144-0080-5/2,860円

を購入。

2024年6月20日

2024年6月1日

2024年5月30日

IDE Fix Pack 6.5

Andreas HausladenさんIDE Fix Packが約5年ぶりにアップデートされてVersion 6.5となっています。メモリマネージャの拡張機能に関する修正とのことです。またDelphi 10.4 Sydney/11 Alexandria/12 AthensについてはIDE Fix Packの修正が一部バックポートされた関係で、分析からやり直しになるため対応していないということです。

IDE Fix Pack 6.5 released (Delphi 2009 – 10.3) – Andy's Blog and Tools

2024年4月18日

RAD Studio/Delphi/C++Builder 12.1 Athens Patch 1

RAD Studio/Delphi/C++Builder 12.1 AthensのPatch 1がリリースされています。現時点(2024/04/18)ではGetItからのみダウンロード、インストールすることができます。IDEとコンパイラの不具合修正のようです。

RAD Studio 12 Athens Patch 1 のリリース (en)

2024年3月21日

Firebirdロードマップ(2024/03)

Firebird 6の開発が正式に決まったとのことで、ロードマップが更新されています。

Firebird: Roadmap v6

適当な要約
  • Firebird 3.0 - 安定版。最新版は2023年08月の3.0.11で、次回(3.0.12)は2024年第2四半期内を予定。
  • Firebird 4.0 - 安定版。最新版は2023年11月の4.0.4で、次回(4.0.5)は2024年第2四半期内を予定。
  • Firebird 5.0 - 安定版。最新版は2024年01月の5.0で、次回(5.0.1)は2024年第2四半期内を予定。
  • Firebird 6.0 - 2024年03月に開発開始、2025年第1四半期に最初のアルファ版を、ベータ版を2025年第3四半期に、正式版を2026年第1四半期にリリース予定。
現時点で予定されているFirebird 6.0の主な新機能はとのこと。

2024年3月4日

[書籍]Expert Delphi - Second Edition

Amazon(JP)で注文した

Expert Delphi - Second Edition (Amazon US, Amazon JP)/Marco CantùPaweł Głowacki著/Packt Publishing/ISBN 9781805121107/7,596JPY(printed)

が配送されてきました。2024/03/02に注文して2日目の到着でした(日本国内でのプリントオンデマンドでした)。

2024年2月7日

RAD Studio/Delphi/C++Builder 12 Athens Patch 1

RAD Studio/Delphi/C++Builder 12 AthensのPatch 1がリリースされています。多数の不具合修正が含まれています。現時点(2024/02/08)では(やっと復旧した)GetItからのみダウンロード、インストールすることができます。2024/02/10現在でGetItまたはポータルサイトからダウンロード、インストールすることができます。またwebインストーラもPatch 1適用済のみものがダウンロードできるようになっています。

RAD Studio 12.0 Patch 1
RAD Studio, Delphi, C++Builder 12.0 Inline with Patch 1 Web Install

なおオリジナルのwebインストーラからインストールした場合はPatch 1がインストールされているかどうかにかかわらず、IDEのツール→機能の管理で言語やターゲットプラットフォームなどを追加することはできず、一旦アンインストール後にPatch 1適用済のwebインストーラからインストールし直す必要があるため注意が必要です。

RAD Studio 12 Athens Patch 1 のリリース (en)
GetIt アップデート: RAD Studio 12 向けのGetItパッケージインストールが利用可能に! (en)
GetItアップデート: RAD Studio 12 GetIt オンラインインストールが利用可能に! (en)

2024/02/10追記: Patch 1がポータルサイトからダウンロードできるようになったこととオリジナルのwebインストーラからインストールした場合の注意事項を追記しました。

2024年2月1日

2023年12月27日

文字列の表示幅を取得する

前回Skia4DelphiのISkUnicodeを使って文字列を書記素クラスタ(grapheme cluster)に分割する方法を扱いましたが、(等幅フォントでの表記を前提として)文字列が何文字分の幅を占めるのか(いわゆる"表示幅")を取得するためには、それぞれの書記素クラスタ(の基底文字)がいわゆる"半角幅"(halfwidth、1/2 Em)なのか"全角幅"(fullwidth、1 Em)なのかを知る必要があります(Emは文字の高さを基準にした単位で、1/2 Emは高さの半分の文字幅、1 Emは高さと同じ文字幅になる、という意味)。これに関するUnicodeの規格がUnicode Standard Annex #11 East Asian Width(UAX #11)になります。

UAX #11では既存の実装に配慮して、文字をその占める幅によって
  • Fullwidth("F"/全角)
  • Halfwidth ("H"/半角)
  • Wide ("W"/広)
  • Narrow ("Na"/狭)
  • Ambiguous ("A"/曖昧)
  • Neutral ("N"/中立)(Not East Asian)
に分類しています。"F"は全角英数などUnicodeの規格上"FULLWIDTH"とされるもの、"H"は半角カナなど"HALFWIDTH"とされるもの、"W"はJISの漢字や東アジアの組版専用の句読点など文字幅が1 Emで扱われてきたもの、"Na"は半角英数など"F"や"W"に対応する全角文字が存在するもの、"A"はJISのギリシャ文字やキリル文字のように東アジアでは文字幅が1 Emで扱われるもの、"N"はそれ以外のもの、となり、"F"と"W"は全角幅、"H"、"Na"、"N"は半角幅として扱います。ここで問題になるのが"A"で、これは組版の文脈(≒使われるフォント)によって、全角幅か半角幅かのどちらかになります(例えばギリシャ文字やキリル文字はMS Gothicのような日本語のフォントでは全角幅に、Consolasのような欧文のフォントでは半角幅になる)。

では実際にどの文字(コードポイント)がどの分類になるのか、ですが、これはUnicodeデータベースの一部としてhttps://www.unicode.org/Public/UCD/latest/ucd/EastAsianWidth.txtにリストされています。基本的にこれを何らかの形で配列化しておいて参照すればいいのですが、Unicode(UCS4)で扱えるコードポイントは最大でU+0000からU+10FFFFの1,114,112個あり、単純にテーブル化すると約1MBになってしまいます。しかしプレーン4~13は未割当で定義も存在しません(この場合はデフォルトで"N"である(All code points, assigned or unassigned, that are not listed explicitly are given the value "N".)と明記されています)。そこで今回はプレーン毎に分割して、フルマッピングするプレーンと1つの値で代表させるプレーン、という形で領域を節約した実装を考えてみます。

まずはUAX #11で規定されている分類を列挙型として定義し、レコードヘルパでそれぞれに対応する文字幅を返すようにします。
type
  TEastAsianWidth = (Neutral,     // N
                     Fullwidth,   // F
                     Halfwidth,   // H
                     Wide,        // W
                     Narrow,      // Na
                     Ambiguous);  // A

  TEastAsianWidthHelper = record helper for TEastAsianWidth
  private
    const
      Width: array [Boolean,TEastAsianWidth] of Integer =
        ((1,                      // Neutral
          2,                      // Fullwidth
          1,                      // Halfwidth
          2,                      // Wide
          1,                      // Narrow
          1),                     // Ambiguous (same as Neutral)
         (1,                      // Neutral
          2,                      // Fullwidth
          1,                      // Halfwidth
          2,                      // Wide
          1,                      // Narrow
          2));                    // Ambiguous (same as Fullwidth)
  private
    class var
      FEastAsian: Boolean;
  public
    function GetWidth: Integer; overload; inline;
    class property EastAsian: Boolean read FEastAsian write FEastAsian;
  end;

function TEastAsianWidthHelper.GetWidth: Integer;
begin
  Result := Width[FEastAsian,Self];
end;
ここでクラスプロパティTEastAsianWidth.EastAsianは"A"の扱いを決めるもので、Trueなら東アジアの組版(フォントが日本語など)、Falseなら欧文の組版(フォントが欧文)であることを示します。
次にEastAsianWidth.txtをテーブル化します。まずそれぞれのプレーンを格納するテーブルのレコード型と、このテーブルへのポインタと代表値をセットにしたレコード型を定義します。
type
  TPlaneData = packed record
  public
    Data: array [0..65535] of Byte;
  end;
  PPlaneData = ^TPlaneData;

  TPlane = record
    PlaneDefault: Byte;
    PlaneData: PPlaneData;
  end;
このTPlaneの配列(0..16)を今回はEastAsianWidth.txtから生成しますが、とりあえず仮に
const
  Plane0: TPlaneData = (Data: (
    $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,
    ...
    $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00));
  Plane0Default = $00;
  Plane1Default = $00;
  ...
  Plane16Default = $00;

  Planes: array [0..16] of TPlane =
    ((PlaneDefault: Plane0Default; PlaneData: @Plane0),
     (PlaneDefault: Plane1Default; PlaneData: nil),
     ...
     (PlaneDefault: Plane16Default; PlaneData: nil));
こんな定数定義があるものとします。これを使用する形でレコードヘルパTEastAsianWidthHelperにクラスメソッドGetEastAsianWidthを追加します。
uses
  System.SysUtils, System.RTLConsts;

type
  TEastAsianWidthHelper = record helper for TEastAsianWidth
  public
    ...
    class function GetEastAsianWidth(C: UCS4Char): TEastAsianWidth; static;
  end;

class function TEastAsianWidthHelper.GetEastAsianWidth(C: UCS4Char): TEastAsianWidth;
var
  PlaneNum: Integer;
  Plane: TPlane;
  B: Byte;
begin
  PlaneNum := (C shr 16) and $FFFF;
  if (PlaneNum < Low(Planes)) and (PlaneNum > High(Planes)) then
  begin
    raise EArgumentOutOfRangeException.CreateRes(@SArgumentOutOfRange);
  end;

  Plane := Planes[PlaneNum];
  if Plane.PlaneData <> nil then
  begin
    B := Plane.PlaneData^.Data[C and $FFFF];
  end
  else
  begin
    B := Plane.PlaneDefault;
  end;

  Result := TEastAsianWidth(B);
end;
クラスメソッドGetEastAsianWidthでは、プレーン毎のテーブルがあればそこから、テーブルがなければ代表値を取得し、列挙型TEastAsianWidthとして返します。

あとはUnicodeのバージョンアップに簡単に追随できるようにするために、EastAsianWidth.txtから上記のテーブル部分を自動生成する処理を別ユニットに作っていきます。

まず読み込んだプレーン毎のデータを格納するレコード型と、関係するメソッド(初期化、値の指定、代表値だけでテーブルを省略可能かどうかの判定)を用意します。
type
  TPlaneData = record
    Table: array [$0000..$FFFF] of Byte;
    procedure Init;
    procedure Fill(StartIndex: UInt16; EndIndex: UInt16; Data: Byte);
    function  IsAllSame: Boolean;
  end;

procedure TPlaneData.Init;
var
  I: Integer;
begin
  for I := Low(Table) to High(Table) do
  begin
    Table[I] := 0;  // 'Neutral'
  end;
end;

procedure TPlaneData.Fill(StartIndex: UInt16; EndIndex: UInt16; Data: Byte);
var
  I: Integer;
begin
  for I := StartIndex to EndIndex do
  begin
    Table[I] := Data;
  end;
end;

function TPlaneData.IsAllSame: Boolean;
var
  I: Integer;
  B: Byte;
begin
  B := Table[Low(Table)];
  for I := Low(Table) + 1 to High(Table) do
  begin
    if Table[I] <> B then
    begin
      Result := False;
      Exit;
    end;
  end;
  Result := True;
end;
これを使ってUCS4のコード範囲全体を扱うレコード型を用意します。
type
  TEastAsianWidthProperties = record
    Planes: array [0..16] of TPlaneData;
    procedure Init;
  end;
  PEastAsianWidthProperties = ^TEastAsianWidthProperties;

procedure TEastAsianWidthProperties.Init;
var
  I: Integer;
begin
  for I := Low(Planes) to High(Planes) do
  begin
    Planes[I].Init;
  end;
end;
あとはEastAsianWidth.txtを解析して値を格納し、テーブル化するメソッドを用意します。
uses
  System.Classes, System.SysUtils, System.RegularExpressions, System.SysConst;

function SymbolToEastAsianWidth(const S: String): Byte;
const
  EastAsianWidthSymbols: array [0..5] of String =
    ('N',
     'F',
     'H',
     'W',
     'Na',
     'A');
begin
  for Result := Low(EastAsianWidthSymbols) to High(EastAsianWidthSymbols) do
  begin
    if EastAsianWidthSymbols[Result] = S then
    begin
      Exit;
    end;
  end;
  raise EConvertError.CreateRes(@SRangeError);
end;

procedure ConvertEastAsianWidth(Input, Output: TStrings);
var
  PEAWP: PEastAsianWidthProperties;
  RegEx1: TRegEx;
  RegEx2: TRegEx;
  Match: TMatch;
  I: Integer;
  S: String;
  Position: Integer;
  StartCodePoint: String;
  EndCodePoint: String;
  Name: String;
  Plane: UInt16;
  CPLow: UInt16;
  CPLow2: UInt16;
  PlaneDefault: Byte;
begin
  New(PEAWP);
  try
    PEAWP^.Init;

    RegEx1 := TRegEx.Create('([0-9A-Fa-f]{4,6})[.][.]([0-9A-Fa-f]{4,6})\s*[;]\s*(.{1,2})\s*');
    RegEx2 := TRegEx.Create('([0-9A-Fa-f]{4,6})\s*[;]\s*(.{1,2})\s*');

    for I := 0 to Input.Count - 1 do
    begin
      S := Input.Strings[I];

      Position := Pos('#',S);
      if Position > 0 then
      begin
        Delete(S,Position,Length(S));
      end;
      S := Trim(S);

      if S = '' then
      begin
        Continue;
      end;

      Match := RegEx1.Match(S);
      if Match.Success = True then
      begin
        StartCodePoint := Match.Groups[1].Value;
        EndCodePoint := Match.Groups[2].Value;
        Name := Match.Groups[3].Value;
      end
      else
      begin
        Match := RegEx2.Match(S);
        if Match.Success = True then
        begin
          StartCodePoint := Match.Groups[1].Value;
          EndCodePoint := StartCodePoint;
          Name := Match.Groups[2].Value;
        end;
      end;

      if Match.Success = True then
      begin
        Plane := (StrToInt64('$' + StartCodePoint)  shr 16) and $FFFF;
        if Plane <= 16 then
        begin
          CPLow  := (StrToInt64('$' + StartCodePoint)) and $FFFF;
          CPLow2 := (StrToInt64('$' + EndCodePoint))   and $FFFF;
          PEAWP^.Planes[Plane].Fill(CPLow,CPLow2,Ord(SymbolToEastAsianWidth(Name)));
        end;
      end;
    end;

    for Plane := Low(PEAWP^.Planes) to High(PEAWP^.Planes) do
    begin
      Output.Add(Format('  { Plane%d }',[Plane]));
      if PEAWP^.Planes[Plane].IsAllSame = False then
      begin
        Output.Add(Format('  Plane%d: TPlaneData = (Data: (',[Plane]));
        S := '';
        for I := Low(PEAWP^.Planes[Plane].Table) to High(PEAWP^.Planes[Plane].Table) do
        begin
          if (I mod 16) = 0 then
          begin
            S := '    ';
          end;

          S := S + Format('$%.02X,',[PEAWP^.Planes[Plane].Table[I]]);

          if (I mod 16) = 15 then
          begin
            if I = High(PEAWP^.Planes[Plane].Table) then
            begin
              Delete(S,Length(S),1);
              S := S + '));';
            end
            else
            begin
              S := S + '  ';
            end;
            S := S + Format('  // U+%.4X',[(Plane shl 16) or (I and $FFF0)]);
            Output.Add(S);
            S := '';
          end;
        end;
        PlaneDefault := 0;
      end
      else
      begin
        PlaneDefault := PEAWP^.Planes[Plane].Table[0];
      end;
      Output.Add(Format('  Plane%dDefault = $%.2X;',[Plane,PlaneDefault]));
      Output.Add('');
    end;

    Output.Add('  { Plane data table }');
    Output.Add('  Planes: array [0..16] of TPlane =');
    for Plane := Low(PEAWP^.Planes) to High(PEAWP^.Planes) do
    begin
      if PEAWP^.Planes[Plane].IsAllSame = True then
      begin
        S := Format('     (PlaneDefault: Plane%dDefault; PlaneData: nil),',[Plane]);
      end
      else
      begin
        S := Format('     (PlaneDefault: Plane%dDefault; PlaneData: @Plane%d),',[Plane,Plane]);
      end;

      if Plane = Low(PEAWP^.Planes) then
      begin
        S[5] := '(';
      end
      else if Plane = High(PEAWP^.Planes) then
      begin
        Delete(S,Length(S),1);
        S := S + ');';
      end;
      Output.Add(S);
    end;

  finally
    Dispose(PEAWP);
  end;
end;
レコード型TEastAsianWidthPropertiesはサイズが大きく、デフォルトの設定ではスタックオーバフローするため、New/Disposeでヒープ上に確保するようにしています。読み込んだEastAsianWidth.txtの各行が
0000..001F     ; N  # Cc    [32] <control-0000>..
0020           ; Na # Zs         SPACE
このようになっているものを、正規表現で複数指定、単独指定のどちらかのパターンにマッチングさせて、コードポイント(の範囲)と属性を取り込んでテーブルに格納し、最後にテーブルの内容をDelphiのコードの一部として出力しています。

このConvertEastAsianWidthを使ってEastAsianWidth.txtをEastAsianWidth.incとして変換したら、上記のTPlaneの配列部分を
const
{$I 'EastAsianWidth.inc'}
と置き換えれば完成です。

これで前回のサンプルにチェックボックスを1つ追加して、
procedure TForm1.Button2Click(Sender: TObject);
var
  SkUnicode: ISkUnicode;
  L: Integer;
  TotalL: Integer;
  W: Integer;
  TotalW: Integer;
begin
  TEastAsianWidth.EastAsian := CheckBox1.Checked;
  SkLabel1.Words.Items[0].Caption := Edit1.Text;
  Memo1.Lines.Clear;
  SkLabel2.Words.Clear;
  TotalL := 0;
  TotalW := 0;
  SkUnicode := TSkUnicode.Create;
  for var S in SkUnicode.GetBreaks(Edit1.Text,TSkBreakType.Graphemes) do
  begin
    L := Length(S);
    W := TEastAsianWidth.GetEastAsianWidth(Char.ConvertToUtf32(S,0)).GetWidth;
    Memo1.Lines.Add(S + Format(' (L=%d,W=%d)',[L,W]));
    SkLabel2.Words.Add(S + sLineBreak);
    TotalL := TotalL + L;
    TotalW := TotalW + W;
  end;
  Memo1.Lines.Add(Format('Total: L=%d, W=%d',[L,W]));
end;
こんな感じで全体の文字数を得ることができるようになります。チェックボックスのチェック状態で"á̂̃̄"のWが変化するのがわかりますね。

誰ですか、絵文字が混ざると意味がないじゃないか、とかいう人は!そう、絵文字がZWJ(ゼロ幅接合子)を使ってグリフを増やすようになったあたりから、実際にレンダリングしてみないとどのくらいの表示幅になるのかはわからなくなっているのです。

最終的なプロジェクト全体をGitHubに上げてあります。今後Unicodeのバージョンが上がっても、更新されたEastAsianWidth.txtを取り込むことで最新のものに準拠することができます。

参考: 東アジアの文字幅 - Wikipedia

2023年12月25日

文字列を書記素クラスタで分割する

このアーティクルはDelphi Advent Calendar 2023の25日目の記事です(12日ぶり11回目)。

Unicodeの世界では、1つの"文字"(書記素、grapheme)が1つのコードポイント(code point)で表されるとは限りません。サロゲートペアとか結合文字とか絵文字とか、文字列に入っているものがどれくらいの"文字数"になっているのかを知るのは意外に難しい話です。
現在一般的と考えられる方法として、がありますが、ICUはインタフェースがUTF-8ベースでDelphiからは使いにくく、Delphiの正規表現ライブラリはPCRE(1) 8.45ベースでだいぶ古くてUnicodeの新しいバージョンには対応していません(RSP-42524)。また自前での実装は相当面倒なうえに、Unicodeのバージョンアップに追従していくのが大変です。
ところがDelphi 12で標準サポートされたSkia4Delphiでは簡単に文字列を書記素クラスタで分割できるようになりました(ICUを取り込んでいるようです)。試しに正規表現(PCRE)による分割と比較してみましょう。
なおDelphi 11 Alexandriaおよびそれ以前のバージョンではSkia4Delphiをインストールする必要があります(現時点(2023/12)の最新は6.0.0)。

新規プロジェクトを作成し、フォーム(フォントサイズを大きめにしておくと結果が見やすくなります)にTEditを1つ、TButtonを2つ、結果表示のためのTMemoを1つ配置します。またプロジェクトツールウィンドウでプロジェクトを右クリック→Skiaを有効化を選択して、実行ファイルと同じ場所にsk4d.dllが配置されるようにします。
usesにSystem.Skiaを追加し、フォームのOnShowイベントで
procedure TForm1.FormShow(Sender: TObject);
begin
  Edit1.Text := #$20BB7 + '野屋のコピペ' +
                #$00E5 + #$00E1 + #$0302 + #$0303 + #$0304 +
                #$1F62D +
                #$1F937 + #$1F3FD + #$200D + #$2640 + #$FE0F +
                #$1F468 + #$200D + #$1F469 + #$200D + #$1F467 + #$200D + #$1F466 +
                #$1F469 + #$1F3FD + #$200D + #$1F4BB +
                #$1F1EF + #$1F1F5;
end;
とEdit1.Textにサンプル文字列を設定し、Button1のOnClickイベントで
procedure TForm1.Button1Click(Sender: TObject);
begin
  for var Match in TRegEx.Matches(Edit1.Text,'\X') do
  begin
    Memo1.Lines.Add(Match.Value);
  end;
end;
Button2のOnClickイベントで
procedure TForm1.Button2Click(Sender: TObject);
var
  SkUnicode: ISkUnicode;
begin
  SkUnicode := TSkUnicode.Create;
  for var S in SkUnicode.GetBreaks(Edit1.Text,TSkBreakType.Graphemes) do
  begin
    Memo1.Lines.Add(S);
  end;
end;
とします。では実行してみましょう。まず正規表現です。
𠮷
野
屋
の
コ
ピ
ペ
å
á̂̃̄
😭
🤷
🏽‍
♀️
👨‍
👩‍
👧‍
👦
👩
🏽‍
💻
🇯🇵
(Windows上の表示とは若干異なります)
正規表現による分割では絵文字のZWJ(ゼロ幅接合子)による結合はうまく処理できないようです。これはPCRE 8.45がだいぶ古いバージョンで、最新のUnicodeに対応できていないことが原因と考えられます。

次にSkia4Delphiです。
𠮷
野
屋
の
コ
ピ
ペ
å
á̂̃̄
😭
🤷🏽‍♀️
👨‍👩‍👧‍👦
👩🏽‍💻
🇯🇵
一方でSkia4Delphiによる分割は正しく処理できていますね。ちなみにWindowsでは国旗の絵文字は絵文字としてではなくRegional indicator symbol2文字での表現になるようです(サンプル最後の"🇯🇵"が"JP"となる)。

書記素クラスタによる分割は文字列のレンダリングに必須なためSkia(Skia4Delphi)に実装されていると考えられますが、プログラムで書記素クラスタによる分割が必要になるのは(帳票などで)文字列がどのくらいの幅を占めるかを知りたいときではないでしょうか。そのためには書記素クラスタによる分割だけでなく、Unicode Standard Annex #11 East Asian Widthも必要になります。これはDelphi標準のSystem.CharacterユニットにもSkia4Delphiにも実装されておらず、EastAsianWidth.txtを取り込んで自前で実装する必要があります。これについては後日別のアーティクルで扱うことにします。

Skia4Delphを使って見やすくしたバージョンをGistに上げてあります。

2023年12月13日

Microsoft Monthly Update 2023/12

今日はMicrosoftのセキュリティアップデートの日です。
2023 年 12 月のセキュリティ更新プログラム - リリース ノート - セキュリティ更新プログラム ガイド - Microsoft
2023 年 12 月のセキュリティ更新プログラム (月例) | MSRC Blog | Microsoft Security Response Center

TSqidsEncodingで文字列を難読化する

このアーティクルはDelphi Advent Calendar 2023の12日目の記事です(2日ぶり10回目)。

前回はDelphi 12 Athensで導入されたTSqidsEncodingを普通に使ってみましたが、TSqidsEncodingにはTArray<Integer>を扱うoverloadがあり、今回はそれを使って文字列を難読化してみます。
とはいっても、単にDelphiの文字列(UTF-16)の1文字を単純にUInt16(=Word)として扱うだけです。
uses
  ..., System.NetEncoding.Sqids;

type
  TSqidsEncodingHelper = class helper for TSqidsEncoding
  public
    function EncodeFromString(const AStr: String): String;
    function DecodeToString(const AHash: String): String;
  end;

function TSqidsEncodingHelper.EncodeFromString(const AStr: String): String;
var
  Values: TArray;
  I: Integer;
begin
  SetLength(Values,Length(AStr));
  for I := 0 to Length(AStr) - 1 do
  begin
    Values[I] := UInt16(AStr[I + 1]);
  end;
  Result := Encode(Values);
end;

function TSqidsEncodingHelper.DecodeToString(const AHash: String): String;
var
  Values: TArray;
  I: Integer;
begin
  Values := Decode(AHash);

  SetLength(Result,Length(Values));
  for I := 0 to Length(Result) - 1 do
  begin
    Result[I + 1] := Char(Values[I]);
  end;
end;
文字列の難読化としてXORやROT13などがよく使われますが、このほうがまだましな気がしますね。

2023年12月10日

TSqidsEncodingで数値と短縮IDを相互変換する

このアーティクルはDelphi Advent Calendar 2023の10日目の記事です(1年ぶり9回目)。

Delphi 12 Athensで数値と短縮IDを相互変換するSqidsを実装したTSqidsEncodingが追加されました。
Sqidsはあくまで難読化であって暗号化ではないので、内容を隠すことはできませんが、ID番号などをそのまま見せるよりはまし、というような場合に有効です。Sqidsの公式サイトでは、適しているケースとして
  • 短縮リンク
    • URLで安全に使用できる
  • イベントID
    • 衝突しないエンコード/デコード
  • ワンタイムパスワード
    • 短く問題のあるワードを含まない
適していないケースとして
  • 機密データ
    • 暗号化されるわけではない
  • ユーザID
    • デコードすることでユーザ数が漏洩する
を挙げています。

使用方法は簡単で、エンコードするには
uses
  ..., System.NetEncoding.Sqids;

var
  Sqids: TSqidsEncoding;
begin
  Sqids := TSqidsEncoding.Create;
  try
    Edit2.Text := Sqids.Encode(Edit1.Text);

  finally
    Sqids.Free;
  end;
end;
デコードするには
var
  Sqids: TSqidsEncoding;
begin
  Sqids := TSqidsEncoding.Create;
  try
    Edit3.Text := Sqids.DecodeToStr(Edit2.Text);

  finally
    Sqids.Free;
  end;
end;
とするだけです。Sqidsのソースは数値ですが、エンコードではInreger、TArray<Integer>、Stringを受け取るoverloadが用意されています(Stringは単独またはカンマ区切りの数値表現)。
またデコードはTArray<Integer>を返すもの(Decode)、Integerを返すもの(DecodeSingle/TryDecodeSingle)、Stringを返すもの(DecodeToStr)が用意されています。
さらにコンストラクタにエンコード用の文字列を渡すことで生成される文字列をカスタマイズすることもできます。

2023/12/22追記: 公式のblogにもSqidsの使いかたの記事が出ました。
Sqids: RAD Serverとの統合およびスタンドアロンライブラリ (en)

2023年11月9日

Firebirdロードマップ(2023/11)

Firebird 4.0.4がリリースされましたが、Firebirdのロードマップも更新されています。

Firebird: Roadmap

適当な要約
  • Firebird 2.0 - 2012年に開発終了。最新版は2012年04月の2.0.7
  • Firebird 2.1 - 2014年に開発終了。最新版は2014年12月の2.1.7
  • Firebird 2.5 - 2019年に開発終了。最新版は2019年06月の2.5.9
  • Firebird 3.0 - 安定版。最新版は2023年08月の3.0.11で、半年ごとの更新、次回(3.0.12)は2024年第2四半期内を予定。
  • Firebird 4.0 - 安定版。最新版は2023年11月の4.0.4で、四半期ごとの更新、次回(4.0.5)は2024年第2四半期内を予定。
  • Firebird 5.0 - 2021年05月に開発開始、2023年03月に最初のベータ版(5.0.0 Beta 1)をリリース。

Firebird 4.0.4

Firebird 4.0.4がリリースされています。

Firebird: Firebird 4.0.4
Firebird 4.0.4 Release Notes (PDF)

2023年11月8日

RAD Studio/Delphi/C++Builder 12 Athensリリース

RAD Studio/Delphi/C++Builder 12 Athensがリリースされています。

RAD Studio 12 Athens ヘルプ (en)
リリース ノート (en)
インストール ノート (en)
新機能 (en)
New features and customer reported issues fixed in RAD Studio 12.0
Platform Status

ポータルサイトからダウンロード可能です
RAD Studio, Delphi, C++Builder 12.0 Web Install
RAD Studio, Delphi, C++Builder 12.0 Inline with Patch 1 Web Install
RAD Studio, Delphi, C++Builder 12.0 ISO
BDE for RAD Studio 12.0
Embarcadero General Packages Download for RAD Studio 12.0

『RAD Studio 12 Athens』の提供開始 (en)

Delphi/C++Builderライブラリに関する今後の展望 (en)
Android API 33サポートはRAD Studio 12ベータ(Yukon)で実施 (en)
Delphi言語: 文字列リテラルのモダナイゼーション (en)
Clang v15 compiler support coming to C++Builder 12
RAD Studio 12ベータ情報: マルチデバイスに対応したアイコンジェネレータ (en)
RAD Studio 12ベータ情報: 弱いエイリアスの導入による「NativeInt」の対応 (en)
RAD Studio 12のWin64 Clangツールチェーン (en)
[Yukon Beta Blog] C++ and Visual Assist in RAD Studio 12.0
Delphi 12における3 x 12 VCLの機能強化 (en)
Delphi 12における3 x 12 FireMonkeyとAndroidの機能強化 (en)
Delphi 12における3 x 12 データ、インターネット、RTLの機能強化 (en)
Delphi 12における 3 x 12 IDE、インストーラー、Delphi 言語の機能強化 (en)
Delphi 12向けに更新されたZXingデモアプリ(Android 13と iOS 17で動作済み)を公開 (en)
ウェビナーへ寄せられたRAD Studio 12 に関するQ&A (en)
Sqids: RAD Serverとの統合およびスタンドアロンライブラリ (en)
RAD Studio 12向けに新しいプレミアムスタイルを提供 (en)
Delphi / C++Builder 12のSkiaサポートで表現力豊かなUIを構築

GitHub - Embarcadero/RADStudio12Demos: Delphi and C++Builder Demos for Embarcadero RAD Studio version 12

2024/02/10追記: インストーラがPatch 1を含むものに差し替えられています。またBDEおよびEmbarcaderoが提供する主要なパッケージのローカルGetItパッケージもポータルサイトからダウンロードできるようになっています。

2023年11月1日

2023年10月19日

[書籍]C++ソフトウェア設計

紀伊國屋書店新宿本店C++ Software Design (Amazon US)の翻訳である

C++ソフトウェア設計 (Amazon)/Klaus Iglberger著/千住治郎訳/オライリー・ジャパン/ISBN 978-4-8144-0045-4/4,400円

を購入。

2023年9月4日

[書籍]ルールズ・オブ・プログラミング

紀伊國屋書店新宿本店The Rules of Programming (Amazon US)の翻訳である

ルールズ・オブ・プログラミング (Amazon)/Chris Zimmerman著/久富木隆一訳/オライリー・ジャパン/ISBN 978-4-8144-0041-6/3,080円

を購入。

2023年7月28日

[書籍]Code Better in Delphi

Amazon(JP)で注文した

Code Better in Delphi (Amazon US, Amazon JP)/Alister Christie著/ISBN 979-8832851082/6,236JPY(printed)

が配送されてきました。2023/07/26に注文して2日目の到着でした(日本国内でのプリントオンデマンドなのかな?でした)。

2023年7月10日

2023年6月12日

2023年4月14日

[書籍]プログラミングの英単語

紀伊國屋書店新宿本店

プログラミングの英単語 (Amazon)/松元大地著/技術評論社/ISBN 978-4-297-13388-7/2,200円

を購入。

2023年4月12日

Microsoft Monthly Update 2023/04

今日はMicrosoftのセキュリティアップデートの日です。
2023 年 4 月のセキュリティ更新プログラム - リリース ノート - セキュリティ更新プログラム ガイド - Microsoft
2023 年 4 月のセキュリティ更新プログラム (月例) | MSRC Blog | Microsoft Security Response Center

RAD Studio/Delphi/C++Builder 11.3 Alexandria Patch 1

RAD Studio/Delphi/C++Builder 11.3 AlexandriaのPatch 1がリリースされています。REST関係とデバッガなどの不具合修正が含まれています。現時点(2023/04/12)ではGetItからのみGetItまたはポータルサイトからダウンロード、インストールすることができます。

RAD Studio 11.3 Patch 1

またローカルヘルプファイルも更新されているとのことです。こちらはRAD Studio Product Documentationで言語を選択してOffline CHM Help/Offline Libraries CHM Helpをダウンロードし、展開したファイルをインストール先に上書きすればよいようですできますが、単純に上書きすることはできないようです。

RAD Studio 11.3 Alexandria Patch 1 のリリース (en)

2023/04/27追記: Patch 1を含む更新されたRAD Studio 11.3のインストーラが公開されています。