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

tvplanit: Fix typos in file format conversion of xml datastore.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5182 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-09-18 20:58:27 +00:00
parent 27bb5c51fe
commit f66b612fbd
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
components/tvplanit/source/vpxmlds.pas
View File

@ -673,7 +673,7 @@ begin
else if nodeName = 'Custom3' then else if nodeName = 'Custom3' then
cont.Custom3 := GetNodeValue(node) cont.Custom3 := GetNodeValue(node)
else if nodeName = 'Custom4' then else if nodeName = 'Custom4' then
cont.Custom3 := GetNodeValue(node) cont.Custom4 := GetNodeValue(node)
else if nodeName = 'UserField0' then else if nodeName = 'UserField0' then
cont.UserField0 := GetNodeValue(node) cont.UserField0 := GetNodeValue(node)
else if nodeName = 'UserField1' then else if nodeName = 'UserField1' then
@ -1045,7 +1045,7 @@ begin
child := ADoc.CreateElement('Phone2'); child := ADoc.CreateElement('Phone2');
TDOMElement(child).SetAttribute('Type', TDOMElement(child).SetAttribute('Type',
GetEnumName(TypeInfo(TVpPhoneType), ord(AContact.PhoneType2))); GetEnumName(TypeInfo(TVpPhoneType), ord(AContact.PhoneType2)));
txt := ADoc.CreateTextNode(IntToStr(AContact.PhoneType2)); txt := ADoc.CreateTextNode(AContact.Phone2);
child.AppendChild(txt); child.AppendChild(txt);
AContactNode.AppendChild(child); AContactNode.AppendChild(child);
end; end;