Delphi6里没有ValueFromIndex[i-1]这个函数,如果要在D6里编译,对应的函数是什么,或者怎么改!!

解决方案 »

  1.   

    ValueFromIndex是TStringList的属性http://www.cnblogs.com/keycode/archive/2010/10/25/1860436.html
    //类似的哈希表操作法
    var
      List: TStringList;
    begin
      List := TStringList.Create;
     
      List.Add('aaa=111');
      List.Add('bbb=222');
      List.Add('ccc=333');
      List.Add('ddd=444');
     
      ShowMessage(List.Names[1]);  //bbb
      ShowMessage(List.ValueFromIndex[1]);  //222
      ShowMessage(List.Values['bbb']);  //222
     
      //ValueFromIndex 可以赋值:
      List.ValueFromIndex[1] := '2';
      ShowMessage(List[1]);  //bbb=2
     
      //可以通过 Values 赋值:
      List.Values['bbb'] := '22';
      ShowMessage(List[1]);  //bbb=22
     
      List.Free;
    end;
      

  2.   

    TStrings没有这个属性,不管Delphi6还是其他的Delphi版本
      

  3.   

    用delphi6怎么表述这个函数,或者自己怎么写个替代的函数呢!!
      

  4.   

    将TStrings换成TStringList就可以了。
    把你的代码贴出来。
      

  5.   

    var
      vInfo: TStringList;vInfo.Strings.ValueFromIndex[i-1]:='10';
    delphi6编译不过啊。
      

  6.   

    var
      vInfo: TStringList;vInfo.ValueFromIndex[i-1]:='10';
      

  7.   

    有高手指点吗,这个函数提示没有定义啊,我查了,好像d6里没有这个函数,d7里应该有的,d6里可以用什么函数代替吗,或者有什么其他的方案!!
      

  8.   


    Sorry,我记错了,ValueFromIndex是TStrings的属性。var
      vInfo: TStringList;vInfo.ValueFromIndex[i-1]:='10';或者下面这样都是可以的:var
      vInfo: TStrings;vInfo.ValueFromIndex[i-1]:='10';但是没有你的这种写法:vInfo.Strings.ValueFromIndex[i-1]:='10';
      

  9.   

    ValueFromIndex 是抽象类TStrings的属性,只有在TStrings的继承类(如TStringList)中才有使用该属性。
    LSS不是跟你说得解释清楚了嘛, vInfo.ValueFromIndex[i-1]:='10';
    var
      vInfo: TStringList;
      i: Integer;
    begin
      vInfo := TStringList.Create;
      vInfo.Add('a');
      vInfo.Add('b');
      vInfo.Add('c');
      i := vInfo.Count;
      vInfo.ValueFromIndex[i-1] := '10';
      ShowMessage(vInfo.ValueFromIndex[i-1]);{ 10 }
      

  10.   

    你倒是说说你的vInfo是什么类型啊