Artigo Clube Delphi Edição 4 - Seção dos Leitores

Leitores

Seção dos Leitores

Paraticipar da Seção dos Leitores é muito simples, basta enviar suas mensagens para: leitores@clubedelphi.com.br. As mensagens podem ser dúvidas, dicas críticas ou sugestões. Convidamos você, leitor, a participar desta novidade do Clube Delphi.

Caro Leitor,

Nesta coluna gostariamos de contar sempre com sua presença e seu apoio, estamos inauguramdo-a com o propósito de expandirmos nosso canal de comunicação.
Nesta coluna publicaremos as dicas, gugestões, críticas, que receberemos no endereço: leitores@clubeldephi.com.br quanto as mensagens mais interessantes que forem respondidas nas litas de discussão. Para quem não conhece as listas viseite o endereço: http://www.clubedelphi.com.br/lista e para fazer o cadastro, basta preencher o formulário em: http://www.clubedelphi.com.br/lista/cadastro.html

Componente TUpdateSql

Companheiro,

Não estou conseguindo salvar as alterações feitas com o componente tupdatesql, estou utilizando os componentes tquery, tdatasource, tupdatesql, tdbnavigator e tdbgrid. Todas as alterações que faço são apenas visuais; as alterações não são salvas no banco de dados.

Marcelo

Caro Marcelo,

Certifique-se de que a propriedade Cached Updates do TQuery esteja True. Depois usa o Método ApplyUpdates do componente TQuery para gravar as alterações.

Formatar Casas Decimais

Tenho que formatar um campo numérico para seis casas decimais, mas apesar de já ter tentado de tudo, o máximo que consegui foram quatro casas decimais com o campo do tipo moeda ou numérico. Que procedimentos devo tomar?

Grato pela atenção,

Adilu Pinheiro Júnior

Caro Adilu,

Use a func’~ao FormatFloat. Exemplo: FormatFloat( ‘#.######’, Varriavel_Float);

O ‘.’ (ponto) representa a divisão entre casas decimais.

Equipe de Suporte Técnico.

Erro "Index File or Header is Corrupt"

Depois de ler sua matéria "Access x Paradox", estou com problema que surgiu de repente baseado na matéria, uma das minhas tabelas está apresentando a mensagem "Index File or Header is Corrupt".

Existe algum meio de recuperar esta tabela?

Se existe, por favor me ajude.

Obrigado.

Giovanni L. Lima

Caro Giovanni,

Tem como sim, mas você precisa baixar uma dll no site da Borland, na Url: www.boarland.com/devsupport/bde/utilities.html

Validação de Dados no DBGrid

Prezados Senhores,

Como faço para validar uma data no DBGrid, gostaria que a coluna que for receber a data, já contivesse as barras de divisão da data. Usando arquivos DBF, gostaria de formatar a coluna do DBGrid para receber valores monetários, o registro é do tipo numérico, com casas decimais.

Obrigado

Edmundo A. Júnior

Ubá-MG.

Caro Edmundo,

• Dê um duplo clique no Objeto TTable, para abrir a janela Fields Editor;

• Clique com o botão direito do mouse sobre a janela e escolha ‘Add all fields’;

• Selecione o campo desejado e, no ‘Object Inspector’ clique na propriedade ‘EditMask’ e defina a máscara.

Verificar existência de disco no drive

Amigos,

como fazer com que ao ser mostrado um formulário, este primeiro verifica se existe disquete no drive, caso não exista o formulário não apareça, caso sim, este seja mostrado. Vcs tem alguma procedure ou função que faça isso?

[ ]’s

Lucio Torres

Caro Lucio,

O exemplo abaixo verifica a existência de disco na unidade sem retornar erro, pois está em um bloco de código tratado.

procedure

TForm1.SpeedButton1Click

(Sender: TObject);

var Valida: boolean;

begin

try

chdir (‘a:’);

Valida : = true;

except

Valida : = false;

end;

if Valida = true then

showmessage (‘Possui disco na unidade’)

else

showmessage (‘Não possui disco na unidade’);

end;