Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/AddressHistory.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.5 by yoffy, Mon Nov 24 07:58:29 2003 UTC revision 1.6 by yoffy, Thu Nov 27 13:04:17 2003 UTC
# Line 57  begin Line 57  begin
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

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26