Go Premium for a chance to win a PS4. Enter to Win

x
?
Solved

If Listbox1 string exist in Listbox2 then the item should be deleted

Posted on 2009-03-30
1
Medium Priority
?
297 Views
Last Modified: 2012-05-06
Hey all,

I've got a Listbox1 and Listbox2.

Both are filled with about 50-100 strings and sometimes they contain the same string, if they do I would like for (via button1.click) all the items in Listbox1 that already exist in Listbox2 to be deleted from Listbox1.
0
Comment
Question by:MerlaP83
1 Comment
 
LVL 14

Accepted Solution

by:
SteveBay earned 500 total points
ID: 24020379

procedure TForm1.Button1Click(Sender: TObject);
var i : Integer;
begin
     for i := 0 to ListBox1.Items.Count -1 do
          begin
          if ListBox2.Items.IndexOf(ListBox1.Items[i]) > -1 then
               ListBox2.Items.Delete(ListBox2.Items.IndexOf(ListBox1.Items[i]));
          end;
end;

Open in new window

0

Featured Post

Vote for the Most Valuable Expert

It’s time to recognize experts that go above and beyond with helpful solutions and engagement on site. Choose from the top experts in the Hall of Fame or on the right rail of your favorite topic page. Look for the blue “Nominate” button on their profile to vote.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

The uses clause is one of those things that just tends to grow and grow. Most of the time this is in the main form, as it's from this form that all others are called. If you have a big application (including many forms), the uses clause in the in…
Have you ever had your Delphi form/application just hanging while waiting for data to load? This is the article to read if you want to learn some things about adding threads for data loading in the background. First, I'll setup a general applica…
Is your data getting by on basic protection measures? In today’s climate of debilitating malware and ransomware—like WannaCry—that may not be enough. You need to establish more than basics, like a recovery plan that protects both data and endpoints.…
When cloud platforms entered the scene, users and companies jumped on board to take advantage of the many benefits, like the ability to work and connect with company information from various locations. What many didn't foresee was the increased risk…
Suggested Courses

927 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question