Преглед на файлове

* Small fix in GetConversionInfo (result was not fully cleared)

sg преди 21 години
родител
ревизия
f1ed1952b2
променени са 1 файла, в които са добавени 5 реда и са изтрити 2 реда
  1. 5 2
      fcl/net/mkxmlrpc.pp

+ 5 - 2
fcl/net/mkxmlrpc.pp

@@ -250,7 +250,7 @@ type
     s: String;
     ArraySizeProp: TPasProperty;
   begin
-    SetLength(Result.ConverterName, 0);
+    FillChar(Result, SizeOf(Result), 0);
     Result.ArgIsParent := False;
 
     if Element.ClassType = TPasProperty then
@@ -871,7 +871,10 @@ end.
 
 {
   $Log$
-  Revision 1.4  2003-11-22 12:08:32  sg
+  Revision 1.5  2004-02-02 16:53:07  sg
+  * Small fix in GetConversionInfo (result was not fully cleared)
+
+  Revision 1.4  2003/11/22 12:08:32  sg
   * Better error reporting with line numbers
   * Array properties: The size property now can just match the name of the
     array property as well; so it now also works without a plural "s" after