ll024.pas.~4~

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

unit ll024;

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

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

 end;
implementation
procedure   TLL024.loadinfo();
var materail:Tmaterail;
    i:integer;
begin
   name := 'LL-024';
      loadBaseinfo;
   {
   materailnums := 10;
   setLength(materails,10);
   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 TLL024.setSize(width: Integer; height: Integer);
begin
    materails[5].points := '(50,5),(100,5)';
end;
end.