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,