Letztes Zeichen eines String ermitteln

[axelf98]

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..