ll019.pas

来自「用于工厂对于门花尺寸进行自动计算」· PAS 代码 · 共 42 行

unit ll019;

interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, ComCtrls,common;
  type
    TLL019=class(Tmodel)      //基类
      private

   public
     procedure loadinfo();override;
     procedure setSize(width:integer;height:integer);override;
     //procedure printData(memo:Tmemo);

 end;
implementation
procedure   TLL019.loadinfo();
var materail:Tmaterail;
    i:integer;
begin
   name := 'LL-019';
   loadBaseinfo;
   {materailnums := 50;
   setLength(materails,materailnums);
   for i:=0 to 49 do
   begin
   materail := Tmaterail.Create;
   materail.name := '横杆'+inttostr(i+1);
   materail.materailType := '横杆类型一';
   materail.width := 2000;
   materail.height := 3000;
   materails[i] := materail;
   end; }

end;
procedure TLL019.setSize(width: Integer; height: Integer);
begin
   setBasesize(width,height);
end;
end.