Jhonas

http://img.mercadolivre.com.br/jm/img?s=ML...025880_8837.jpg O TED 1000 e um Microterminal de tamanho reduzido com comunicação a cabo para operação básica de: a) consulta de dados do Host e apresentação em seu display LCD e impressão em impressora serial acoplada; e, B) coleta de dados para envio ao Host via digitação, leitura de código de barras, ou cartão magnético, ou outros sistemas. · Rede de até 64 estações através de topologia " estrela " utilizando HUB inteligente; Para a comunição voce deve usar a interface serial padrão RS232C para COM1 ou COM2 do PC ... use o componente TComport para esse tipo de comunicação http://www.brothersoft.com/comport-download-47754.html http://www.brothersoft.com/d.php?soft_id=4...d%2Fcomport.exe Voce pode usar duas interfaces para Código de barras ou Cartão magnético. código de barras com decodificação interna: Interface wedge ( via teclado ) para leitor externo qualquer; caneta, laser, CCD, etc. e interface para slot-reader incorporado ao gabinete. Voce pode usar padrões de código de barras: Cód. 39, Cód. 39 Full ASCII, UPC, EAN, UPC / EAN com comps., JAN, Codabar, 2 de 5 Intercalado, 2 de 5 Industrial, Cód. 128. ou uma interface para slot-reader de cartão magnético incorporado ao gabinete. Neste post voce vai encontrar os links para o componente de código de barras http://scriptbrasil.com.br/forum/index.php...st&p=460672 abraço

zanett... já que voce e seu pai entendem um pouco de eletronica, veja o esquema eletrico do monitor .. normalmente esse problema ocorre em componentes que possuem dissipadores de calor ... quando o calor é excessivo e o dissipador não consegue eliminar esse excesso, ocorre que o calor passa para os terminais e caba por soltar a solda do terminal. Nesse caso uma simples ressolda resolve o problema ( mas tome cuidado para não fechar um curto entre os terminais com a solda ) utilize uma lente de aumento para procurar na placa os terminais com solda fria ( procure na etapa de saida vertical ) http://dc107.4shared.com/download/76633893...104104-7109461a abraço

Leia este artigo http://www.planetadelphi.com.br/artigo/133...rfil---parte-2/ abraço

ExecAndWait(LocaldoSistemaNoPC,'',SW_SHOW); Pirambu!... faltou voce passar para ele a function ExecAndWait voce tambem pode usar o shellExecute Exemplos: http://www.swissdelphicenter.ch/torry/showcode.php?id=93 abraço

Maneira correta procedure TForm1.botaomediaClick(Sender: TObject); var nota1, nota2,nota3,nota4,media:real; begin nota1 :=strtofloat(Edit2.Text); nota2 :=strtofloat(Edit3.Text); nota3 :=strtofloat(Edit4.Text); nota4 :=strtofloat(Edit5.Text); media :=(nota1+nota2+nota3+nota4)/4; edit6.Text := floattostr(media); // Correção end; abraço

Bom já te dei um tempo... agora voce confere o código de acordo com a lógica aprensentada Var vet1, vet2 : array [1..10] of integer; i, c, x, y : integer; Begin y := 1; x := 1; for i := 1 to 10 do begin read (vet1[i]); end; for i := 1 to 10 do begin x := x + 1; for c := x to 10 do begin if (vet1[i]) = vet1[c] then begin vet2[y] := vet1[c]; y := y + 1; end; end; end; writeln('Valores repetidos :'); for i := 1 to 10 do begin if vet2[i] <> 0 then writeln (vet2[i]); end; End. OBS: Nos proximos voce faz sozinho ... ok ? abraço

Tutorial do componente ARWordReport somente em ingles http://www.vector-ski.com/reports/arwordreport_index.htm abraço

A pesquisa faz parte da rotina de um programador .... muitas vezes peço para o usuário pesquisar no forum, porque lembro de ter visto algo a respeito do assunto em um dos posts, no entanto, muitas vezes não é possivel lembrar exatamente onde. ninguém é obrigado a lhe dar as informações exatas .... em outros foruns voce tambem postou essa dúvida e ninguém ainda respondeu Além do mais, a resposta que voce esta querendo esta em um dos posts que o Douglas te indicou ... então se não for muito trabalho para voce....pesquise. abraço

