u4.pas

笔记本笔记本笔记本笔记本笔记本笔记本笔记本笔记本笔记本笔记本笔记本笔记本笔记本笔记本笔记本笔记本笔记本笔记本笔记本笔记本笔记本笔记本笔记本笔记本笔记本笔记本笔记本笔记本笔记本笔记本笔记本

unit U4;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls, ComCtrls;

type
   TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    DateTimePicker1: TDateTimePicker;
    ComboBox1: TComboBox;
    GroupBox1: TGroupBox;
    RadioGroup1: TRadioGroup;
    SpeedButton1: TSpeedButton;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Memo1: TMemo;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    CheckBox4: TCheckBox;
    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button3Click(Sender: TObject);
begin
  close;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  edit1.text:='';
  edit2.text:='';
  Edit3.Text :='';
  RadioButton1.checked:=false;
  RadioButton2.checked:=false;
  edit3.text:='';
  ComboBox1.text:='';
  DateTimePicker1.datetime:=now;
  RadioGroup1.ItemIndex :=-1;
  CheckBox1.checked:=false;
  CheckBox2.checked:=false;
  CheckBox3.checked:=false;
  CheckBox4.checked:=false;
  memo1.text:='';
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
   memo1.Lines .Add('你的基本资料:' );
  if Edit1.Text <>''then
    memo1.Lines .Add(label1.Caption +Edit1.Text );
  if Edit2.Text <>''then
    memo1.Lines .Add(label2.Caption +Edit2.Text );
  if RadioButton1.Checked=true then
   memo1.Lines .Add(label3.Caption +RadioButton1.Caption  );
  if RadioButton2.Checked=true then
    memo1.Lines .Add(label3.Caption +RadioButton2.Caption  );
  if radiogroup1.ItemIndex <>-1then
    memo1.Lines .Add('年        级'+':'+radiogroup1.Items [radiogroup1.itemIndex] );
   memo1.Lines .Add('出生日期'+':' +datetimetostr(DateTimePicker1.datetime));
  if ComboBox1.Text <>'' then
    memo1.Lines .Add(label5.Caption +ComboBox1.Text   );
  if CheckBox1.Checked=true then
   memo1.Lines .Add('兴        趣：' +':'+CheckBox1.Caption  );
  if CheckBox2.Checked=true then
   memo1.Lines .Add('兴        趣：' +':'+CheckBox2.Caption  );
  if CheckBox3.Checked=true then
   memo1.Lines .Add('兴        趣：' +':'+CheckBox3.Caption  );
  if CheckBox4.Checked=true then
   memo1.Lines .Add('兴        趣：'+':'+CheckBox4.Caption  );
  if Edit3.Text <>''then
   memo1.Lines .Add('文 件 名  ：' +Edit3.Text );
end;
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
  edit3.Text :='E:\delphi\Record.txt';
  memo1.Lines.SaveToFile('E:\delphi\Record.txt');
end;

end.