Prüfen ob Wörter in einem String vorkommen, Reihenfolge egal

[lume96]

Zitat von Sharky:

Hai Gambit,

mit den Schlüsselwörtern von mir hätte es eigentlich gehen sollen
Hier mal mein Versuch:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  str1 : String;
  str2 : String;
  sl   : TStringList;
  ndx  : Integer;
  okay : Boolean;
begin
  str1 := 'Otto Harfe spielt gern';
  str2 := 'Otto spielt gern Harfe am Wochenende';
  okay := False;
  sl := TStringList.Create;
  try
    sl.Delimiter := ' ';
    sl.DelimitedText := str1;
    for ndx := 0 to pred (sl.Count) do
    begin
      okay := Pos (sl.Strings[ndx],str2) > 0;  // Wort ist vorhanden
      if not (okay) then
      begin
        break;
      end;
    end;
  finally
    FreeAndNil (sl);
  end;
  if (okay) then
  begin
    ShowMessage ('Alle Wörter gefunden');
  end
  else
  begin
    ShowMessage ('Nicht alle Wörter gefunden');
  end;
end;

Dann würd ich doch einfach Sharkys Code von oben benutzen (habs noch mal gequoted) und

folgende Stelle

Delphi-Quellcode:

  try
    sl.Delimiter := ' ';
    sl.DelimitedText := str1;
    for ndx := 0 to pred (sl.Count) do
    begin

wie folgt erstetzen

Delphi-Quellcode:

  try
    SplitTextIntoWords(DeineString,s1); // Aus dem Swiss-Center
//    sl.Delimiter := ' ';
//    sl.DelimitedText := str1;
    for ndx := 0 to pred (sl.Count) do
    begin

Hoffe, dass das so klappt.

MfG
Lutz