unparaset.pas.~6~

来自「这是我用Delphi和Matlab写的一个程序」· ~6~ 代码 · 共 72 行

unit unParaSet;

interface

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

type
  TOKBottomDlg = class(TForm)
    OKBtn: TButton;
    Bevel1: TBevel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    wxME: TMaskEdit;
    wyME: TMaskEdit;
    wzME: TMaskEdit;
    Label5: TLabel;
    uxME: TMaskEdit;
    uyME: TMaskEdit;
    uzME: TMaskEdit;
    Label6: TLabel;
    PdME: TMaskEdit;
    Label8: TLabel;
    cubeXME: TMaskEdit;
    cubeYME: TMaskEdit;
    cubeZME: TMaskEdit;
    Label9: TLabel;
    cubeLenME: TMaskEdit;
    MarkLbl: TLabel;
    BakLbl: TLabel;
    imgNote: TImage;
    procedure OKBtnClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  OKBottomDlg: TOKBottomDlg;

implementation

uses GraphWin;

{$R *.dfm}

procedure TOKBottomDlg.OKBtnClick(Sender: TObject);
begin
  with Form1 do
  begin
    W.X := StrToFloat(wxME.Text);
    W.Y := StrToFloat(wyME.Text);
    W.Z := StrToFloat(wzME.Text);

    U.X := StrToFloat(uxME.Text);
    U.Y := StrToFloat(uyME.Text);
    U.Z := StrToFloat(uzME.Text);

    Pd := StrToFloat(PdME.Text);

    sCube.cX := StrToFloat(cubeXME.Text);
    sCube.cY := StrToFloat(cubeYME.Text);
    sCube.cZ := StrToFloat(cubeZME.Text);
    sCube.hLen := StrToFloat(cubeLenME.Text) / 2;
  end;
end;

end.