title image


Smiley Habs selber rausbekommen....
Ich habe es selber rausbekommen und mir folgende funktion geschrieben:



function CheckProperty(aClass: TClass; Prop: string): boolean;

var

PropList: PPropList;

i: integer;

begin

PropList := AllocMem(SizeOf(PropList^));

i := 0;

result := false;

try

GetPropList(aClass.ClassInfo, tkProperties, PropList);

while (PropList^[i] nil) and (i < High(PropList^)) do

begin

if UpperCase(PropList^[i].Name) = UpperCase(Prop) then

result := true;

inc(i);

end;

finally

FreeMem(PropList);

end;

end;



Ausschlaggebende MAPI Funktion: GetPropList()



Jack
Rock and Roll ist wichtig für uns alle, glaubt mir! ;-)

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: