Question

delphi TListItem 不选行，执行就会报错

程序部分代码
procedure TfrmMain.LoadData(sSQL: string);
..............
ListItem := lvData.Items.Add;
ListItem.Caption := '';
ListItem.SubItems.Add(ADOQry.FieldByName('Swcc_ID').AsString);
ListItem.SubItems.Add(IntToStr(i));
ListItem.SubItems.Add(ADOQry.FieldByName('Swcc_ReportID').AsString);
ListItem.SubItems.Add(ADOQry.FieldByName('Swcc_Name').AsString);
ListItem.SubItems.Add(ADOQry.FieldByName('Swcc_Telephone').AsString);
................
end；
procedure TfrmMain.FormShow(Sender: TObject);
.................
lvData.Columns.Add;
lvData.Columns[4].Caption := '单号';
lvData.Columns[4].Alignment := taCenter;
lvData.Columns[4].Width := Trunc(iWidth*0.065);
lvData.Columns.Add;
lvData.Columns[5].Caption := '姓名';
lvData.Columns[5].Alignment := taCenter;
lvData.Columns[5].Width := Trunc(iWidth*0.07);
lvData.Columns.Add;
lvData.Columns[6].Caption := '电话';
lvData.Columns[6].Alignment := taCenter;
lvData.Columns[6].Width := Trunc(iWidth*0.10);
.................
end；
//打开其中某条数据
procedure TfrmMain.btnOpenClick(Sender: TObject);
..................
begin
try
if lvData.Items.Count = 0 then Exit;
edtID.Text := lvData.Selected.SubItems[0];
edtNumber.Text := lvData.Selected.SubItems[1];
edtReportID.Text := lvData.Selected.SubItems[3];
edtName.Text := lvData.Selected.SubItems[4];
sMediaPath := lvData.Selected.SubItems[6];
if sMediaPath <> '' then
begin
sMediaPath := SWCC_PATH + sMediaPath;
if DirectoryExists(sMediaPath) then
begin
ShellExecute(Handle, 'open', 'explorer.exe', PChar(sMediaPath), nil, SW_SHOW);
end;
Application.ProcessMessages;
end;
except
on e: Exception do
Application.MessageBox(PChar(e.Message), '打开失败', MB_OK+MB_ICONERROR);
end;
..................

我选择列表中的一条数据，打开是正常的，如果我没点任何数据，点打开程序就报错：（检测到错误类EAccessViolation,错误信息：存取地址0056EB66 违例发生在模块XXXXXXX）
用（if lvData.Items.Count = 0 then Exit）判断空选不行，如果用（if lvData.Selected.SubItems[0] = '' then Exit）也不行，请问怎么判断我未选择，谢谢！

Answer 1

一、"没点任何数据，点打开程序就报错 "

出现 EAccessViolation 这是正常现象，因为 ListView 没有选中条目时，lvData.Selected 还没有初始化，所以不能访问。

二、“用（if lvData.Items.Count = 0 then Exit）判断空选不行，如果用（if lvData.Selected.SubItems[0] = '' then Exit）也不行，请问怎么判断我未选择”

可以使用如下语句判断：

if lvData.SelCount<1 then Exit；