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.3 by h677, Thu Sep 4 08:22:06 2003 UTC revision 1.4 by yoffy, Sat Nov 22 12:18:32 2003 UTC
# Line 4  interface Line 4  interface
4    
5  uses  uses
6          SysUtils, Classes, {SAX, SAXHelpers, SAXComps, SAXKW,}          SysUtils, Classes, {SAX, SAXHelpers, SAXComps, SAXKW,}
7          GikoSystem, {XMLIntf, XMLDoc}{, HttpApp} YofUtils;          GikoSystem, {XMLIntf, XMLDoc}{, HttpApp} GikoXMLDoc, YofUtils;
8    
9  type  type
10          TAddressHistoryDM = class(TDataModule)          TAddressHistoryDM = class(TDataModule)
11                  procedure DataModuleCreate(Sender: TObject);                  procedure DataModuleCreate(Sender: TObject);
12          private          private
13                  { Private 宣言 }                  { Private 宣言 }
14  //              FReadCount: Integer;                  FReadCount: Integer;
15    
16  //              procedure SAXStartDocument(Sender: TObject);  //              procedure SAXStartDocument(Sender: TObject);
17  //              procedure SAXEndDocument(Sender: TObject);  //              procedure SAXEndDocument(Sender: TObject);
# Line 40  begin Line 40  begin
40  end;  end;
41    
42  procedure TAddressHistoryDM.ReadHistory(sl: TStrings; ReadCount: Integer);  procedure TAddressHistoryDM.ReadHistory(sl: TStrings; ReadCount: Integer);
 {  
43  var  var
44          FileName: string;          FileName: string;
45          XMLDoc: IXMLDocument;          XMLDoc: IXMLDocument;
# Line 48  var Line 47  var
47          HistoryNode: IXMLNode;          HistoryNode: IXMLNode;
48          i: Integer;          i: Integer;
49          s: string;          s: string;
 }  
50  begin  begin
51  {  
52          sl.Clear;          sl.Clear;
53          FReadCount := ReadCount;          FReadCount := ReadCount;
54    
# Line 77  begin Line 75  begin
75                  except                  except
76                  end;                  end;
77          end;          end;
78  }  
79  //      AddressSAXHandler.OnStartDocument := SAXStartDocument;  //      AddressSAXHandler.OnStartDocument := SAXStartDocument;
80  //      AddressSAXHandler.OnEndDocument := SAXEndDocument;  //      AddressSAXHandler.OnEndDocument := SAXEndDocument;
81  //      AddressSAXHandler.OnStartElement := SAXStartElement;  //      AddressSAXHandler.OnStartElement := SAXStartElement;
# Line 103  var Line 101  var
101  }  }
102  begin  begin
103  {  {
104          XMLDoc :=  NewXMLDocument;          XMLDoc :=       NewXMLDocument;
105          XMLDoc.Encoding := 'Shift_JIS';          XMLDoc.Encoding := 'Shift_JIS';
106          XMLDoc.StandAlone := 'yes';          XMLDoc.StandAlone := 'yes';
107          XMLNode := XMLDoc.AddChild('address');          XMLNode := XMLDoc.AddChild('address');

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

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