Jhonas

tente assim select * from tabela where (data + 10) > '21/11/2013' ou select * from tabela where (data + 10) > strtodate('21/11/2013') voce só vai precisar fazer alguns testes para ajustar a instrução select abraço

voce encontra muito material na net http://www.google.com.br/search?q=tutorial+fortes+report+delphi+xe3&hl=pt&gbv=2&o que=tutorial+fortes+report+delphi+xe3&gs_l=heirloom-serp.3...30309.31861.0.32556.9.9.0.0.0.0.337.1364.3j3j2j1.9.0....0...1ac.1.24.heirloom-serp..3.6.627.-h7zS1tHZow abraço

veja esse link http://www.devmedia.com.br/forum/barra-de-rolagem-no-form/16145 abraço

se voce mudar a abordagem da pesquisa, fica muito mais rapida... utilize querys abraço

veja esses links http://technet.microsoft.com/pt-br/library/ms130978.aspx http://technet.microsoft.com/pt-br/library/ms191184.aspx abraço

ok... vamos tentar, mas sem o microterminal para testar, fica a seu cargo resolver os problemas como usar um banco de dados com o microterminal veja essa função function TFTerminal.produtoGet(xidProduto: Integer; var xdescricao: string; var xvalor: Real; var xpeso: Boolean): Boolean; var widProduto, wvalor: string; wvalorReal: Real; warquivo: TStringList; i, cod: Integer; begin try widProduto := FormatFloat('00000', xidProduto); warquivo := TStringList.Create; warquivo.LoadFromFile(ARQUIVOPRODUTO); for i := 0 to warquivo.Count - 1 do begin Result := Pos(widProduto, warquivo) > 0; if Result then begin xdescricao := Trim(Copy(warquivo, PRODUTODESCRICAOINICIO, PRODUTODESCRICAOQTD)); wvalor := Trim(Copy(warquivo, PRODUTOVALOR, PRODUTOVALORQTD)); Val(Trim(wvalor), wvalorReal, cod); xvalor := wvalorReal; xpeso := Trim(Copy(warquivo, PRODUTOPESO, Length(warquivo) - PRODUTOPESOTAMANHO)) = '1'; Break; end; end; finally FreeAndNil(warquivo); end; end; aqui nessa parte começa a leitura do arquivo texto que é passado para um TStringList widProduto := FormatFloat('00000', xidProduto); warquivo := TStringList.Create; warquivo.LoadFromFile(ARQUIVOPRODUTO); se voce usar um banco de dados, voce deve criar uma tabela com o nome PRODUTOS e definir os campos obs: isso é apenas um exemplo de como voce deve implementar o banco de dados idProduto Integer 10; descricao string 30; valor numeric(11,2); peso Boolean; se voce for sar o componente TQUERY, ficaria assim: Query1.Active := false; Query1.SQL.Clear; Query1.SQL.Append('select * from tabela where idProduto = 100'); // aqui voce pode passar um parametro para a select Query1.Active := true; nesse ponto a sua pesquisa já foi feita e o resultado será os campos do produto que tem o id = 100 a partir disso, voce pode pegar os valores dos campos e retornar para o microterminal, não precisando usar o for i := 0 to warquivo.Count - 1 do //// para procurar nas linhas de texto do warquivo: TStringList; então ficaria algo parecido com isso: function TFTerminal.produtoGet(xidProduto: Integer; var xdescricao: string; var xvalor: Real; var xpeso: Boolean): Boolean; var widProduto, wvalor: string; wvalorReal: Real; warquivo: TStringList; i, cod: Integer; begin try Query1.Active := false; Query1.SQL.Clear; Query1.SQL.Append('select * from tabela where idProduto = 100'); // aqui voce pode passar um parametro para a select Query1.Active := true; xdescricao := Trim(Query1Descricao.Value); wvalor := Trim(Query1Valor.Value); xvalor := wvalorReal; xpeso := True; Break; end; end; finally end; end; OBS: O código é apenas um exempo para lhe mostrar como usar uma tabela ... resta a voce entender a lógica e fazer testes no seu código ( não esqueça de fazer uma cópia antes de mexer nele ) abraço

veja se encontra o que precisa nesse link ... http://www.gertec.com.br/Site.aspx/DriversManuaisSoftwares?qsTipoArquivo=7OddVzA6kuw=&qsCodigoProduto=Jo/dZOnD9ZY= tem 1 exemplo para restaurante em varias linguagens e um em delphi mesmo que o seu microterminal não seja esse, a logica do programa é a mesma ================================================================================ Basicamente ele manda informações para um microterminal, eu consegui fazer ele enviar informações e recebe-las em um memo ele pesquisa produto e usuário em DOIS arquivos texto respectivamente: imagine que esse memo seja um campo de sua tabela .... voce vai usa-lo como se estivesse trabalhando sem o microterminal voce vai acessar a tabela, vai ler, ou gravar nesse campo memo ....(necessariamente não precisa ser um campo memo ) poderia te ajudar mais com o seu código, se eu tivesse um microterminal para testa-lo .... mas aparentemente a sua lógica esta correta abraço

MICHELI... o problema parece ser um bug do componente indy que foi corrigido na versão indy 10.6.0 faça um upgrade do componente http://www.codenewsfast.com/cnf/article/0/permalink.art-ng1921q9497 abraço

ajuda ... realmente existe uma diferença entre UTF-8 e US-ASCII .... veja nesse link http://stackoverflow.com/questions/18832081/tidhttp-character-encoding-of-post-response abraço

