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.9 by h677, Sat Mar 19 13:47:48 2005 UTC revision 1.10 by h677, Wed Mar 23 13:07:19 2005 UTC
# Line 30  uses Line 30  uses
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;
# Line 310  begin Line 310  begin
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

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