pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

Fix crash in Delphi

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1855 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
inoussa
2011-08-29 02:49:04 +00:00
parent 0663087930
commit f2ef6e252b
1 changed files with 15 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
wst/trunk/imp_utils.pas
View File

@ -280,6 +280,7 @@ Var
begin begin
ADest.Clear(); ADest.Clear();
propListLen := GetPropList(PTypeInfo(FParent.ClassInfo),propList); propListLen := GetPropList(PTypeInfo(FParent.ClassInfo),propList);
if (propListLen > 0) then begin
Try Try
For i := 0 To Pred(propListLen) Do Begin For i := 0 To Pred(propListLen) Do Begin
If ( propList^[i]^.PropType^.Kind in If ( propList^[i]^.PropType^.Kind in
@ -294,6 +295,7 @@ begin
Finally Finally
Freemem(propList,propListLen*SizeOf(Pointer)); Freemem(propList,propListLen*SizeOf(Pointer));
End; End;
end;
Result := ADest.Count; Result := ADest.Count;
end; end;