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:
parent
cb4e3a1148
commit
be56cf001a
BIN
Docs/X2XMLDataBinding Structure.mpb
Normal file
BIN
Docs/X2XMLDataBinding Structure.mpb
Normal file
Binary file not shown.
@ -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;
|
||||
|
Loading…
Reference in New Issue
Block a user