开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
RunPropF.pas
资源名称：delphi.rar　[点击查看]
上传用户：fh681027
上传日期：2022-07-23
资源大小：1959k
文件大小：2k
源码类别：

Delphi控件源码

开发平台：

Delphi

RunPropF.pas：源码内容
  1. unit RunPropF;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   ExtCtrls, StdCtrls, Spin;
  9. type
  10.   TForm1 = class(TForm)
  11.     Edit1: TEdit;
  12.     Label1: TLabel;
  13.     Button1: TButton;
  14.     ListBox1: TListBox;
  15.     RadioButton1: TRadioButton;
  16.     CheckBox1: TCheckBox;
  17.     ScrollBar1: TScrollBar;
  18.     SpinEdit1: TSpinEdit;
  19.     ComboBox1: TComboBox;
  20.     Bevel1: TBevel;
  21.     procedure Button1Click(Sender: TObject);
  22.   private
  23.     { Private declarations }
  24.   public
  25.     { Public declarations }
  26.   end;
  28. var
  29.   Form1: TForm1;
  31. implementation
  33. {$R *.DFM}
  35. uses
  36.   TypInfo;
  38. procedure TForm1.Button1Click(Sender: TObject);
  39. var
  40.   I: Integer;
  41. //  PropInfo: PPropInfo;
  42.   Value: Variant;
  43. begin
  44.   ListBox1.Clear;
  45.   for I := 0 to ComponentCount -1 do
  46.   begin
  47.     // Delphi 5 version
  48.     Value := GetPropValue (Components[I], Edit1.Text);
  49.     if Value <> varNULL then
  50.       ListBox1.Items.Add (Components[I].Name + '.' +
  51.         Edit1.Text + ' = ' + string (Value))
  52.     else
  53.       ListBox1.Items.Add ('No ' + Components[I].Name + '.' +
  54.         Edit1.Text);
  56.     // pre-Delphi 5 version, limited to strings
  57. {
  58.     // get property RTTI
  59.     PropInfo := GetPropInfo (
  60.       Components[I].ClassInfo, Edit1.Text);
  61.     if PropInfo = nil then
  62.       // if not found output a message
  63.       ListBox1.Items.Add (Descr + ' doesn''t exist')
  64.     else if PropInfo.PropType^.Kind <> tkLString then
  65.       // if not a strign output a message
  66.       ListBox1.Items.Add (Descr + ' is not a string')
  67.     else
  68.       // show the value
  69.       ListBox1.Items.Add (Descr + ' = [' +
  70.         GetStrProp (Components[I], PropInfo) + ']');
  71. }
  72.   end;
  73. end;
  75. end.