IOUtils Delphi 2010 - Parte III

Olá galera, nesta Quick Tips, irei continuar a mostrar a nova Unit IOUtils do Delphi 2010, algumas funções mais utilizadas que temos nela.

Vamos começar pelo Record TFile, vamos criar uma variável Arquivo do tipo string para podermos trabalhar com um único caminho

Create

Descrição: Podemos criar um determinado arquivo, com uma extensão específica, e num diretório desejado.

Exemplo:

procedure TFrmPrincipal.ToolButton1Click(Sender: TObject);

Var

xFile : TFile;

Arquivo : String;

begin

Arquivo := 'd:\devmedia\arquivo.txt';

xFile.Create(Arquivo);

end;

Copy

Descrição: Podemos fazer uma cópia de qualquer tipo de arquivo utilizando este método

Exemplo:

procedure TFrmPrincipal.ToolButton2Click(Sender: TObject);

Var

xFile : TFile;

Arquivo : String;

begin

Arquivo := 'd:\devmedia\arquivo.txt';

xFile.Copy(Arquivo, 'd:\arquivo.txt');

end;

Delete

Descrição: Podemos excluir qualquer arquivo utilizando este método.

Exemplo:

procedure TFrmPrincipal.ToolButton3Click(Sender: TObject);

Var

xFile : TFile;

Arquivo : String;

begin

Arquivo := 'd:\devmedia\arquivo.txt';

xFile.Delete(Arquivo);

end;

Exists

Descrição: Podemos verificar se um determinado arquivo existe utilizando este método.

Exemplo:

procedure TFrmPrincipal.ToolButton4Click(Sender: TObject);

Var

xFile : TFile;

Arquivo : String;

begin

Arquivo := 'd:\devmedia\arquivo.txt';

if xFile.Exists(Arquivo) then

ShowMessage('arquivo existe')

else

ShowMessage('Arquivo não encontrado');

end;

Move

Descrição: Podemos mover um determinado arquivo para um diretório específico utilizando este método.

Exemplo:

procedure TFrmPrincipal.ToolButton5Click(Sender: TObject);

Var

xFile : TFile;

Arquivo : String;

begin

Arquivo := 'd:\devmedia\arquivo.txt';

xFile.Move(Arquivo, 'd:\arquivo.txt');

end;

Replace

Descrição: Podemos sobrescrever um determinado arquivo, e ainda fazer um backup do mesmo em outro diretório para efeito de backup como o próprio nome já diz.

Exemplo:

procedure TFrmPrincipal.ToolButton6Click(Sender: TObject);

Var

xFile : TFile;

Arquivo : String;

begin

Arquivo := 'd:\devmedia\arquivo.txt';

xFile.Replace(Arquivo, 'd:\arquivo.txt','d:\arquivobkp.txt');

end;

Decrypt

Descrição: Podemos decriptar um determinado arquivo.

Exemplo:

procedure TFrmPrincipal.ToolButton6Click(Sender: TObject);

Var

xFile : TFile;

Arquivo : String;

begin

Arquivo := 'd:\devmedia\arquivo.txt';

xFile.Decrypt(Arquivo);

end;

Encrypt

Descrição: Podemos encriptar um determinado arquivo

Exemplo:

procedure TFrmPrincipal.ToolButton6Click(Sender: TObject);

Var

xFile : TFile;

Arquivo : String;

begin

Arquivo := 'd:\devmedia\arquivo.txt';

xFile.Encrypt(Arquivo);

end;

Fico por aqui ate à próxima Quick Tips.

Um abraço

Wesley Y

wyamazack@rwsolution.com.br