Zitat von
Klaus01:
Ansonsten mit delete arbeiten. length bekommst Du die Stringlänge.
procedure Delete(var S: string; Index, Count:Integer);
delete(AString,length(AString)-4,4)
Grüße
Klaus
Falsch.
Um die letzten 4 Zeichen eines Strings zu löschen, benötigst du folgenden Code:
Delete(s, Length(s)-3, 4);