Como usar a propriedade Eof para verificar se estamos no último registro do TClientDataSet

*Fonte Arquivo de Códigos

Em algumas situações gostaríamos de verificar se já estamos no último registro do TClientDataSet, ou seja, estamos percorrendo todos os registros do dataset e queremos saber se já estamos no último. Para isso podemos usar a propriedade Eof da classe TClientDataSet. Esta propriedade retorna true se estivermos no último registro e false em caso contrário.

Veja um trecho de código no qual usamos um laço while para percorrer todos os registros de um TClientDataSet. Note o uso da propriedade Eof para finalizar as iterações do laço:

procedure TForm3.Button4Click(Sender: TObject);

begin

  // vamos percorrer todos os registros do TClientDataSet

  ClientDataSet1.First; // vamos para o primeiro registro

  // e agora disparamos um laço While

  while not ClientDataSet1.Eof do

    begin

      // vamos mostrar em um TMemo os valores do

      // campo id de cada registro

      Memo1.Lines.Add(ClientDataSet1.FieldByName('id').AsString);

      // vamos mover para o próximo registro

      ClientDataSet1.Next;

    end;

end;

A propriedade Eof é verdadeira quando:

a) Abrimos um dataset vazio. 

b) Efetuamos uma chamada ao método Last do dataset.

c) Chamamos o método Next do dataset e a chamada falha porque o registro atual já é o último registro no dataset.

d) Efetuamos uma chamada ao método SetRange em uma faixa de dados ou dataset vazio.

Como obter o número do registro atual em um TClientDataSet

*Fonte Arquivo de Código

Em algumas situações gostaríamos de obter o número do registro atual enquanto navegamos pelos registros de um TClientDataSet. Isso pode ser feito por meio da propriedade RecNo (implementada na classe TDataSet e reimplementada na classe TClientDataSet). O retorno da propriedade é sempre um valor inteiro representando o registro atual. Na implementação da classe TClientDataSet, esta propriedade retorna o valor -1 se o componente estiver no estado (State) dsInsert (um novo registro estiver sendo inserido).

Veja um trecho de código no qual usamos o evento OnClick de um botão para exibir o número do registro atual em um TClientDataSet: 

procedure TForm3.Button3Click(Sender: TObject);

var

  nRegistro: Integer;

begin

  // obtém o número do registro atual no TClientDataSet

  nRegistro := ClientDataSet1.RecNo;

  // mostra o resultado

  ShowMessage('O número do registro atual é: ' + IntToStr(nRegistro));

end;

Ao executar o código e clicar no botão você verá uma mensagem parecida com:

"O número do registro atual é: 5".

Esta dica foi escrita e testada no Delphi 2009.

Aprenda a usar a propriedade Active da classe TClientDataSet

*Fonte Arquivo de Códigos

A propriedade Active de um controle TClientDataSet pode ser definida em tempo de design (pelo Object Inspector) ou em tempo de execução. Se o valor for True os dados armazenados no TClientDataSet podem ser lidos e manipulados. Se o valor for False, o client dataset está fechado (closed) e não podemos acessar nem manipular os dados contidos nele.

Veja no trecho de código abaixo como definir o valor da propriedade Active em tempo de execução:

procedure TForm3.Button3Click(Sender: TObject);

begin

  // vamos ativar o client dataset

  ClientDataSet1.Active := True;

  // vamos testar se o client dataset foi mesmo ativado

  if ClientDataSet1.Active then

    ShowMessage('O ClientDataSet está ativo')

  else

    ShowMessage('O ClientDataSet  NÃO está ativo')

end;

Ao clicar no botão nós "ativamos" o client dataset e em seguida testamos o valor da propriedade Active para informar se o controle foi realmente ativado. É preciso ter muito cuidado. Tentar manipular os dados de um client dataset fechado pode resultar em uma exceção do tipo EDatabaseError com mensagens parecidas com:

Project Projeto.exe raised exception class EDatabaseError with message 'ClientDataSet1: Cannot perform this operation on a closed dataset'.

Ao definirmos o valor True para a propriedade Active as seguintes ações ocorrem:

