Browse CVS Repository
Diff of /gikonavigoeson/gikonavi/MojuUtils.pas
Parent Directory
| Revision Log
| Revision Graph
| Patch
| 29 |
function ZenToHan(const s: string): string; |
function ZenToHan(const s: string): string; |
| 30 |
function VaguePos(const Substr, S: string): Integer; |
function VaguePos(const Substr, S: string): Integer; |
| 31 |
|
|
| 32 |
|
function ReplaseNoValidateChar( inVal : String): String; |
| 33 |
|
|
| 34 |
implementation |
implementation |
| 35 |
// ポインター&アセンブラによる高速ポス |
// ポインター&アセンブラによる高速ポス |
| 36 |
function StrPosEx(StrStart, StrEnd, SubstrStart, SubstrEnd: PChar): PChar; |
function StrPosEx(StrStart, StrEnd, SubstrStart, SubstrEnd: PChar): PChar; |
| 298 |
begin |
begin |
| 299 |
Result := AnsiPos(ZenToHan(Substr), ZenToHan(S)); |
Result := AnsiPos(ZenToHan(Substr), ZenToHan(S)); |
| 300 |
end; |
end; |
| 301 |
|
(************************************************************************* |
| 302 |
|
* FAT/NTFSのファイル名に許されない文字(\,/,*,>,<,|)を全角に置換する |
| 303 |
|
*************************************************************************) |
| 304 |
|
function ReplaseNoValidateChar( inVal : String): String; |
| 305 |
|
begin |
| 306 |
|
Result := CustomStringReplace(inVal, '\', '¥'); |
| 307 |
|
Result := CustomStringReplace(Result, '/', '/'); |
| 308 |
|
Result := CustomStringReplace(Result, '*', '*'); |
| 309 |
|
Result := CustomStringReplace(Result, '>', '>'); |
| 310 |
|
Result := CustomStringReplace(Result, '<', '<'); |
| 311 |
|
Result := CustomStringReplace(Result, '|', '|'); |
| 312 |
|
end; |
| 313 |
end. |
end. |
|
|
Legend:
| Removed from v.1.8 |
|
| changed lines |
| |
Added in v.1.9 |
|
|
| |