文字列リストを使用して、デルファイで 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];
そして、エラーなしで動作します。これは本当の解決策ですか?