掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
UnicodeからShift-jisに変換するには (ID:48023)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
簡単にできるかと思ったらそうでも無かった サンプル？はおそらく「終了」って２文字のUnicodeを処理しようとしているので そのテキストを作成して内部を見ると FF FE 42 7D 86 4E でした。 FF FE 以外を処理すれば読み取ることができるようです。 不格好な処理になっています。がサンプル var w_txt : String; ls_Wide: WideString; msg : String; i,d : Integer; s :string; t : TStringList; begin t := TStringList.Create; t.LoadFromFile('unicode.txt'); s := t.Strings[0]; w_txt := ''; ls_Wide := ''; for i := 0 to (Length(s)-3) div 2 do begin d := Ord(s[i*2+3]) + (Ord(s[i*2+4]) shl 8); w_txt := w_txt + WideChar(d); ls_Wide := ls_Wide + WideChar(d); end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.