Such' Dir was aus:
Delphi-Quellcode:
Delete(Str, Length(Str), 1);
str := LeftStr(Str, Length(Str)-1);
str := Copy(str, 1, Length(Str)-1);
SetLength(str, Length(Str)-1);
Und wenn es ein ShortString ist, geht auch:
Str[0] := AnsiChar(Byte(Str[0])-1);
Aber das will man nicht wirklich, zumal es bei normalen Strings zu Laufzeitfehlern führt.
Und ich habe bestimmt noch Möglichkeiten vergessen.