delphi - 在 Delphi 中检索 ListView 项值的正确方法是什么

Question

现在我正在使用以下代码来获取 ListView 项目值，我想知道这是否是执行此操作的正确方法，或者我应该以其他方式执行此操作。

父项值示例:

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(ListView1.Selected.Caption);
end;

子项值示例:

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(ListView1.Selected.SubItems.Strings[items_index_here]);
end;

Answer 1

您的第一个代码看起来不错，但您应该首先检查是否有 Selected 项目:

if Assigned(ListView1.Selected) then  // or ListView1.Selected <> nil
  ShowMessage(ListView1.Selected.Caption);

您的第二个可以简化(并且应该包括我上面提到的相同检查):

if Assigned(ListView1.Selected) then
  ShowMessage(ListView1.Selected.SubItems[Index]);

TStrings 后代(例如 TStringList 和 TListItem.SubItems)具有默认属性，这是使用 TStrings.Strings 的快捷方式[索引]；您可以只使用 TStrings[Index]。您可以只使用 MyStringList[0]，而不是 MyStringList.Strings[0]，这适用于 TMemo.Lines 和 TListItem.SubItems 也是如此。您不需要 SubItems.Strings[Index]，而只需使用 SubItems[Index]。