我想在LISTVIEW中显示一列数据，该如何写？

Question

var
    newcolumn:Tlistcolumn;
    i:integer;
    listitem:Tlistitem;
    listview:Tlistview;
begin
     listview1.ViewStyle:=vsreport;     
     newcolumn:=listview1.Columns.Add;
     newcolumn.Caption:='a';
     newcolumn.Width:=50;
     for i:=0 to 10 do
       begin
         listitem:=listview1.Items.Add;
         listitem.Caption:='a'+inttostr(i);
       end;
end;

Answer 1

给你一个过程，里面包含了Tlistview的使用方法。自己领悟吧！
procedure TmainForm.GetTeachers;
var i : integer;P : ^integer;ListItem : TListItem;
begin
  with dataForm.SelTeacher do
  begin
        StatusBar1.SimpleText := '共找到 '+inttostr(RecordCount)+' 位教练';
        TeacherListView.Items.Clear;
        if RecordCount <1 then exit;
        TeacherListView.Items.BeginUpdate;
        DisableControls;
        first;
        for i:= 1 to RecordCount do
        begin
                ListItem := TeacherListView.Items.Add;
                ListItem.Caption := FieldByname('姓名').asstring;
                New(p);
                p^ := FieldByname('编号').asinteger;
                ListItem.Data := p;
                if FieldByname('性别').asString = '男' then
                ListItem.ImageIndex := 0
                else ListItem.ImageIndex := 1;
                next;
        end;
        EnableControls;
        TeacherListView.Items.EndUpdate;
  end;
end;