ZenToHan関数の255バイト制限をとったときに、変換した文字列中に'#0'が

現れる不具合を起こしていたので、それを解消。

diff --git a/MojuUtils.pas b/MojuUtils.pas
index 39f23a2..dd1f56b 100644 (file)
--- a/MojuUtils.pas
+++ b/MojuUtils.pas
@@ -275,7 +275,7 @@ var
        //Chr: array [0..1024] of char;
        Chr: string;
 begin
-       SetLength(Chr, Length(s) * 3);
+       SetLength(Chr, Length(s) * 2);  //\83K\81@\81¨\81@¶Þ \82Ì\82æ\82¤\82É\8dÅ\91å\82Q\95¶\8e\9a\82É\82È\82é\82©\82ç
        Windows.LCMapString(
                 GetUserDefaultLCID(),
 //              LCMAP_HALFWIDTH,
@@ -285,8 +285,11 @@ begin
                 PChar(Chr),
                 Length(Chr)
                 );
-       Chr := TrimRight(Chr);
+       Chr := Trim(Chr);
        Result := Copy(Chr, 1, Length(Chr));
+       while Pos(#0, Result) > 0 do begin
+               Delete(Result, Pos(#0, Result), 1);
+       end;
 end;
 
 (*************************************************************************