Tut der folgende Code auch ohne Pos nicht das gleiche?
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var MeinString: String;
begin
MeinString := 'Text\';
if MeinString[length(MeinString)] = '\'
then Delete(MeinString, length(MeinString), 1);
showmessage(MeinString);
end;
Man überprüfe das letzte Zeichen und lösche es ggf..