Cómo implementar la propiedad predeterminada indexada []

Question

Tengo una clase que contiene varios nombres de archivo dentro de una TStringList. Puedo acceder a un archivo determinado por el índice usando:

myclass.stringlistclass[index] 

Pero, ¿cómo puedo obtener un nombre de archivo usando la siguiente sintaxis?

myclass[index] 

¿Existe alguna propiedad que pueda implementar para lograr esta funcionalidad?

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; 

Esto significa:

• se pueden tener varias propiedades default índices de referencia
• las múltiples propiedades índices de referencia puede tener el mismo nombre, por ejemplo , Values
• las propiedades getters pueden ser sobrecargas (es decir tienen el mismo nombre) por ejemplo, GetColumnValue
• Delphi resolver las sobrecargas por tipo de firma

Answer 2

Utilice la palabra clave "predeterminada" en la propiedad indexada. Puede haber una propiedad predeterminada por clase.