dlgpset.pas

来自「用VB写的一个小小的抽奖程序」· PAS 代码 · 共 69 行

unit dlgPset;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls, 
  Buttons, ExtCtrls,UnitChoujiang;

type
  TOKBottomDlg = class(TForm)
    OKBtn: TButton;
    CancelBtn: TButton;
    Bevel1: TBevel;
    Label1: TLabel;
    Label2: TLabel;
    edtPName: TEdit;
    edtPnumber: TEdit;
    Memo1: TMemo;
    procedure OKBtnClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  OKBottomDlg: TOKBottomDlg;

implementation

{$R *.dfm}

procedure TOKBottomDlg.OKBtnClick(Sender: TObject);
var
   Pname:string;
   Pnumber:integer;
begin
   //filepath:=ExtractFilePath('Application->ChouJiang.exe');

   if edtPname.text<>'' then
       Pname:=edtPName.Text;
   if edtPnumber.text<>''then
       Pnumber:=strtoint(edtPnumber.text);
   memo1.Clear;
try
   Memo1.Lines.LoadFromFile(filepath);
   if Pname<>'' then
   begin
     if Pnumber<>0 then
     begin
       memo1.Lines.Delete(1);
       memo1.Lines.Insert(1,'name='+Pname);
       memo1.Lines.Delete(2);
       memo1.lines.insert(2,'number='+inttostr(Pnumber));
       memo1.Lines.SaveToFile(filepath);
       form1.lblTitle.caption:=Pname+ '（' + inttostr(Pnumber) + '名）';
       form1.lblLeft.Caption:='已抽出奖项0个';
       form1.lstCode.Clear;
       form1.btnstart.enabled:=true;
       number:=Pnumber;
     end;
    end;
finally
    edtPName.Clear ;
    edtPnumber.Clear ;
end;
end;

end.