Anzahl Formulare / Dynamisch Klassen ansprechen?

[DeddyH]

Kleiner Verbesserungsvorschlag:

Delphi-Quellcode:

function CompSetCaption(AClass : TObject; const Caption: string): Boolean;
const sProp = 'Caption';
var
  MyPropInfo: PPropInfo;
begin
  MyPropInfo := GetPropInfo(AClass.ClassInfo, sProp);
  Result := Assigned(MyPropInfo);
  if Result then
    SetPropValue(AClass, sProp, Caption);
end;