Teilstring suchen

[DeddyH]

Dann eben so:

Delphi-Quellcode:

type DynArr = array of integer;

procedure SearchSubString(const s,                //gesuchter String
                          Sep: string;            //Trennstring
                          const sList: TStrings;  //Liste
                          var ResultArr: DynArr); //dynamisches Array nimmt Trefferpositionen auf
var i: integer;
begin
  SetLength(ResultArr,0);
  i := 0;
  while (i < sList.Count) do
    begin
      if Copy(sList[i],1,Pos(Sep,sList[i]) - 1) = s then
        begin
          SetLength(ResultArr,Length(ResultArr) + 1);
          ResultArr[High(ResultArr)] := i;
        end;
      inc(i);
    end;
end;

[edit] Achja:if Pos(s, ItemStr) > 0 then findet den Suchstring auch mittendrin, ob das so gewollt ist? [/edit]