unit1.pas

来自「用来实现matlab的BP算法」· PAS 代码 · 共 78 行

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    rg1: TRadioGroup;
    chk1: TCheckBox;
    chk2: TCheckBox;
    chk3: TCheckBox;
    chk4: TCheckBox;
    chk5: TCheckBox;
    chk6: TCheckBox;
    chk7: TCheckBox;
    chk8: TCheckBox;
    chk9: TCheckBox;
    chk10: TCheckBox;
    chk11: TCheckBox;
    chk12: TCheckBox;
    chk13: TCheckBox;
    chk14: TCheckBox;
    chk15: TCheckBox;
    lbl1: TLabel;
    rg2: TRadioGroup;
    chk16: TCheckBox;
    chk17: TCheckBox;
    chk18: TCheckBox;
    chk19: TCheckBox;
    chk20: TCheckBox;
    chk21: TCheckBox;
    chk22: TCheckBox;
    chk23: TCheckBox;
    chk24: TCheckBox;
    chk25: TCheckBox;
    chk26: TCheckBox;
    chk27: TCheckBox;
    chk28: TCheckBox;
    chk29: TCheckBox;
    btn1: TButton;
    procedure btn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);
var
  str: string;
  strl: array of string;
  I: Integer;
begin
  Form2 := TForm2.Create(nil); //负荷编辑窗体
  Form2.ShowModal;
 { str:='';
  for I := 0 to 2 do    // Iterate
  begin
    SetLength(strl,3);
    strl[I] := rt1.Lines.Strings[I];
    str:=str + strl[I]+' ';
  end;
  edt1.Text := str; }
end;
end.