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
const Value : string
);
var
- t : Integer;
index : Integer;
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;
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;
found : PChar;
tag : string;
- tagLen : Integer;
isClosed : boolean;
nodeName : string;
attributeName : string;
attributeValue : string;
-
- t, t2 : Integer;
label
NextNode;
begin