paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-01 23:40:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazUtils: Implement abstract methods for classes TXMLObjectWriter / TXMLObjectReader. Issue #27817, patch from Vojtech Cihak.

Browse Source 
git-svn-id: trunk@48689 -
This commit is contained in:
juha 2015-04-09 20:29:10 +00:00
parent be0209b77b
commit 143b80ae36
1 changed files with 18 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
components/lazutils/laz_xmlstreaming.pas
View File

@ -77,6 +77,9 @@ type
procedure WriteSet(Value: LongInt; SetType: Pointer); override;
procedure WriteString(const Value: String); override;
procedure WriteWideString(const Value: WideString); override;
{$IF FPC_FULLVERSION >= 30101}
procedure WriteSignature; override;
{$ENDIF}
{$IFDEF USE_NEW_READER_WRITER}
procedure WriteUInt64(Value: QWord); override;
procedure WriteUnicodeString(const Value: UnicodeString); override;
@ -128,6 +131,9 @@ type
function ReadStr: String; override;
function ReadString(StringType: TValueType): String; override;
function ReadWideString: WideString; override;
{$IF FPC_FULLVERSION >= 30101}
procedure ReadSignature; override;
{$ENDIF}
{$IFDEF USE_NEW_READER_WRITER}
function ReadUnicodeString: UnicodeString; override;
{$ENDIF}
@ -462,6 +468,12 @@ begin
GetPropertyElement('widestring')['value'] := System.UTF8Encode(Value);
end;
{$IF FPC_FULLVERSION >= 30101}
procedure TXMLObjectWriter.WriteSignature;
begin
end;
{$ENDIF}
{$IFDEF USE_NEW_READER_WRITER}
procedure TXMLObjectWriter.WriteUInt64(Value: QWord);
begin
@ -1131,6 +1143,12 @@ begin
//writeln('TXMLObjectReader.ReadWideString "',ValueAsUTF8,'"');
end;
{$IF FPC_FULLVERSION >= 30101}
procedure TXMLObjectReader.ReadSignature;
begin
end;
{$ENDIF}
{$IFDEF USE_NEW_READER_WRITER}
function TXMLObjectReader.ReadUnicodeString: UnicodeString;
var