Jhonas

a propriedade Value fornece o valor do campo escolhido na propriedade LinkField da coluna da linha clicada: procedure TFPrincipal.IWDBGrid1Columns0Click(ASender: TObject; const AValue: string); ou voce pode procurar por algum evento onde tenha a variavel columm que voce possa usar procedure TForm1.IWDBGrid1RenderCell( ACell: TIWGridCell; const ARow, AColumn: Integer); Mais informações http://www2.unoeste.br/~grupes/documentos/...ro_intraweb.pdf http://www.facunte.com.br/livros/dw7/livro...capitulo_12.pdf abraço

Veja nestes links http://www.xmlfox.com/download.htm http://msdn.microsoft.com/pt-br/library/ms171943(VS.80).aspx http://msdn.microsoft.com/pt-br/library/ms171812.aspx abraço

Amigo ... os links abaixo tem todo o material que voce precisa para aprender PONTEIROS http://www.eng.uerj.br/~marcelo/msx/cursos/pascal8.html http://www.cultura.ufpa.br/ferreira/Discip...strut_dinam.pdf http://www.icmc.usp.br/~sce6001/aulas/aula...pascal_2005.pdf http://www.icmc.usp.br/~sce182/ldinam.html http://www.de9.ime.eb.br/~cgmello/ic/5-Pascal.ppt PROCEDURES http://pt.wikibooks.org/wiki/Pascal/Procedures http://progrjp.wordpress.com/2007/10/23/pa...na-calculadora/ http://www.eng.uerj.br/~marcelo/msx/cursos/pascal3.html http://www.babooforum.com.br/forum/index.p...howtopic=538039 http://osorio.wait4.org/oldsite/lab1/proc-func.pdf http://www.de9.ime.eb.br/~cgmello/ic/4-Pascal.ppt http://www.hkbu.edu.hk/~bba_ism/ISM2110/pas042.htm abraço

Vai achar nestes links todo o material necessário para sanar as suas dúvidas http://www.sefaz.pe.gov.br/sefaz2/nfe/arqu...emissao_nfe.pdf http://www.fazenda.sp.gov.br/nfe/url_webse...webservices.asp http://www.fazenda.sp.gov.br/nfe/credenciamento.asp http://www.movergs.com.br/arquivos/sala_le...folder_nf-e.ppt http://www.nfe.fazenda.gov.br/portal/assuntoagrupado1.aspx http://www.nfe.fazenda.gov.br/portal/docs/..._PL_007_Hom.pdf http://hom.nfe.fazenda.gov.br/PORTAL/WebServices.aspx http://hom.nfe.fazenda.gov.br/portal/# http://www.emissornfehom.fazenda.sp.gov.br/ abraço

quando disse que tambem está funcionando direitinho, quis dizer que digito uma letra ou palavra no edit e ele faz a pesquisa corretamente .... aqui não dá nenhuma mensagem de erro. fiz um teste aqui usando um componente Query, DataSource, DBgrid, Edit e um Botao abraço

Se voce está se referindo ao segundo código: procedure TForm1.Button1Click(Sender: TObject); begin qry.Close; qry.SQL.clear; qry.SQL.Add('SELECT * from clientes where nome like :nome'); qry.params[0].value := '%' + Edit1.text + '%'; qry.Open; end; tambem está funcionando direitinho abraço

O sistema homologado pode sofrer alterações, mas é necessário verificar que tipo de alteração será feita, pois dependendo terá que fazer novamente a homologação Se o sistema vai funcionar em rede, bastará apenas uma homologação abraço

Para imprimir deixe a propriedade Stretch = true do QRDBImage1 ou do QRImage1 Se mesmo assim não imprimir, então voce deverá diminuir o tamanho da imagem exemplo: se a imagem tem 1.4 MB ( .bmp ) mude para JPG que fica bem menor .. tipo 180 Kb abraço

