|
Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.542 Beiträge
Delphi 11 Alexandria
|
Re: Anzahl Formulare / Dynamisch Klassen ansprechen?
31. Okt 2008, 12:09
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;
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
|