ll018.pas.~4~

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

unit ll018;

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

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

 end;
implementation
procedure   TLL018.loadinfo();
var materail:Tmaterail;
    i:integer;
begin

   name := 'LL-024';
   materailnums := 10;
   setLength(materails,10);
   loadBaseinfo;
  { for i:=0 to 9 do
   begin
   materail := Tmaterail.Create;
   materail.name := '横杆'+inttostr(i);
   materail.materailType := '横杆类型一';
   materail.width := 2000;
   materail.height := 3000;
   materails[i] := materail;
   end;      }

end;
procedure TLL018.setSize(width: Integer; height: Integer);
begin
    materails[5].width := 900;
end;
end.