listview的超简单问题(50分)

listview不止一列
用listview1.Items.Add可以在第一个列添加项目
如何在其它列添加项目?

他不是会自动的添加的嘛？？？？

var
NewItem:TListItem;
begin
NewItem:=FrmMain.ListView1.Items.add;
NewItem.Caption:=ExtractFileName(SourceFileName);
NewItem.subItems.Add(IntToStr(GetFileSizes(SourceFileName)));
NewItem.subItems.Add(ExtractFilePath(SourceFileName));
end;

同意kucio的方法。

这里有一个Delphi的Help自带的Example:
procedure TForm1.FormCreate(Sender: TObject);

const
Names: array[0..5, 0..1] of string = (
('Rubble', 'Barney'),
('Michael', 'Johnson'),
('Bunny', 'Bugs'),
('Silver', 'HiHo'),
('Simpson', 'Bart'),
('Squirrel', 'Rockey')
);

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 := 'Last';
NewColumn := Columns.Add;
NewColumn.Caption := 'First';

for I := Low(Names) to High(Names) do
begin
ListItem := Items.Add;
ListItem.Caption := Names[0];
ListItem.SubItems.Add(Names[1]);
end;
end;
end;

subitems

用SubItems.Add()
记得把ListView的属性viewstyle设置成vsReport

多人接受答案了。