setvalue.pas

来自「动态调度算法实验」· PAS 代码 · 共 75 行

unit SetValue;

interface

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

type
  TSetValueDlg = class(TForm)
    OKBtn: TButton;
    CancelBtn: TButton;
    Bevel1: TBevel;
    RegValueEdit: TEdit;
    RegComboBox: TComboBox;
    RegSetRadio: TRadioButton;
    Label1: TLabel;
    Label2: TLabel;
    Bevel2: TBevel;
    MemSetRadio: TRadioButton;
    MemAddressEdit: TEdit;
    MemValueEdit: TEdit;
    Label3: TLabel;
    Label4: TLabel;
    procedure OKBtnClick(Sender: TObject);
    procedure CancelBtnClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  SetValueDlg: TSetValueDlg;

implementation
uses main;
{$R *.dfm}


procedure TSetValueDlg.OKBtnClick(Sender: TObject);
var str:string;
    addr:integer;
    fvalue:real;
begin
  if RegSetRadio.Checked then
  begin
    str:=UpperCase(RegComboBox.Text);
    if (str[1]='R') then
    begin
      form1.RU[strtoint(copy(str,2,length(str)-1))].value:=strtoint(RegValueEdit.Text);
      form1.RefreshRU;
    end else
    if (str[1]='F') then
    begin
      form1.FU[strtoint(copy(str,2,length(str)-1))].fvalue:=strtofloat(RegValueEdit.Text);
      form1.RefreshFU;
    end; //else error
  end else
  if MemSetRadio.Checked then
  begin
    addr:=strtoint(MemAddressEdit.Text);
    fvalue:=strtofloat(MemValueEdit.Text);
    form1.WriteMem(addr,fvalue);
    form1.RefreshMem;
  end;

end;

procedure TSetValueDlg.CancelBtnClick(Sender: TObject);
begin
  close;
end;

end.