freepascal.ru

Код: Выделить всё

// удаление пустых строк из таблицы
procedure TTable.RemoveEmptyRow(Prefix: string);
var Node, SuicideNode: TDOMNode;
begin
  Node:=RootNode.FirstChild;
  while Assigned(Node) do begin
    //обработаем объединенные ячейки
    if Node.NodeName='table:covered-table-cell' then begin
      Node:=Node.NextSibling;
      continue;
    end;
    if (Node.FirstChild.NodeName='text:p') and
      (UTF8Pos(Prefix,Node.FirstChild.TextContent)>0) then begin
      SuicideNode:=Node;
      Node:=Node.NextSibling;
      SuicideNode.Destroy;
    end;
  end;
end;

Код: Выделить всё

{$IFDEF FPC_VER 2.4.4} // ифдефы нужно переписать на проверку ВЕРСИИ fpc, сейчас не вспомню как :) !!!!
    txtcontent:=UTF8Encode(Node.TextContent);
{$ELSE}
    txtcontent:=Node.TextContent;
{$ENDIF}
    // делаем замену при розвращении по дереву
    if pos(Search,txtcontent)>0 then
        begin
{$IFDEF  FPC_VER 2.4.4}
           node.TextContent := UTF8Decode(ReplaceAllSubString(txtcontent,Search,Replace));
{$ELSE}
           node.TextContent := ReplaceAllSubString(txtcontent,Search,Replace);
{$ENDIF}

Код: Выделить всё

svn checkout svn://svn.code.sf.net/p/odfproc/code/trunk odfproc-code

Код: Выделить всё

procedure TForm1.Button1Click(Sender: TObject);
var oowriter: todt;
 begin
   OoWriter:=TOdt.Create;  

Код: Выделить всё

procedure TOdt.GenerateStyles;
var Root, Node: TDOMNode;
begin
FreeAndNil(FStyles);
FStyles:=TXMLDocument.Create;
Root:=FStyles.CreateElement('office:document-styles');
  InsertXMLNS(TDOMElement(Root));  // Здесь появляется сообщение об ошибке

Код: Выделить всё

uses main,Zipper; 

Код: Выделить всё

uses Zipper;