1) O client dataset é preenchido com dados. Dependendo das propriedades do controle, estes dados podem vir de três formas diferentes: a) Do arquivo especificado na propriedade FileName; b) Do provider especificado na propriedade ProviderName ou por meio do método SetProvider. (algumas classes derivadas de TCustomClientDataSet possuem um componente interno que faz o papel do provider); c) Os dados que estavam ativos quando o client dataset foi desativado (somente se a aplicação foi executada durante um certo período depois que o dataset foi desativado).

2) O evento BeforeOpen é disparado. 

3) O valor dsBrowse é atribuído à propriedade State do dataset. 

4) Abre e posiciona um cursor no primeiro registro do conjunto de dados.

5) Dispara o evento AfterOpen. 

Se o client dataset nunca foi ativado, atribuir o valor True para a propriedade Active faz com que a estrutura (metadata) do client dataset seja definida. Esta estrutura é obtida juntamente com o pacote de dados a partir do provider ou armazenado em disco. Se não houver pacote de dados, tal estrutura é construída usando o valor atual da propriedade FieldDefs ou a partir dos componentes de campos persistentes listados na propriedade Fields.

Se um erro ocorrer durante a abertura do dataset, seu estado (State) é definido como dsInactive e o cursor de navegação é fechado.

Ao definirmos o valor False para a propriedade Active as seguintes ações ocorrem:

1) O evento BeforeClose é disparado. 

2) O valor para a propriedade State é definido como dsInactive. 

3) O cursor de navegação é fechado, salvando os dados atuais em disco se a propriedade FileName estiver definida e salvando o pacote de dados atual em cache de forma que o mesmo possa ser restaurado mais tarde quando o dataset for reaberto.

4) O evento AfterClose é disparado. 

Importante: Uma chamada ao método Open do TClientDataSet define a propriedade Active como True, enquanto uma chamada ao método Close a define como False.

Esta dica foi escrita e testada no Delphi 2009.

Efetuando cálculos de porcentagem em Delphi

*Fonte Arquivo de Fontes

Cálculos de porcentagens estão presentes em boa parte das aplicações que desenvolvemos. Porém, há momentos em que a mente trava e não conseguimos lembrar com clareza como estes cálculos são feitos, principalmente em Delphi.

Esta anotação tem o objetivo de ser uma fonte de pesquisa para os momentos em que suas habilidades matemáticas insistirem em continuar ocultas.

Ex: 1 - Suponhamos que um produto que custe R$ 178,00 sofra um acréscimo de 15%. Qual o valor final do produto? Veja o código em Delphi: 

procedure TForm1.Button1Click(Sender: TObject);

var

  valor, percentual, valor_final: double;

begin

  valor := 178.00; // valor original

  percentual := 15.0 / 100.0; // 15%

  valor_final := valor + (percentual * valor);

  ShowMessage('O valor final do produto é: ' +

    FloatToStr(valor_final));

  // O resultado será 204,70

end;

Ex: 2 - Um produto, cujo valor original era de R$ 250,00, teve um desconto de 8%. Qual foi seu valor final? Veja o código em Delphi:

procedure TForm1.Button1Click(Sender: TObject);

var

  valor, percentual, valor_final: double;

begin

  valor := 250.00; // valor original

  percentual := 8.0 / 100.0; // 8%

  valor_final := valor - (percentual * valor);

  ShowMessage('O valor final do produto é: ' +

    FloatToStr(valor_final));

  // O resultado será 230,00

end;

Ex: 3 - Em um concurso de perguntas e respostas, um jovem acertou 72 das 90 perguntas apresentadas. Qual foi a porcentagem de acertos? E a porcentagem de erros? Veja o código em Delphi: 

procedure TForm1.Button1Click(Sender: TObject);

var

  perguntas, acertos: double;

begin

  perguntas := 90.0;

  acertos := 72.0;

  ShowMessage('Porcentagem de acertos: ' +

    FloatToStr(((acertos / perguntas) * 100)) + '%');

  ShowMessage('Porcentagem de erros: ' +

    FloatToStr((((perguntas - acertos) / perguntas) * 100)) + '%');

  // Os resultados serão 80% e 20%

end;

Ex: 4 - Um aparelho de CD foi adquirido por R$ 300,00 e revendido por R$ 240,00. Qual foi a porcentagem de lucro na transação? Veja o código em Delphi:

procedure TForm1.Button1Click(Sender: TObject);

var

  v_ant, v_nov, p_lucro: double;

