Beログイン仕様変更に対応

[gikonavigoeson/gikonavi.git] / AddressHistory.pas

diff --git a/AddressHistory.pas b/AddressHistory.pas
index 567e6ef..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,7 +50,9 @@ begin
 
        if FileExists(FileName) then begin
                try
-                       XMLDoc := LoadXMLDocument(FileName);
+            XMLDoc := IXMLDocument.Create;
+                       //XMLDoc := LoadXMLDocument(FileName);
+            LoadXMLDocument(FileName, XMLDoc);
       try
         XMLNode := XMLDoc.DocumentElement;