ClassName (cursor)

property Where:string;

Propriété en lecture / écriture.

Cette propriété détermine le nom de la classe sur laquelle porte le curseur renvoyés.

Exemple :

Il peut être utile de définir dynamiquement la classe du curseur lorsque celui-ci est utilisé comme un attribut. Dans cet exemple il existe un attribut fCurseur défini sur la classe MyClass et dont la classe est déterminé à l'exécution.

procedure MyClass.Open(iMode:TEnumeratorMode);
begin
  fCursor.ClassName := 'ClassC';
  fIndex := -1;
end;

— Curseurs_d'objets_(tech) — Développement DSM —