Jhonas

estou sem tempo agora ....depois passo um exemplo abraço

veja http://docwiki.embarcadero.com/VCL/en/ComC...omHotKey.HotKey abraço

Faça uma pesquisa nesses topicos http://scriptbrasil.com.br/forum/index.php...atualiza%E7%E3o http://www.planetadelphi.com.br/dica/6236/...o-se-a-um-proxy abraço

Olá Micheus ... interessado em voltar a ser moderador ?? estamos precisando ... rs abraços

exemplo: uses shellapi; procedure TForm1.Button1Click(Sender: TObject); var S : string; begin if FileExists(Edit1.Text) then begin s := trim(Edit1.Text); while Pos('\', S) > 0 do delete(s,1,pos('\',s)); // MOVER UM ARQUIVO PARA OUTRO LOCAL if MoveFile(PAnsiChar(Edit1.Text),'C:\'+ s) then Showmessage('MoveFile Sucesso') else Showmessage('MoveFile Falhou'); // COPIAR UM ARQUIVO PARA OUTRO LOCAL {if CopyFile(PAnsiChar(Edit1.Text),PAnsiChar('C:\'+ s),true) then Showmessage('CopyFile Sucesso') else Showmessage('CopyFile Falhou'); } end else ShowMessage('O Arquivo Não Existe'); end; Vamos supor que no edit1 esteja : 'C:\MINHA PASTA\ARQUIVO.DAT' ... O programa vai verificar se o arquivo existe e depois move-lo para o drive C:\ ... com o mesmo nome abraço

exemplo: MoveFile('C:\MINHAPASTA\ARQUIVO1\DADOS.DAT', 'C:\MINHAPASTA\ARQUIVO2\'); MoveFile('"C:\MINHAPASTA\ARQUIVO1\DADOS.DAT"','C:\MINHAPASTA\ARQUIVO2\'); abraço

como já disse, não encontrei erro no teste que realizei aqui ... então resta a voce rever os seus procedimentos, e se for o caso , refaze-los. abraço

veja http://www.google.com.br/search?hl=pt-BR&a...l1903l2-2.3.1l6 abraço

não sei como voce esta fazendo, mas eu uso dessa maneira e funciona perfeitamente com mysql, interbase, firebird, paradox .... pode ser problema do DBF já que voce esta usando QUERY1, clique com o botão direito do mouse no componente QUERY1 e selecione SQL Builder... é uma maneira mais facil de testar a clausula Select em cima das suas tabelas abraço

bem, vamos fazer um teste faça esse teste e veja os resultados: SELECT SUM( VLR1) AS TOT1 FROM TABELA TOT1 deverá apresentar um valor, mesmo tendo valores null ( a não ser que todos os registros sejam null ) SELECT SUM( VLR2) AS TOT2 FROM TABELA TOT2 deverá apresentar um valor, mesmo tendo valores null ( a não ser que todos os registros sejam null ) abraço

neste caso use assim: QUERY1.SQL('SELECT COD,NOME,SUM(VLR1)+SUM(VLR2) AS TOTAL FROM TABELA); abraço

fiz o teste com esse código, e está funcionando certo CREATE TABLE PEOPLE ( ID INTEGER NOT NULL, FIRST_NAME VARCHAR(30), LAST_NAME VARCHAR(30), SEX CHAR(1)); INSERTEX INTO PEOPLE (ID, FIRST_NAME, LAST_NAME) FROM CSV 'C:\Mydata.csv' DELIMITER ':' SKIP 1; com relação a edição dos registros, verifique se a tabela criada não está configurada para somente leitura abraço

leia com calma esse artigo http://suporte.softwell.com.br/maker/manua...a_relatorio.htm e depois leia esse http://technet.microsoft.com/pt-pt/library/dd220417.aspx abraço

sim, mas somente no que se refere à definição das especificações e critérios técnicos adotados para os ambientes de homologação e de produção ( desenvolvimento do programa). abraço

voce pode alterar os valores do report por meio de código antes do preview abraço

exemplo: http://www.planetadelphi.com.br/dica/5259/...ckbox-em-dbgrid http://www.devmedia.com.br/post-1539-Check...-um-DBGrid.html abraço

"CAPABILITY NOT SUPPORTED" Capacidade não suportada não estou conseguindo testar os valores nulo SUM(ISNULL(VLR1,0)+SUM(ISNULL(VLR2,0) AS TOTAL se o valor é nulo como voce quer soma-lo ? abraço

Em geral ele é usado assim: Label1.Caption := Report.AutoSearchFields[x].Value Assim, o Label recebe em seu Caption o valor digitado pelo usuário. Ao utilizar ele de forma inversa, o ReportBuilder compilou sem erro. Eu fiz assim: Report.AutoSearchFields[0].Value := 1 Label1.Caption := inttostr(Report.AutoSearchFields[x].Value) abraço

veja http://www.ibexpert.info/ibe/index.php?n=D...cutive#Insertex abraço

Mas sem precisar abrir o access e nem programa nenhum... é possivel isso? sempre terá que existir algum programa ou serviço, mesmo que esteja rodando em 2º plano ( escondido ) abraço

use o Kazaa http://ziggi.uol.com.br/downloads/kazaa-lite abraço

se voce não colocar o erro todo fica dificil exemplo: run time error 20515 error in file (file name) error in formula <record selection> the remaing text does not appear.. abraço

veja o exemplo http://www.delphibr.com.br/exemplos/Classref.zip http://www.delphibr.com.br/exemplos/OpClass.zip abraço

o exemplo é para interbase mas é só substituir pelo firebird http://www.delphibr.com.br/exemplos/cadib.zip abraço

acho que não vai encontrar isso ... ao clicar em qualquer registro que esteja gravado, se voce começar a digitar alguma palavra no campo, voce estará editando esse campo... (ai quero que selecione o fornecedor de acordo com a ordem alfabetica que eu digitei). para isso voce deve digitar em outro lugar que não seja no dbgrid para poder pesquisar ... a lógica é a que eu passei abraço