Und XE2 kennt bestimmt auch schon die StrUtils, sowie das Copy ohne den 3. Parameter.
Delphi-Quellcode:
if StartsStr(Prefix, Bezeichner) then
Result := Copy(Bezeichner, Length(Prefix) + 1)
else
Result := Bezeichner;
// oder
Result := Bezeichner;
if StartsStr(Prefix, Result) then
Delete(Result, 1, Length(Prefix));
Sollte es Probleme beim Prefix geben, also bei der Unterscheidung ob programmseitiges Prefix oder Namensteil des Benutzers,
dann einfach ein Zeichen als Prefix verwenden, welches man für die Benutzereingabe an dieser Stelle sperrt.