free pascal 调用 C#程序读 Freeplane.mm文件，生成测试用例.csv文件

本文链接：https://blog.youkuaiyun.com/belldeep/article/details/136599428

C# 请参阅：C# 用 System.Xml 读 Freeplane.mm文件，生成测试用例.csv文件

Freeplane 是一款基于 Java 的开源软件，继承 Freemind 的思维导图工具软件，它扩展了知识管理功能，在 Freemind 上增加了一些额外的功能，比如数学公式、节点属性面板等。

打开 lazarus-IDE，创建 project: xml2csv , 编辑GUI界面，编写 unit1.pas 如下

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs,
  StdCtrls, Crt, laz2_DOM, laz2_XMLRead; // ShellApi,

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Edit1: TEdit;
    Memo1: TMemo;
    OpenDialog1: TOpenDialog;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private

  public

  end;

var
  Form1: TForm1;
  fn1: String;
  fn2: String;
  xmlDoc: TXMLDocument;
  sList: TStringList;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);

  // Local function that outputs a node attributes as a s