Felder in Klassen über Variable ansprechen

[mjustin]

Zitat von RWarnecke:

Hallo zusammen,

ich habe eine Klasse mit mehreren Feldern. Davon haben 10 Stück den Namen UM1...UM5...UM10. Wie kann ich diese Felder über eine Schleife ansprechen ?

TypInfo.pas bietet dazu einige Möglichkeiten:

Delphi-Quellcode:

  { Get info record for property }
  PropInfo := GetPropInfo(MyObject.ClassInfo, PropertyName);

  if Assigned(PropInfo) then
    SetStrProp(MyObject, PropInfo, Value);

Die fortlaufenden Namen der Property kann man dann durch Stringoperationen zusammenbauen.

Die Klasse muss mit {$M+} kompiliert sein und die Properties müssen public sein.

Viele Grüße,