Text unter Listvieweintrag

[marabu]

Hier noch eine kleine Gehhilfe für Einzelzugriffe:

Delphi-Quellcode:

function GetLVStr(
  lv: TListView;
  subIndex: Integer = -1;  // caption addressed by negative value
  itemIndex: Integer = -1  // focused item addressed by negative value
): String;
var
  item: TListItem;
begin
  if itemIndex < 0 then
    itemIndex := lv.ItemIndex;
  if itemIndex < 0 then
    Result := '' else
  begin
    item := lv.Items[itemIndex];
    if subIndex < 0 then
      Result := item.Caption else
    if subIndex < item.SubItems.Count
      then Result := item.SubItems[subIndex]
      else Result := '';
  end;
end;

Getippt und nicht getestet.

Freundliche Grüße