Anderson Silva

Tecnologia da informação pra quem gosta de TI

Instalando aplicativo no linux — 13/02/2015

Instalando aplicativo no linux

Essa duas pequenas dicas foram passados por um colega de trabalho e que ao meu ver irá facilitar para todos aqueles que precisarem por algum motivo baixar um programa e realizar uma instalação manual posteriormente.
Dica 01: Instalando o programa:
Explicação do comando:
#sudo update-alternatives –install /usr/bin/[nome do arquivo .sh] [nome ou link para o programa] [caminho completo até o programa baixado] [número para referência a instalação do programa]

Exemplo do comando para instalação do maven após ter sido realizado o download e descompactado o arquivo.
#sudo update-alternatives –install /usr/bin/mvn mvn /home/anderson/dev/apache-maven-3.2.5/bin/mvn 1

Dica 02: Configurando as versões de um software instalado
Para o caso de ter duas versões de um mesmo programa instalado.
#sudo update-alternatives –config mvn

Espero que seja útil.

Boa implementação a todos.

Esta dica chegou até mim por @joaocarlos86

Delphi – Selecionando diretório e retornando o caminho (SelectDirectory) — 03/08/2014

Delphi – Selecionando diretório e retornando o caminho (SelectDirectory)

Salve delphianos,

Resolvi postar este pequeno trecho, para que fique registrado uma forma de selecionar diretórios da forma mais independente de componente de terceiros.

A implementação abaixo é simples e foi testada na versão 7 do Delphi.

Passo 01: Adiciona FileCtrl no Uses do formulário.

Passo 02: Código de exemplo para o procedimento.

procedure TForm1.Button1Click(Sender: TObject);
var
  caminho: string;
begin
  caminho := ‘c:’;
  if SelectDirectory(caminho, [sdAllowCreate, sdPerformCreate, sdPrompt],0) then
  begin
    Label1.Caption := caminho;
  end;
end;

Considerações finais:

Este exemplo de código, assume algumas premissas. Como:

– O código será executado em um formulário chamado Form1;

– O formulário terá um Button chamado Button1;

– O formulário terá um label cujo nome é Label1;

Boa implementação a todos.

Delphi – Colocando o cursor em uma posição exata de um DBEdit ou Text — 01/11/2013

Delphi – Colocando o cursor em uma posição exata de um DBEdit ou Text

É sempre bom compartilhar pequenas funções ou comandos que ajudam no cotidiano do desenvolvedor, neste caso é um comando no delphi que permite colocar o curso em uma posição exata de um componente de texto ( DBEdit e Text ).

...
Var
  vPosicao : Integer;
begin
  dbEdit1.selstart:= vPosicao;
  // dbEdit1.selstart:= Length(dbEdit1.text);
end;
...

O que destaquei em vermelho e negrito é a posição que deseja o curso, podendo ser inclusive um contagem no próprio campo.

Boa implementação a todos.

Extraindo Dia, Mês e Ano de uma data no Delphi — 22/04/2013

Extraindo Dia, Mês e Ano de uma data no Delphi

Pequena rotina, simples como a vida deve ser que nos ajuda a extrair a partir de uma data as informações separadas de dia, mes e ano permitindo as mais diversas implementações a partir dela

procedure TForm1.Button1Click(Sender: TObject);
var
Data: TDateTime;
Ano, Mes, Dia: Word;
begin
Data:= StrToDate( <<DATETIME do Delphi>> );
DecodeDate( Data , Ano, Mes, Dia);
end;

 

Boa implementação a todos.

Delphi: Simulando a tecla TAB — 11/04/2013

Delphi: Simulando a tecla TAB

Um dia desses precisei realizar a seguinte tarefa:

Desafio: Antes de gravar os dados no banco de dados você deve ir para o próximo campo para realizar a atualização dos dados.

Pensei: Blz, vamos simular o pressionar da tecla TAB e após alguns minutos de pesquisa me deparei com um código simples e eficiente que gostaria de compartilhar com todos os leitores.

Este é o código:Self.Perform(WM_NEXTDLGCTL,0,0);

Boa implementação a todos.

Referência de um dos lugares que encontrei o código:  http://xucro.wordpress.com/2009/06/03/mudando-para-o-proximo-campo-automaticamente-em-delphi/

Quick Report – Formatação monetária em TQRExpr — 14/03/2013
Pesquisando com LOCATE em ADO ou BDE — 07/10/2012

Pesquisando com LOCATE em ADO ou BDE

Para utilizar o recurso de pesquisa por dados de campos já carregados em memória. Ex. DBGrid.

Para pesquisar por apenas um campo:

TAcesso.Locate(‘Usuario’, TUsuariosCodigo.value),[]);

Para pesquisar por mais de um campo, a estratégia é utilizar um Array como no exemplo abaixo.

IMPORTANTE!!! Deverá ser adicionada na cláusula Uses do Forma a Classe Variants;

TAcesso.Locate(‘Usuario;Modulo’, varArrayOf([TUsuariosCodigo.value,TModulosCodigo.Value]),[])

Boa sorte a todos…

Função para adicionar caractere à esquerda e à direita de outra string — 15/08/2011

Função para adicionar caractere à esquerda e à direita de outra string

Pequenas e úteis funções para o dia-a-dia do desenvolvedor

Estas funções serão bastante úteis quando for necessário a implementação de arquivos textos que exigem complementos com espaços ou caracteres para complementar arquivo texto.
function strAdicionaEsquerda(const S: string; C: Char; Len: Integer): string;
begin
  Result := copy(S, 1, Len);
  while Length(Result) < Len do
    Result := Result + C;
end;

function strAdicionaDireita(const S: string; C: Char; Len: Integer): string;
begin
  Result := copy(S, 1, Len);
  while Length(Result) < Len do
    Result := C + Result;
end;

Boa implementação a todos…