mainform.pas

详细讲述如何用delphi进行com编程

unit MainForm;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComObj, StdCtrls, ComCtrls, BinIntf;

type
  TForm1 = class(TForm)
    grpItems: TGroupBox;
    Label4: TLabel;
    ecQuantity: TEdit;
    Label5: TLabel;
    ecDescription: TEdit;
    Label6: TLabel;
    ecValue: TEdit;
    btnAdd: TButton;
    btnOptimize: TButton;
    treeBins: TTreeView;
    Label1: TLabel;
    ecBinSize: TEdit;
    procedure btnAddClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure btnOptimizeClick(Sender: TObject);
  private
    { Private declarations }
    FOneD: IOneDBin;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.btnAddClick(Sender: TObject);
begin
  FOneD.AddItem(StrToInt(ecQuantity.Text), ecDescription.Text,
    StrToInt(ecValue.Text));

  Beep;
  ActiveControl := ecQuantity;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  FOneD := CreateComObject(Class_NextFit) as IOneDBin;
end;

procedure TForm1.btnOptimizeClick(Sender: TObject);
var
  Desc: WideString;
  Value: Integer;
  BinCount: Integer;
  Node: TTreeNode;
begin
  FOneD.SetMaxValue(StrToInt(ecBinSize.Text));

  FOneD.Optimize;
  BinCount := 0;

  treeBins.Items.BeginUpdate;
  try
    while FOneD.NextBin do begin
      Inc(BinCount);
      Node := treeBins.Items.AddChild(nil, 'Bin ' + IntToStr(BinCount));
      while FOneD.NextItem(Desc, Value) do
        treeBins.Items.AddChild(Node, Desc);
    end;
  finally
    treeBins.Items.EndUpdate;
  end;

  btnAdd.Enabled := False;
  btnOptimize.Enabled := False;
end;

end.