unparaset.pas.~4~

这是我用Delphi和Matlab写的一个程序

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;
    StaticText1: TStaticText;
    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.