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.7 by h677, Wed Aug 4 12:46:39 2004 UTC revision 1.8 by yoffy, Fri Aug 6 08:26:36 2004 UTC
# Line 274  function ZenToHan(const s: string): stri Line 274  function ZenToHan(const s: string): stri
274  var  var
275          //Chr: array [0..1024] of char;          //Chr: array [0..1024] of char;
276          Chr: string;          Chr: string;
277            ChrLen  : Integer;
278  begin  begin
279          SetLength(Chr, Length(s) * 2);  //ガ → ガ のように最大2文字になるから          SetLength(Chr, Length(s));
280          Windows.LCMapString(          ChrLen := Windows.LCMapString(
281                   GetUserDefaultLCID(),                   GetUserDefaultLCID(),
282  //               LCMAP_HALFWIDTH,  //               LCMAP_HALFWIDTH,
283                   LCMAP_HALFWIDTH or LCMAP_KATAKANA or LCMAP_LOWERCASE,                   LCMAP_HALFWIDTH or LCMAP_KATAKANA or LCMAP_LOWERCASE,
284                   PChar(s),                   PChar(s),
285                   Length(s) + 1,                   Length(s),
286                   PChar(Chr),                   PChar(Chr),
287                   Length(Chr)                   Length(Chr)
288                   );                   );
289          Chr := Trim(Chr);          Result := Copy(Chr, 1, ChrLen);
         Result := Copy(Chr, 1, Length(Chr));  
         while Pos(#0, Result) > 0 do begin  
                 Delete(Result, Pos(#0, Result), 1);  
         end;  
290  end;  end;
291    
292  (*************************************************************************  (*************************************************************************

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

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