delphi 类 线程 反射 泛型 简单理解

unit Unit3;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes,
  Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, System.Rtti;

type
  TForm3 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Button2: TButton;
    Edit2: TEdit;
    Button3: TButton;
    Button4: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

type
  Tmyclass = class     //类
  public
    constructor Create(tempname: string); overload;
  private
    myname: string;
    type
      mytype = (jack, mike, tom);
  end;

type
  Tmythread = class(TThread)  //线程
  protected
    procedure Execute; override;
  private
    procedure myrun;
  public
    constructor Create; overload;
  end;

type
  TmyKV<T> = class          //泛型
  private
    Fkey: string;
    Fvalue: T;
    procedure SetFkey(const Value: string);
    procedure SetFvalue(const Value: T);
  public
    property PFkey: string read Fkey write SetFkey;
    property PFvalue: T read Fvalue write SetFvalue;
  end;

var
  Form3: TForm3;

implementation

{$R *.dfm}

procedure TForm3.Button1Click(Sender: TObject);
var
  my1: Tmyclass;
begin
  my1 := Tmyclass.Create('Jacky');
  try
    Edit1.Clear;
    Edit1.Text := my1.myname;
  finally
    my1.Destroy;
  end;
end;

{ Tmyclass }

constructor Tmyclass.Create(tempname: string);
begin
  inherited Create();
  myname := tempname;
end;

procedure TForm3.Button2Click(Sender: TObject);    //反射
var
  rtx: TRttiContext;
  rt: TRttiType;
  f: TRttiField;
  mycls: Tmyclass;
begin
  mycls := Tmyclass.Create('Tom');

  rt := rtx.GetType(Tmyclass);
  f := rt.GetField('myname');
  Edit1.Text := f.GetValue(mycls).AsString;
  mycls.Free;
end;

procedure TForm3.Button3Click(Sender: TObject); //线程
var
  mythread: Tmythread;
begin
  mythread := Tmythread.Create;
  mythread.Resume;
end;

procedure TForm3.Button4Click(Sender: TObject);  //泛型
var
  myKV: TmyKV<Tmyclass>;
  myll: Tmyclass;
begin
  myll := Tmyclass.Create('汤姆');
  myKV := TmyKV<Tmyclass>.Create;
  myKV.PFkey := 'tom';
  myKV.PFvalue := myll;
  Edit2.Text := myKV.PFvalue.myname;
  myKV.Free;
  myll.free;
end;

{ Tmythread }

constructor Tmythread.Create;
begin
  inherited;
  FreeOnTerminate := True;
end;

procedure Tmythread.Execute;
begin
  inherited;
  myrun;
end;

procedure Tmythread.myrun;
var
  i: Integer;
begin
  for i := 1000 downto 1 do
  begin
    form3.Edit1.Text := IntToStr(i);
    Sleep(500);
  end;

end;

{ TmyKV<T> }

procedure TmyKV<T>.SetFkey(const Value: string);
begin
  Fkey := Value;
end;

procedure TmyKV<T>.SetFvalue(const Value: T);
begin
  Fvalue := Value;
end;