zeichen beim errechnen nicht beachten

[DeddyH]

Versuch es mal so:

Delphi-Quellcode:

function RestString(const aStr: string;//Eingabestring
                    needle: char; //das gesuchte Zeichen
                    CountTrailing: integer //Anzahl der zu löschenden Nachfolgezeichen
                    ): string;
var iPos: integer;
begin
  iPos := Pos(needle,aStr);
  if iPos = 0 then
    Result := aStr
  else
    begin
      Result := Copy(aStr,1,iPos - 1);
      Result := Result + Copy(aStr,iPos + Succ(CountTrailing),Length(aStr));
    end;
end;