ShowMessage(Listview_input.Selected.Caption);这句错哪里，在线等!

Question

ShowMessage(Listview_input.Selected.Caption);

Answer 1

ShowMessage(Listview_input.Selected［xxx］.Caption);

Answer 2

万一ListView_input.Selected = nil 怎么办??
if ListView_input.Selected <> nil then
 ShowMessage(Listview_input.Selected.Caption);

Answer 3

你的语句没有任何的错误，估计可能是因为你的listview没有已经被选择的条所以出现错误！

Answer 4

应该是ShowMessage(Listview_input.Selected.text);吧

Answer 5

myling(阿德) 兄
复原了啊 恭喜！
前面的已经回答了

Answer 6

呵呵，老茂说的正确：
if ListView_input.Selected <> nil then
 ShowMessage(Listview_input.Selected.Caption);

Answer 7

不对不对 我第一眼看见以为是一个列状控件 你要多选后来看到是Listview   ShowMessage(Listview_input.Selected.Caption);
这句没错阿～～？？

Answer 8

//listview的单击处理
procedure oneclick(listv:tlistview);
var
I:integer;
begin
if tlistview(listv).Selected=nil then
 begin
   list:='';
   abort;
 end;
try
  I:=tlistview(listv).Selected.Index;
  except
 // list:='';
 // mycaption:='';
 // abort;
end;
 try list:=trim(tlistview(listv).Items.Item[I].Caption);
 mycaption:=trim(tlistview(listv).Items.Item[I].Caption);
 except
 end;
end;

Answer 9

//listview的单击处理
procedure oneclick(listv:tlistview);
var
I:integer;
begin
if tlistview(listv).Selected=nil then
 begin
   list:='';
   abort;
 end;
try
  I:=tlistview(listv).Selected.Index;
  except
 // list:='';
 // mycaption:='';
 // abort;
end;
 try list:=trim(tlistview(listv).Items.Item[I].Caption);
 mycaption:=trim(tlistview(listv).Items.Item[I].Caption);
 except
 end;
end;