Browse CVS Repository
Diff of /gikonavigoeson/gikonavi/Giko.pas
Parent Directory
| Revision Log
| Revision Graph
| Patch
| 1756 |
SaveHistory; |
SaveHistory; |
| 1757 |
except |
except |
| 1758 |
end; |
end; |
| 1759 |
try |
try |
| 1760 |
ClearHistory; |
try |
| 1761 |
except |
ClearHistory; |
| 1762 |
|
except |
| 1763 |
|
end; |
| 1764 |
|
finally |
| 1765 |
|
FHistoryList.Free; |
| 1766 |
end; |
end; |
| 1767 |
|
|
| 1768 |
//巡回リスト保存&破棄 |
//巡回リスト保存&破棄 |
| 3619 |
saveList.Add('<?xml version="1.0" encoding="Shift_JIS" standalone="yes"?>'); |
saveList.Add('<?xml version="1.0" encoding="Shift_JIS" standalone="yes"?>'); |
| 3620 |
saveList.Add('<address>'); |
saveList.Add('<address>'); |
| 3621 |
bound := FHistoryList.Count - 1; |
bound := FHistoryList.Count - 1; |
| 3622 |
for i := 0 to bound do begin |
for i := bound downto 0 do begin |
| 3623 |
// title は今のところ使っていない |
// title は今のところ使っていない |
| 3624 |
saveList.Add( |
saveList.Add( |
| 3625 |
'<history url="' + HtmlEncode( TFavoriteThreadItem( FHistoryList[ i ] ).URL ) + '"' + |
'<history url="' + HtmlEncode( TFavoriteThreadItem( FHistoryList[ i ] ).URL ) + '"' + |
| 6369 |
try |
try |
| 6370 |
Dlg.ShowModal; |
Dlg.ShowModal; |
| 6371 |
finally |
finally |
| 6372 |
Dlg.Free; |
Dlg.Release; |
| 6373 |
end; |
end; |
| 6374 |
SetLinkBar; |
SetLinkBar; |
| 6375 |
end; |
end; |
|
|
Legend:
| Removed from v.1.234 |
|
| changed lines |
| |
Added in v.1.235 |
|
|
|