Veja como funciona o relacionamento de 1 para N em tabelas http://3.bp.blogspot.com/_buFzmAtZPuc/SUby...tegoriasDER.gif O relacionamento demonstrado acima indica que uma “Categoria” pode classificar muitos produtos. Sendo que o “Produto” somente pode ser classificado por uma “Categoria”. Este tipo de relacionamento chama-se “Um para N” (1-N). No relacionamento “Um para N” a chave (campo de relacionamento) aponta para a tabela “N”, no caso “Produtos”. Isso quer dizer que na tabela Producs, existe uma coluna que referencia a tabela “Categories”. Em outras palavras: A coluna “CategoryID”, de “Producs” aponta para a “CategoryID” de “Categories”. Veja a partir da pagina 7 dessa apostila http://www.fema.com.br/~schiavo/files/Apos...D5_Modulo03.pdf Outros http://www.ramosdainformatica.com.br/art_r...s01.php?CDA=853 abraço

Isto porque a propriedade RequestLive da Query tem que estar como true, se não voce não consegue editar o registro e nem salva-lo abraço

Use o metodo Filter RxMemoryData1.Filtered:= FALSE; RxMemoryData1.Filter:= '[NOME]= ' + quotedstr('PEDRO'+'*'); RxMemoryData1.Filtered:= TRUE; Mais informações sobre: Tabelas Virtuais RxMemoryData http://br.video.yahoo.com/watch/3089652/8796533 http://www.google.com.br/search?q=consulta...ved=0CCQQqwQwAw abraço

A lógica está errada ... o correto é verificar o: vertor de indice 1 com o vetor de indice 2 vertor de indice 1 com o vetor de indice 3 vertor de indice 1 com o vetor de indice 4 assim ate o vertor de indice 1 com o vetor de indice 10 depois na sequencia vertor de indice 2 com o vetor de indice 3 vertor de indice 2 com o vetor de indice 4 vertor de indice 2 com o vetor de indice 5 assim ate o vertor de indice 2 com o vetor de indice 10 depois na sequencia vertor de indice 3 com o vetor de indice 4 vertor de indice 3 com o vetor de indice 5 vertor de indice 3 com o vetor de indice 6 assim ate o vertor de indice 3 com o vetor de indice 10 ate que voce chega ao vetor vertor de indice 9 com o vetor de indice 10 OBS: achando o numero repetido em um dos indices do vetor ( vet1) voce guarda o resultado no outro vetor ( vet2 ) Não estou te passando o código pronto para voce pode raciocinar sobre a lógica... se não conseguir depois eu posto o código abraço

Essa paleta só aparece com IB 6 ou superior ou Firebird. As paletas do IBX estão no mesmo package, tente remover o package e depois adicioná-lo novamente. Outra coisa que pode fazer é reinstalar o delphi depois que reinstalar o Interbase ( mas lembre de limpar os registros do windows antes da instalação) Ou atualize o seu IBX para a versão do delphi que está usando. abraço

O Sistema operacional não tem suporte para a sequencia de agrupamento selecionada Adicionar dados ao Access ( tabelas e colunas ) Se você está testando código ADO com o Access no ambiente de design do Delphi, a primeira vez que você executar uma operação de conjunto de registros, você receberá a seguinte mensagem de erro: Selecionar o sistema operacional não dá suporte à seqüência de agrupamento. Você pode desconsiderar essa mensagem de erro; esse erro não ocorre depois que o aplicativo é compilado. Esta mensagem aparecerá somente no IDE e não será exibido na versão do programa compilado. ADOQuery1: Cannot perform this operation on a closed dataset ADOQuery1: Não pode executar esta operação em um dataset fechado voce tem que abrir a tabela se não ocorre esse erro abraço

existir um modo existe, entretanto dependendo do que voce pretende fazer no programa não é aconselhável, voce vai povoar a tabela com informações desnecessárias e peder performance no uso em rede abraço

Veja nesse link http://www.delphidabbler.com/articles?article=18&part=3 abraço

a string '24/03/2010 10:54:00' pode ser convertida em TDateTime execute somente o código que te passei e veja se funciona, depois voce faz a adptação necessaria ao seu código abraço

Glauco Machado ... isso é um execício de escola, vi que voce postou em outros foruns tambem o correto é voce tentar conseguir fazer sozinho ... é justamente o fato de voce pensar em como resolver é que vai desenvolver o seu raciocínio lógico mas vou te dar uma ajudinha Var frase, result: string; i, count: integer; Begin count := 0; result := ''; readln(frase); for i := 1 to Length(frase) do begin if (frase[i]) = ' ' then Inc(count) else result := result + frase[i]; end; writeln ('Frase modificada: ', result); writeln ('A frase continha ', count, ' espaços em branco.'); end. abraço

