・スレタイの特定ワードを非表示にする機能に「©bbspink.com」も追加

[gikonavigoeson/gikonavi.git] / AddressHistory.pas

diff --git a/AddressHistory.pas b/AddressHistory.pas
index 061a33c..1aba76d 100644 (file)
--- a/AddressHistory.pas
+++ b/AddressHistory.pas
@@ -8,7 +8,6 @@ uses
 
 type
        TAddressHistoryDM = class(TDataModule)
-               procedure DataModuleCreate(Sender: TObject);
        private
                { Private \90é\8c¾ }
                FReadCount: Integer;
@@ -34,11 +33,6 @@ const
 
 {$R *.dfm}
 
-procedure TAddressHistoryDM.DataModuleCreate(Sender: TObject);
-begin
-//
-end;
-
 procedure TAddressHistoryDM.ReadHistory(sl: TStrings; ReadCount: Integer);
 var
        FileName: string;
@@ -56,22 +50,28 @@ begin
 
        if FileExists(FileName) then begin
                try
-                       XMLDoc := LoadXMLDocument(FileName);
-                       XMLNode := XMLDoc.DocumentElement;
-
-                       if XMLNode.NodeName = 'address' then begin
-                               for i := 0 to XMLNode.ChildNodes.Count - 1 do begin
-                                       HistoryNode := XMLNode.ChildNodes[i];
-                                       if HistoryNode.NodeName = 'history' then begin
-                                               if FReadCount >= sl.Count then begin
-                                                       s := Trim(HistoryNode.Attributes['url']);
-                                                       if s <> '' then
-                                                               sl.Add(s);
-                                                               //sl.Add(HttpDecode(s));
-                                               end;
-                                       end;
-                               end;
-                       end;
+            XMLDoc := IXMLDocument.Create;
+                       //XMLDoc := LoadXMLDocument(FileName);
+            LoadXMLDocument(FileName, XMLDoc);
+      try
+        XMLNode := XMLDoc.DocumentElement;
+
+        if XMLNode.NodeName = 'address' then begin
+          for i := 0 to XMLNode.ChildNodes.Count - 1 do begin
+            HistoryNode := XMLNode.ChildNodes[i];
+            if HistoryNode.NodeName = 'history' then begin
+              if FReadCount >= sl.Count then begin
+                s := Trim(HistoryNode.Attributes['url']);
+                if s <> '' then
+                  sl.Add(s);
+                  //sl.Add(HttpDecode(s));
+              end;
+            end;
+          end;
+        end;
+      finally
+        XMLDoc.Free;
+      end;
                except
                end;
        end;