Das letzte Zeichen eines Strings ermitteln

[S2B]

Mit diesem Code kann man das letzte Zeichen eines Strings ermitteln:

Delphi-Quellcode:

var s: String;
begin
  Label1.Caption:=copy(s,Length(s)-1,0);
end;

Das kann man z.B. dazu verwenden, um einen Pfad um ein fehlendes "\" am Schluss zu ergänzen:
if copy(s,Length(s)-1,0)<>'\' then s:=s + '\'; Edit: Ohne Worte!