Jhonas

OBS: Se voce tem um relatório que é identico e não apresenta erros, então faça uma comparação com os dois códigos para achar onde está o problema abraço

exemplo: procedure TForm1.RadioGroup1Click(Sender: TObject); var opc : integer; begin opc := RadioGroup1.ItemIndex; case opc of 0: begin Query_IB.Active := false; CDS_Query.Active := false; Query_IB.SQL.Clear; Query_IB.SQL.Append('SELECT NOME, HORARIO FROM Tabela '); Query_IB.Active := true; CDS_Query.Active := true; CDS_Query.Edit; CDS_QueryNOME.Value := 'Rajare'; // ou o nome pode vir de um Edit1.Text CDS_QueryHORARIO.Value := timetostr(now); // hora em que ocorreu o clique no RadioGroup CDS_Query.Post; CDS_Query.ApplyUpdates(-1) end; 1: begin Query_IB.Active := false; CDS_Query.Active := false; Query_IB.SQL.Clear; Query_IB.SQL.Append('SELECT NOME, HORARIO FROM Tabela '); Query_IB.Active := true; CDS_Query.Active := true; CDS_Query.Edit; CDS_QueryNOME.Value := 'Rajare'; // ou o nome pode vir de um Edit1.Text CDS_QueryHORARIO.Value := RadioGroup1.Items.Strings[RadioGroup1.ItemIndex]; // ou uma opção do radiogroup CDS_Query.Post; CDS_Query.ApplyUpdates(-1) end; end; abraço

Voce não está lendo os seus próprios posts ??? em 01/12/2008 http://scriptbrasil.com.br/forum/index.php...st&p=519532 em 10/01/2009 http://scriptbrasil.com.br/forum/index.php...st&p=525732 outra sugestão http://scriptbrasil.com.br/forum/index.php...st&p=437016 abraço

Tente assim procedure TFrm_desenhos.DBGrid1DblClick(Sender: TObject); var caminho :string; Pdir :pchar; begin caminho := 'c:\teste\'+ modulo.cds_desenhosCAMINHO.Value+'.pdf'; GetMem(pDir,256); StrPCopy(pDir, pchar(caminho)); {Aqui você coloca o caminho + o nome do arquivo} ShellExecute(0, nil,pchar(caminho), nil, Pdir, SW_NORMAL); FreeMem(pdir,256); end; abraço

tente nestes endereços: http://imasters.uol.com.br/artigo/1340/dot...lphi_-_parte_1/ http://imasters.uol.com.br/artigo/1383/del...lphi_-_parte_2/ http://imasters.uol.com.br/artigo/1459/del...lphi_-_parte_3/ como identar um código usando teclas de atalho http://dprogrammer.wordpress.com/2007/02/1...alho-do-delphi/ abraço

Este componente faz parte do pacote Raize Components este componete é pago mas voce pode tentar baixar destes endereços http://www.componentsource.com/products/ra...ents/index.html http://www.baydownloads.com/search.php?a=4...v4.0.3.Full.zip http://www.torrentz.com/4ee894f3d86f9a5404...e3a02f0a5236940 abraço

Isto eu chamo de trocar 6 por meia dúzia... tanto faz rodar o word no servidor ou local, se o usuário não tiver acesso de escrita não vai fazer nada. ou voce pode usar desta maneira procedure TForm1.BitBtn1Click(Sender: TObject); var s2 : string; begin if FileExists(trim(Edit2.Text)) then begin s2 := '\'+ trim(Edit2.Text); WinExec(pchar('SERVIDOR:C:\Arquivos de programas\Microsoft Office\Office10\WINWORD.EXE ' + s2), 0); end else MessageDlg('Arquivo não encontrado!!!' , mtInformation,[mbOk], 0); end; abraço

sua intensão é fazer um keylogger ?? abraço

Esse mesmo ... no pacote voce encontrará a maneira de instalar e se não conseguir procure no forum que esta dúvida ( instalação do RX ) já foi respondida. abraço

Veja este post http://scriptbrasil.com.br/forum/index.php...st&p=496013 e procure tambem fazer pesquisa no forum antes de postar sua dúvida, pois ela pode já ter sido resolvida em outros posts abraço

então ligue o seu AdoQuery ao DBgrid atraves da propriedade DataSource do AdoQuery.... voce deve estar usando dois DataSources ...um do AdoQuery e um do AdoTable coloque na propriedade DataSource do dbgrid aquele que voce deseja visualizar abraço

acho que tem uma virgula sobrando abraço

Não entendi muito bem qual é a sua idéia, mas vai um exemplo procedure TForm1.Button1Click(Sender: TObject); var i : integer; begin i := length(trim(edit1.Text)); Edit1.Text := copy(Edit1.Text,1,i-1); Edit1.SelectAll; Edit1.CopyToClipboard; Edit2.Clear; Edit2.PasteFromClipboard; Edit1.SetFocus; end; abraço

