string letztes zeichen überprügen und ggf. löschen

[himitsu]

Zitat von Christian Seehase:

Andere, von Deiner abgeleitete Variante:
  while (AnsiLastChar(s) <> nil) and (AnsiLastChar(s)^ = '\') do SetLength(s,length(s)-1);

Code:

while [color=#ff0000](s <> '')[/color] and (AnsiLastChar(s)^ = '\') do SetLength(s,length(s)-1);