• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 287
  • Last Modified:

Comparing Stringlist Items

I create two stringlist to hold file names from two different drives. I want to compare all the entries in one to the entries in the other. If entries from the first do not exist in the other, then I want to copy the missing entry to a listbox. How do I do this?
0
evansj
Asked:
evansj
  • 2
1 Solution
 
EpsylonCommented:
This example uses 3 listboxes. 2 provide the input (the names from the 2 drives) and 1 for the result of the compare. Instead of the first 2 listboxes items you can pass 2 stringlist.


procedure TForm1.CompareLists(list1, list2, reslist: TStrings);
var i: Integer;
begin
  for i := 0 to list1.Count -1 do
  begin
    if list2.IndexOf(list1.Strings[i]) = -1 then
      reslist.Add(list1.Strings[i]);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  CompareLists(ListBox1.Items, ListBox2.Items, ListBox3.Items);
end;
0
 
EpsylonCommented:
Did you get it to work?
0

Featured Post

Important Lessons on Recovering from Petya

In their most recent webinar, Skyport Systems explores ways to isolate and protect critical databases to keep the core of your company safe from harm.

  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now