Delphi Anzahl Formulare / Dynamisch Klassen ansprechen?

Thema durchsuchen

Ansicht

Themen-Optionen

Anzahl Formulare / Dynamisch Klassen ansprechen?

Ein Thema von miLeRiAm · begonnen am 31. Okt 2008 · letzter Beitrag vom 31. Okt 2008

Vorheriger Beitrag

Nächster Beitrag

DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.656 Beiträge

Delphi 12 Athens

#16

Re: Anzahl Formulare / Dynamisch Klassen ansprechen?

31. Okt 2008, 13:09

Kleiner Verbesserungsvorschlag:

markieren

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