Последние записи

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

15th
Окт

Получить все имена свойств объекта

Posted by Chas under Delphi

Данный код получает все имена свойств объекта lv (TListView), а затем запихнет их в этот же листвью (попутно получив и значение для каждого свойства).

ych_del
Пример:

procedure TForm1.FormCreate(Sender: TObject);

var P: PPropList;

    X: Integer;

    S: string;

begin

   New(P);

   X := GetPropList(lv, P); // получим все имена свойств объекта lv

   for X := 0 to X-1 do

      with lv.Items.Add do begin

         Caption := P[X].Name;

         SubItems.Add(GetPropValue(lv, P[X].Name));

      end;

   Dispose(P);

end;

тема на форуме