Browse CVS Repository
Diff of /gikonavigoeson/gikonavi/GikoSystem.pas
Parent Directory
| Revision Log
| Revision Graph
| Patch
| 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 |
|
|
| |