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

原創 碧树西风 2020-07-02 13:45

以下是一個解析結果，感覺調試起來太方便了！

<?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>
發表評論
所有評論
還沒有人評論，想成為第一個評論的人麼? 請在上方評論欄輸入並且點擊發布.
相關文章

ChatGPT 3.5 生成的 Delphi DBExpress 連接池

當使用 Delphi DBExpress 進行數據庫連接時，可以使用 TSQLConnection 組件來實現連接池。下面是一個簡單的示例代碼，演示瞭如何創建一個基本的連接池：  unit uDBConnectionPool;

原創 2023-12-18 15:14:44

Delphi 電子書

複製這段內容後打開百度網盤APP，操作更方便哦。鏈接： https://pan.baidu.com/s/1H2SxV5Ngeo_eRSEfk60cQQ 提取碼：u4ef

原創 2021-12-25 21:42:34

如何實現Winform的模塊化開發？

在Winform開發領域開發過十多年的項目中，見證着形形色色的架構和官方技術的應用，從最早類似Winform模式的WebForm技術，到接着的JQuery+界面組件，再到Asp.net Core的技術應用，以及後來的純前端技術出現，Angu

FILA6666 2021-12-25 21:32:11

架構1.分層架構，什麼是分層架構

分層架構模式裏的組件被分成幾個平行的層次，每一層都代表了應用的一個功能(展示邏輯或者業務邏輯)。儘管分層架構沒有規定自身要分成幾層幾種，大多數的結構都分成四個層次:展示層，業務層，持久層，和數據庫層。 常見的圖如下     複雜一點的分層

原創 2021-12-25 21:31:30

.NET 中 API 突破性更改的權威指南 - A definitive guide to API-breaking changes in .NET

問題： I would like to gather as much information as possible regarding API versioning in .NET/CLR, and specifically how A

javail 2021-10-12 21:15:47

使用海康威視SDK的那些坑

由於工作需要，項目中有使用到海康威視的產品，不可避免的就要使用海康的SDK進行二次開發。開發過程中磕磕絆絆的，踩了不少坑，這裏做一個簡單的記錄，算是給健忘的自己提個醒吧。 Delphi版本的接口 首先，自己一直使用Delphi進行開發

原創 2021-09-28 09:20:23

Delphi開發工具DevExpress VCL全新發布v21.1.5

DevExpress VCL Controls是Devexpress公司旗下最老牌的用戶界面套包，所包含的控件有：數據錄入、圖表、數據分析、導航、佈局等。該控件能幫助您創建優異的用戶體驗，提供高影響力的業務解決方案，並利用您現有的VCL技能

原創 2021-09-22 21:24:40

支持 Embarcadero RAD Studio 11 的新版 FastReport VCL 2021.3 來了！

FastReport VCL是用於Delphi，C ++ Builder，RAD Studio和Lazarus的報告和文檔創建VCL庫。它提供了可視化模板設計器，可以訪問最受歡迎的數據源，報告引擎，預覽，將過濾器導出爲30多種格式，並可以部

原創 2021-09-17 21:10:08

讓 Delphi 11 亞歷山大 編譯的程序可以再 windows XP 上運行的方法

在dpr文件加進去： {$SETPEOSVERSION 5.0} {$SETPESUBSYSVERSION 5.0} 非原創 轉載自 QQ羣 無連接

原創 2021-09-13 21:32:57

有沒有一款好的在線報表編輯器？詳解：FastReport Online Designer

沒有報表，就不可能在任何生活領域開展業務。無論是鋼廠還是學校的院系人員——到處都需要報表：會計、統計、運營等等。由於現代世界高度計算機化，報表也以電子方式進行。如果沒有特殊程序——報表生成器，創建大量報表將非常困難。 FastReport報

原創 2021-08-17 21:10:27

Delphi主線程重入而導致程序卡死的解決方案

Delphi主線程重入而導致程序卡死的解決方案 參考文章： （1）Delphi主線程重入而導致程序卡死的解決方案 （2）https://www.cnblogs.com/hezihang/p/3965158.html （3）https://

javail 2021-07-06 09:16:50

用於Delphi的DevExpress VCL組件——富文本編輯功能升級

DevExpress技術交流羣3：700924826      歡迎一起進羣討論 DevExpress VCL Controls是Devexpress公司旗下最老牌的用戶界面套包，所包含的控件有：數據錄入、圖表、數據分析、導航、佈局等。該控

原創 2021-05-18 21:25:53

踩坑記：DBGridEh中取Footer的Sum值

DBGridEh算是Delphi中比較好用的第三方數據感知組件了，但其中有些小坑是真的有點小無語的。 場景 客戶需要的有這樣一組數據，大部分列是要求和的，用DBGridEh的Footer是輕鬆加愉快的；但是個別列是和每一行的計算方法一致的，

原創 2021-03-24 21:18:46

Windows 10 Notifications from a VCL app with the WinRT API

The WinRT API headers for Delphi are now on GetIt and here is a demo to try out using Windows 10 notifications in a VCL

simpower 2021-03-22 21:33:42

Word文檔開發處理工具Aspose.Words v21.2發佈！（含新功能演示）

Aspose.Words for .Net是一種高級Word文檔處理API，用於執行各種文檔管理和操作任務。API支持生成，修改，轉換，呈現和打印文檔，而無需在跨平臺應用程序中直接使用Microsoft Word。2021年2月更新來啦，.

原創 2021-02-19 21:09:56