怎么把ListView里面的内容按行导出到一个txt文本？

challen 2005-08-21 01:24:10

想把ListView里面的列表导出到一个txt文本里面，不知道如何实现
请高人指路
在线等答案

...全文

198 8 打赏收藏转发到动态举报

写回复

用AI写文章

8 条回复

切换为时间正序

请发表友善的回复…

发表回复

challen 2005-08-21

打赏
举报

OK
谢谢

jcsun 2005-08-21

打赏
举报

var
fp2: textfile;
begin
AssignFile(fp2,"filename.txt");
rewrite(fp2);
for i:=1 to lv1.Items.Count do
begin
str:= lv1.Items.Item[i-1].Caption +'---'+ lv1.Items.Item[i-1].SubItems.Text+ #13 ;
writeln(fp2,str);
end;
CLOSEfile(fp2);
end

challen 2005-08-21

打赏
举报

我的listview就是listview1
就两列
想直接就存为一个txt文本
简单一下好么
看不明白呀
呵呵

challen 2005-08-21

打赏
举报

能不能简单一点呀。。。
要opendialog没用呀

challen 2005-08-21

打赏
举报

fp2?

jcsun 2005-08-21

打赏
举报

op1,是opendialog控件

challen 2005-08-21

打赏
举报

我是菜鸟呵呵
能不能说明一下
op1这写东西我不知道是啥

jcsun 2005-08-21

打赏
举报

我的 “另存为” 的代码
procedure TForm1.Button5Click(Sender: TObject);
var
str:string;
i:integer;
begin
if op1.Execute then
begin
AssignFile(fp2,op1.FileName);
rewrite(fp2);
for i:=1 to lv1.Items.Count do
begin
str:= lv1.Items.Item[i-1].Caption +'---'+ lv1.Items.Item[i-1].SubItems.Text+ #13 ;
writeln(fp2,str);
end;
CLOSEfile(fp2);
end;
end;