Delphi 已经可以把单个txt文本格式转换成了xml格式

我已经可以把单个txt文本格式转换成了xml格式，但是一个一个转换xml格式很麻烦， 想做一个直接可以读取整个文件夹里的txt文本 ，然后全部转换成xml格式 需要做什么...  求解析

追问：dlgopen  就是 dialogOpen  dlgOpen 里面设置为可选择多文件
ListBox控件下 我用listBox.items.Assign(dlgOpen.Files)  
这里只显示多个文件的文件名....怎么才能显示多个文件的内容  要统一显示到listbox上

答案：用find函数遍历文件夹，对找到的单个txt运行你的函数即可。

参考代码：
-----------------
var
   r:TsearchRec;
   i : Integer;
begin
   i:=findfirst('c:\*.txt',faanyfile,r);
   while i=0 do
   begin  
     // changeTXTtoXML(r.name); 这里加入你的函数
     i:=findnext(r);
   end;
   findclose;
end;

其他：你可以转一个，就不会批量转啦，用个循环，findfirst  /findnext 然后一个一个转 用itudou软件 

上一个：麻烦各位说一下各个语言的优缺点？例如 java、c语言、delphi、c＃等
下一个：Delphi连接数据库不停出错。