mainfrm.pas

来自「关于利用DELPHI来进行企业级方案解决的著作的附书源码」· PAS 代码 · 共 63 行

unit MainFrm;

interface

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

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
const
  Names: array[0..6,0..1] of string = (
  ('显示器','5'),
  ('CPU','3'),
  ('主板','6'),
  ('显卡','4'),
  ('内存','8'),
  ('光驱','7'),
  ('鼠标','20')
  );

var
 I:Integer;
 NewColumn:TListColumn;
 ListItem:TListItem;
 ListView:TListView;
begin
 ListView:=TListView.Create(Self);
 with ListView do
  begin
   Parent:=Self;
   Align:=alClient;
   ViewStyle:=vsReport;
   NewColumn:=Columns.Add;
   NewColumn.Caption:='配件名称';
   NewColumn:=Columns.Add;
   NewColumn.Caption:='数量';
   for I:=Low(Names) to High(Names) do
   begin
    ListItem:=Items.Add;
    ListItem.Caption:=Names[I][0];
    ListItem.SubItems.Add(Names[I][1]);
   end;
  end;
end;

end.