FreePascalその6

ある結果が返るまで同じ関数を呼び続けるとき一緒に行うべき処理が何も無いなら

while not X do ; {セミコロンの直前に空文}

よりも

repeat until X; {repeatとuntilの間に空文}

のほうがカッコイイことに気付いた。
いやだからなんだって話ですが。
なおFreePascalの拡張構文の中で一番嬉しいのは、ローカル変数への初期化が行えることです。ソースをDelphiと共通にするなら使えませんけど。
匿名の列挙型と合わせて以下のような記述ができるのはよいです。

var
  State: (StateA, StateB, StateC) = StateA;