・アドレスバーの履歴がハ゛タ34から封印されていたので修正。

　封印しちゃったのは漏れですm(__)m

diff --git a/AddressHistory.pas b/AddressHistory.pas
index 1d0c4e2..80ff0b5 100644 (file)
--- a/AddressHistory.pas
+++ b/AddressHistory.pas
@@ -4,14 +4,14 @@ interface
 
 uses
        SysUtils, Classes, {SAX, SAXHelpers, SAXComps, SAXKW,}
-       GikoSystem, {XMLIntf, XMLDoc}{, HttpApp} YofUtils;
+       GikoSystem, {XMLIntf, XMLDoc}{, HttpApp} GikoXMLDoc, YofUtils;
 
 type
        TAddressHistoryDM = class(TDataModule)
                procedure DataModuleCreate(Sender: TObject);
        private
                { Private \90é\8c¾ }
-//             FReadCount: Integer;
+               FReadCount: Integer;
 
 //             procedure SAXStartDocument(Sender: TObject);
 //             procedure SAXEndDocument(Sender: TObject);
@@ -40,7 +40,6 @@ begin
 end;
 
 procedure TAddressHistoryDM.ReadHistory(sl: TStrings; ReadCount: Integer);
-{
 var
        FileName: string;
        XMLDoc: IXMLDocument;
@@ -48,9 +47,8 @@ var
        HistoryNode: IXMLNode;
        i: Integer;
        s: string;
-}
 begin
-{
+
        sl.Clear;
        FReadCount := ReadCount;
 
@@ -77,7 +75,7 @@ begin
                except
                end;
        end;
-}
+
 //     AddressSAXHandler.OnStartDocument := SAXStartDocument;
 //     AddressSAXHandler.OnEndDocument := SAXEndDocument;
 //     AddressSAXHandler.OnStartElement := SAXStartElement;
@@ -103,7 +101,7 @@ var
 }
 begin
 {
-       XMLDoc :=  NewXMLDocument;
+       XMLDoc :=       NewXMLDocument;
        XMLDoc.Encoding := 'Shift_JIS';
        XMLDoc.StandAlone := 'yes';
        XMLNode := XMLDoc.AddChild('address');