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

Fix : "FreeObjectProperties" was called two times.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3086 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
inoussa
2014-05-24 13:01:15 +00:00
parent 4271ace593
commit 3afe6477ca
1 changed files with 0 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
wst/trunk/base_service_intf.pas
View File

@ -545,7 +545,6 @@ type
TBaseComplexRemotable = class(TAbstractComplexRemotable) TBaseComplexRemotable = class(TAbstractComplexRemotable)
public public
destructor Destroy();override;
class procedure Save( class procedure Save(
AObject : TBaseRemotable; AObject : TBaseRemotable;
AStore : IFormatterBase; AStore : IFormatterBase;
@ -2219,12 +2218,6 @@ begin
Result := ( FAttributeFieldList.IndexOf(AField) >= 0 ); Result := ( FAttributeFieldList.IndexOf(AField) >= 0 );
end; end;
destructor TBaseComplexRemotable.Destroy();
begin
FreeObjectProperties();
inherited Destroy();
end;
class procedure TBaseComplexRemotable.Save( class procedure TBaseComplexRemotable.Save(
AObject : TBaseRemotable; AObject : TBaseRemotable;
AStore : IFormatterBase; AStore : IFormatterBase;