| 352 |
for i := 0 to Node.Count - 1 do begin |
for i := 0 to Node.Count - 1 do begin |
| 353 |
if TObject(Node.Item[i].Data) is TFavoriteFolder then begin |
if TObject(Node.Item[i].Data) is TFavoriteFolder then begin |
| 354 |
if Node.Item[ i ].Expanded then |
if Node.Item[ i ].Expanded then |
| 355 |
s := Format('<folder title="%s" expanded="true">', [HtmlEncode(Node.Item[i].Text)]) |
s := Format('<folder title="%s" expanded="true">', [HttpEncode(Node.Item[i].Text)]) |
| 356 |
else |
else |
| 357 |
s := Format('<folder title="%s" expanded="false">', [HtmlEncode(Node.Item[i].Text)]); |
s := Format('<folder title="%s" expanded="false">', [HttpEncode(Node.Item[i].Text)]); |
| 358 |
SaveList.Add(s); |
SaveList.Add(s); |
| 359 |
AddSaveString(Node.Item[i], SaveList); |
AddSaveString(Node.Item[i], SaveList); |
| 360 |
SaveList.Add('</folder>'); |
SaveList.Add('</folder>'); |
| 361 |
end else if TObject(Node.Item[i].Data) is TFavoriteBoardItem then begin |
end else if TObject(Node.Item[i].Data) is TFavoriteBoardItem then begin |
| 362 |
FavBoard := TFavoriteBoardItem(Node.Item[i].Data); |
FavBoard := TFavoriteBoardItem(Node.Item[i].Data); |
| 363 |
s := Format('<favitem type="2ch" favtype="board" url="%s" title="%s"/>', |
s := Format('<favitem type="2ch" favtype="board" url="%s" title="%s"/>', |
| 364 |
[HtmlEncode( FavBoard.Item.URL ), HtmlEncode(FavBoard.Title)]); |
[HttpEncode( FavBoard.Item.URL ), HttpEncode(FavBoard.Title)]); |
| 365 |
SaveList.Add(s); |
SaveList.Add(s); |
| 366 |
end else if TObject(Node.Item[i].Data) is TFavoriteThreadItem then begin |
end else if TObject(Node.Item[i].Data) is TFavoriteThreadItem then begin |
| 367 |
FavThread := TFavoriteThreadItem(Node.Item[i].Data); |
FavThread := TFavoriteThreadItem(Node.Item[i].Data); |
| 368 |
s := Format('<favitem type="2ch" favtype="thread" url="%s" title="%s"/>', |
s := Format('<favitem type="2ch" favtype="thread" url="%s" title="%s"/>', |
| 369 |
[HtmlEncode( FavThread.Item.URL ), HtmlEncode(FavThread.Title)]); |
[HttpEncode( FavThread.Item.URL ), HttpEncode(FavThread.Title)]); |
| 370 |
SaveList.Add(s); |
SaveList.Add(s); |
| 371 |
end; |
end; |
| 372 |
end; |
end; |