Teilstrings aus String herausfiltern.

[Aurelius]

Ich bin da bis jetzt auf Das TPerlRegEx gestoßen. Gibts dafür deutsche tuts?

@Reinhardtinho: Ich hab das mal schnell gemacht aber es funktioniert so nicht. Die "Liste" enthält nur 1 Element...

Delphi-Quellcode:

procedure TForm1.Edit1Change(Sender: TObject);
var Liste : tsarray;
    i, u : integer;
    boola : bool;
begin
  Listbox2.Clear;
  for i := 0 to 3 do
  begin
    Boola := TRUE;
    Liste := GetSubstrings(Listbox1.Items.Strings[i],Char(' '));
    Label1.Caption := InttoStr(High(liste));
    for u := 0 to high(Liste) do
     if not ansicontainstext(Listbox1.Items.Strings[i],Liste[u]) then
      Boola := FALSE;
    if Boola then
      Listbox2.Items.Add(Listbox1.Items.Strings[i])
  end;
end;