pert.pas

来自「很好运筹学的DEOPHI原代码.包括动态规划,原始单纯形法,对策论,决策论等」· PAS 代码 · 共 56 行

unit Pert;

interface

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

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Button1: TButton;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
var hangshu:Integer;
procedure TForm1.Button1Click(Sender: TObject);
var edit:array of array of TEdit;
  i,j:integer;
begin
if edit<>nil then
  for i:=0 to hangshu-1 do
    for j:=0 to 4 do
       edit[i,j].Free;
  hangshu:=StrToInt(Edit1.Text);
  SetLength(edit,hangshu);
  for i:=low(edit) to high(edit) do
    SetLength(edit[i],5);
  for i:=low(edit) to high(edit) do
     for j:=0 to 4 do
       begin
         edit[i,j]:=TEdit.Create(self);
         with edit[i,j] do
           begin
              Width:=50;
              Parent:=Panel1;
              left:=30+j*Width;
              top:=20+i*Height;
           end;
       end;
end;

end.