Opendocument XML.Widestring->UTF8String conversion. Bug: 2897793 by Luiz Camara.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1013 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
Joshy
2009-11-16 12:46:31 +00:00
parent e49d2da336
commit c429d42414

View File

@ -231,7 +231,7 @@ end;
procedure TsSpreadOpenDocReader.ReadLabel(ARow: Word; ACol : Word; ACellNode : TDOMNode); procedure TsSpreadOpenDocReader.ReadLabel(ARow: Word; ACol : Word; ACellNode : TDOMNode);
begin begin
FWorkSheet.WriteUTF8Text(ARow,ACol,ACellNode.TextContent); FWorkSheet.WriteUTF8Text(ARow,ACol,UTF8Encode(ACellNode.TextContent));
end; end;
procedure TsSpreadOpenDocReader.ReadNumber(ARow: Word; ACol : Word; ACellNode : TDOMNode); procedure TsSpreadOpenDocReader.ReadNumber(ARow: Word; ACol : Word; ACellNode : TDOMNode);