ByteType




文字列中のあるバイトが1バイト文字、2バイト文字の頭、2バイト文字の尻か判別する関数。

// 文字列のバイトが1バイト文字か判別する
if(ByteType(msg, cnt) = mbSingleByte)then
begin
moji := Ord(msg[cnt]);
Inc(cnt);
end
else
begin
moji := ((Ord(msg[cnt]) and $000000ff) shl 8) +(Ord(msg[cnt + 1]) and $000000ff);
Inc(cnt, 2);
end;



コメントを残す

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です