dlgcodeset.pas

用VB写的一个小小的抽奖程序

unit dlgCodeSet;

interface

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

type
  TOKBottomDlg1 = class(TForm)
    OKBtn: TButton;
    CancelBtn: TButton;
    Bevel1: TBevel;
    Label1: TLabel;
    edtdigit: TEdit;
    Label2: TLabel;
    edtStart: TEdit;
    Label3: TLabel;
    edtEnd: TEdit;
    Label4: TLabel;
    Memo1: TMemo;
    procedure OKBtnClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  OKBottomDlg1: TOKBottomDlg1;

implementation

{$R *.dfm}

procedure TOKBottomDlg1.OKBtnClick(Sender: TObject);
var
   Cdigit:integer;
   Cstart:integer;
   Cend:integer;
begin
   Cdigit:=-1;
   Cstart:=-1;
   Cend:=-1;
   //filepath:=ExtractFilePath('Application->ChouJiang.exe');
   memo1.Clear;
   Memo1.Lines.LoadFromFile(filepath);
   if edtdigit.text<>'' then
       Cdigit:=strtoint(edtdigit.text);
   if edtstart.text<>''then
       Cstart:=strtoint(edtstart.text);
   if edtend.text<>'' then
       Cend:=strtoint(edtend.text);

   if Cdigit>0 then
   begin
     if Cstart>=0 then
     begin
       if Cend>0 then
        begin
         memo1.Lines.Delete(4);
         memo1.Lines.Insert(4,'digit='+inttostr(Cdigit));
         memo1.Lines.Delete(5);
         memo1.lines.insert(5,'start='+ inttostr(Cstart));
         memo1.Lines.Delete(6);
         memo1.lines.insert(6,'end='+ inttostr(Cend));
         memo1.Lines.SaveToFile(filepath);
         form1.edtCode.Text:=form1.formatcode(Cdigit,Cstart)+inttostr(Cstart);
         digit:=Cdigit;
         intstart:=Cstart;
         intEnd:=Cend;
         form1.lstCode.Clear;
         form1.btnstart.enabled:=true;
        end;
     end;
    end;
    edtdigit.Clear ;
    edtstart.Clear ;
    edtend.Clear ;
    
end;

end.