Jhonas

Veja nestes endereços http://www.linhabase.com.br/barrinha/codig...rra_boletos.asp http://www.fontesgratis.com.br/codbar.php http://www.netfontes.com.br/ http://superdownloads.uol.com.br/fontes/ http://busca.superdownloads.uol.com.br/busca/bol.l2.html OBS: Download da Fonte True Type Int2of5 http://www.fontesgratis.com.br/codbar/Int2of5_NT.zip abraço

Douglas... Veja se encontra na Net uma versão Não Trial da biblioteca de filtros para os relatorios do delphi http://www.waler.com/download.htm#textrafilters abraço

Veja neste endereço - uma função modificada para ler hd sata http://www.planetadelphi.com.br/dica/6842/...%A3o-modificada abraço

Voce deve se logar como administrador Ou pode ver as dicas da microsoft http://technet.microsoft.com/pt-br/library...763(WS.10).aspx abraço

Veja esse exemplo... vai lhe ajudar procedure TForm1.Button1Click(Sender: TObject); var s : string; begin Query1.Active := false; Query1.sql.Clear; s := 'SELECT PAPEL, COD, NUM FROM Acoes WHERE (NUM >= '+Edit1.text+') '+ 'AND (NUM <= '+Edit2.Text+')'; showmessage(s); Query1.SQL.Append(s); Query1.ExecSQL; Query1.Active := true; end; abraço

Acho que o seu calculo não está correto ... veja : OBS: 24 bytes = 192 bits = 0.0234375 kilobytes abraço

Os arquivos que voce só consegue visualizar nele ( HD ) , são os que estão registrados no windows que está instalado nele Dica: voce pode copiar para o outro hd mas terá que reinstalar os programas novamente abraço

Esse problema ocorre por arquivos de inicialização do windows corrompido ou por não conseguir ler esses arquivos em virtude de trilhas defeituosas ( Bad Clusters ) Mas voce pode deixar esse HD como Slave ( escravo ) e conseguirá ver o seu conteudo abraço

O arquivo autorun.inf não é virus, mas como os hackers estão descobrindo que se voce editar o autorun.inf deixa-lo vazio e mudar a sua propriedade para somente leitura, eles não conseguem colocar o virus dentro do pendrive. Portanto não apague esse arquivo nem do pendrive e nem do seu micro ... deixo-o vazio e mude a propriedade para somente leitura. Salvará o seu pendrive e todas as partições de seus Hds de serem infectados abraço

Veja este post http://scriptbrasil.com.br/forum/index.php...st&p=498006 abraço

estou com um problema que aparentemente é simples mais não ta dando certo eu tenho a seguinte comparaçao a logica é assim essa rotina esta dentro de um while Para que alguém possa ajudá-lo voce deve colocar o código exatamente como está no seu form abraço

Sugestões: Em propriedades da impressora, clique em > Avançado e deixe as seguintes opções marcadas Colocar documentos no spool para imprimir mais rapidamente iniciar a impressão imediatamente imprimir primeiro os documentos no spool ativar recursos de impressão avançados Em > Portas Ativar suporte bidirecional --------------------------------------------------------------- Ou voce pode usar o Quick Report ou o Composite Report para gerar as 50 páginas abraço

Query onde ocorre o erro : procedure TfrmCliente.FormActivate(Sender: TObject); begin dm.qryLeCPF.Close; dm.qryLeCPF.sQL.Clear; dm.qryLeCPF.SQL.Add ('select CPF from TB_CLIENTE'); dm.qryLeCPF.Open; cbCPF.clear; while not dm.qryLeCPF.Eof DO begin cbCpf.Items.Add(dm.qryLeCPF.FieldByName('CPF').AsString); dm.qryLeCPF.Next; end; end; Erro: BOF ou EOF são verdadeiros, ou o registro atual foi excluído. A operação solicitada pelo aplicativo requer um registro atual. OBS: Se voce entendeu o erro, notaria que o uso do while para testar fim de arquivo, faz com que ele vá além do ultimo registro encontrado. Por isso a mensagem está correta, indicando que BOF ou EOF é verdadeiro ou o registro atual foi excluido O correto seria usar o comando For procedure TfrmCliente.FormActivate(Sender: TObject); begin dm.qryLeCPF.Close; dm.qryLeCPF.sQL.Clear; dm.qryLeCPF.SQL.Add ('select CPF from TB_CLIENTE'); dm.qryLeCPF.Open; cbCPF.clear; For i := 1 to dm.qryLeCPF.RecordCount do begin cbCpf.Items.Add(dm.qryLeCPF.FieldByName('CPF').AsString); dm.qryLeCPF.Next; end; end; abraço

