DELPHI中的ListView用法

Posted 2023-03-26

GlobalVal: array[0..99] of Integer;
请问要如何把上面这句代码的序号和相应的数值显示在ListView表中
ListView表中有 序号和数值两个表
实现的效果是序号为0-99 数值为相应序号的值

var
GlobalVal: array[0..99] of Integer;
i: Integer;
begin
for I := Low(GlobalVal) to High(GlobalVal) do
begin
with ListView1.Items.Add do
begin
GlobalVal[i] := i + 100;
Caption := IntToStr(i);
SubItems.Add(IntToStr(GlobalVal[i]))
end;
end;
end; 参考技术A var

listitem:TListItem;begin
ListView1.Items.Clear;

while
ADOQuery1.Eof=false
do

begin

with
ListView1
do

begin

listitem:=ListView1.Items.Add;

listitem.Caption:=ADOQuery1.fieldbyname('file_name').AsString;

listitem.SubItems.Add(ADOQuery1.fieldbyname('file_format').AsString);

listitem.SubItems.Add(ADOQuery1.fieldbyname('file_size').AsString);

listitem.SubItems.Add(ADOQuery1.fieldbyname('file_update').AsString);

ListItem.SubItems.Add(ADOQuery1.FieldByName('file_id').Asstring);

listitem.ImageIndex:=2;

end; 你参照这个去改一下吧