Delphi.pdf


Aperçu du fichier PDF delphi.pdf - page 4/306

Page 1 2 3 456306


Aperçu texte


Explorar unidades y directorios

Si importante es controlar el manejo de archivos no menos importante es el
saber moverse por las unidades de disco y los directorios.
Veamos que tenemos Delphi para estos menesteres:
function CreateDir( const Dir: string ): Boolean;
Esta función crea un nuevo directorio en la ruta indicada por Dir. Devuelve
True o False dependiendo si ha podido crearlo o no. El único inconveniente
que tiene esta función es que deben existir los directorios padres. Por
ejemplo:

CreateDir( 'C:\prueba' )
devuelve True
CreateDir( 'C:\prueba\documentos' )
devuelve True
CreateDir( 'C:\otraprueba\documentos' ) devuelve False (y no lo crea)

function ForceDirectories( Dir: string ): Boolean;
Esta función es similar a CreateDir salvo que también crea toda la ruta de
directorios padres.
ForceDirectories( 'C:\prueba' )
devuelve True
ForceDirectories( 'C:\prueba\documentos' )
devuelve True
ForceDirectories( 'C:\otraprueba\documentos' ) devuelve True

procedure ChDir( const S: string ); overload;
Este procedimiento cambia el directorio actual al indicado por el parámetro
S. Por ejemplo:
ChDir( 'C:\Windows\Fonts' );

function GetCurrentDir: string;
Nos devuelve el nombre del directorio actual donde estamos posicionados. Por
ejemplo:
GetCurrentDir devuelve C:\Windows\Fonts

function SetCurrentDir( const Dir: string ): Boolean;
Establece el directorio actual devolviendo True si lo ha conseguido. Por
ejemplo:
SetCurrentDir( 'C:\Windows\Java' );

procedure GetDir( D: Byte; var S: string );