• Дата реєстрації: 18.09.2014
  • Повідомлень: 99
    • Репутація: 13

Тема: Delphi Var list class

Як узнать список змін які є у певного класу.

2 Відповідь від 0xDADA11C7

  • Звідки: Дніпрожидівськ
  • Дата реєстрації: 14.02.2014
  • Повідомлень: 5 707
    • Репутація: 5776

Re: Delphi Var list class

подивитися в файлі заголовків

3 Відповідь від Stanislav Stecenko

  • Дата реєстрації: 18.09.2014
  • Повідомлень: 99
    • Репутація: 13

Re: Delphi Var list class

type
  TForm3 = class(TForm)
    PageControl1: TPageControl;
    pnl1: TPanel;
    ts1: TTabSheet;
    options_grp_language: TGroupBox;
    options_grp_font: TGroupBox;
    options_grp_stylyWindow: TGroupBox;
    options_combb_Font: TComboBox;
    se1: TSpinEdit;
    options_combb_style: TComboBox;
    options_combb_language: TComboBox;
    options_butt_Default: TSpeedButton;
    options_butt_Save: TSpeedButton;
    ColorBox1: TColorBox;
    options_butt_1: TSpeedButton;
    options_butt_2: TSpeedButton;
    options_butt_3: TSpeedButton;
    options_butt_4: TSpeedButton;
    options_butt_5: TSpeedButton;
    options_butt_Apply: TSpeedButton;
    procedure FormCreate(Sender: TObject);
    procedure options_butt_4Click(Sender: TObject);
    procedure options_butt_3Click(Sender: TObject);
    procedure options_butt_2Click(Sender: TObject);
    procedure options_butt_1Click(Sender: TObject);
    procedure options_butt_5Click(Sender: TObject);
    procedure options_butt_DefaultClick(Sender: TObject);
    procedure options_butt_ApplyClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

прогрмно получить

4 Відповідь від Stanislav Stecenko

  • Дата реєстрації: 18.09.2014
  • Повідомлень: 99
    • Репутація: 13

Re: Delphi Var list class

і чи можна це зпрбить

5 Відповідь від koala

  • koala
  • koala
  • Лінива тваринка
  • Поза форумом
  • Дата реєстрації: 01.05.2013
  • Повідомлень: 15 601
    • Репутація: 13310

Re: Delphi Var list class

Це зветься рефлексією і існує тільки в інтерпретованих мовах.

koala вебсайт

6 Відповідь від Stanislav Stecenko

  • Дата реєстрації: 18.09.2014
  • Повідомлень: 99
    • Репутація: 13

Re: Delphi Var list class

Мені потрібно узнать список таких

PageControl1: TPageControl;
    pnl1: TPanel;
    ts1: TTabSheet;
    options_grp_language: TGroupBox;
    options_grp_font: TGroupBox;
    options_grp_stylyWindow: TGroupBox;
    options_combb_Font: TComboBox;
    se1: TSpinEdit;
    options_combb_style: TComboBox;
    options_combb_language: TComboBox;
    options_butt_Default: TSpeedButton;
    options_butt_Save: TSpeedButton;
    ColorBox1: TColorBox;
    options_butt_1: TSpeedButton;
    options_butt_2: TSpeedButton;
    options_butt_3: TSpeedButton;
    options_butt_4: TSpeedButton;
    options_butt_5: TSpeedButton;
    options_butt_Apply: TSpeedButton;

7 Відповідь від koala

  • koala
  • koala
  • Лінива тваринка
  • Поза форумом
  • Дата реєстрації: 01.05.2013
  • Повідомлень: 15 601
    • Репутація: 13310

Re: Delphi Var list class

Ви в курсі взагалі - Delphi компільована мова чи інтерпретована?
Хоча якщо тільки елементи управління - то http://docs.embarcadero.com/products/ra … trols.html

koala вебсайт

8 Відповідь від DOP

  • DOP
  • Replace Group
  • Поза форумом
  • Звідки: Львів
  • Дата реєстрації: 18.09.2012
  • Повідомлень: 138
    • Репутація: 73

Re: Delphi Var list class

Якщо я Вас правильно зрозумів, то Вам потрібно перерахувати усі поля, методи та властивості якогось класу. Якщо це так, то копайте в сторону RTTI.
Наступний код працює, здається, з Delphi 2009. Особисто я тестував у Delphi XE7.

▼Приклад для консолі
uses
  System.SysUtils,
  System.Rtti;

 var
  LContext: TRttiContext;
  LType: TRttiType;
  LMethod: TRttiMethod;
  LProperty: TRttiProperty;
  LField: TRttiField;
begin
  try
    LContext := TRttiContext.Create;
    try
      LType := LContext.GetType(Self.ClassInfo); //Ваша форма
      Writeln('Methods:');
      for LMethod in LType.GetDeclaredMethods do
      begin
        //if LMethod.Visibility = TMemberVisibility.mvPublic then
          Writeln(LMethod.ToString);
      end;

      Writeln('Properties:');
      for LProperty in LType.GetDeclaredProperties do
      begin
          Writeln(LProperty.ToString);
      end;

      Writeln('Fields');
      for LField in LType.GetDeclaredFields do
      begin
        Writeln(LField.ToString);
      end;
    finally
      LContext.Free;
    end;
    Readln;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
Подякували: koala, Torbins, Stanislav Stecenko3

9 Відповідь від Torbins

  • Torbins
  • Torbins
  • Replace Team
  • Поза форумом
  • Дата реєстрації: 07.05.2012
  • Повідомлень: 3 080
    • Репутація: 2279

Re: Delphi Var list class

Якщо усе ж йдеться не про список полів та методів, а про зміни цих полів, то можна спочатку зберегти стан класу, потім змінити його і в кінці порівняти новий стан та попередній. Копати в цю сторону: http://docwiki.embarcadero.com/CodeExam … 8Delphi%29