procedure TForm1.Button1Click(Sender: TObject);
var
item:TListItem;
begin
item:=self.ListView1.Items.Add;
item.Caption:='4723947932794';
item.SubItems.Add('908');
end;
procedure TForm1.FormCreate(Sender: TObject);
var
column:TListColumn;
begin
self.ListView1.ViewStyle:=vsReport;
column:=self.ListView1.Columns.Add;
column.Caption:='支票号码';
column.Width:=88;
column:=self.ListView1.Columns.Add;
column.Width:=48;
column.Caption:='金额';
end;