Użytkownik "Zeman" <zemanpg@xxxxxxxxxxxxxx> napisał w wiadomości
news:g6ovlq$vqv$1@xxxxxxxxxxxxxxxxxxx
Znaczy co z tym typem wyliczeniowym? Bo pytales o pola klasy i pola
rekordow.
{$apptype console} //potrzebne do writeln
Mależy użyć unitu TypInfo.
var
Size : integer;
PropList: PPropList;;
begin
Size := GetTypeData(AComponent.Classinfo).PropCount;
GetMem(PropList, Size*SizeOf(Pointer));
GetPropInfos(AComponent.ClassInfo, PropList);
for i:=0 to Size-1 do
begin
if PropList[i].PropType^.Kind <> tkMethod then //to gdy nie chcmey
metod
writeln(PropList[i].Name);
end;
FreeMem(PropList, Size*SizeOf(Pointer));
end;
Pozdrawiam
|