paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-07 15:20:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: fixed uninitialized function result

Browse Source 
git-svn-id: trunk@33222 -
This commit is contained in:
mattias 2011-11-02 16:39:07 +00:00
parent 7275997958
commit 77eec82725
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/lresources.pp
View File

@ -5200,8 +5200,9 @@ var
ComponentSize, SizeLength: int64;
AStream: TMemoryStream;
begin
if not ReadComponentSize(ComponentSize,SizeLength) then exit(false);
if (FQueue.Size-SizeLength<ComponentSize) then exit(false);
Result:=false;
if not ReadComponentSize(ComponentSize,SizeLength) then exit;
if (FQueue.Size-SizeLength<ComponentSize) then exit;
// a complete component is in the buffer -> copy it to a stream
AStream:=TMemoryStream.Create;
try
@ -5215,6 +5216,7 @@ begin
finally
AStream.Free;
end;
Result:=true;
end;
function TCustomLazComponentQueue.ConvertComponentAsString(AComponent: TComponent