【Delphi互換!?】FreePascal/Lazarus その2【GPL】

[648 デフォルトの名無しさん 2016/05/11(水) 08:48:13.55 ID:dFlNvgk/]

難しく考え過ぎじゃない？
LazUTF8 か SetCodePage じゃだめなの？

procedure TForm1.Button1Click(Sender: TObject);
var
s, s1, s2: string;
sl: tstringlist;
begin
s:= 'ABCDEFGあいうえおｱｲｳｴｵ';

s1:= UTF8ToWinCP(s);
Label1.Caption:= LazUTF8.WinCPToUTF8(s1);

s2:= s;
SetCodePage(RawByteString(s2), 932{SJIS}, true);
Label2.Caption:= LazUTF8.WinCPToUTF8(s2);
end;