Alexey_Gawrilow
Advanced Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
if not HasChildNodes then
begin
if OutputStream.OutputFormat = ofIndent then
OutputStream.WriteString(' ');
OutputStream.WriteString('/>');
Exit;
end;
Код:
procedure TXMLElement.InternalWriteToStream(const OutputStream: IUnicodeStream);
var
i: Integer;
begin
// 2002-12-17 (mr): fixed indentation
OutputStream.WriteIndent;
OutputStream.WriteString('<' + NodeName);
if HasAttributes then
begin
for i := 0 to Attributes.Length - 1 do
Attributes.Item[i].WriteToStream(OutputStream);
end;
if not HasChildNodes then
begin
if OutputStream.OutputFormat = ofIndent then
OutputStream.WriteString(' ');
OutputStream.WriteString('/>');
Exit;
end;
OutputStream.WriteString('>');
inherited;
if HasChildNodes and (not ((ChildNodes.Length = 1) and (ChildNodes.Item[0].NodeType = TEXT_NODE))) then
OutputStream.WriteIndent;
OutputStream.WriteString('</' + NodeName + '>');
end;
|
|
