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.6 by h677, Mon Aug 2 15:26:01 2004 UTC revision 1.7 by h677, Wed Aug 4 12:46:39 2004 UTC
# Line 275  var Line 275  var
275          //Chr: array [0..1024] of char;          //Chr: array [0..1024] of char;
276          Chr: string;          Chr: string;
277  begin  begin
278          SetLength(Chr, Length(s) * 3);          SetLength(Chr, Length(s) * 2);  //ガ → ガ のように最大2文字になるから
279          Windows.LCMapString(          Windows.LCMapString(
280                   GetUserDefaultLCID(),                   GetUserDefaultLCID(),
281  //               LCMAP_HALFWIDTH,  //               LCMAP_HALFWIDTH,
# Line 285  begin Line 285  begin
285                   PChar(Chr),                   PChar(Chr),
286                   Length(Chr)                   Length(Chr)
287                   );                   );
288          Chr := TrimRight(Chr);          Chr := Trim(Chr);
289          Result := Copy(Chr, 1, Length(Chr));          Result := Copy(Chr, 1, Length(Chr));
290            while Pos(#0, Result) > 0 do begin
291                    Delete(Result, Pos(#0, Result), 1);
292            end;
293  end;  end;
294    
295  (*************************************************************************  (*************************************************************************

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

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