Correção do código procedure TForm1.Button1Click(Sender: TObject); var sql : string; begin sql := 'SELECT * from tabela12 where nome like %' + edit1.text + '%'; qry.Close; //fechar a qry qry.SQL.clear; // limpa a qry se tem dados dentro qry.SQL.Add(sql); //adiciona a variavel sql qry.Open; //executa e lista os dados da qry end; procedure TForm1.Button1Click(Sender: TObject); begin qry.Close; qry.SQL.clear; qry.SQL.Add('SELECT * from clientes where nome like :nome'); qry.params[0].value := '%' + Edit1.text + '%'; qry.Open; end; abraço

coloque a rotina no evento OnCreate do Form2 abraço

Esse teclado costuma dar problemas ... acho que ele vem com um CD de instalação ( voce instalou e configurou ? ) primeiro: para verificar se as portas USB não estão queimadas, coloque um pen drive em cada porta USB e veja se o sistema operacional reconhece o dispositivo.... se sim, sorte sua .... se não, vai acabar comprando outra placa mãe. segundo: como é um notebook voce está usando um teclado fixo ( veja as IRQs ) IRQ é abreviação de "Interrupt Request Line". Os endereços de IRQ são interrupções de hardware, canais que os dispositivos podem utilizar para chamar a atenção do processador. IRQ 0 - Sinal de clock da placa-mãe (fixo) IRQ 1 - Teclado (fixo) IRQ 2 - Cascateador de IRQs (fixo) IRQ 3 - Porta serial 2 IRQ 4 - Porta serial 1 IRQ 5 - Livre IRQ 6 - Drive de disquetes IRQ 7 - Porta paralela (impressora) IRQ 8 - Relógio do CMOS (fixo) IRQ 9 - Placa de vídeo IRQ 10 - Livre IRQ 11 - Controlador USB IRQ 12 - Porta PS/2 IRQ 13 - Coprocessador aritmético (fixo) IRQ 14 - IDE Primária IRQ 15 - IDE Secundária Na maioria das situações, o sistema operacional simplesmente chaveia entre os aplicativos ativos, permitindo que ele utilize o processador durante um determinado espaço de tempo e passe a bola para o seguinte. Como o processador trabalha a uma freqüência de clock muito alta, o chaveamento é feito de forma muito rápida, dando a impressão de que todos realmente estão sendo executados ao mesmo tempo No caso dos processadores dual-core, temos na realidade dois processadores, de forma que dois threads podem ser processados simultaneamente, mas o princípio continua o mesmo, já que em um PC típico temos um número sempre muito maior de aplicativos ativos. Muitas operações, entretanto, não podem esperar. O exemplo mais típico são os caracteres digitados no teclado e os movimentos do mouse (que precisam ser interpretados rapidamente pelo sistema, mesmo enquanto o PC está executando tarefas pesadas), mas existem muitas outras operações que precisam de atenção semelhante, incluindo as transferências de dados recebidos através da placa de rede, operações de leitura e escrita nos HDs e assim por diante. A placa de rede, por exemplo, não pode ficar simplesmente esperando que chegue a sua vez dentro do sistema multitarefa, pois isso retardaria a transmissão dos pacotes, aumentando o ping e reduzindo a taxa de transmissão da rede. É neste ponto que entram os endereços de IRQ. Ao ser avisado através de qualquer um desses canais, o processador imediatamente pára qualquer coisa que esteja fazendo e dá atenção ao dispositivo, voltando ao trabalho logo depois. Cada endereço é uma espécie de campainha, que pode ser tocada a qualquer momento. Se não fossem pelos endereços de IRQ, o processador não seria capaz de ler as teclas digitadas no teclado ou os clicks do mouse, a transmissão de dados através da rede pararia toda vez que você abrisse qualquer programa e assim por diante. O USB é um bom exemplo. O controlador ocupa um único IRQ, que é compartilhado entre todas as portas USB e todos os dispositivos conectados a elas. Mesmo que a placa-mãe tenha 6 portas USB e você utilize todas, terá ocupado apenas um endereço. Se você utilizasse apenas periféricos USB (mouse, impressora, scanner, teclado, etc.), poderia desabilitar todas as portas de legado da placa-mãe (as duas portas seriais, a porta paralela e a porta PS/2), o que liberaria 4 endereços de IRQ. RESUMO: Isso indica conflito de IRQs, que voce pode solucionar .... leia este artigo http://www.gdhpress.com.br/hmc/leia/index.php?p=cap4-13 abraço

