Ausschneiden mit Delete

[Kompon Ente]

Schaps!

Delphi-Quellcode:

  if not ((Ord(s[1])>=48) and (Ord(s[1])<=57)) the
  begin
    if pos('http=',s) > 0 then
    begin
      Delete(s,1,pos('http=',s)-1);
      s := copy(s,6,pos(';',s)-6);
    end
    else
      MessageDlg('Kein HTTP-Proxy eingetragen!',mtInformation,[mbOk],0);
  end;