冒険の書->忍法帖

[gikonavigoeson/gikonavi.git] / GikoXMLDoc.pas

diff --git a/GikoXMLDoc.pas b/GikoXMLDoc.pas
index 151600e..7b35439 100644 (file)
--- a/GikoXMLDoc.pas
+++ b/GikoXMLDoc.pas
@@ -1,8 +1,11 @@
 unit GikoXMLDoc;
 
-{
-       XMLIntf, XMLDoc \82 \82½\82è\82Ì\83N\83\8d\81[\83\93
-       Delphi 6 Personal \97p
+{!
+\file          GikoXMLDoc.pas
+\brief XMLIntf, XMLDoc \82 \82½\82è\82Ì\83N\83\8d\81[\83\93<br>
+                               Delphi 6 Personal \97p
+
+$Id: GikoXMLDoc.pas,v 1.10 2004/10/09 15:07:20 yoffy Exp $
 }
 interface
 
@@ -157,7 +160,6 @@ procedure IXMLNode.AddAttribute(
        const Value : string
 );
 var
-       t : Integer;
        index : Integer;
 begin
 
@@ -177,13 +179,13 @@ begin
 
 end;
 
-{*!
+{!
 \brief tok \82ð\92T\82·
 \param p                       \92T\8dõ\8aJ\8en\88Ê\92u
 \param tail    \8fI\97¹\88Ê\92u + 1
 \param tok             \92T\82·\83L\83\83\83\89\83N\83^
 \return        tok \82ª\8dÅ\8f\89\82É\8c©\82Â\82©\82Á\82½\88Ê\92u
-*}
+}
 function AnsiStrTok(
        p                       : PChar;
        const tail      : PChar;
@@ -206,13 +208,13 @@ begin
 
 end;
 
-{*!
+{!
 \brief tok \82Å\82Í\96³\82¢\83L\83\83\83\89\83N\83^\82ð\92T\82·
 \param p                       \92T\8dõ\8aJ\8en\88Ê\92u
 \param tail    \8fI\97¹\88Ê\92u + 1
 \param tok             \92T\82·\83L\83\83\83\89\83N\83^
 \return        tok \82Å\82Í\82È\82¢\83L\83\83\83\89\83N\83^\82ª\8dÅ\8f\89\82É\8c©\82Â\82©\82Á\82½\88Ê\92u
-*}
+}
 function AnsiStrNonTok(
        p                       : PChar;
        const tail      : PChar;
@@ -298,15 +300,12 @@ var
 
        found : PChar;
        tag : string;
-       tagLen : Integer;
 
        isClosed : boolean;
 
        nodeName : string;
        attributeName : string;
        attributeValue : string;
-
-       t, t2 : Integer;
 label
        NextNode;
 begin