var I, J: Integer; ListItem: TListItem; begin for I := 0 to ListView1.Items.Count - 1 do begin ListItem := ListView1.Items.Item[I]; ShowMessage(ListItem.Caption); for J := 0 to ListItem.SubItems.Count - 1 do begin ShowMessage(ListItem.SubItems[J]); end; end; end;
I, J: Integer;
ListItem: TListItem;
begin
for I := 0 to ListView1.Items.Count - 1 do
begin
ListItem := ListView1.Items.Item[I];
ShowMessage(ListItem.Caption);
for J := 0 to ListItem.SubItems.Count - 1 do
begin
ShowMessage(ListItem.SubItems[J]);
end;
end;
end;