| 289 |
Result := CustomStringReplace(Result, '|', '|'); |
Result := CustomStringReplace(Result, '|', '|'); |
| 290 |
end; |
end; |
| 291 |
(************************************************************************* |
(************************************************************************* |
| 292 |
* 無効なIDかのチェック(無効例:ID:??? , ID:???0) |
* 無効なIDかのチェック(無効例:ID:??? , ID:???X) |
| 293 |
*************************************************************************) |
*************************************************************************) |
| 294 |
function IsNoValidID( inID :String): Boolean; |
function IsNoValidID( inID :String): Boolean; |
| 295 |
|
var |
| 296 |
|
bTail : Boolean; |
| 297 |
begin |
begin |
| 298 |
|
Result := True; |
| 299 |
inID := Trim(inID); |
inID := Trim(inID); |
| 300 |
if inID = '' then Result := True |
if (Length(inID) > 0) then begin |
|
else begin |
|
| 301 |
inID := Copy(inID, AnsiPos(':', inID) + 1, Length(inID) ); |
inID := Copy(inID, AnsiPos(':', inID) + 1, Length(inID) ); |
| 302 |
|
bTail := False; |
| 303 |
|
// 末尾が?以外か |
| 304 |
|
if Length(inID) > 0 then begin |
| 305 |
|
bTail := (inID[Length(inID)] <> '?'); |
| 306 |
|
end; |
| 307 |
inID := CustomStringReplace(inID, '?', ''); |
inID := CustomStringReplace(inID, '?', ''); |
| 308 |
if (inID = '') or (inID = '0') then Result := True |
if (Length(inID) > 0) and (not |
| 309 |
else Result := False; |
((Length(inID) = 1) and (bTail))) then begin |
| 310 |
|
Result := False; |
| 311 |
|
end; |
| 312 |
end; |
end; |
| 313 |
end; |
end; |
| 314 |
|
|