説明 これはSJISを表示可能にした crt unit です。 Free Pascal の win32 Run-Time Library は、uses crt すると Write(ln) で日本語が化けてしまうので対応させてみました。 情報 2006-11-09 ・Free Pascal 2.0.4 の win32用 crt unit はこれまでの1バイト文字ずつ出力から、文字をまとめて出力するようになり、その副作用かSJISも表示できるようになりました。 ダウンロード fpwincrt.zip (25,601 バイト) 2004-07-20 ・厳密なチェックはやめてSJIS判定を簡略化 2004-03-12 ・高速かもしれないコード追加 2004-03-07 ・漢字の1バイト目でしか判定してなかったのを2バイト目もチェックするように 中身はソースのみです。コンパイルして使ってください。