paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-03 09:30:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix changed base type in TAbstractWriter for WriteString

Browse Source
This commit is contained in:
Michael VAN CANNEYT 2023-01-07 12:43:12 +01:00 committed by Michaël Van Canneyt
parent 78374bf772
commit a3d8d941cc
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
packages/fcl-xml/src/xmlstreaming.pp
View File

@ -64,8 +64,9 @@ type
procedure WriteInteger(Value: Int64); override; procedure WriteInteger(Value: Int64); override;
procedure WriteMethodName(const Name: String); override; procedure WriteMethodName(const Name: String); override;
procedure WriteSet(Value: LongInt; SetType: Pointer); override; procedure WriteSet(Value: LongInt; SetType: Pointer); override;
procedure WriteString(const Value: String); override; procedure WriteString(const Value: RawByteString); override;
procedure WriteWideString(const Value: WideString); override; procedure WriteWideString(const Value: WideString); override;
procedure WriteUnicodeString(const Value: UnicodeString); override;
end; end;
@ -239,7 +240,7 @@ begin
WriteLn('WriteSet: ', Value); WriteLn('WriteSet: ', Value);
end; end;
procedure TXMLObjectWriter.WriteString(const Value: String); procedure TXMLObjectWriter.WriteString(const Value: RawByteString);
begin begin
GetPropertyElement('string')['value'] := Value; GetPropertyElement('string')['value'] := Value;
end; end;
@ -249,5 +250,10 @@ begin
GetPropertyElement('widestring')['value'] := Value; GetPropertyElement('widestring')['value'] := Value;
end; end;
procedure TXMLObjectWriter.WriteUnicodeString(const Value: UnicodeString);
begin
GetPropertyElement('unicodestring')['value'] := Value;
end;
end. end.