- TBla = class
- ...
- procedure Put(Key: TDeinSchlüsselTyp; Value: TBlaItem);
- function Get(Key: TDeinSchlüsselTyp): TBlaItem;
- ...
- property Items[Key: TDeinSchluesselTyp]: TBlaItem read Get write Put; default;
- ...
- end;
- Bla: TBla;
- ...
- Bla.Items[4]
- und/oder (da default):
- Bla[4] := Value;
- if Bla[4] <> Value then
- ...
- usw.