ok... vamos tentar fazer da maneira correta crie o form de login e menu de maneira automatica os demais podem ser criados em tempo de execução exemplo procedure TFMenu.Funcionrios1Click(Sender: TObject); begin try if FCadFunc = Nil then FCadFunc := TFCadFunc.Create(self); except ShowMessage('Erro na criação do formulário !!'); exit; end; FCadFunc.showmodal; //FreeAndNil(FCadFunc); end; veja que se voce liberar a linha do comando FreeAndNil o form será tirado da memoria assim que o mesmo for fechado entretanto, ao deixar esse comando como comentario, o form sera fechado mas não retirado da memoria o fato de voce desejar fechar quase todos os forms do seu programa, deve-se levar em conta se realmente é necessario essa abordagem ( somente se o consumo de memoria for critico ) abraço

ok... mas agora que voce relatou isso, poderia ser o tipo do arquivo xml veja se é isso http://acesso.serpro.gov.br/hod/pt/help/db_xml.html abraço

deixe como comentario essa linha TIdAttachmentFile(IdMessage1.MessageParts.Items[x]).CharSet:= 'UTF-8'; e veja se os caracteres permanecem iguais ao que voce postou

isso tem haver com character set ... quando voce baixa direto do email, o arquivo não passa por nenhuma configuração de componente veja http://stackoverflow.com/questions/9844250/not-able-to-send-utf-8-email-using-delphi-indy http://stackoverflow.com/questions/16377527/indy-imapclient-uidretrieveallenvelopes-not-getting-other-character-set-properly abraço

Estou usando o seguinte código para fechar: for n:=0 to Application.ComponentCount-1 do if Application.Components[n] is TForm then if not(TForm(Application.Components[n]) = Application.MainForm) then if TForm(Application.Components[n]).Showing then TForm(Application.Components[n]).Close; o que acontece se no meio desse loop ele encontra o form principal ? ele vai tentar fecha-lo tambem ...por isso ocorre os seus erros feche o form com o comando close Form34NotafiscalEntrada.Close; abraço

exemplo procedure TPrecos2.GeraEtiquetas; Var vetq : TStringList; vetq := TStringList.create; Begin vetq.clear; vetq.Add('Q104,23'); vetq.Add('q832'); vetq.Add('rN'); vetq.Add('S4'); vetq.Add('D7'); vetq.Add('ZT'); vetq.Add('JB'); vetq.Add('OD'); vetq.Add('R56,0'); vetq.Add('N'); vetq.Add('B688,75,2,E80,2,4,56,N,"' + vqrProdutos.FieldByName('CODIGO_BARRAS').AsString +'"'); vetq.Add('A585,15,2,1,1,1,N,"' + FormatFloat('##0.00',vqrProdutos..FieldValues['PRECO_TABELA']) +'"'); vetq.Add('A688,15,2,1,1,1,N,"' + vqrProdutos.FieldByName('CODIGO_BARRAS').AsString +'"'); End; abraço

essa é a primeira linha do arquivo ?

voce já viu no help do delphi ? ( Format strings ) abraço

a media sera entre 17.000 Kb e 50.000 Kb dependendo no numero de forms e rotinas em execução cada form ativado em seu programa dara um consumo de aproximadamente 1000 Kb voce pode acompanhar esse consumo pelo gerenciador de tarefas do windows ( tanto do seu programa como do MYSQL ) abraço

se voce troca o nome da maquina, deve reconfigurar novamente a rede abraço

veja em https://www.google.com.br/?gws_rd=cr&ei=xxpxUqL1IanKsAS88oCABA#q=configurar+snmp+windows abraço

programar em assembly vale para qualquer processador abraço

o arquivo: dclIndyCore.res é criado quando voce copila o programa sem erros Required package 'dclIndyCore' not found Requerido pacote 'dclIndyCore' não encontrado verifique se existe o caminho para esse arquivo ou se o arquivo realmente não existe no hd abraço

veja se essas dicas te ajudam with RichEdit1.SelAttributes do if fsBold in Style then Style := Style - [fsBold] else Style := Style + [fsBold]; http://www.devmedia.com.br/forum/problema-com-qrrichtext/235838 http://www.devmedia.com.br/forum/duvida-formatar-richtext-bold-italic-etc/366012 http://www.planetadelphi.com.br/dica/4583/-como-adicionar-uma-linha-formatada-%28cor,-negrito,-etc%29-num-richedit http://www.delphipages.com/forum/showthread.php?t=101774 http://www.codeproject.com/Questions/116476/How-to-change-font-Bold-and-italic-of-richtext-box https://www.scriptbrasil.com.br/forum/topic/151781-resolvidotexto-modelo/ https://www.scriptbrasil.com.br/forum/topic/147910-duvida-destacando-palavras/ https://www.scriptbrasil.com.br/forum/topic/147910-duvida-destacando-palavras/#entry583811 abraço

qual é a versão do dephi ?

Tente usar o componente flash player http://www.google.com.br/search?q=flash+player+delphi+component&hl=pt&gbv=2&o que=+flash+player+delphi&gs_l=heirloom-serp.1.1.0i7i30i19j0i19j0i8i30i19l3j0i10i30i19j0i8i30i19l4.120842.120842.0.125199.1.1.0.0.0.0.276.276.2-1.1.0....0...1ac.1.24.heirloom-serp..0.1.276.5NVbzoJiWoQ abraço