Mep Sites: Dicas de Delphi - Adiciona uma barra invertida ao final de uma string

Adiciona a barra invertida a um texto selecionado, somente se não tiver. Ideal para colocar nos nomes de pastas e ter certeza de que serão retornados com a barra, para evitar possíveis erros ao manipular nomes de arquivos.

function AddBarra(S: string): string;
var
Temp: string;
begin
Temp := S;
if S[Length(Temp)] <> '\' then
Temp := Temp + '\';
Result := Temp;
end;