paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 00:29:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ Changed writexml type to TDomNode instead of TDomeElement

Browse Source
This commit is contained in:
michael 2002-09-20 11:04:21 +00:00
parent e9044e3748
commit 153efdb2a7
1 changed files with 10 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
fcl/xml/xmlwrite.pp
View File

@ -28,9 +28,9 @@ procedure WriteXMLFile(doc: TXMLDocument; const AFileName: String);
procedure WriteXMLFile(doc: TXMLDocument; var AFile: Text); procedure WriteXMLFile(doc: TXMLDocument; var AFile: Text);
procedure WriteXMLFile(doc: TXMLDocument; var AStream: TStream); procedure WriteXMLFile(doc: TXMLDocument; var AStream: TStream);
procedure WriteXML(Element: TDOMElement; const AFileName: String); procedure WriteXML(Element: TDOMNode; const AFileName: String);
procedure WriteXML(Element: TDOMElement; var AFile: Text); procedure WriteXML(Element: TDOMNode; var AFile: Text);
procedure WriteXML(Element: TDOMElement; var AStream: TStream); procedure WriteXML(Element: TDOMNode; var AStream: TStream);
// =================================================================== // ===================================================================
@ -378,7 +378,7 @@ begin
end; end;
procedure WriteXML(Element: TDOMElement; const AFileName: String); procedure WriteXML(Element: TDOMNode; const AFileName: String);
begin begin
Stream := TFileStream.Create(AFileName, fmCreate); Stream := TFileStream.Create(AFileName, fmCreate);
wrt := @Stream_Write; wrt := @Stream_Write;
@ -388,7 +388,7 @@ begin
Stream.Free; Stream.Free;
end; end;
procedure WriteXML(Element: TDOMElement; var AFile: Text); procedure WriteXML(Element: TDOMNode; var AFile: Text);
begin begin
f := @AFile; f := @AFile;
wrt := @Text_Write; wrt := @Text_Write;
@ -397,7 +397,7 @@ begin
WriteNode(Element); WriteNode(Element);
end; end;
procedure WriteXML(Element: TDOMElement; var AStream: TStream); procedure WriteXML(Element: TDOMNode; var AStream: TStream);
begin begin
stream := AStream; stream := AStream;
wrt := @Stream_Write; wrt := @Stream_Write;
@ -412,7 +412,10 @@ end.
{ {
$Log$ $Log$
Revision 1.7 2002-09-07 15:15:29 peter Revision 1.8 2002-09-20 11:04:21 michael
+ Changed writexml type to TDomNode instead of TDomeElement
Revision 1.7 2002/09/07 15:15:29 peter
* old logs removed and tabs fixed * old logs removed and tabs fixed
} }