Classに設定しているPropertyの使い分け (ID:37286)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

出来るけど・・・・普通はIndexにするな

unit Unit3;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, TypInfo;

type

TExSample = class(TComponent)
  private
    FTest1Mode: String;
    FTest2Mode: String;
    FTest3Mode: String;
  published
    property test1Mode :String read FTest1Mode write FTest1Mode;
    property test2Mode :String read FTest2Mode write FTest2Mode;
    property test3Mode :String read FTest3Mode write FTest3Mode;
  end;

TForm3 = class(TForm)
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button1Click(Sender: TObject);
  private
    { Private 宣言 }
  public
    { Public 宣言 }
  end;

var
  Form3: TForm3;
  ExSample: TExSample;

implementation

{$R *.dfm}

procedure Test(Text: String);
var
    p: PPropInfo;
    S: String;
begin
    P := GetPropInfo(ExSample.ClassInfo,Text);
    if P <> nil then
    begin
      if (p^.PropType^.Kind = tkLString) or (p^.PropType^.Kind = tkString) or (p^.PropType^.Kind = tkString) or (p^.PropType^.Kind = tkWString)then
      begin
        S := GetStrProp(ExSample,Text);
        ShowMessage(S);
      end;
    end;
end;

procedure TForm3.Button1Click(Sender: TObject);
begin
    Test('Test2Mode');
end;

procedure TForm3.FormClose(Sender: TObject; var Action: TCloseAction);
begin
    ExSample.Free;
end;

procedure TForm3.FormCreate(Sender: TObject);
begin
    ExSample := TExSample.Create(Self);
    EXSample.test1Mode := 'TEST1';
    EXSample.test2Mode := 'TEST2';
    EXSample.test3Mode := 'TEST3';
end;

end.

←解決時は質問者本人がここをチェックしてください。

戻る