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:
|
1 2 3 4 5 6 7 8 9 10 |
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; |
