Browse CVS Repository
Diff of /gikonavigoeson/gikonavi/AddressHistory.pas
Parent Directory
| Revision Log
| Revision Graph
| Patch
| 57 |
if FileExists(FileName) then begin |
if FileExists(FileName) then begin |
| 58 |
try |
try |
| 59 |
XMLDoc := LoadXMLDocument(FileName); |
XMLDoc := LoadXMLDocument(FileName); |
| 60 |
XMLNode := XMLDoc.DocumentElement; |
try |
| 61 |
|
XMLNode := XMLDoc.DocumentElement; |
| 62 |
|
|
| 63 |
if XMLNode.NodeName = 'address' then begin |
if XMLNode.NodeName = 'address' then begin |
| 64 |
for i := 0 to XMLNode.ChildNodes.Count - 1 do begin |
for i := 0 to XMLNode.ChildNodes.Count - 1 do begin |
| 65 |
HistoryNode := XMLNode.ChildNodes[i]; |
HistoryNode := XMLNode.ChildNodes[i]; |
| 66 |
if HistoryNode.NodeName = 'history' then begin |
if HistoryNode.NodeName = 'history' then begin |
| 67 |
if FReadCount >= sl.Count then begin |
if FReadCount >= sl.Count then begin |
| 68 |
s := Trim(HistoryNode.Attributes['url']); |
s := Trim(HistoryNode.Attributes['url']); |
| 69 |
if s <> '' then |
if s <> '' then |
| 70 |
sl.Add(s); |
sl.Add(s); |
| 71 |
//sl.Add(HttpDecode(s)); |
//sl.Add(HttpDecode(s)); |
| 72 |
end; |
end; |
| 73 |
end; |
end; |
| 74 |
end; |
end; |
| 75 |
end; |
end; |
| 76 |
|
finally |
| 77 |
|
XMLDoc.Free; |
| 78 |
|
end; |
| 79 |
except |
except |
| 80 |
end; |
end; |
| 81 |
end; |
end; |
|
|
Legend:
| Removed from v.1.5 |
|
| changed lines |
| |
Added in v.1.6 |
|
|
|