realbasic-nug
[Top] [All Lists]

Removing Duplicates in an Array

To: REALbasic NUG <realbasic-nug@lists.realsoftware.com>
Subject: Removing Duplicates in an Array
From: Tom Russell <linuxrox@stny.rr.com>
Date: Sat, 31 Jan 2009 14:10:42 -0500
Authentication-results: mx.google.com; spf=neutral (google.com: 74.124.194.228 is neither permitted nor denied by best guess record for domain of realbasic-nug-bounces@lists.realsoftware.com) smtp.mail=realbasic-nug-bounces@lists.realsoftware.com
Delivered-to: listarchive@realsoftware.com
Reply-to: REALbasic NUG <realbasic-nug@lists.realsoftware.com>
Sender: realbasic-nug-bounces@lists.realsoftware.com
User-agent: Thunderbird 2.0.0.19 (Macintosh/20081209)
I am trying to remove duplicates in an array but not sure how to handle once I get down to below 0. TheDocs is an array of strings.

My code:

 dim i as Integer
 TheDocs.Sort

 for i = UBound(TheDocs) downto 0
   if TheDocs(i) = TheDocs(i-1)  then
     TheDocs.Remove i
   end if
 Next

Once i gets to 0 then it will throw an out of bounds exception and this is where I am not sure how to handle this.

Thanks.

_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>

Search the archives:
<http://support.realsoftware.com/listarchives/lists.html>


<Prev in Thread] Current Thread [Next in Thread>