ゆの in Delphi6 (ObjectPascal)

Delphi6で『ゆの in language』。ひどい事になってるけど、これ以外にどうしろと、というところまで考えたつもり。

unit Yuno;

interface

uses
  Variants, Controls, Forms, StdCtrls, Classes;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    procedure FormShow(Sender: TObject);
  private
    { Private 宣言 }
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

function Disp : Variant;

implementation

{$R *.dfm}

function Disp : Variant;
begin
        with Form1 do
        begin
                if Label1.Caption = '' then
                        Label1.Caption := 'ひだまりスケッチ×365'
                else
                        Label1.Caption := Label1.Caption + ' 来週も見てくださいね!';
        end;
        Result := 1.0;
end;


procedure TForm1.FormShow(Sender: TObject);
var
        z : Boolean;
        _ : Variant;
        X : function : Variant;
begin
        X := Disp;
        _ := 1.0;
        try
                z :=
                X / _ / X < '来週も見てくださいね!';
        except
                ;
        end;
end;

end.

Form1にラベルを貼り付けて実行する。あ、あとOnShowにFormShowを。IDEだとException出てくるけど気にしない(こら
でもDelphi6でVariantだと演算子オーバーロードできるってどこかにあったけどどうやるんだ。

# いちいちバージョンを書いたのは、新しいのだと演算子オーバーロードが実装されているらしいから。良いなぁ
# あと、「Xじゃなくて_を手続き型にしてDispを簡略化できる」とも思ったけど、何かそれだとすんなりやりすぎのような気がしたから……(あまり変わらない上にちょっと姑息だけど)。