基本XML的DELPHI解析基本搞定了！

最新推荐文章于 2023-03-22 14:24:33 发布

原创最新推荐文章于 2023-03-22 14:24:33 发布 · 1k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#delphi #xml #encoding

AutoFlowchart自动生成流程图专栏收录该内容

7 篇文章

订阅专栏

本文详细介绍了一种基于XML的程序流程定义方法及其调试技巧。文章通过实例展示了如何使用不同控制结构（如IF、FOR、CASE等）来组织程序流程，并深入探讨了这些结构在XML中的具体表示形式。此外，还提供了调试此类流程的有效方法。

以下是一个解析结果，感觉调试起来太方便了！

<? xml version="1.0" encoding="GB2312" ?>

- < Nodes BegPos =" 0 " EndPos =" 99999999 " >

- < PROCEDURE Mode =" 1104 " BegPos =" 45 " EndPos =" 268 " NameEnd =" 60 " >

- < IF Mode =" 301 " BegPos =" 84 " EndPos =" 260 " NameBeg =" 87 " NameEnd =" 92 " >

< YES Mode =" 303 " BegPos =" 105 " EndPos =" 176 " BegMode =" 212 " EndMode =" 213 " />

- < NO Mode =" 304 " BegPos =" 189 " EndPos =" 260 " BegMode =" 301 " EndMode =" 1 " >

- < IF Mode =" 301 " BegPos =" 189 " EndPos =" 260 " NameBeg =" 192 " NameEnd =" 203 " >

< YES Mode =" 303 " BegPos =" 221 " EndPos =" 232 " BegMode =" 0 " EndMode =" 0 " />

< NO Mode =" 304 " BegPos =" 256 " EndPos =" 260 " BegMode =" 0 " EndMode =" 1 " />

</ IF >

</ NO >

</ IF >

</ PROCEDURE >

- < PROCEDURE Mode =" 1104 " BegPos =" 273 " EndPos =" 746 " NameEnd =" 288 " >

- < FOR Mode =" 501 " BegPos =" 312 " EndPos =" 386 " NameBeg =" 316 " NameEnd =" 327 " >

- < CIRCLE Mode =" 503 " BegPos =" 340 " EndPos =" 386 " BegMode =" 301 " EndMode =" 1 " >

- < IF Mode =" 301 " BegPos =" 340 " EndPos =" 386 " NameBeg =" 343 " NameEnd =" 355 " >

< YES Mode =" 303 " BegPos =" 372 " EndPos =" 386 " BegMode =" 0 " EndMode =" 1 " />

< NO Mode =" 304 " BegPos =" -1 " EndPos =" -1 " BegMode =" -1 " EndMode =" -1 " />

</ IF >

</ CIRCLE >

</ FOR >

- < FOR Mode =" 501 " BegPos =" 394 " EndPos =" 497 " NameBeg =" 398 " NameEnd =" 435 " >

< CIRCLE Mode =" 503 " BegPos =" 448 " EndPos =" 497 " BegMode =" 0 " EndMode =" 1 " />

</ FOR >

- < FOR Mode =" 501 " BegPos =" 505 " EndPos =" 698 " NameBeg =" 509 " NameEnd =" 520 " >

- < CIRCLE Mode =" 503 " BegPos =" 533 " EndPos =" 698 " BegMode =" 501 " EndMode =" 1 " >

- < FOR Mode =" 501 " BegPos =" 533 " EndPos =" 698 " NameBeg =" 537 " NameEnd =" 548 " >

- < CIRCLE Mode =" 503 " BegPos =" 561 " EndPos =" 698 " BegMode =" 212 " EndMode =" 1 " >

- < FOR Mode =" 501 " BegPos =" 595 " EndPos =" 659 " NameBeg =" 599 " NameEnd =" 610 " >

< CIRCLE Mode =" 503 " BegPos =" 627 " EndPos =" 659 " BegMode =" 0 " EndMode =" 1 " />

</ FOR >

</ CIRCLE >

</ FOR >

</ CIRCLE >

</ FOR >

