Browse CVS Repository
Diff of /gikonavigoeson/gikonavi/Favorite.pas
Parent Directory
| Revision Log
| Revision Graph
| Patch
| 110 |
destructor TFavoriteBoardItem.Destory; |
destructor TFavoriteBoardItem.Destory; |
| 111 |
begin |
begin |
| 112 |
if FItem <> nil then |
if FItem <> nil then |
| 113 |
FItem.Free; |
FItem.Free; |
| 114 |
inherited; |
inherited; |
| 115 |
end; |
end; |
| 116 |
function TFavoriteBoardItem.GetItem : TBoard; |
function TFavoriteBoardItem.GetItem : TBoard; |
| 117 |
var |
var |
| 131 |
FItem := BBSs[ 0 ].FindBBSID( BBSID ); |
FItem := BBSs[ 0 ].FindBBSID( BBSID ); |
| 132 |
if FItem <> nil then |
if FItem <> nil then |
| 133 |
URL := FItem.URL; |
URL := FItem.URL; |
| 134 |
|
end else if AnsiPos('jbbs.shitaraba.com', host) <> 0 then begin |
| 135 |
|
// したらばJBBSのhttp://jbbs.shitaraba.com/ → http://jbbs.livedoor.com/ 置換 |
| 136 |
|
URL := CustomStringReplace(URL, 'http://jbbs.shitaraba.com/', 'http://jbbs.livedoor.com/', false); |
| 137 |
|
FItem := BBSsFindBoardFromURL( URL ); |
| 138 |
|
if FItem <> nil then |
| 139 |
|
URL := FItem.URL; |
| 140 |
end; |
end; |
| 141 |
{ |
{ |
| 142 |
// ※作っても、追加するカテゴリが無いので激しく保留 |
// ※作っても、追加するカテゴリが無いので激しく保留 |
| 146 |
end; |
end; |
| 147 |
end; |
end; |
| 148 |
|
|
| 149 |
Result := FItem; |
Result := FItem; |
| 150 |
|
|
| 151 |
end; |
end; |
| 152 |
|
|
| 158 |
begin |
begin |
| 159 |
|
|
| 160 |
inherited Create; |
inherited Create; |
|
|
|
| 161 |
URL := inURL; |
URL := inURL; |
| 162 |
|
|
| 163 |
Title := inTitle; |
Title := inTitle; |
| 164 |
Item := inItem; |
Item := inItem; |
| 165 |
|
|
|
|
Legend:
| Removed from v.1.40 |
|
| changed lines |
| |
Added in v.1.41 |
|
|
|