Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Delphi > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Ответ
 
Опции темы
Старый 17.04.2019, 16:34   #1
Turbine
Форумчанин
 
Регистрация: 13.08.2008
Сообщений: 76
Репутация: 10
По умолчанию Получить список переменных компонента

Здравствуйте!
Как получить полный список переменных (не свойств).
Turbine вне форума   Ответить с цитированием
Старый 17.04.2019, 16:46   #2
Serge_Bliznykov
МегаМодератор
СуперМодератор
 
Регистрация: 09.01.2008
Сообщений: 25,092
Репутация: 5536
По умолчанию

Цитата:
Сообщение от Turbine Посмотреть сообщение
Как получить полный список переменных (не свойств).
О как! А о чём идёт речь? можно на примере показать, что за компонент и что за переменные, которые Вы хотите из него получить?
Serge_Bliznykov вне форума   Ответить с цитированием
Старый 17.04.2019, 16:53   #3
Turbine
Форумчанин
 
Регистрация: 13.08.2008
Сообщений: 76
Репутация: 10
По умолчанию

Код:

procedure GetVarNames(const AClass : TObject; var result: tmemo) ;
var lType : TRttiType;
  lContext : TRttiContext;
  lProperty : TRttiProperty;
  lField : TRttiField;
begin
//  Result := TStringList.create;
  LType := lContext.GetType(AClass.ClassType);
  if assigned(LType) then
  begin
    for LProperty in LType.GetProperties do
    begin
      Result.lines.Add(lProperty.Name);
      //Get current value:
      Result.lines.Add(lProperty.GetValue(AClass).ToString);
    end;
   for lField in LType.GetFields do
   begin
     Result.lines.Add(lField.Name);
     //Get current value:
     Result.lines.Add(lField.GetValue(AClass).ToString);
   end;
 end;
end;


Вызывается, естественно
Код:

GetVarNames (form1, memo1);

Понятно, что выводится все что описано в КЛАССЕ причём со значениями.
Но как достать до переменных объявленных в public?

Цитата:
public
{ Public declarations }
sl:tstringlist;
x: pSDU08;

А еще губораскатывательная машинка просит указатели на них

Последний раз редактировалось Turbine; 17.04.2019 в 16:58.
Turbine вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Линейный список из динамических переменных. Настя М Помощь студентам 1 14.01.2014 20:24
Список с заглавным звеном, из текстового файла получить список из записей и по нему уже сделать задание Zigfried Помощь студентам 2 04.10.2010 20:29
Получить имя и свойства компонента... prizrak1390 Общие вопросы Delphi 3 08.04.2008 12:13
список переменных krasivosleva Microsoft Office Excel 2 26.11.2007 20:32
Как получить имя этого компонента? ffo Win Api 2 26.04.2007 23:45


08:49.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru