Eigenschaften auf "Vorhandensein" prüfen?

[mjustin]

Zitat von moelski:

Gibt es da nicht so einen Weg:
Button_DrawAll.Enabled := Serie(Property).available Ok so geht das ganz sicher nicht, aber ich wollte es nur mal deutlich machen was ich meine. Also quasi eine Zeile Code die selber prüft ob der Serientyp eine Eigenschaft hat oder nicht. Geht das ?

Ja, hier wird das Prinzip beschrieben:

Run-Time Type Information In Delphi - Can It Do Anything For You?
http://www.blong.com/Conferences/Bor...CommonAncestor

Das Beispiel auf dieser Seite sucht nach Enabled Properties

Delphi-Quellcode:

procedure DisableThem(Comps: array of TComponent);
var
  Loop: Integer;
  PropInfo: PPropInfo;
begin
  for Loop := Low(Comps) to High(Comps) do
  begin
    { Get info record for Enabled property }
    PropInfo := GetPropInfo(Comps[Loop].ClassInfo, 'Enabled');
    { If property exists, set value to False }
    if Assigned(PropInfo) then
      SetOrdProp(Comps[Loop], PropInfo, Longint(False));
  end;
end;