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