Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/GikoSystem.pas

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

revision 1.147 by h677, Wed Jun 23 14:46:36 2004 UTC revision 1.148 by h677, Thu Jul 1 13:58:34 2004 UTC
# Line 2948  begin Line 2948  begin
2948    
2949          Index := AnsiPos(READ_PATH, path);          Index := AnsiPos(READ_PATH, path);
2950          if Index <> 0 then begin          if Index <> 0 then begin
2951                  s := Copy(path, Length(READ_PATH) + 1, Length(path));                  s := Copy(path, Index + Length(READ_PATH), Length(path));
2952                    if s[1] = '/' then
2953                            Delete(s, 1, 1);
2954                  BBSID := GetTokenIndex(s, '/', 0);                  BBSID := GetTokenIndex(s, '/', 0);
2955                  BBSKey := GetTokenIndex(s, '/', 1);                  BBSKey := GetTokenIndex(s, '/', 1);
2956                  if BBSKey = '' then                  if BBSKey = '' then

Legend:
Removed from v.1.147  
changed lines
  Added in v.1.148

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