zeichen beim errechnen nicht beachten

[DeddyH]

Also, ich habe das gerade mal getestet:

Delphi-Quellcode:

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

procedure TForm1.Button1Click(Sender: TObject);
var s: string;
begin
  s := RestString(Edit1.Text,'^',1);  //im Edit steht 'Aber ^5Hallo'
  ShowMessage(s);
end;