怎样修改TstringList里的值？

Question

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;
应该可以给分

Answer 1

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

Answer 2

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

Answer 3

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

Answer 4

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