Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/MojuUtils.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.5 by h677, Thu May 6 15:13:52 2004 UTC revision 1.6 by h677, Mon Aug 2 15:26:01 2004 UTC
# Line 272  end; Line 272  end;
272   *************************************************************************)   *************************************************************************)
273  function ZenToHan(const s: string): string;  function ZenToHan(const s: string): string;
274  var  var
275          Chr: array [0..255] of char;          //Chr: array [0..1024] of char;
276            Chr: string;
277  begin  begin
278            SetLength(Chr, Length(s) * 3);
279          Windows.LCMapString(          Windows.LCMapString(
280                   GetUserDefaultLCID(),                   GetUserDefaultLCID(),
281  //               LCMAP_HALFWIDTH,  //               LCMAP_HALFWIDTH,
282                   LCMAP_HALFWIDTH or LCMAP_KATAKANA or LCMAP_LOWERCASE,                   LCMAP_HALFWIDTH or LCMAP_KATAKANA or LCMAP_LOWERCASE,
283                   PChar(s),                   PChar(s),
284                   Length(s) + 1,                   Length(s) + 1,
285                   chr,                   PChar(Chr),
286                   Sizeof(chr)                   Length(Chr)
287                   );                   );
288          Result := Chr;          Chr := TrimRight(Chr);
289            Result := Copy(Chr, 1, Length(Chr));
290  end;  end;
291    
292  (*************************************************************************  (*************************************************************************

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26