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