Dazu bietet Delphi die Möglichkeit der Indizierung von Eigenschaften.
Beispiel:
Delphi-Quellcode:
type
TMyClassStringIndex = (siName, siAlbum, siTitel);
TMyClass = class(TObject)
private
FStrings: array [TMyClassStringIndex] of string;
function GetString(Index: TMyClassStringIndex): string;
procedure SetString(Index: TMyClassStringIndex; const Value: string);
protected
property Strings[Index: TMyClassStringIndex] read GetString write SetString;
public
property Name: string Index siName read GetString write SetString;
property Album: string Index siAlbum read GetString write SetString;
// usw...
end;
Dann kannst du intern auf ein Array zugreifen.