给你看delphi的帮助吧:
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[I][0];
ListItem.SubItems.Add(Names[I][1]);
end;
end;第二个问题,TStrings可以认为是由很多string组成的集合类。一般不直接使用TStrings, 建议使用TStringList;
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[I][0];
ListItem.SubItems.Add(Names[I][1]);
end;
end;第二个问题,TStrings可以认为是由很多string组成的集合类。一般不直接使用TStrings, 建议使用TStringList;
解决方案 »
- webservice 传图片数据集
- 怎么得到listview多选后的选择节点?
- 请问哪位用过RxRichEdit,教教我怎么用它来存储和显示图文数据???
- 请问function 和 procedual有什么区别??
- 如何接收外部参数
- 帮帮我!报表问题!!菜虫发布!!!!
- 我做了一个bpl,可是当使用这个bpl编译时还需要我bpl中的dcu,有没有办法把duc全包括到bpl中或一个文件中,否则duc太多了
- 如何在delphi5中实现滚动屏幕的效果
- TComponentState
- 简单问题,创建线程时,调用线程函数,提示"Variable required"错误
- 一个delphi初学者的问题!急!大家帮帮忙!
- 问题多多
kingron:不用说了,说了也白说。唉!!