вообще у меня в модуле есть только процедура
Код: Выделить всё
procedure TOoWriter.InsertXMLNS(var RootNode: TDOMElement);
var i:integer;
begin
for i:=1 to High(xmlns) do
RootNode.SetAttribute('xmlns:'+xmlns[i,1],xmlns[i,2]);
end;
а типа TOoXmlWriter даже не определено...
а сам массив xmlns определён так:
Код: Выделить всё
xmlns: array [1..20,1..2] of string =(('office','urn:oasis:names:tc:opendocument:xmlns:office:1.0'),
('style' ,'urn:oasis:names:tc:opendocument:xmlns:style:1.0'),
('text' ,'urn:oasis:names:tc:opendocument:xmlns:text:1.0'),
('table' ,'urn:oasis:names:tc:opendocument:xmlns:table:1.0'),
('draw' ,'urn:oasis:names:tc:opendocument:xmlns:drawing:1.0'),
('fo' ,'urn:oasis:names:tc:opendocument:xmlns:xsl-fo-compatible:1.0'),
('meta' ,'urn:oasis:names:tc:opendocument:xmlns:meta:1.0'),
('number','urn:oasis:names:tc:opendocument:xmlns:datastyle:1.0'),
('svg' ,'urn:oasis:names:tc:opendocument:xmlns:svg-compatible:1.0'),
('chart' ,'urn:oasis:names:tc:opendocument:xmlns:chart:1.0'),
('dr3d' ,'urn:oasis:names:tc:opendocument:xmlns:dr3d:1.0'),
('form' ,'urn:oasis:names:tc:opendocument:xmlns:form:1.0'),
('script','urn:oasis:names:tc:opendocument:xmlns:script:1.0'),
('of' ,'urn:oasis:names:tc:opendocument:xmlns:of:1.2'),
('field' ,'urn:openoffice:names:experimental:ooo-ms-interop:xmlns:field:1.0'),
('formx' ,'urn:openoffice:names:experimental:ooxml-odf-interop:xmlns:form:1.0'),
('dc' ,'http://purl.org/dc/elements/1.1/'),
('xlink' ,'http://www.w3.org/1999/xlink'),
('math' ,'http://www.w3.org/1998/Math/MathML'),
('xforms','http://www.w3.org/2002/xforms'));
видимо у вас там с определением xmlnscalc что-то не ладно...
