Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/MojuUtils.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.22 by h677, Sun Feb 26 04:12:03 2006 UTC revision 1.23 by h677, Sat Jul 22 20:34:39 2006 UTC
# Line 289  begin Line 289  begin
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    

Legend:
Removed from v.1.22  
changed lines
  Added in v.1.23

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26