procedure Tex_ListBox.ex_ListBoxClick(Sender: TObject);
var
X:integer;
begin
Memo1.Lines.Clear;
for X:=0 to ListBox1.Items.Count-1 do
if ListBox1.selected[x] then
Memo1.Lines.Add('Index = ' IntToStr(x) ' : ' Listbox1.Items.Strings[x]);

if (ListBox1.selcount)<0 and (ListBox1.Items.Count)<>0 then
Label1.caption:='You totally selected 0 people' ', X:=' intToStr(X)
else
Label1.caption:='You totally selected ' IntToStr(ListBox1.selcount) ' peoples!';

end;

這裡(ListBox1.Items.Count)<>0 出現incompatiable type error是因何解呢？

------
獨學無友則孤陋寡聞，相識滿天下能知天下事
小弟是來自香港的～～多多指教

if (ListBox1.selcount)<0 and (ListBox1.Items.Count)<>0 then

改成如下(注意括號的位置)

if (ListBox1.selcount < 0) and (ListBox1.Items.Count <> 0) then

OH~I see ,thank you!!

------
獨學無友則孤陋寡聞，相識滿天下能知天下事
小弟是來自香港的～～多多指教