Welche gesuchte Zeichenfolge wird als erste gefunden ?

[DeddyH]

Sehr gute Idee, man darf dann nur nicht vergessen, den String nach dem ersten Treffer entsprechend zu verkleinern.

[edit] Ungetestet:

Delphi-Quellcode:

function MinPos(s: string; Patterns: array of string): integer;
var
  i, CurPos: integer;
begin
  if Length(Patterns) > 0 then
    begin
      Result := MAXINT;
      for i := Low(Patterns) to High(Patterns) do
        begin
          CurPos := Pos(Patterns[i], s);
          if (CurPos < Result) and (CurPos > 0) then
            begin
              Result := CurPos;
              Delete(s, CurPos, MAXINT); //evtl. geht SetLength etwas schneller, müsste man ausprobieren
            end;
        end;
    end
  else
    Result := 0;
end;

[/edit]