Veja algumas maneiras procedure TForm1.Button1Click(Sender: TObject); var txt: TStringList; i: integer; begin if ( edit1.Text <> '' ) then begin txt := TStringList.Create; txt.LoadFromFile(ExtractFilePath(ParamStr(0))+'carteiras.txt'); for i:=0 to txt.Count -1 do begin if Pos(edit1.Text,txt[i])>0 then begin label1.caption := 'NÃO LIBERADA'; txt.free; exit; end; end; txt.Add(edit1.Text); txt.SaveToFile(ExtractFilePath(ParamStr(0))+'carteiras.txt'); label1.caption := ' LIBERADA'; Label3.Caption := intToStr( txt.count ); txt.Free; Edit1.Clear; Edit1.SetFocus; end else begin label4.caption := 'Atenção: Digite uma palavra antes de efetuar a busca.'; sleep(3000) // espera 3 segundos e apaga a mensagem label4.clear; Edit1.SetFocus; end; end; ou melhor // comandos acima MessageDlg('Atenção: Digite uma palavra antes de efetuar a busca.', mtInformation, [mbOk], 0); Edit1.SetFocus; abraço

Faça o seguinte teste: 1 - Num Quick Report coloque 2 bandas ... uma de titulo e uma de detail 2 - na de titulo coloque um QRLabel 3 - na banda de Detail coloque um QRMemo 4 - deixe a propriedade AutoSize como false e estique ( Horizontal ) o QRMemo até o tamanho desejado 5 - deixe a propriedade AutoStretch como true 6 - na propriedade Lines do QRMemo coloque um texto grande que ultrapasse as linhas de uma pagina 7 - ajuste a banda de Detail ( Vertical ) para que fique rente a linha de baixo do componente QRMemo 8 - execute a aplicação dando um preview no QR Voce verá a quebra automatica da pagina independente da quantidade de linhas no texto, ou seja, se o texto for maior que as linhas da pagina do QR então o resto do texto será montado em uma nova pagina. abraço

Se voce cria e roda é porque voce satisfez a chamada dessa unit1 em algum form do seu projeto é exatamente o que voce esta recebendo ... um erro >>>> ele traz uma msg de erro: 'file not found: unit1' procure com cuidado em seu projeto ... o erro tambem pode ser causado se voce copiou algum form com outro nome abraço

defina o tamanho da folha como Custom Size e espefique exatamente o tamanho que deseja ou use um dos padrões de folha com tamanho pequeno. use de preferencia fonte arial na impressora lx 300 ... caso a impressão não saia como deve ser, instale o drive da RX 80 abraço

Veja como: procedure TForm1.Button1Click(Sender: TObject); var //quando se tem variaveis, elas ficam antes do primeiro begin txt: TStringList; i: integer; begin txt := TStringList.Create; txt.LoadFromFile('c:\temp.txt'); //abre o arquivo memo1.Clear; memo1.Lines.LoadFromFile('c:\temp.txt'); //abre o arquivo Label1.Caption := 'Total de Linhas = ' + Memo1.lines.count; // ou Label1.Caption := 'Total de Linhas = ' + txt.Count; for i:=0 to txt.Count -1 do if Pos(edit1.Text,txt[i])>0 then //edit1.text é a palavra que você procura begin showmessage('existe palavra'); exit; end; txt.Add(edit1.Text); //adiciona palavra txt.SaveToFile('c:\temp.txt'); //salva arquivo showmessage('palavra adicionada'); txt.Free; end; abraço

creio que voce não vai encontrar nada do tipo e se encontrar será pago .. pois a lógica envolvida nisto não é tão simples e demandaria tempo para se fazer algo parecido. boa sorte abraço

colega... lógica de programação é dificil explicar, ainda mais em forum abraço

Veja neste endereço http://www.devmedia.com.br/articles/viewcomp.asp?comp=4429 abraço

use um componente do RX chamado RxGIFAnimator1 http://br.geocities.com/all_software/download.htm abraço

ultima tentativa para voce... tente abrir a figura no Paint e salvar com extensão jpeg...depois voce tenta carrega-la no delphi se conseguir... pode ser o tipo de compactação, se não conseguir tente usar outra versão do delphi, ou instale um componente TImage de terceiros, como por exemplo o PMultiImage http://www.advdelphisys.com/Code_Lib/ads_ImageLib_frm.html abraço

flavioavilela .... está já não é uma dúvida sobre delphi e sim sobre lógica de programação ... ai fica dificil explicar. abraço

Provedores da web utilizam banco de dados MYSQL 4.1 ou 5.0 ... voce pode usar o MysqlAdmin que está no proprio servidor para criar as suas tabelas ... no entanto o acesso a essas tabelas dependem de algumas coisas. 1 - voce terá que ter um IP fixo para poder acessar as tabelas 2 - para ter um IP fixo tem que usar um serviço de redirecionamento de IP para que voce sempre seja capaz de acessar seu computador, mesmo que ele tenha um IP atribuído dinamicamente (via DHCP) http://www.no-ip.com/downloads.php http://baixatudo.globo.com/Baixatudo/Categ...CLIENT),00.html http://superdownloads.uol.com.br/download/...rl-redirection/ 3 - O acesso do delphi com esse banco de dados ( web ) é feito usando componentes ZEOS http://imasters.uol.com.br/artigo/3377/del...ados_no_delphi/ 4 - Para melhorar o trafego de rede na internet voce deve usar sempre pesquisa que tragam poucos registros a tela do usuário ( Veja sentenças SQL ) 5 - E o mais importante, o provedor deve dar acesso remoto a essas tabelas Neste caso voce deve fazer uma pesquisa nos provedores abraço