この発言は
#00499　アイクビー      さんのSJIS <-> JIS 変換 簡易編
に対するコメントです

この発言に対し以下のコメントが寄せられています

#00509　アイクビー      さん　RE^2:SJIS <-> JIS 変換 簡易編




アイクビー さん、どもです　瑠瓏です。

function JisToSjis(jj:word):word;
begin
  Result:=((jj + $100) div $200 + $70) * $100 +
        ord(jj and $100 =  0) * $5e + jj and $7f + $20 -
       ord((jj and $100 <> 0) and (jj and $7f < $60)) +
        ord(jj > $5e7e) * $6000;
end;

一応、1行で書いてみました。
逆も同じようにできます。

　　　　　　　　　　　　URL=http://member.nifty.ne.jp/lereaux/
卯月、穀雨、晩春挿話　  FDELPHI ☆ 瑠瓏 <KHB05271@niftyserve.or.jp>
                      　FJBUILDR    Mon,4/20/98  16:47

Original document by 瑠瓏            氏 ID:(KHB05271)

ここにあるドキュメントは NIFTY SERVEの Delphi Users' Forum の16番会議室「玉石混淆みんなで作るSample蔵」に投稿されたサンプルです。これらのサンプルはボーランド株式会社がサポートする公式のものではありません。また、必ずしも動作が検証されているものではありません。これらのサンプルを使用したことに起因するいかなる損害も投稿者、およびフォーラムスタッフはその責めを負いません。使用者のリスクの範疇でご使用下さい。