Thema: Delphi Strings durchsuchen

Einzelnen Beitrag anzeigen

Poring

Registriert seit: 7. Nov 2007
104 Beiträge
 
#1

Strings durchsuchen

  Alt 2. Feb 2008, 11:39
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
  Mit Zitat antworten Zitat