关于TList

[chenyq2008]

如何批量将TList中的数据用文本文件保存下来？？？例如TList中的数据数量达到1000，就将这1000数据保存到文本文件中

[xiaowei_001]

savetofile.这样保存很快的，你看它的源码，是用文件流形式操作的！

[bdmh]

  list:TStringList;
.
.
.
  list.SaveToFile('文件名');

[haitao]

Tlist好像是放对象的，
如果放的是字符串，是可以savetofile

[chenyq2008]

是放对象的。。。

[bdmh]

[Quote=引用 3 楼 chenyq2008 的回复:]
是放对象的。。。
[/Quote]
要看你的对象是什么了,如果单是保存看到的文字,直接savefile即可,如果连object也要保持,那就自己写了

[chenyq2008]

[Quote=引用 4 楼 bdmh 的回复:]
引用 3 楼 chenyq2008 的回复:
是放对象的。。。


要看你的对象是什么了,如果单是保存看到的文字,直接savefile即可,如果连object也要保持,那就自己写了
[/Quote]应该说，放的是记录指针

[bdmh]

保留指针?,你的程序下次打开时,指针位置都变了,保留他有什么用,你还不如,循环list把指针指向的记录保存为文件呢,读取时,依次读取,并把新的指针位置付给list

[chenyq2008]

[Quote=引用 6 楼 bdmh 的回复:]
保留指针?,你的程序下次打开时,指针位置都变了,保留他有什么用,你还不如,循环list把指针指向的记录保存为文件呢,读取时,依次读取,并把新的指针位置付给list
[/Quote]现在就是一个个地写入文件的，但这样速度太慢，所以想批量写入

[bdmh]

[Quote=引用 7 楼 chenyq2008 的回复:]
引用 6 楼 bdmh 的回复:
保留指针?,你的程序下次打开时,指针位置都变了,保留他有什么用,你还不如,循环list把指针指向的记录保存为文件呢,读取时,依次读取,并把新的指针位置付给list

现在就是一个个地写入文件的，但这样速度太慢，所以想批量写入
[/Quote]
不能

[xzhifei]

批量保存也只是保存无用的指针，这个只能一个个的写入文件

[starluck]

[Quote=引用 7 楼 chenyq2008 的回复:]
引用 6 楼 bdmh 的回复:
保留指针?,你的程序下次打开时,指针位置都变了,保留他有什么用,你还不如,循环list把指针指向的记录保存为文件呢,读取时,依次读取,并把新的指针位置付给list

现在就是一个个地写入文件的，但这样速度太慢，所以想批量写入
[/Quote]

對象可以接口實現序列化保存，但你上面的意思似乎這個保存沒有什麼意義。

[dinoalex]

关注

[不得闲]

只能将各个对象进行串行化，然后再做保存
读取的时候，再反串行化然后加载，具体的，可以看看TTreeView中的Items等节点的保存

[ZYSteven]

如果一定要用TList，那么可以考虑将一个TStringList保存到TList里，然后使用TStringList.SaveToFile()保存到文件。
下次打开时就可以直接通过TStringList.LoadFromFile()一次性读到TList里面。

下面举个简单的例子：

//***保存***
function SaveFile():TList;
var
List:TList;
i:Integer;
str:string;
strings:TStrings;
begin
List:=TList.Create;
strings:=TStringList.Create;
for i:=0 to 99 do
begin
str:='内容'+IntToStr(i);
strings.Add(str); //首先把内容写到TStringList
end;
List.Add(strings); //然后再把内容加到TList里

strings.SaveToFile('c:\ppp.txt'); //保存到文件
Result:=List; //返回你要的TList
end;


//***读出***
function TForm1.LoadFile():TList;
var
List:TList;
strings:TStrings;
begin
strings:=TStringList.Create ;
list:=TList.Create;
strings.LoadFromFile('c:\ppp.txt'); //读进文件
List.Add(strings ); //将读进的内容加到TList
Result:=List; //返回你要的TList
end;