- < FOR Mode =" 501 " BegPos =" 708 " EndPos =" 740 " NameBeg =" 712 " NameEnd =" 727 " >

< CIRCLE Mode =" 503 " BegPos =" 732 " EndPos =" 740 " BegMode =" 0 " EndMode =" 1 " />

</ FOR >

</ PROCEDURE >

+ < PROCEDURE Mode =" 1104 " BegPos =" 751 " EndPos =" 1063 " NameEnd =" 766 " >

- < IF Mode =" 301 " BegPos =" 865 " EndPos =" 890 " NameBeg =" 868 " NameEnd =" 873 " >

< YES Mode =" 303 " BegPos =" 880 " EndPos =" 890 " BegMode =" 0 " EndMode =" 1 " />

< NO Mode =" 304 " BegPos =" -1 " EndPos =" -1 " BegMode =" -1 " EndMode =" -1 " />

</ IF >

</ PROCEDURE >

+ < PROCEDURE Mode =" 1104 " BegPos =" 1068 " EndPos =" 1299 " NameEnd =" 1083 " >

- < REPEAT Mode =" 701 " BegPos =" 1107 " EndPos =" 1185 " NameBeg =" 1180 " NameEnd =" 1184 " >

< CIRCLE Mode =" 503 " BegPos =" 1122 " EndPos =" 1185 " BegMode =" 0 " EndMode =" 1 " />

</ REPEAT >

- < REPEAT Mode =" 701 " BegPos =" 1193 " EndPos =" 1293 " NameBeg =" 1272 " NameEnd =" 1292 " >

< CIRCLE Mode =" 503 " BegPos =" 1208 " EndPos =" 1293 " BegMode =" 0 " EndMode =" 1 " />

</ REPEAT >

</ PROCEDURE >

+ < PROCEDURE Mode =" 1104 " BegPos =" 1304 " EndPos =" 1619 " NameEnd =" 1319 " >

- < CASE Mode =" 801 " BegPos =" 1343 " EndPos =" 1473 " NameBeg =" 1348 " NameEnd =" 1357 " >

< Item Mode =" 503 " BegPos =" 1367 " EndPos =" 1378 " NameBeg =" 1367 " NameEnd =" 1369 " BegMode =" 0 " EndMode =" 1 " />

< Item Mode =" 503 " BegPos =" 1388 " EndPos =" 1401 " NameBeg =" 1388 " NameEnd =" 1392 " BegMode =" 0 " EndMode =" 1 " />

< Item Mode =" 503 " BegPos =" 1411 " EndPos =" 1423 " NameBeg =" 1411 " NameEnd =" 1414 " BegMode =" 0 " EndMode =" 1 " />

< Item Mode =" 503 " BegPos =" 1433 " EndPos =" 1462 " NameBeg =" 1433 " NameEnd =" 1453 " BegMode =" 0 " EndMode =" 1 " />

</ CASE >

- < CASE Mode =" 801 " BegPos =" 1481 " EndPos =" 1613 " NameBeg =" 1486 " NameEnd =" 1497 " >

< Item Mode =" 503 " BegPos =" 1507 " EndPos =" 1524 " NameBeg =" 1507 " NameEnd =" 1510 " BegMode =" 0 " EndMode =" 1 " />

< Item Mode =" 503 " BegPos =" 1534 " EndPos =" 1577 " NameBeg =" 1534 " NameEnd =" 1540 " BegMode =" 0 " EndMode =" 1 " />

< Default Mode =" 805 " BegPos =" 1598 " EndPos =" 1602 " />

</ CASE >

</ PROCEDURE >

+ < PROCEDURE Mode =" 1104 " BegPos =" 1624 " EndPos =" 1776 " NameEnd =" 1639 " >

- < TRY Mode =" 901 " BegPos =" 1663 " EndPos =" 1766 " >

< BODY Mode =" 902 " BegPos =" 1674 " EndPos =" 1676 " />

< Extra Mode =" 903 " BegPos =" 1699 " EndPos =" 1755 " />

</ TRY >

</ PROCEDURE >

</ Nodes >