Erro de conversão ... as aspas indica que o valor da string obtida não pode ser convertida para data e hora StrToDateTime(Copy(sUso,1,6)+'20'+Copy(sUso,7,8)))); o correto seria procedure TForm1.Button1Click(Sender: TObject); var sUso : string; vUso : TDate; begin sUso := ''; sUso := '12/10/10'; if (sUso[9] = '') AND (sUso[10] = '') then begin vUso := StrToDate(FormatDateTime('dd/MM/yyyy', StrToDate(Copy(sUso,1,6)+'20'+Copy(sUso,7,8)))); showmessage(datetostr(vUso)); end; end; abraço

pode sim .... para que outros colegas possam usa-lo abraço

o seu código está bom ....mas existem maneiras melhores ( menos código ) , mas com a experiência voce vai aprender abraço

Isso se chama Piramides Incas http://vinicius.soylocoporti.org.br/piramides-incas/ abraço

Nesse caso a abordagem é outra procedure TForm1.Button1Click(Sender: TObject); var i,j: integer; NomeCampo: String; begin Tabela1.First; For j := 1 to Tabela1.RecordCount do Begin Tabela2.First; For i := 1 To Tabela2.RecordCount Do Begin If (Tabela1Sigla.Value = Tabela2Sigla.Value) and (Tabela1Numero.Value = Tabela2Numero.Value) and (Tabela1Codoco.Value <> Tabela2Codoco.Value) then begin Tabela1.Edit; Tabela1Codoco.Value := Tabela2Codoco.Value; Tabela1.Post; end; Tabela2.Next; End; Tabela1.Next; Application.ProcessMessages; end; end; abraço

claro que existe uma forma mais simples, voce é que esta querendo fazer do jeito mais dificil ..rs atribua os valores dos campos a variaveis depois voce joga de volta os valores das variaveis aos campos novamente exemplo depois voce faz o inverso abraço

Deixe a linha xcomo comentario unit uEDBR; {$I Definitions.inc} //PLEASE, read Readme.txt before continue, it is VERY important. After reading remove this line. Thanks you //to disable GraphicEx from Mike Lischke comment next line (put // at the beginning) {$DEFINE GraphicEX} {$IFDEF GraphicEX} {$I GraphicConfiguration.inc} {$ENDIF} Depois ele vai reclamar do arquivo GraphicConfiguration.inc que não foi encontrado copie o código abaixo no bloco de notas e renomeie para GraphicConfiguration.inc e coloqu dentro da pasta desse componente //---------------------------------------------------------------------------------------------------------------------- // This file is part of the image library GraphicEx (www.lischke-online.de/Graphics.html). // // In this configuratin file you can determine which parts of the library are to be compiled. // This is in particular important for LZW compression code for which Unisys owns a patent. // If you want to use LZW decoding then you have to make a deal with Unisys. Don't make me // responsible for using the code. // Other configuration options include to limit the number of available image formats to // save memory, if necessary. // // (c) Copyright 1999, 2000 Dipl. Ing. Mike Lischke (public@lischke-online.de). All rights reserved. // // This package is freeware for non-commercial use only. // Contact author for licenses (shareware@lischke-online.de) and see License.txt which comes with the package. //---------------------------------------------------------------------------------------------------------------------- {.$define UseLZW} // if this is not defined (default) then neither the GIF format nor the // LZW compression decoder (e.g. for TIFF LZW compression) is available // Pick your preferred image formats here or leave them all enabled. By disabling // certain formats which are not of interest you can save some memory. {$define SGIGraphic} // *.bw, *.rgb, *.rgba, *.sgi images are supported {$define AutodeskGraphic} // *.cel, *.pic images {$define TIFFGraphic} // *.tif, *.tiff images {$define TargaGraphic} // *.tga, *.vst, *.icb, *.vda, *.win images {$define PCXGraphic} // *.pcx, *.pcc, *.scr images {$define PCDGraphic} // *.pcd images {$define PortableMapGraphic} // *.ppm, *.pgm, *.pbm images {$define CUTGraphic} // *.cut (+ *.pal) images {$define GIFGraphic} // *.gif images {$define RLAGraphic} // *.rla, *.rpf images {$define PhotoshopGraphic} // *.psd, *.pdd images {$define PaintshopProGraphic} // *.psp images {$define PortableNetworkGraphic} // *.png images {$define EPSGraphic} // *.eps images // adjust dependent definitions {$ifndef UseLZW} {$undef GIFGraphic} {$endif} {$ifndef TIFFGraphic} {$undef EPSGraphic} {$endif} Depois ele vai reclamar que não foi encontrado o arquivo GraphicEx.dcu no link voce vai encontrar o GraphicEx.pas para poder gerar o GraphicEx.dcu http://files.codes-sources.com/fichier.asp...pas&lang=en OBS: Ou voce tem essa mão de obra ou procura na net outro pacote completo desse componente abraço