Pos funktion

[Pseudemys Nelsoni]

hi, ich schreibe gerade gerade eine pos funktion (falls ich die vcl mal nicht mitverwenden möchte)...

ich weiss das es wohl nich die beste möglichkeit ist, aber hauptsache es funktioniert...

Delphi-Quellcode:

function pos(sub, s: string; const cs: boolean = false): integer;
var
  tmp, sublen: string;
  idx: integer;
begin
  result := 0; idx := 0;
  if (sub <> '') and (s <> '') then
    while ((length(s) >= length(sub))) and (result = 0) do
    begin
      sublen := length(sub);
      setstring(tmp, pchar(s), sublen);
      inc(idx);
      if ((cs) and (lstrcmp(pchar(tmp), pchar(sub)) = 0)) or
         ((not cs) and (lstrcmpi(pchar(tmp), pchar(sub)) = 0)) then
      begin
        result := idx;
        exit;
      end;
      //hier "s[1]" löschen
    end;
end;

kann mir jemand sagen wie ich einen bestimmtem teil eines strings lösche (siehe kommentar) ?