Teilstring suchen

[DeddyH]

Wenn Du die Funktion aus meinem letzten Posting nimmst (die ist noch nicht optimal, funktioniert aber), könntest Du das z.B. so machen:

Delphi-Quellcode:

procedure TForm5.Button1Click(Sender: TObject);
var Results: TDynIntArr;
    i: integer;
begin
  ListBox1.ClearSelection;
  SearchSubString(Edit1.Text,'#',ListBox1.Items,Results,[]);
  for i := 0 to High(Results) do
    ListBox1.Selected[Results[i]] := true;
  SetLength(Results,0);
end;