ZenToHanが255バイト固定処理だったので、動的にサイズを変更できるようにした。

diff --git a/MojuUtils.pas b/MojuUtils.pas
index fd9a993..39f23a2 100644 (file)
--- a/MojuUtils.pas
+++ b/MojuUtils.pas
@@ -272,18 +272,21 @@ end;
  *************************************************************************)
 function ZenToHan(const s: string): string;
 var
-       Chr: array [0..255] of char;
+       //Chr: array [0..1024] of char;
+       Chr: string;
 begin
+       SetLength(Chr, Length(s) * 3);
        Windows.LCMapString(
                 GetUserDefaultLCID(),
 //              LCMAP_HALFWIDTH,
                 LCMAP_HALFWIDTH or LCMAP_KATAKANA or LCMAP_LOWERCASE,
                 PChar(s),
                 Length(s) + 1,
-                chr,
-                Sizeof(chr)
+                PChar(Chr),
+                Length(Chr)
                 );
-       Result := Chr;
+       Chr := TrimRight(Chr);
+       Result := Copy(Chr, 1, Length(Chr));
 end;
 
 (*************************************************************************