怎样修改TstringList里的值？

例如：
Tstringlist:
0002*1*2222
0003*1*3333
将0003*0*3333中的1改为2

答对，马上送分！

8 个解决方案

#1

111

#2

procedure TForm1.Button1Click(Sender: TObject);
var aa:TstringList;
    ind:Integer;
begin
  aa:=TstringList.Create;
  aa.Add('0002*1*2222');
  aa.Add('0003*1*3333');
  aa.Find('0003*1*3333',ind);
  aa.Delete(ind);
  aa.Insert(ind,'0003*2*3333');
  ListBox1.Items:=aa;

end;
应该可以给分

#3

查看一下TSTRINGLIST的帮助吧，值是存在strings这个STRING数组中，用对字串操作的函数对这个字串数组操作就行。

#4

学习！

#5

我想您误会我的意思了
您是又重新生成了一个StringList
我的意思是在一个TstringList中找到要修改的项
其他的不动，只是修改要修改的项目

#6

那你就用这一段啊，AA是你自己的STRINGlIST；
  aa.Find('0003*1*3333',ind);
  aa.Delete(ind);
  aa.Insert(ind,'0003*2*3333');

#7

var
   Index :Integer ;
begin
   Index := <TStringList>.Indexof('0003*1*3333') ;
   if Index <> -1 then
      <TStringList>[index] := '0003*2*3333' ;
end ;

#8

给分

#1

111

#2

#3