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