delphi 让TEdit文本显示和清除

　　编程要求：

　　编写一个程序完成如下功能：程序运行时，单击【显示】按钮，编辑框(组件)显示“爱编程，更爱妹子”，字体大小为38号，字体颜色为绿色；单击【清除】按钮，编辑框显示的文本被【清除】。

　　实现思路：

　　在窗体上拖入 TEdit 和 两个Button 组件

　　显示按钮 单击事件里，设置 Edit高度和宽度

　　Edit.txt 赋值字符串 爱编程，更爱妹子

　　Edit字体大小设置为 38

　　清除按钮点击事件里 让Edit.Text赋值为空字符串。

　　实例代码：(基于Delphi10实现)

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1.Width  := 500;
  Edit1.Height := 300;
  Edit1.Text := '爱编程，更爱妹子';
  Edit1.Font.Size := 38;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Edit1.Text := '';
end;

end.