uses
Windows;
function KanaToZenkaku(const Str: String): String;
{$IFNDEF UNICODE}
const
TestStr: String = 'A';
{$ENDIF}
var
Size: Integer;
Flags: DWORD;
{$IFNDEF UNICODE}
Multiplier: Integer;
{$ENDIF}
begin
Flags := LCMAP_FULLWIDTH or LCMAP_KATAKANA;
{$IFNDEF UNICODE}
Multiplier := 1;
{$ENDIF}
{ Calculate destination size }
{$IFNDEF UNICODE}
if LCMapString(LOCALE_SYSTEM_DEFAULT,Flags,
PChar(TestStr),Length(TestStr),nil,0) = 1 then
begin
Multiplier := 2;
end;
{$ENDIF}
Size := LCMapString(LOCALE_SYSTEM_DEFAULT,Flags,
PChar(Str),Length(Str),nil,0);
{$IFNDEF UNICODE}
Size := Size * Multiplier;
{$ENDIF}
{ Convert }
SetLength(Result,Size);
Size := LCMapString(LOCALE_SYSTEM_DEFAULT,Flags,
PChar(Str),Length(Str),PChar(Result),Size);
if Size <= 0 then
begin
Result := Str;
Exit;
end;
SetLength(Result,Size);
end;
2011/05/19追記: Windows 7の互換モードにおけるLCMapStringの不具合を回避するため、ANSI版の動作を修正しました。オリジナルのコードはこちら。
uses
Windows;
function KanaToZenkaku(const Str: String): String;
var
Size: Integer;
Flags: DWORD;
begin
Flags := LCMAP_FULLWIDTH or LCMAP_KATAKANA;
{ Calculate destination size }
Size := LCMapString(LOCALE_SYSTEM_DEFAULT,Flags,PChar(Str),Length(Str),nil,0);
{ Convert }
SetLength(Result,Size);
Size := LCMapString(LOCALE_SYSTEM_DEFAULT,Flags,
PChar(Str),Length(Str),PChar(Result),Size);
if Size <= 0 then
begin
Result := Str;
Exit;
end;
SetLength(Result,Size);
end;
0 件のコメント:
コメントを投稿