Mozno poprobovat' tak:
XMLFile.OPEN(FileName);
XMLFile.SEEK(0);
XMLFile.CREATEINSTREAM(InBuffer);
WITH NewXMLFile DO BEGIN
CREATE('c:\navxml.tmp');
CREATEOUTSTREAM(OutBuffer);
InBuffer.READTEXT(Buffer,xxx); //xxx - to k-vo simvolov, kot. nuzno ostavit'
OutBuffer.WRITETEXT(Buffer);
Buffer := '.........'; //svoj text, kot nuzno dobavit' to XML file header
OutBuffer.WRITETEXT(Buffer);
WHILE XMLFile.POS < XMLFile.LEN DO BEGIN
InBuffer.READTEXT(Buffer,1024);
OutBuffer.WRITETEXT(Buffer);
END;
CLOSE;
END;
XMLFile.CLOSE;
ERASE(FileName);
RENAME('c:\navxml.tmp',FileName);
|