unit1.pas

初学时做的

//copyright by hayiban
unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    edtspmc: TEdit;
    Label2: TLabel;
    edtspjg: TEdit;
    Label3: TLabel;
    edtzhjg: TEdit;
    Label4: TLabel;
    edtsdjq: TEdit;
    Label5: TLabel;
    edtyzh: TEdit;
    TrackBar1: TTrackBar;
    Label7: TLabel;
    Button1: TButton;
    Memo1: TMemo;
    Label6: TLabel;
    Button2: TButton;
    procedure TrackBar1Change(Sender: TObject);
    procedure edtsdjqChange(Sender: TObject);
    procedure edtspjgKeyPress(Sender: TObject; var Key: Char);
    procedure edtsdjqKeyPress(Sender: TObject; var Key: Char);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Math;

{$R *.dfm}

procedure TForm1.TrackBar1Change(Sender: TObject);//在TRACKBAR里面的ONCHANGE事件里面
var i:Single;
begin
Label7.Caption:='打'+FloatToStr(TrackBar1.Position)+'折';
i:=(StrToFloat(edtspjg.Text)*TrackBar1.Position)/10;//获得拖动条的位置
edtzhjg.Text:=FloatToStr(i);

end;

procedure TForm1.edtsdjqChange(Sender: TObject);
var j:Single; //定义变量J将收到金钱减去折后价格给J然后获得应找回多少
begin
j:=StrToFloat(edtsdjq.Text)-StrToFloat(edtzhjg.Text);
edtyzh.Text:=FloatToStr(j);
end;

procedure TForm1.edtspjgKeyPress(Sender: TObject; var Key: Char);
begin
if not (key in['0','1','2','3','4','5','6','7','8','9','.',#8]) then
Key:=#0;  //屏蔽数字以外的按键，在ONKEYPRESS事件理 ,#8为返回键backspace
end;

procedure TForm1.edtsdjqKeyPress(Sender: TObject; var Key: Char);
begin
if not (key in['0','1','2','3','4','5','6','7','8','9','.',#8]) then
Key:=#0;  //屏蔽数字以外的按键，
end;

procedure TForm1.Button1Click(Sender: TObject);
var r:String;
var Time:TDateTime;
begin
r:='商品名称：'+edtspmc.Text+#13#10+'价格：'+edtzhjg.Text+'元（实价'+edtspjg.Text+'元）'+#13#10+'收到金钱：'+edtsdjq.Text+'元'+#13#10+'找回'+edtyzh.Text+'元'+#13#10+#13#10+DateToStr(Date)+'   '+TimeToStr(Now);
Memo1.Text:=r;

end;

procedure TForm1.Button2Click(Sender: TObject);
var h:Integer;
begin
Randomize;//初始化随机数发生器
h:=Random(10000);//随机生成数字避免商品名称重复

Memo1.Lines.SaveToFile(edtspmc.Text+IntToStr(h)+'.txt');//生成文本LINES属性里面
end;

end.