Browse CVS Repository
Diff of /gikonavigoeson/gikonavi/MojuUtils.pas
Parent Directory
| Revision Log
| Revision Graph
| Patch
| 30 |
function VaguePos(const Substr, S: string): Integer; |
function VaguePos(const Substr, S: string): Integer; |
| 31 |
|
|
| 32 |
function ReplaseNoValidateChar( inVal : String): String; |
function ReplaseNoValidateChar( inVal : String): String; |
| 33 |
|
function IsNoValidID( inID :String): Boolean; |
| 34 |
implementation |
implementation |
| 35 |
// ポインター&アセンブラによる高速ポス |
// ポインター&アセンブラによる高速ポス |
| 36 |
function StrPosEx(StrStart, StrEnd, SubstrStart, SubstrEnd: PChar): PChar; |
function StrPosEx(StrStart, StrEnd, SubstrStart, SubstrEnd: PChar): PChar; |
| 310 |
Result := CustomStringReplace(Result, '<', '<'); |
Result := CustomStringReplace(Result, '<', '<'); |
| 311 |
Result := CustomStringReplace(Result, '|', '|'); |
Result := CustomStringReplace(Result, '|', '|'); |
| 312 |
end; |
end; |
| 313 |
|
(************************************************************************* |
| 314 |
|
* 無効なIDかのチェック(無効例:ID:??? , ID:???0) |
| 315 |
|
*************************************************************************) |
| 316 |
|
function IsNoValidID( inID :String): Boolean; |
| 317 |
|
begin |
| 318 |
|
inID := Trim(inID); |
| 319 |
|
if inID = '' then Result := True |
| 320 |
|
else begin |
| 321 |
|
inID := Copy(inID, AnsiPos(':', inID) + 1, Length(inID) ); |
| 322 |
|
inID := CustomStringReplace(inID, '?', ''); |
| 323 |
|
if (inID = '') or (inID = '0') then Result := True |
| 324 |
|
else Result := False; |
| 325 |
|
end; |
| 326 |
|
end; |
| 327 |
|
|
| 328 |
end. |
end. |
|
|
Legend:
| Removed from v.1.9 |
|
| changed lines |
| |
Added in v.1.10 |
|
|
| |