Teilstring suchen

[DeddyH]

Noch ein Vorschlag:

Delphi-Quellcode:

function SearchSubString(const s,              //gesuchter String
                         Sep: string;          //Trennstring
                         const sList: TStrings //Liste
                         ): integer;           //gefundene Position in der Liste
var found: Boolean;
    i: integer;
begin
  found := false;
  Result := -1;
  i := 0;
  while (i < sList.Count) and not found do
    begin
      if Copy(sList[i],1,Pos(Sep,sList[i]) - 1) = s then
        begin
          Result := i;
          found := true;
        end
      else
        inc(i);
    end;
end;