Advertisement
Guest User

Untitled

a guest
Oct 4th, 2015
58
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 3.02 KB | None | 0 0
  1. for i := 0 to FromServ.get_buyer_waybillsResult.XMLNode.ChildNodes.Count - 1 do
  2. begin
  3. strCreate_Date:=FromServ.get_buyer_waybillsResult.XMLNode.ChildNodes[i].ChildValues['CREATE_DATE'];
  4.  
  5. //if (FromServ.get_buyer_waybillsResult.XMLNode.ChildNodes[i].NodeName='DELIVERY_DATE') then ...
  6. if (FromServ.get_buyer_waybillsResult.XMLNode.ChildNodes.FindNode('DELIVERY_DATE')<>Nil) then
  7. strDelivery_Date:=FromServ.get_buyer_waybillsResult.XMLNode.ChildNodes[i].ChildValues['DELIVERY_DATE'];
  8. else ;
  9.  
  10. CDSGetBuyerWaybills.Append;
  11. CDSGetBuyerWaybills.FieldByName('create_date').AsString:=strCreate_Date;
  12. CDSGetBuyerWaybills.FieldByName('delivery_date').AsString:=strDelivery_Date;
  13. CDSGetBuyerWaybills.FieldByName('activate_date').AsString:=strActivate_Date;
  14. CDSGetBuyerWaybills.Post;
  15. end;
  16.  
  17. if (FromServ.get_buyer_waybillsResult.XMLNode.ChildNodes.FindNode('DELIVERY_DATE')<>Nil) then...
  18.  
  19. if (FromServ.get_buyer_waybillsResult.XMLNode.ChildNodes[i].NodeName='DELIVERY_DATE') then ...
  20.  
  21. <?xml version="1.0"?>
  22.  
  23. <WAYBILL_LIST xmlns="">
  24. <WAYBILL>
  25. <ID>206405566</ID>
  26. <TYPE>2</TYPE>
  27. <CREATE_DATE>2015-09-29T12:10:53</CREATE_DATE>
  28. <TRANSPORT_COAST>0</TRANSPORT_COAST>
  29. <DELIVERY_DATE>2015-10-03T10:34:43</DELIVERY_DATE>
  30. <STATUS>2</STATUS>
  31. <ACTIVATE_DATE>2015-09-29T12:10:55</ACTIVATE_DATE>
  32. <FULL_AMOUNT>279.99</FULL_AMOUNT>
  33. <CAR_NUMBER>UJU991</CAR_NUMBER>
  34. <WAYBILL_NUMBER>0198315109</WAYBILL_NUMBER>
  35. <CLOSE_DATE>2015-10-03T10:34:43</CLOSE_DATE>
  36. <S_USER_ID>26461</S_USER_ID>
  37. <BEGIN_DATE>2015-09-29T12:10:53</BEGIN_DATE>
  38. </WAYBILL>
  39. <WAYBILL>
  40. <ID>207247983</ID>
  41. <TYPE>2</TYPE>
  42. <CREATE_DATE>2015-10-03T12:20:09</CREATE_DATE>
  43. <TRANSPORT_COAST>0</TRANSPORT_COAST>
  44. <STATUS>1</STATUS>
  45. <ACTIVATE_DATE>2015-10-03T12:20:11</ACTIVATE_DATE>
  46. <FULL_AMOUNT>279.56</FULL_AMOUNT>
  47. <CAR_NUMBER>YPY088</CAR_NUMBER>
  48. <WAYBILL_NUMBER>0199129044</WAYBILL_NUMBER>
  49. <S_USER_ID>26461</S_USER_ID>
  50. <BEGIN_DATE>2015-10-03T12:20:09</BEGIN_DATE>
  51. </WAYBILL>
  52. </WAYBILL_LIST>
  53.  
  54. If Pos('<DELIVERY_DATE>', XmlResponse) > 0 then // значит тэг есть.
  55. ...
  56. else // тэга нет.
  57.  
  58. with FromServ.get_buyer_waybillsResult.XMLNode.ChildNodes[i] do
  59. //сначала обязательно проверим наличие элемента
  60. //чтобы потом не попытаться обратиться к неициализированному объекту и не вызвать AV
  61. if ChildNodes.FindNode('DELIVERY_DATE') = nil then //элемента не существует
  62. ShowMessage('There is no DELIVERY_DATE element in this Waybill!')
  63. else //элемент существует
  64. begin
  65. ...
  66. end;
  67.  
  68. if (FromServ.get_buyer_waybillsResult.XMLNode.ChildNodes[i].ChildValues['DELIVERY_DATE']<>Null)
  69. then
  70. strDelivery_Date:=FromServ.get_buyer_waybillsResult.XMLNode.ChildNodes[i].ChildValues['DELIVERY_DATE']
  71. else;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement