我的程序如下:var
  listStr: TStringList;
begin
  listStr := TStringList.Create;
  listStr.Add('111');
  listStr.Add('222');
  listStr.Add('333');
  ......
  listStr.Add('nnn');
end;我想在listStr[0]的前面加一个'(',使值为 '(111'请问我该怎么操作呢?可以 listStr[0] := '(' + listStr[0];  吗?

解决方案 »

  1.   

    listStr.strings[0] := '(' + listStr[0].strings[0];
      

  2.   

    listStr.strings[0] := '(' + listStr[0].Strings[0];根本就编译不过,listStr.strings[0] := '(' + listStr.Strings[0];能编译过,但是错误依旧
      

  3.   

    对不起,刚才错了
    listStr.strings[0] := '(' + listStr.Strings[0];这样是可以的,
    可是我想用listStr.strings[1]啊listStr.strings[1] := '(' + listStr.Strings[0];
    为什么不可以呢?
      

  4.   

    你用个中间变量啊.
    var
    tem:string;
    begin
    tem:=:= '(' + listStr.Strings[0];
    listStr.strings[0] := tem;
      

  5.   

    错了,应该是
    var
    tem:string;
    begin
    tem:=:'(' + listStr[0];
    listStr[0] := tem;
      

  6.   

    var
       temp:string;
    begin
       temmp:='('+listStr.string[0];
       listStr.Add(temp); 
    end;
      

  7.   

    listStr[0]怎么操作都是没有问题的,但是要操作listStr[1],就不行了
    可以在listStr[1]的后面加,但是不能在前面加
    另外,我怎么去除串呢?
    如:listStr[0] = '11111)';
    我想去除')',使listStr[0] = '11111';