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

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

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

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

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

めんどくさがりなくろねこはシステムの必須入力チェックとフル桁入力チェックは業務入力チェックの前に出来ないかと考えた。
チェックの順番は、当然にタブ順がふさわしい。

タブ順を自分で管理するのはめんどくさい。エンターキーで[Delphi] Enterキーで次のフィールドに移動する の様な処理が出来るんだからきっと何か良い方法がある！
と調べた結果がGetTabOrderListだった。これを使うと単純なチェックはカスタマイズしたコントロールに持たせたチェックで終わらせることが出来そうだ！しかし、この関数いつからあるんだろう？

※TBC～はくろねこ製のオリジナルコンポーネントのメソッドで、CheckRequiredとCheckFillCharはそれぞれ必須入力チェック、フル桁入力チェックである。

procedure TForm1.CheckInputData(Sender: TObject);
var
  i: integer;
  CtrlList: TList;
  ctrl: TWinControl;
begin
  CtrlList := TList.Create;
  try
    GetTabOrderList(CtrlList);
    for i := 0 to CtrlList.Count - 1 do
    begin
      ctrl := CtrlList[i];
      if (ctrl is TBCCustomEdit) then // エディット
      begin
        if not TBCCustomEdit(ctrl).CheckRequired(true) then exit;
        if not TBCCustomEdit(ctrl).CheckFillChar(true) then exit;
      end;
      if (ctrl is TBCCustomComboBox) then // コンボボックス
      begin
        if not TBCCustomComboBox(ctrl).CheckRequired(true) then exit;
      end;
    end;
  finally
    CtrlList.Free;
  end;
end;

今朝見た海賊Lv8が21時頃帰宅したにも係わらずまだある…。

ラッキーと思いつつ偵察を差し向けたら、楽勝構成！

損害0で倒せる？と思いつつ派兵したら…

朝起きてぼーっとマップを眺めていたら…海賊Lv8を発見！
調査ヘリを差し向けたら、まっさらだったんだけど前衛がオーサ/工作船/小型潜水艦 後衛が工作船/小型潜水艦という強烈な配置。

取りあえず、SH60シーウルフで前衛の小型潜水艦を殲滅と考えるも420機しか無く無理と判断し、ロシアンルーレット方式によるP3Cオライオンでの殲滅を謀りここまでは無事に成功する。(ここまでの損害は占領ヘリ3機の損失)。