So implementieren Sie die indizierte Standardeigenschaft []

Question

Ich habe eine Klasse, die mehrere Dateinamen innerhalb einer TStringList enthält. Ich kann auf einen bestimmten Dateinamen nach Index zugreifen mit:

Aber wie kann ich einen Dateinamen mit der folgenden Syntax erhalten?

myclass[index] 

Gibt es eine Eigenschaft, die ich implementieren kann, um diese Funktionalität zu erreichen?

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; 

Das bedeutet:

• Sie mehrere default Indexor Eigenschaften
• die mehrere Indexor Eigenschaften können den gleichen Namen zum Beispiel haben haben, Values
• die Eigenschaften Getter können Überladungen sein (, d. H. haben den gleichen Namen) z.B., GetColumnValue
• Delphi wird die Überlastungen nach Typ Unterschrift

Answer 2

Verwenden Sie das Schlüsselwort "default" für die indizierte Eigenschaft. Es kann eine Standardeigenschaft pro Klasse geben.