Question

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

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

Answer 1

用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;

追问

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

追答

参考代码：
var
i:integer;
begin
dlgopen1.Options:=[ofHideReadOnly,ofAllowMultiSelect,ofEnableSizing];
if dlgopen1.Execute then
begin
for i:=0 to dlgopen1.Files.Count-1 do
begin
listbox2.Items.LoadFromFile(dlgopen1.Files.Strings[i]);
listbox1.Items.AddStrings(listbox2.Items);
end;
end;
end;

参考资料： 放一个listbox2作临时容器

Answer 2

你可以转一个，就不会批量转啦，用个循环，findfirst /findnext 然后一个一个转

Answer 3

用itudou软件