unit2.pas

来自「LOM-ARM7的Flash烧写的windows版程序」· PAS 代码 · 共 97 行

unit Unit2;

interface

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

type
  TForm2 = class(TForm)
    Edit1: TEdit;
    Label1: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Label2: TLabel;
    Edit2: TEdit;
    procedure FormShow(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}
Uses Define;

procedure TForm2.FormShow(Sender: TObject);
begin
  Case OperateType of
    optLoad:
      begin
        Form2.Caption:='请输入加载的开始地址';
        Edit1.Text:=inttostr(pos);
        Label1.Caption:='开始地址(十进制)：';
        Label2.Enabled:=false; Edit2.Enabled:=false;
      end;
    optEraseSec:
      begin
        Form2.Caption:='请输入开始扇区号和擦除数量';
        Label1.Caption:='开始扇区号(0~511)：';
        Edit1.Text:=inttostr(sector_addr);
        Label2.Enabled:=true; Edit2.Enabled:=true;
        Label2.Caption:='擦除扇区数(0~511)：';
        Edit2.Text:=inttostr(sector_count);
      end;
    optEraseBlk:
      begin
        Form2.Caption:='请输入开始块号和块数量';
        Label1.Caption:='开始块号(0~31)：';
        Label2.Enabled:=true; Edit2.Enabled:=true;
        Label2.Caption:='擦除块数(0~31)：';
      end;
    optSave:
      begin
        Form2.Caption:='请输入读出的开始地址和长度';
        Label1.Caption:='开始地址(十进制)：';
        Edit1.Text:=inttostr(pos);
        Label2.Enabled:=true; Edit2.Enabled:=true;
        Label2.Caption:='读出长度：';
        Edit2.Text:=inttostr(read_size);
      end;
  end;
end;

procedure TForm2.BitBtn1Click(Sender: TObject);
begin
  Case OperateType of
    optLoad:
      begin
        pos:=strtoint(Edit1.Text);
      end;
    optEraseSec:
      begin
        sector_addr:=strtoint(Edit1.Text);
        sector_count:=strtoint(Edit2.Text);
      end;
    optEraseBlk:
      begin
        block_addr:=strtoint(Edit1.Text);
        block_count:=strtoint(Edit2.Text);
      end;
    optSave:
      begin
        pos:=strtoint(Edit1.Text);
        read_size:=strtoint(Edit2.Text);
      end;
  end;
end;

end.