Free Pascal 日本語(SJIS)対応 win32 crt unit


説明

これは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バイト目もチェックするように

中身はソースのみです。コンパイルして使ってください。
ライセンスは LGPL です。もとの Free Pascal の Run-Time Library が LGPL なので。

リンク

Free Pascal
Bloodshed Software Dev-Pascal