1
0
mirror of synced 2024-11-14 02:59:16 +00:00

Fixed: simple type collections failed to call AddItem in the output, resulting in an Access Violation

Added: apparently I started a ModelMaker diagram some time ago
This commit is contained in:
Mark van Renswoude 2012-11-14 09:22:49 +00:00
parent cb4e3a1148
commit be56cf001a
2 changed files with 2 additions and 2 deletions

Binary file not shown.

View File

@ -1040,12 +1040,12 @@ begin
sourceCode.AddLn;
sourceCode.Add('function TXML%<Name>:s.Add(%<ItemName>:s: %<DataType>:s): %<DataInterface>:s;');
sourceCode.Add(NativeDataTypeToXML('Result.NodeValue', '%<ItemName>:s', typeDef, dntCustom,
sourceCode.Add(NativeDataTypeToXML('Result.NodeValue', '%<ItemName>:s', typeDef, dntCustom, '',
' Result := AddItem(-1);'));
sourceCode.AddLn;
sourceCode.Add('function TXML%<Name>:s.Insert(Index: Integer; %<ItemName>:s: %<DataType>:s): %<DataInterface>:s;');
sourceCode.Add(NativeDataTypeToXML('Result.NodeValue', '%<ItemName>:s', typeDef, dntCustom,
sourceCode.Add(NativeDataTypeToXML('Result.NodeValue', '%<ItemName>:s', typeDef, dntCustom, '',
' Result := AddItem(Index);'));
sourceCode.AddLn;
end;