String durchsuchen???

[romber]

Hallo!

Ich möchte einen Memo-Feld auf mehrere Strings durchsuchen und zwar so, daß man in eine TEdit-Feld kommagetrennt mehrere Wörter eingibt und dann auf "Suchen" klickt. Wenn wenigstens ein Wort davon im Memo vorkommt, wird eine bestimmte Erreignis ausgrführt. Hört sich relativ einfach an, mann trennt die Strings, dann kann mann ja immer if..or..then verwenden wenn man genau weiß, auf wieviele Wörter durchgesucht werden soll

Delphi-Quellcode:

...
if (pos('Wort1', Memo1.Text) > 0) or (pos('Wort2', Memo.Text) > 0) or (pos('Wort3', Memo.Text) > 0) or ... then
//Irgendwas machen

Aber wie definiere ich das, wenn ich nicht weiß, auf wieviele String durchgesucht werden soll? Wie würdet ihr das machen?

[Dax]

Delphi-Quellcode:

function Search(Source, Words: string): Boolean;
var
  strings: array of String;
  i: Integer;
begin
  Result := false;
  strings := (Words trennen);
  for i := 0 to High(strings) do
  begin
    Result := Result or (Pos(strings[i], Source) <> 0);
    if Result then Break; 
  end;
end;

Untested
edit: Ein wenig verschnelltert

[romber]

Wow, das ist aber eine Blitz-Reaktion! Danke!

Zitat von Dax:

Delphi-Quellcode:

function Search(Source, Words: string): Boolean;
...
strings := (Words trennen);
...

Hier eifach durch Komma getrennte Strings eingeben oder wie?

[Dax]

Du kannst Words als auch array of string deklarieren und gleich deine ganzen Wörter übergeben. Wenn du's aber so lässt, musst du den Words-String erst noch trennen, z.B. mit Explode.

[romber]

Danke! Es klappt!