[JVCL-Checkins] SF.net SVN: jvcl:[13237] trunk/jvcl/design/JvIPAddressEditor.pas

[<ob...@us...>]

Revision: 13237
          http://jvcl.svn.sourceforge.net/jvcl/?rev=13237&view=rev
Author:   obones
Date:     2012-02-27 09:16:08 +0000 (Mon, 27 Feb 2012)
Log Message:
-----------
Must use temporary variable for reference counting to work properly because parameter to Proc is const
See https://forums.embarcadero.com/thread.jspa?threadID=66719&tstart=105 for details

Modified Paths:
--------------
    trunk/jvcl/design/JvIPAddressEditor.pas

Modified: trunk/jvcl/design/JvIPAddressEditor.pas
===================================================================
--- trunk/jvcl/design/JvIPAddressEditor.pas	2012-02-25 12:01:51 UTC (rev 13236)
+++ trunk/jvcl/design/JvIPAddressEditor.pas	2012-02-27 09:16:08 UTC (rev 13237)
@@ -101,6 +101,7 @@
 var
   I: Integer;
   Vp: TJvIPAddressComponentProperty;
+  E: IProperty; 
 begin
   // outcome layout in OI:
   // byte values
@@ -113,12 +114,18 @@
     Vp.Idx := I;
     Vp.ValIdx := 5-I;
 
-    Proc(Vp);
+    E := Vp;
+    Proc(E);
+    E := nil;
   end;
 
-  Proc(TJvIPAddressAsTextProperty.Create(Self));
+  E := TJvIPAddressAsTextProperty.Create(Self);
+  Proc(E);
+  E := nil;
 
-  Proc(TJvIPAddressAsNumberProperty.Create(Self));
+  E := TJvIPAddressAsNumberProperty.Create(Self);
+  Proc(E);
+  E := nil;
 end;
 
 function TJvIPAddressProperty.GetValue: string;

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.