有关TstringList的问题

hgb_kkh 2003-09-11 06:32:18

我从文件中用TstringList读出内容后作了修改，
想存回文件中，怎么办？
我用了TstringList.SavetoFile，好象没起作用。
求救。

...全文

39 14 打赏收藏转发到动态举报

写回复

用AI写文章

14 条回复

切换为时间正序

请发表友善的回复…

发表回复

hongqi162 2003-09-12

打赏
举报

完全同意！

xiaofei7569 2003-09-12

打赏
举报

同意zjqyb(风清扬*任它溺水三千,我只取一瓢饮*)所说的。

hiflower 2003-09-12

打赏
举报

if (Index = 1) then
begin
FileText := TstringList.Create;
FileText.Add('[UNPACK]');
FileText.Add('KEYPOS ='+PosE.Text);
FileText.Add( 'KEYLENGTH ='+LengthE.Text);
FileText.Add(#13#10);
end;

tigerhohoo 2003-09-12

打赏
举报

要先向TStringList添加行才能继续访问.

FileText.Add('sth');

hgb_kkh 2003-09-12

打赏
举报

另外，可不可以创建一个空白的TstringList，即不执行LoadfromFile，然后对它进行赋值，
最后保存到一个文件中？
我试了一下，结果在赋第一个值的时候报异常:
Access violation at address 00457CD4 in module XXXX,Read of address 00000000.
请大侠救急，分不够再加。

出异常的源代码：
if (Index = 1) then
begin
FileText := TstringList.Create;
FileText.Strings[Index]:= '[UNPACK]'; 《-----报异常
inc(Index);
FileText.Strings[Index]:= 'KEYPOS ='+PosE.Text;
inc(Index);
FileText.Strings[Index]:= 'KEYLENGTH ='+LengthE.Text;
inc(Index);
FileText.Strings[Index]:= #13#10;
inc(Index);
end;

hiflower 2003-09-12

打赏
举报

就是上面说的了，不行看看你的源码

fisheryj 2003-09-11

打赏
举报

是否路径错了

hzw008 2003-09-11

打赏
举报

就是向上面说的了！！

大聪 2003-09-11

打赏
举报

就是这样，不会有错的，
要不就其它的问题

zjqyb 2003-09-11

打赏
举报

var i:integer;ss:TStringList;

ss:=TStringlist.create;
ss.loadfromfile('test.txt');
for i:=0 to ss.count-1 do
//modify ss[i]

ss.savetofile('test.txt');
ss.free;

hgb_kkh 2003-09-11