如何实现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索引器属性
• 多个索引器属性可以具有相同的名称​​例如，Values
• 属性getter可以是重载（即。具有相同的名称）例如，GetColumnValue
• Delphi将通过类型签名
解决重载问题

Answer 2

在索引属性上使用“default”关键字。 每个类可以有一个默认属性。

每个类可以有多个默认属性，但这些默认属性必须具有相同的名称。

一个例子：

    property Item[const Coordinate: TPoint]: TSlice read GetSlice write SetSlice; default;
    property Item[x,y: integer]: TSlice read GetSlice write SetSlice; default; 

您甚至可以让getter和setter共享相同的名称，只要它们具有overload指令。