Strings durchsuchen

[Poring]

Huhu,

ich wollte zwei Strings durchsuchen. Im ersten hat man zb. alle Suchbegriffe die es gibt (Test, Test2, Test3 zb). Der zweite den Begriff nachdem man suchen möchte.
Wenn man also nach Tes sucht sollen alle Begriffe die Tes enthalten angezeigt werde.
Ich hatte hier auch schonmal was gefunden:

Delphi-Quellcode:

type
  TsArray = Array of String;

function GetSubStrings(AString: String; Delimiter: Char) : TsArray;
var
  i: Integer;
begin
  SetLength(result, 0);

  i := 0;

  while (Pos(Delimiter, aString) <> 0) do
  begin
    SetLength(Result, i+1);
    Result[i] := Copy(aString, 0, Pos(Delimiter, aString) - 1);
    Delete(aString, 1, Pos(Delimiter, aString));
    inc(i);
  end;

  if (Length(aString) <> 0) then
  begin
    SetLength(Result, i+1);
    Result[i] := aString;
  end;
end;

Nur das Problem: Es geht eben nur mit einem Char. Änder ich Delimiter in ein String um geht dies alles trozdem nicht.
Nun die Frage:
Wie kann ich die suche so umstrukturieren das sie in beiden Strings sucht?

Noch zur Info: Den Suchbegriff gibt man in einem Editfeld ein, und der andere String wo alles enthalten ist, kann entweder nur so ein String sein, ein Memofeld, eine Listbox - eigentlich egal was, es sollte eben nur funktionieren.
(Komplizierter könnte mans nich beschreiben ...)

Vielen Dank schonmal!

Mfg

[Noobinator]

was du suchst, ist ein Suchalgorithmus, und davon gibt es mehrere.


Boyer Moore

[Poring]

Ok danke.
Ich habe es nun mit einer Suche in einer Listbox realisiert.

[Noobinator]

Poste mal bitte deinen Code zu dem Such Algorithmus.

Irgendwie kann ich mir deine Listbox - Antwort nicht vorstellen o.O