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.184.2.2 by h677, Sat May 14 16:11:26 2005 UTC revision 1.184.2.3 by h677, Sun May 15 02:15:31 2005 UTC
# Line 3706  begin Line 3706  begin
3706                                                          if Assigned( Pointer( BoardGroups[k].BoardPlugIn.Module ) ) then begin                                                          if Assigned( Pointer( BoardGroups[k].BoardPlugIn.Module ) ) then begin
3707                                                                  if BoardGroups[k].BoardPlugIn.AcceptURL( inistr ) = atBoard then begin                                                                  if BoardGroups[k].BoardPlugIn.AcceptURL( inistr ) = atBoard then begin
3708                                                                          if not BoardGroups[k].Find(inistr, p) then begin                                                                          if not BoardGroups[k].Find(inistr, p) then begin
3709                                                                                  Board := TBoard.Create( BoardGroups[k].BoardPlugIn, inistr );                                                                                  tmpstring := BoardGroups[k].BoardPlugIn.ExtractBoardURL( inistr );
3710                                                                                  BoardGroups[k].AddObject(inistr, Board);                                                                                  if AnsiCompareStr(tmpString, inistr) <> 0 then begin
3711                                                                                            if not BoardGroups[k].Find(tmpstring, p) then begin
3712                                                                                                    Board := TBoard.Create( BoardGroups[k].BoardPlugIn, tmpstring );
3713                                                                                                    BoardGroups[k].AddObject(tmpstring, Board);
3714                                                                                            end else begin
3715                                                                                                    Board := TBoard(BoardGroups[k].Objects[p]);
3716                                                                                            end;
3717                                                                                    end else begin
3718                                                                                            Board := TBoard.Create( BoardGroups[k].BoardPlugIn, tmpstring );
3719                                                                                            BoardGroups[k].AddObject(tmpstring, Board);
3720                                                                                    end;
3721                                                                          end else begin                                                                          end else begin
3722                                                                                  Board := TBoard(BoardGroups[k].Objects[p]);                                                                                  Board := TBoard(BoardGroups[k].Objects[p]);
3723                                                                          end;                                                                          end;

Legend:
Removed from v.1.184.2.2  
changed lines
  Added in v.1.184.2.3

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