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!
