paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-17 19:49:38 +02:00
Code Issues Packages Projects Releases Wiki Activity

fixed compile with fpc 3.3.1

Browse Source 
(cherry picked from commit cbf9d30ddf)
This commit is contained in:
mattias 2023-07-25 09:30:38 +01:00 committed by Maxim Ganetsky
parent 660a29fe44
commit 0bd636885f
3 changed files with 19 additions and 7 deletions
components/lazutils
laz_xmlstreaming.pas
designer
designer.pp
lcl
lresources.pp

10
components/lazutils/laz_xmlstreaming.pas
View File

@ -28,6 +28,12 @@ uses
SysUtils, Classes, TypInfo, Laz2_DOM, Laz2_XMLWrite;
type
{$IF FPC_FULLVERSION>30300}
TXMLObjectWriterString = RawByteString;
{$ELSE}
TXMLObjectWriterString = String;
{$ENDIF}
TXMLObjectWriterStackElType = (elUnknown, elPropertyList, elChildrenList);
TXMLObjectWriterStackEl = class
@ -76,7 +82,7 @@ type
procedure WriteInteger(Value: Int64); override;
procedure WriteMethodName(const Name: String); override;
procedure WriteSet(Value: LongInt; SetType: Pointer); override;
procedure WriteString(const Value: String); override;
procedure WriteString(const Value: TXMLObjectWriterString); override;
procedure WriteWideString(const Value: WideString); override;
procedure WriteSignature; override;
{$IFDEF USE_NEW_READER_WRITER}
@ -454,7 +460,7 @@ begin
GetPropertyElement('set')['value'] := s;
end;
procedure TXMLObjectWriter.WriteString(const Value: String);
procedure TXMLObjectWriter.WriteString(const Value: TXMLObjectWriterString);
begin
GetPropertyElement('string')['value'] := Value;
end;

4
designer/designer.pp
View File

@ -1544,9 +1544,9 @@ begin
if tmpFieldN = 'Name' then
begin
if IsActUndo then
CompN := FUndoList[FUndoCurr].newVal
CompN := String(FUndoList[FUndoCurr].newVal)
else
CompN := FUndoList[FUndoCurr].oldVal;
CompN := String(FUndoList[FUndoCurr].oldVal);
end
else
CompN := FUndoList[FUndoCurr].compName;

12
lcl/lresources.pp
View File

@ -226,6 +226,12 @@ type
end;
PLRSOWStackItem = ^TLRSOWStackItem;
{$IF FPC_FULLVERSION>30300}
TLazObjectWriterString = RawByteString;
{$ELSE}
TLazObjectWriterString = String;
{$ENDIF}
{ TLRSObjectWriter }
TLRSObjectWriter = class(TAbstractObjectWriter)
@ -291,7 +297,7 @@ type
procedure WriteInteger(Value: Int64); override;
procedure WriteMethodName(const Name: String); override;
procedure WriteSet(Value: LongInt; SetType: Pointer); override;
procedure WriteString(const Value: String); override;
procedure WriteString(const Value: TLazObjectWriterString); override;
procedure WriteWideString(const Value: WideString); override;
procedure WriteUnicodeString(const Value: UnicodeString); override;
procedure WriteVariant(const Value: Variant); override;
@ -4957,7 +4963,7 @@ begin
WriteStr('');
end;
procedure TLRSObjectWriter.WriteString(const Value: String);
procedure TLRSObjectWriter.WriteString(const Value: TLazObjectWriterString);
var
i: Integer;
b: Byte;
@ -5013,7 +5019,7 @@ begin
varcurrency:
WriteCurrency(Value);
varolestr, varstring:
WriteString(Value);
WriteString(String(Value));
varboolean:
WriteBoolean(Value);
else