Feststellen ob eine Menge in einer anderen vorkommt

[alzaimar]

Es handelt sich bei der Problemstellung des Fragestellers doch nicht notwendigerweise um Mengen im Sinne des Datentyps 'Set' von Delphi, sondern eher um Listen. Also müsste man eine Routine schreiben, die prüft, ob zwei Listen irgendwelche gemeinsamen Elemente beinhalten.

Selbst wenn man die Frage nach den Namen über Delphi-Mengen ('Set') abbildet, stößt man bei mehr als 255 Namen an die Grenze, insofern ist die Lösung nicht allgemeingültig.

Ich würde hier zunächst vorschlagen, die Namen in Stringlisten zu halten und die Prüfung über die 'IndexOf'-Methode zu bewerkstelligen:

Delphi-Quellcode:

Function ContainsElements (slA, slB : TStringList) : Boolean;
Var
  i : Integer;

Begin
  For i:=0 to slA.Count-1 Do 
    if slB.indexOf (slA[i]) Then Begin
      Result := True;
      Exit;
    End;
  Result := False;
End;

Keine Frage: Eine kompakte aber nicht sonderlich effiziente Implementierung. Optimierungspotential: Listen sortieren und durch die kürzere der beiden Listen iterieren.