destructor TFavoriteBoardItem.Destory;
begin
if FItem <> nil then
- FItem.Free;
- inherited;
+ FItem.Free;
+ inherited;
end;
function TFavoriteBoardItem.GetItem : TBoard;
var
FItem := BBSs[ 0 ].FindBBSID( BBSID );
if FItem <> nil then
URL := FItem.URL;
+ end else if AnsiPos('jbbs.shitaraba.com', host) <> 0 then begin
+ // \82µ\82½\82ç\82ÎJBBS\82Ìhttp://jbbs.shitaraba.com/\81@\81¨\81@http://jbbs.livedoor.com/\81@\92u\8a·
+ URL := CustomStringReplace(URL, 'http://jbbs.shitaraba.com/', 'http://jbbs.livedoor.com/', false);
+ FItem := BBSsFindBoardFromURL( URL );
+ if FItem <> nil then
+ URL := FItem.URL;
end;
{
// \81¦\8dì\82Á\82Ä\82à\81A\92Ç\89Á\82·\82é\83J\83e\83S\83\8a\82ª\96³\82¢\82Ì\82Å\8c\83\82µ\82\95Û\97¯
end;
end;
- Result := FItem;
+ Result := FItem;
end;
begin
inherited Create;
-
URL := inURL;
+
Title := inTitle;
Item := inItem;