GitHub-Mirror/x2xmldatabinding
1
0
Fork 0
mirror of synced 2024-06-26 13:57:38 +00:00
Code Issues Projects Releases Wiki Activity

Fixed: Access Violation in LoadFromString methods when not passing an Encoding explicitly

Browse Source
This commit is contained in:
Mark van Renswoude 2016-07-21 13:23:20 +00:00
parent 8feb95edb4
commit fe7f2eb952
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
Units/DelphiXMLDataBindingResources.pas
View File

@ -74,7 +74,12 @@ const
' stream: TStringStream;' + CrLf + ' stream: TStringStream;' + CrLf +
'' + CrLf + '' + CrLf +
'begin' + CrLf + 'begin' + CrLf +
' stream := TStringStream.Create(AString{$IF CompilerVersion >= 20}, AEncoding, AOwnsEncoding{$IFEND});' + CrLf + ' {$IF CompilerVersion >= 20}' + CrLf +
' if Assigned(AEncoding) then' + CrLf +
' stream := TStringStream.Create(AString, AEncoding, AOwnsEncoding)' + CrLf +
' else' + CrLf +
' {$IFEND}' + CrLf +
' stream := TStringStream.Create(AString);' + CrLf +
' try' + CrLf + ' try' + CrLf +
' Result := Load%<Name>:sFromStream(stream);' + CrLf + ' Result := Load%<Name>:sFromStream(stream);' + CrLf +
' finally' + CrLf + ' finally' + CrLf +