如何实现indexed []默认属性

Question

我有一个在TStringList中包含多个文件名的类。我可以使用以下命令按索引访问特定的文件名：

myclass.stringlistclass[index]

但是，如何使用以下语法获取文件名？

myclass[index]

有没有我可以实现的属性来实现这个功能？

Answer 1

private
  function GetColumnValue(const ColumnName: string): string; overload;
  function GetColumnValue(Index: Integer): string; overload;
  procedure SetColumnValue(Index: integer; const Value: string);
public
  property Values[const ColumnName: string]: string read GetColumnValue; default;
  property Values[ColumnIndex: integer]: string read GetColumnValue write SetColumnValue; default;
end;

这意味着：

• 您可以有多个签名索引器属性default
• 多个索引器属性可以具有相同的名称例如，

属性getter可以是重载(即，具有相同的名称)例如，GetColumnValue

• Delphi将通过类型签名解析重载