delphi - 从链接列表中获取项目

Question

我有这个：

type
  PList = ^TSome;

  TSome = record
     next :PList;
...

var
  tmp:PList;
...
begin
  tmp := list;
  while tmp^.next <> nil do
    tmp := tmp^.next;
end

有什么办法可以在第二个索引上获得项目吗？

类似于 array[2]，但是由于这不是数组，所以不可能。

Answer 1

通常是这样的：

var
  tmp: PList;
  index: Integer;
begin
  index := 0;
  tmp := list;

  repeat
    tmp := tmp^.next;
    Inc(Index);
  until (tmp = nil) or (index = 2);
end;