In einer URL an den zweiten Punkt kommen

[Matze]

So wär's einfacher:

Delphi-Quellcode:

function PosPunkt(s: string, Anzahl: integer): integer;
var i, Count: integer;
begin
  Count := 0;
  for i := 1 to Length(s) do
  begin
    if s[i] = '.' then inc(Count);
    if Count = Anzahl then Result := i;
  end;
end;

Aber das spielt ja nun auch keine Rolle.