delphi - 如何检查字符串列表索引？

Question

我想用我的字符串列表在 delphi 中显示 2 个不同的结果。

如果索引小于 1，它应该显示其他结果。

我总是得到一个List index exceeds the maximum error

这是我的代码。

function TForm1.readTable: String;
var
  ini: TIniFile;
  einträge: TStringList;
begin
  try
  einträge := TStringList.Create;
  inipfad := ExtractFilePath(ParamStr(0)) + '/initest/' + 'config.INI';
  ini := TIniFile.Create(inipfad);
  ini.ReadSections(einträge);
  ShowMessage('geht');

  if einträge.IndexOf < 1 then
    Result := einträge[0]
  else
    Result := einträge[1];

  finally
    ini.Free;
    Einträge.Free;
  end;
end;

现在改为

  if einträge.Count <= 0 then begin
    Result := einträge[0]
  end
  else
    Result := einträge[1];

它的工作没有错误。这是一个真正的解决方案吗？

Answer 1

而不是eintrage.indexof<1你需要eintrage.count=1.

您还应该检查它eintrage.count是 1 还是 2，以防您的列表在 之后为空ini.ReadSections。