Hallo,
ich würde die Artikelnummern in zwei sortierte String-Listen (alternativ Integer-Listen) eintragen:
Delphi-Quellcode:
procedure SubtractStrings(minuend, subtrahend, difference: TStrings);
var
i: Integer;
begin
difference.Clear;
for i := 0 to Pred(minuend.Count) do
if subtrahend.IndexOf(minuend[i]) < 0 then
difference.Add(minuend[i]);
end;
Getippt und nicht getestet.
Grüße vom marabu