listview 添加问题?

Question

台号     台名称     职员名称
 01       1号         HH
 02       2号         JJ
 03       6号         KK
想实现以上格式应该怎样做,谢谢！

Answer 1

一、将listview的viewstyle设置vsReport格式
二、新增代码
var
  newitem:TListitem
begin
  newitem := listview1.items.add('01');
  newitem.subitems.add('1号');
  newitem.subitems.add('HH');
...继续加吧
  
end;

Answer 2

1.listview的ViewStyle改为vsReport模式,然后双击ListView，添加“台号     台名称     职员名称”三列
2.把你要添加的值都放到一个StrList对象中
var
  Litem:TListItem;
  i, j:integer;
begin
  for i:=0 to 2 do
  begin
    Litem:=LV.Items.Add;
    Litem.Caption:='0'+IntToStr(i+1);
    for j:=0 to 2 do
    begin
      Litem.SubItems.Add(TmpStrList(i*3+j));
    end;
  end;
end;

Answer 3

var
  item: TListItem;
begin
  ListView1.ViewStyle := vsReport;
  ListView1.Columns.Add;
  ListView1.Column[0].Caption := '台号';
  ListView1.Columns.Add;
  ListView1.Column[1].Caption := '台名称';
  ListView1.Columns.Add;
  ListView1.Column[2].Caption := '职员名称';  item := ListView1.Items.Add;
  item.Caption := '01';
  item.SubItems.Add('1号');
  item.SubItems.Add('HH');  item := ListView1.Items.Add;
  item.Caption := '02';
  item.SubItems.Add('2号');
  item.SubItems.Add('JJ');  item := ListView1.Items.Add;
  item.Caption := '03';
  item.SubItems.Add('6号');
  item.SubItems.Add('KK');
end;