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