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.14 by h677, Thu Aug 25 14:33:53 2005 UTC revision 1.15 by h677, Sat Oct 29 14:52:48 2005 UTC
# Line 251  end; Line 251  end;
251   *************************************************************************)   *************************************************************************)
252  function ZenToHan(const s: string): string;  function ZenToHan(const s: string): string;
253  var  var
         //Chr: array [0..1024] of char;  
         Chr: string;  
254          ChrLen  : Integer;          ChrLen  : Integer;
255  begin  begin
256          SetLength(Chr, Length(s));          SetLength(Result, Length(s));
257          ChrLen := Windows.LCMapString(          ChrLen := Windows.LCMapString(
258                   GetUserDefaultLCID(),                   GetUserDefaultLCID(),
259  //               LCMAP_HALFWIDTH,  //               LCMAP_HALFWIDTH,
260                   LCMAP_HALFWIDTH or LCMAP_KATAKANA or LCMAP_LOWERCASE,                   LCMAP_HALFWIDTH or LCMAP_KATAKANA or LCMAP_LOWERCASE,
261                   PChar(s),                   PChar(s),
262                   Length(s),                   Length(s),
263                   PChar(Chr),                   PChar(Result),
264                   Length(Chr)                   Length(Result)
265                   );                   );
266          Result := Copy(Chr, 1, ChrLen);          SetLength(Result, ChrLen);
267  end;  end;
268    
269  (*************************************************************************  (*************************************************************************

Legend:
Removed from v.1.14  
changed lines
  Added in v.1.15

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