Experimente usar o between exemplo: zquery1.Close; zquery1.Open; ZQuery1.Active:=true; ZQuery1.SQL.Clear; ZQuery1.SQL.Append('select codigo, nome, endereco from cliente ' + 'where codigo between '+ '''' + edit1.Text + '''' + 'and '+ '''' + edit2.Text + ''''); ZQuery1.ExecSQL; abraço

Os dados serão mostrados no DBGrid se voce colocar o nome do seu DataSource na propriedade DataSource do DBGrid abraço

Copie todos os arquivos .dcu do Rx para a pasta LIB do delphi abraço

Sim.. voce deve usar um visualizador de arquivos ... O Peeper consegue visualizar mais de 30 tipos diferentes de arquivos, e com ele voce pode suprimir parte do código com problema. http://www.softlookup.com/display.asp?id=25247 abraço

se voce abrir um switt vai verificar que existe esta membrana que mencionei... mas o mais correto seria então voce trocar o switt por outro, que resolveria de vez o problema. abraço

Sempre que ocorre uma alteração ou erro em um formulario é criado automaticamente um backup do arquivo .pas e .dfm Esses arquivos estão com a extensão .~DFM e .~PAS .... delete os arquivos .DFM e .PAS com problemas e renomeie os .~DFM e .~PAS para .DFM e .PAS e voce conseguira abri-los novamente. abraço

Faça uma pesquisa no forum... já existem dúvidas como a sua respondidas abraço

None of the dynamic: libraries can be found: libpq81.dll, libpq.dll Nenhuma biblioteca dinamica pode ser achada: libpq81.dll, libpq.dll Essas bibliotecas estão dentro da propria versão de instalação ... procure em http://zeosforum.net.ms/ abraço

procedure TForm1.SpeedButton1Click(Sender: TObject); begin if (ActiveControl is TEdit) then (ActiveControl as TEdit).Text := 'Teste'; end; Este código não especifica qual é o edit ... se voce tiver uns 5 no form ele ira pegar sempre o primeiro procedure TForm1.SpeedButton1Click(Sender: TObject); begin if (ActiveControl is TEdit) then (ActiveControl as TEdit).Text := Inverte_CX (Edit1.Text); end; OBS: ainda acho que voce quer fazer da maneira mais dificil abraço

Tem que usar dessa maneira IBQuery1.SQL.Clear; IBQuery1.SQL.Append('select codigo, nome, endereco from cliente ' + 'where codigo>= '+ '''' + edit1.Text + '''' + 'and codigo <= '+ '''' + edit2.Text + ''''); IBQuery1.ExecSQL; abraço

Douglas ... assim que der uma aliviada no serviço te repondo ok ? abraço

José Luiz... acho que voce vai achar uma maneira inteligente de aproveitar essa rotina no seu sistema... pense um pouco procedure TForm1.Button1Click(Sender: TObject); var KeyState: TKeyboardState; begin GetKeyboardState(KeyState); if(KeyState[VK_CAPITAL] = 0) then begin Keybd_Event(VK_CAPITAL, 1, KEYEVENTF_EXTENDEDKEY or 0, 0); Keybd_Event(VK_CAPITAL, 1, KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0); end else begin Keybd_Event(VK_CAPITAL, 0, KEYEVENTF_EXTENDEDKEY or 0, 0); Keybd_Event(VK_CAPITAL, 0, KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0); end; end; abraço