Pages

sábado, 14 de janeiro de 2012

Mover arquivos com Delphi

Mover arquivos com o delphi é bem simples, basta você usar a função copyFile().

Como utilizar:
copyFile( 'LOCAL DO ARQUIVO', 'ONDE', CONDIÇÃO BOOLEANA );

Exemplo:

copyFile( Pchar( ' C:\arquivo.exe '), PChar( 'D:\aqueleArquivo.exe'  ), true );

FALSE se o arquivo já existir então retorna falso.
TRUE se o arquivo existir então substitui o arquivo e retorna verdadeiro.

Função para uso:

function copiarArquivo(origem, destino: String; subs: Boolean): Boolean;
begin
    result:= copyFile( Pchar(origem), Pchar(destino), subs ) ;
end;

sábado, 2 de julho de 2011

Utilizando banco de dados - Parte 1

A partir de hoje irei começar uma série de tutoriais utilizando banco de dados. Tabelas criadas a partir do DataBase Desktop, em paradox 7.

Criando tabelas
Primeiro abra o aplicativo Database Desktop "Iniciar > Todos os programas > Borland Delphi 7 ".
Imagem 1.0
Uma janela igual à imagem acima abrirá. Agora vá em "File > New > Table". Abrirá a seguinte janela:
Imagem 1.1
Apenas clique em "OK", pois nosso banco de dados será em Paradox 7. A seguinte janela abrirá:
Imagem 1.2
Agora criaremos os campos do cadastro. Vamos supor que é um sistema para uma livraria e vamos controlar o estoque de livros. Então teremos os campos "código", "Nome do livro", "Autor", "Editora", "Quantidade".


 * Codigo
 * Nome_do_Livro
 * Autor
 * Editora
 * Quantidade


Após criar os campos, salve a tabela "Salve As...". Você pode salvar em "C:\Tutorial\" com o nome de "livros". Assim fica mais fácil de continuar acompanhando o tutorial.

Agora vamos para o Delphi.
Crie uma nova aplicação e salve-a. Coloco apenas um TButton e crie outro Form "File > New > Form". No segundo form cria uma interface parecida com a da imagem:


Legenda:
   1 - Estes 2 componentes estão na palheta "Data Controls", são eles "DBNavigator" e "DBGrid".
   2 - Fica na palheta "Data Access", o nome é "Data Source".
   3 - O componente "Table" fica na palheta "BDE".
   4 - 5 TEdit.
   5 - TBitBtn fica na palheta additional.

 * Deixe os nomes originais. *

Na proxima aula continuando o artigo... aguarde...

 

terça-feira, 7 de junho de 2011

fazendo um TEdit aceitar apenas números/letras

Para fazer o TEdit aceitar apenas letras ou apenas números coloque o seguinte código:

Aceitar apenas números:

if not (Key in['0'..'9',Chr(8)]) then
begin
Key := #0;
end;


Aceitar apenas letras:

if (Key in['0'..'9',Chr(8)]) and (Key #13) and (Key #8) then



begin
  Key := #0;
end;


Coloque o código no evento OnKeyPress do TEdit.

Extrair nome, local da aplicação e EXT

Para pegar o nome:

ExtractFileName(Application.ExeName);

Para pegar o caminho:

ExtractFilePath(Application.ExeName);

Para pegar a Ext:

ExtractFileExt(Application.ExeName);


Utilizando na pratica.

Novidade

Agora é muito mais fácil acessar o blog: http://www.delphisource.com.br/