Tente este componente: http://dsp.mirrors.crysys.hu/ftp/d30free/dbgrideh.zip abraço

O seu código corrigido: procedure TForm1.Edit1Change(Sender: TObject); var a: string; begin if rbcomeca.checked then begin a:='select *from tabela12 where nome like ' + QuotedStr(edit1.text + '%') + 'order by nome'; end else if rbcontem.checked then begin a:='select *from tabela12 where nome like ' + QuotedStr('%' + edit1.text + '%') + 'order by nome'; end; with ADOQuery1 do begin close; SQL.clear; sql.add (a); open; end; end; abraço

Felipe ... primeiro: esteja atento as regras do forum segundo: não coloque a imagem do seu código e sim o próprio código ( basta copiar e colar no forum ), dessa maneira voce facilita alguém te ajudar. terceiro: coloque o erro como ele aparece na sua tela ... colocar como inexplicável não ajuda quarto: antes de postar a sua dúvida, faça uma pesquisa no forum para verificar se ela já existe e se foi resolvida. basta voce inserir o link do curso no seu post abraço

O função Ord retorna um valor inteiro para qualquer tipo ordinal. É usado principalmente para converter carácter ou enumerações em um numero equivalente. 1 function Ord ( Arg : AnsiChar | Char | WideChar | Enumeration | Integer ) : Integer; 2 function Ord ( Arg : Int64 ) : Int64; exemplo: var A : AnsiChar; C : Char; W : WideChar; E : Boolean; I : Integer; I64 : Int64; begin A := 'A'; C := 'C'; W := 'W'; E := True; I := 22; I64 := 64; ShowMessage('A = '+IntToStr(Ord(A))); ShowMessage('C = '+IntToStr(Ord(C))); ShowMessage('W = '+IntToStr(Ord(W))); ShowMessage('E = '+IntToStr(Ord(E))); ShowMessage('I = '+IntToStr(Ord(I))); ShowMessage('I64 = '+IntToStr(Ord(I64))); end; Resultados A = 65 C = 67 W = 87 E = 1 I = 22 I64 = 64 O função Chr converte um valor inteiro ( IntValue ) em um AnsiChar ou WideChar 1 function Chr ( IntValue : Integer ) : AnsiChar; 2 function Chr ( IntValue : Integer ) : WideChar; exemplo: var tab : char; crlf : string; begin tab := Chr(9); crlf := Chr(13)+Chr(10); ShowMessage('Hello'+tab+'World'); ShowMessage(''); ShowMessage('Hello'+crlf+'World'); ShowMessage(''); end; Podemos lidar com os caracteres individualmente, ao invés de inseridos em strings, usando a variável "char". var Letra: char; begin Letra:= 'A'; end; É preciso ter cuidado aqui pois a variável Letra não é uma string de um único caracter e sim apenas um único caracter. Para usar o código ASCII da letra, ao invés da sua representação gráfica, é preciso usar antes o sinal "#". Por exemplo Letra:= #65 é o mesmo que Letra:= 'A', pois 65 é o código ASCII para a letra "A". O Delphi possui diversas funções pré definidas, que são usadas em conjunto com as strings. As principais são: chr(X) - Fornece um caracter a partir do seu código ASCII (X pode ser uma expressão numérica). Por exemplo: Letra:= chr(65); Letra:= chr(55 + 10); ord(X) - Fornece o código ASCII da letra especificada. Exemplo (Valor é uma variável integer): Valor:= ord('A'); Valor:= ord(Nome[1]); Outro exemplo: Como Criptografar dados no Delphi? Resposta: Function EnDeCripta (Texto : String; Chave: Word) : String; var I: Integer; Saida : String; begin Saida := \'\'; { Atribuímos o valor inicial da variável como sendo uma String vazia} For I := 1 to Length (Texto) do {Aqui criamos laço “FOR DO“ indo de 1 ao tamanho em bytes da variável a ser criptografada, atribuindo o valor numérico à variável “I”} Saida := Saida + Char ( Not ( Ord ( Texto[I] ) - Chave ) ); {Este é o ponto-chave da função, pois ele após percorrer cada letra da String(Texto) toma as seguintes medidas: Result := Saida; { Result é o termo usado para receber o resultado da nossa função e lançá-la como resultado da própria função.} end; abraço

