请教delph如何删除指定txt文件的某一行内容 ( 积分: 100 )

C

cnmir

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-05-18

• #1

begin
listbox1.Items.LoadFromFile('test.txt');
end;
我用以上代码可以将test文本的每一行都加入到listbox中
现在是我选中listbox中一行是如何将test.txt对应的那一行删除呢 ？

 

C

cnmir

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-05-18

• #2

begin
listbox1.Items.LoadFromFile('test.txt');
end;
我用以上代码可以将test文本的每一行都加入到listbox中
现在是我选中listbox中一行是如何将test.txt对应的那一行删除呢 ？

 

D

dnoopy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-05-18

• #3

从test.txt循环readln,然后writeln到另一个文件。跳过listbox.itemindex那一行。

 

Z

zgc7622

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-05-18

• #4

你用stringlist类看看，有没有适合的函数！

 

西

西山居士

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-05-18

• #5

begin
listbox1.Items.LoadFromFile('test.txt');
listbox1.items.selected.delete;
listbox1.savetofile(test.txt')
end;

 

C

cnmir

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-05-18

• #6

多谢各位，我去试试

 

S

senfore

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-05-18

• #7

function DelLine(Astr:String;Aline:integer):string
var
ttlist:Tstringlist;
begin
ttlist:=Tstringlist.create;
ttlist.text:=Astr;
if ttlist.count >= Aline then
ttlist.delete(Aline-1);
Result:=ttlist.text;

end;