0

文字列リストを使用して、デルファイで 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];

そして、エラーなしで動作します。これは本当の解決策ですか?

4

1 に答える 1