paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-01 19:19:24 +01:00
Code Issues Packages Projects Releases Wiki Activity

LazUtils: Prevent "Abstract method called" for TXMLObjectWriter / TXMLObjectReader also with FPC 3.0.0. Issue #27817.

Browse Source 
git-svn-id: trunk@49712 -
This commit is contained in:
bart 2015-08-26 09:29:52 +00:00
parent 6d50fc5c65
commit da24388dc4
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/lazutils/laz_xmlstreaming.pas
View File

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