Strings.ValueFromIndex[i-1]在Delphi6里怎么写

[szto2003]

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

[feiba7288]

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;

[feiba7288]

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

[szto2003]

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

[feiba7288]

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

[szto2003]

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

[feiba7288]

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

[szto2003]

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

[feiba7288]

引用 2 楼 feiba7288 的回复:

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

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';

[sololie]

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 }

[szto2003]

d6里没有这个函数的，现在是想找到替代的方法，或者其他办法！！有没有人能帮忙的

[sololie]

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

[小呆之家]

头一次知道还有这个方法可用。看来还是要多来逛逛。。。