プログラミング言語Delphiで、C言語のようにstatic変数を使う方法。Pascalの流儀から言うと邪道とも言える方法なのだが、実用上は便利。
static変数とは、スコープはローカルなのだが、プログラムの実行中にずっと値が保持されるという特殊な変数。都度呼ばれる関数が、自分の前世を何となく覚えているようなものかな？
C言語のstrtok関数とかをDelphiで実装しようとするときに必要になる。冒頭の画面のように、［プロジェクト］−［オプション］画面で［コンパイル］の［割り当て可能な型付き変数］をtrueにしておくと使えるようになる。そうでないとコンパイルエラーになって、しばらく悩むことになる（ブログ主のように）。
具体的なコードはこう（太字の部分だけ）。
function MBSTok( s1, s2 : PChar ) : PChar;
const
BufPtr : PChar = nil; { 文字列先頭を示すポインタ }
var
p1, p2 : PChar;
wc : Word;
begin
………
end;
constを付けると普通は定数になるが、PCharという型も指定して、nilで初期化してやれば、それはC言語でいうこんなコードになる。
static char *bufptr = NULL;
DelphiってPascalだからきめ細かいコード書けないよね？という御仁は、これが誤解だと思い知らせたい。というか、Delphiユーザをもっと増やしたい。ということで、たびたびこんな記事は投稿しようかな、と思う。