More than 3 years have passed since last update.

Delphi で最少のソースコードを書いてみる

Last updated at 2020-03-11Posted at 2019-03-03

はじめに

Delphi で最少のソースコードってどれだけ短くなるのかを調べてみました。

ここで言う最少のソースコードとはバイト数が最も少なくなるソースコードファイルの事です。
実行ファイルを作れる最小限のソースコードであり、生成される実行ファイルサイズの事ではありません。

やってみよう

では始めます。検証に使う環境は Delphi 10.3.1 Rio です。

コンソールアプリケーション

フォームのあるアプリケーションはそれだけでコード量がありますので、コンソールアプリケーションを選択します。

[ファイル | 新規作成 | その他...] から

コンソールアプリケーション を選択します。

この時点のソースコードは以下の通りです。

program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils;

begin
  try
    { TODO -oUser -cConsole メイン : ここにコードを記述してください }
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.

※ この辺で一旦読むのをやめて答えを予想してみるのもいいかもしれません！

コンソールアプリケーション (DocWiki)

例外処理のコードを削る

今回の用途だったら例外処理は不要ですねー♪

program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils;

begin
end.

コンパイラ指令のコードを削る

今回の用途だったらコンパイラ指令も不要ですねー♪

program Project1;
uses
  System.SysUtils;

begin
end.

{$APPTYPE CONSOLE} を削ってもコンソールアプリケーションになります。設定はプロジェクトオプションにあるからです。

普通のコンソールアプリケーションでは {$APPTYPE CONSOLE} を付けておくべきです。これを付けておけば *.dpr を単独で配布したとしてもコンソールアプリケーションとみなされます。

*.dpr を単独で配布された場合、これを開くとプロジェクトオプション用のファイル (*.dproj) が自動生成されます。しかしながら自動生成されたプロジェクトオプションではコンソールアプリケーション生成のスイッチが常にオフになっているため {$APPTYPE CONSOLE} のないソースコードはコンソールアプリケーションとみなされません。

{$APPTYPE CONSOLE} があったとしても、プロジェクトオプションではコンソールアプリケーション生成のスイッチはオフのままですが {$APPTYPE CONSOLE} 指令があるため、コンソールアプリケーションとしてコンパイルされます。

{$R *.res} はバージョン情報などのリソースを含めるかどうかなのですが、これも今回の目的には不要です。でも、普段は実行ファイルにバージョン情報リソースを含めておかないとウィルス対策ソフトに誤検知される事があります。バージョン情報リソースの有無で結果が異なるって...なんて杜撰なウィルスチェックなのだろう。