Browse CVS Repository
Diff of /gikonavigoeson/gikonavi/MojuUtils.pas
Parent Directory
| Revision Log
| Revision Graph
| Patch
| 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 |
|
|
| |