delphi‎ > ‎

Shift-jisからUTF-8へ変換

2010/01/28 12:34 に いつかはちょうになる が投稿   [ 2010/01/28 12:38 に更新しました ]
Shift-JISであることが確定している情報をTStringListに格納していて、その内容をUTF-8に変換する場合、何も苦労することなく変換できる。以下サンプル関数を掲載する。EUCに変換したい場合はAnsiToUtf8ではなくAnsiToEUCを利用すればよい。


procedure ConvUtoA(ASrc: TStringList);
var
  i: Integer;
begin
  for i:=0 to ASrc.Count-1 do
    begin
      ASrc[i]:=Utf8ToAnsi(ASrc[i]);
    end;
end;

procedure ConvAtoU(ASrc: TStringList);
var
  i: Integer;
begin
  for i:=0 to ASrc.Count-1 do
    begin
      ASrc[i]:=AnsiToUtf8(ASrc[i]);
    end;
end;

Comments