목록 상자에서 중복 항목을 허용하지 않는 방법은 무엇입니까?

Question

나는 http://delphi.about.com/od/tlistbox/a/list-box-onchange-drag-drop.htm 을보고 있었고 이렇게 중복 된 항목을 허용하지 않는 기능을 추가 할 수 있을지 궁금해하고 있었다. 그렇다면 어떻게하면 될까?

감사

-Brad

Answer 1

는 목록 상자에서 중복을 방지 단순히 당신이 그것을 추가하기 전에 의도 된 항목이 목록에 있는지 확인하십시오.

function ItemExists(ListBox: TListBox; const Item: string): Boolean; 
begin 
    Result := ListBox.Items.IndexOf(Item) >= 0; 
end; 

Items.Add으로 전화하기 전에 해당 기능을 호출하십시오. True를 반환하면 Items.Add으로 전화하지 마십시오.