begin

  v_ant := 300.0; // valor anterior

  v_nov := 340.0; // valor novo

  p_lucro := 0.0; // porcentagem de lucro

  while(v_ant + ((p_lucro / 100.0) * v_ant) < v_nov) do

    begin

      p_lucro := p_lucro + 0.1;

    end;

  ShowMessage('A porcentagem de lucro foi de: ' +

    FloatToStr(p_lucro) + '%');

  // O resultado será 13,39

end;

Ex: 5 - Uma loja repassa 5% do lucro a seus vendedores. Se um produto custa R$ 70,00, qual o valor em reais repassado a um determinado vendedor? Veja o código em Delphi: 

procedure TForm1.Button1Click(Sender: TObject);

var

  valor, porcent, comissao: double;

begin

  valor := 70.0; // valor do produto

  porcent := 5.0 / 100.0; // 5%

  comissao := porcent * valor;

  ShowMessage('O valor repassado ao vendedor é: ' +

    FloatToStr(comissao));

  // O resultado será 3,5

end;

Para questões de compatibilidade, esta dica foi escrita usando Delphi 2009.

Como efetuar uma conexão Delphi 7 + dbExpress + Firebird

*Fonte Arquivo de Códigos

Então você pretende desenvolver aplicações de bancos de dados usando o Delphi 7 + Firebird? O primeiro passo é aprender a fazer a conexão entre o Delphi e o banco de dados. Para esta dica estou usando o Delphi 7 e o Firebird 2.5. Usarei também os componentes da aba dbExpress. Para começar, certifique-se de que sua instalação do Delphi está funcionando corretamente. Verifique também se o Firebird está ativo e pronto para receber requisições.

Para efetuar a conexão, siga atentamente os passos a seguir:

a) Vá até a aba dbExpress e arraste um componente TSQLConnection para seu formulário. Em seguida ajuste o valor da propriedade ConnectionName para "IBConnection". Ajuste LoginPrompt para "False". Isso evitará que o programa exiba a tela de login para a inserção da senha a cada execução do programa.

b) Clique no botão ao lado da propriedade Params para exibir o Value List editor. Nesta janela vamos fornecer o nome e local da base de dados. Assim, ajuste o valor da propriedade Database para "C:\Firebird_2_5\dados\ESTUDOS.FDB" ou algo parecido no seu sistema. Ajuste o nome de usuário e senha se você não estiver usando os valores padrões. Clique Ok e feche o Value List editor.

c) Hora de testar a conexão. Para isso, ajuste a propriedade Connected do TSQLConnection para "True". Se tudo correu bem, a mudança do valor da propriedade ocorrerá sem qualquer problema. Se houver alguma mensagem de erro, refaça os passos anteriores.

Obtida a conexão com o banco de dados, é hora de disparar um comando SQL. Para isso arraste um componente TSQLDataSet e ajuste sua propriedade SQLConnection para o componente TSQLConnection. Arraste um componente TMemo para o formulário e, em seguida, coloque o código abaixo no evento Click de um botão:

procedure TForm1.Button1Click(Sender: TObject);

begin

  // vamos fechar o SQLDataSet

  SQLDataSet1.Close;

  // vamos definir o tipo de comando

  SQLDataSet1.CommandType := ctQuery;

  // vamos definir a query a ser executada

  SQLDataSet1.CommandText := 'SELECT * FROM USUARIOS';

  // vamos disparar o comando

  SQLDataSet1.Active := True;

  // e agora vamos percorrer os resultados obtidos

  Memo1.Clear;

  while not SQLDataSet1.Eof do

    begin

      // vamos mostrar os IDs e nomes dos usuários

      Memo1.Lines.Add(SQLDataSet1.Fields.Fields[0].AsString + ' - ' +

        SQLDataSet1.Fields.Fields[1].AsString);

      // vamos mover para o próximo registro

      SQLDataSet1.Next;

    end;

end;

Aqui eu disparei um comando SELECT contra um tabela chamada USUARIOS. O resultado da consulta foi algo parecido com:

1 - OSMAR J SILVA

2 - CARLOS DE SOUZA ROCHA

Como converter uma string em um valor numérico inteiro

*Fonte Arquivo de Códigos

Em algumas situações precisamos converter strings em valores numéricos do tipo inteiro. Isso acontece quando recebemos valores de caixas de texto e precisamos usuá-los em cálculos.

