zeichen beim errechnen nicht beachten

[DeddyH]

So sollte es gehen:

Delphi-Quellcode:

const aStr = 'davor ^5Hallo';
var s: string;
begin
  s := Copy(aStr,1,Pos('^',aStr) - 1);
  s := s + Copy(aStr,Pos('^',aStr) + 2,Length(aStr));
  ShowMessage(s);
end;

[edit] Oder gleich als Funktion:

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);
const aStr = 'Aber ^5Hallo';
var s: string;
begin
  s := RestString(aStr,'^',1);
  ShowMessage(s);
end;

[/edit]