ExcludeTrailingPathDelimiter (carpeta)

Esta función asegura que una ruta dada (carpeta, directorio) no acabará con “\”, si existe el delimitador “\” al final de la ruta lo quitará, si no existe no hace nada.

Un ejemplo de uso de la función ExcludeTrailingPathDelimiter en Delphi:

procedure Tform1.MostrarRutaClick(Sender: TObject);
var
  ruta : string;
begin
  ruta := ExcludeTrailingPathDelimiter(txtRuta.Text));
  if DirectoryExists(ruta + '\fernando') then
    ShowMessage('La carpeta personal de Fernando Alonso existe.')
  else
    ShowMessage('La carpeta personal de Fernando Alonso no existe.');
end;
alonsojpd

alonsojpd

Presidente y fundador de Proyecto A y AjpdSoft

Deja un comentario