procedure TForm1.Button1Click(Sender: TObject); var a,b,c: integer; begin a:=strtoint (edit1.text); b:=strtoint (edit2.text); // faltou colocar um ponto e virgula c:= a + b; edit3.Text:=inttostr(c); end; abraço

Veja este material http://www.webnets.com.br/tutoriais.asp?id=13 http://www.apostilaspdf.com/descarga/desca...manual=Apostila manual ASP - Active Server Pages&enlace=http://rapidshare.com/files/286659756/apostila-manual-asp-active-server-pages.rar http://www.docstoc.com/docs/18989956/Os-objetos-ASP http://www.ajuda24h.net/tutoriais.php?id=5 http://www.macoratti.net/aspado.htm http://superap.net/apostilas/ASP/ASP%20-%2...%20do%20ASP.pdf http://scriptbrasil.com.br/forum/index.php?showtopic=47068 abraço

Tem sim .. através dos registros do windows, mas não é aconselhavel abraço

Pode ser virus ou registro corrompido do windows Voce pode tentar primeiramente fazer uma recuperação dos arquivos originais do windows em Iniciar > digite cmd > depois digite sfc /scannow obs: coloque o CD de instalação do windows no drive de CDROM antes de digitar o comando ( demora uns 10 minutos ) Caso isso não resolva tente: http://infofelix7.wordpress.com/2009/03/08/212/ http://support.microsoft.com/kb/307545/pt-br abraço

_dbConexao := ADatabase; seria: frmExportacao.Database := Conexao; ou frmExportacao.Database := _dbConexao; Sem o código todo fica dificil fazer uma análise abraço

Antes de postar a sua dúvida, procure sempre pesquisar no forum para verificar se dúvidas parecidas com a sua já foram resolvidas. http://scriptbrasil.com.br/forum/index.php...ite=rave+report abraço

frmExportacao.Database := Conexao; frmExportacao.MesReferencia := Params.MesReferencia; frmExportacao.AnoReferencia := Params.AnoReferencia; frmExportacao.ShowModal; OBS: quando voce passa um parametro, ele possui um indice 0, 1, 2 ... etc exemplo: Params[0].Name := 'modelo'; Params[1].Name := 'sigla'; outra maneira de fazer a passagem de parametros ParamByName('modelo').Text := fmodelo; ParamByName('sigla').Text := fsigla; Então possivelmente o erro esteja onde faltou colocar um indice em Params List index out of bounds frmExportacao.MesReferencia := Params[0].MesReferencia; abraço

OBS : O link esta apontando para um arquivo .zip vazio, mas tem outro neste endereço: http://www.torry.net/vcl/experts/code/indent.zip abraço

Eu utilizo a opção em MM e consigo o ajuste perfeito como se estivesse usando uma regua de plastico ... a dica é que voce deve medir a partir das bordas como mediria usando o papel. abraço

voce deve usar um visualizador de arquivos ... O Peeper consegue visualizar mais de 30 tipos diferentes de arquivos, e com ele voce pode descobrir a estrutura do arquivo. http://www.softlookup.com/display.asp?id=25247 abraço