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.179 by h677, Fri Mar 18 13:39:48 2005 UTC revision 1.180 by h677, Fri Mar 18 14:09:40 2005 UTC
# Line 537  begin Line 537  begin
537                  Exit;                  Exit;
538          Board.Clear;          Board.Clear;
539          UnRead := 0;          UnRead := 0;
540        is2ch := false;
541          usePlugIn := Board.IsBoardPlugInAvailable;          usePlugIn := Board.IsBoardPlugInAvailable;
542      if not usePlugIn then begin      if not usePlugIn then begin
543          GikoSys.ParseURI(Board.URL, protocol, host, path, document, port, bookmark );          GikoSys.ParseURI(Board.URL, protocol, host, path, document, port, bookmark );
# Line 1897  end; Line 1897  end;
1897  function TGikoSys.DivideStrLine(Line: string): TResRec;  function TGikoSys.DivideStrLine(Line: string): TResRec;
1898  var  var
1899          Delim: string;          Delim: string;
                 bufbody : String;  
1900  begin  begin
1901          if AnsiPos('<>', Line) = 0 then begin          if AnsiPos('<>', Line) = 0 then begin
1902                  //Delim := ',';                  //Delim := ',';
# Line 3949  begin Line 3948  begin
3948  end;  end;
3949  function TGikoSys.GetSameIDResCount(AIDNum : Integer; ThreadItem: TThreadItem):Integer;  function TGikoSys.GetSameIDResCount(AIDNum : Integer; ThreadItem: TThreadItem):Integer;
3950  var  var
         i: integer;  
3951          body: TStringList;          body: TStringList;
3952  begin  begin
3953          Result := 0;          Result := 0;

Legend:
Removed from v.1.179  
changed lines
  Added in v.1.180

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