Vamos começar com a função StrToInt() da unit SysUtils. Esta função recebe uma string representando um valor inteiro válido e retorna um valor inteiro. Veja o exemplo:

procedure TForm1.Button1Click(Sender: TObject);

var

  valor1, valor2, soma: Integer;

begin

  // vamos receber as strings dos TEdits e converter

  // seus valores para inteiros

  valor1 := StrToInt(Edit1.Text);

  valor2 := StrToInt(Edit2.Text);

  // vamos obter a soma dos dois valores

  soma := valor1 + valor2;

  // vamos exibir o resultado. Note o uso de IntToStr() para

  // converter o valor inteiro em string

  ShowMessage('A soma é: ' + IntToStr(soma));

end;

Note que, se a string sendo convertida possuir um valor inteiro inválido, uma exceção do tipo EConvertError será lançada. Podemos evitar isso usando a função TryStrToInt(). Esta função recebe dois argumentos: a string a ser convertida e a variável do tipo Integer que receberá o valor. O resultado será true se a conversão for feita com sucesso e false em caso contrário. Veja:

procedure TForm1.Button1Click(Sender: TObject);

var

  valor: Integer;

begin

  // vamos tentar converter o valor da caixa de texto

  // em um inteiro

  if TryStrToInt(Edit1.Text, valor) then

    ShowMessage('Conversão efetuada com sucesso.')

  else

    ShowMessage('Erro na conversão');

end;

Há ainda uma terceira possibilidade: usar a função StrToIntDef(). Esta função funciona exatamente da mesma forma que StrToInt(), exceto que agora, se houver um erro de conversão, um valor inteiro padrão será retornado. Veja:

procedure TForm1.Button1Click(Sender: TObject);

var

  valor: Integer;

begin

  // vamos converter o valor da caixa de texto

  // em um inteiro. Se a conversão não puder ser feita

  // o valor 10 será atribuído à varial valor

  valor := StrToIntDef(Edit1.Text, 10);

  // vamos exibir o resultado

  ShowMessage(IntToStr(valor));

end;

Caso você precise trabalhar com inteiros de 64 bits, poderá usar as funções StrToInt64(), StrToInt64Def() e TryStrToInt64().

Para fins de compatibilidade, esta dica foi escrita usando Delphi 2009.

Aprenda a usar a variável global ShortDateFormat para controlar a formatação de datas

A variável global ShortDateFormat fornece a formatação curta usada, por padrão, na conversão de datas em strings. Esta variável é usada pelas funções DateToStr(), DateTimeToStr() e DateTimeToString(). Os caracteres de formatação usados são:

   y  = Ano com 2 dígitos 

  yy  = Ano com 2 dígitos 

yyyy  = Ano com 4 dígitos 

   m  = Número do mês do ano sem o 0 no início 

  mm  = Número do mês com 2 dígitos 

 mmm  = Mês usando nomes curtos (Jan) 

mmmm  = Mês usando nomes longos  (Janeiro) 

   d  = Número do dia sem o 0 no início 

  dd  = Número do dia com dois dígitos 

 ddd  = Dia usando nomes curtos (Dom) 

dddd  = Dia usando nomes longos  (Domingo) 

Veja o trecho de código abaixo:

procedure TForm1.Button1Click(Sender: TObject);

var

  data: TDateTime;

begin

  // vamos construir a data

  data := StrToDate('13/03/2009');

  // vamos exibir usando a formatação padrão de ShortDateFormat

  showMessage(DateToStr(data));

  // vamos alterar o padrão de formatação de ShortDateFormat

  ShortDateFormat := 'dd ''de'' mmmm ''de'' yyyy';

  // experimente também

  // ShortDateFormat := 'dd/mm/yyyy';

  // vamos exibir usando a nova formatação

  ShowMessage(DateToStr(data));

end;

Como a variável ShortDateFormat é indicada para uso global, é interessante você definir o formato customizado em apenas um lugar de seus códigos, de forma a reaproveitar a formatação nas demais partes de seus programas.

No Windows, a formatação inicial de ShowDateFormat vem de LOCALE_SSHORTDATE, uma constante da API do Windows.

Para fins de compatibilidade, esta dica foi escrita usando Delphi 2009.