unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls;//注意:此處必須手動添加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//定義數(shù)組
names:array[0..5,0..1] of shortstring=(
 ('rubble','barney'),
 ('michael','johnson'),
 ('bunny','bugs'),
 ('silver','hiho'),
 ('simpson','bart'),
 ('Squirrel','rockey')
);
var
  i:integer;
  newcolumn:Tlistcolumn;
  listitem:Tlistitem;
  listview:Tlistview;
begin
//在uses單元中加入ComCtrls就可以使用實例化過程了
    listview:=Tlistview.Create(self);
    with listview do
    begin
      parent:=self;
      Align:=alclient;
      ViewStyle:=vsreport;
      newcolumn:=columns.Add;   //添加一個新列
      newcolumn.Caption:='last';//命名為:"last"
      newcolumn:=columns.Add;
      newcolumn.Caption:='first';
      for i:=0 to High(names) do   //取到數(shù)組的上限數(shù)
      begin
        listitem:=items.Add;
        listitem.Caption:=names[I][0];
        listitem.SubItems.Add(names[I][1]);
      end;
    end;

end;

end.