Jhonas

OBS: não é somente o LIKE vai precisar usar tambem '%'+variavel+'%' exemplo: ('SELECT cidade FROM clientes WHERE cidade LIKE ' + #39 + DBEdit9.Text + #37 + #39 + ' ORDER BY cidade'); ou ('SELECT cidade FROM clientes WHERE cidade LIKE ' + '%' + DBEdit9.Text + '%' + ' ORDER BY cidade'); as letras que entiverem contidas no DBEdit9.Text serão procuradas na tabela na posição onde se encontrarem podendo ser no começo, no meio ou no fim do campo .... NB apple mac-book 15 notebook apple macbook 15 apple notebook mac-book 15 abraço

coloque o seu código para analise abraço

program Project1; {$APPTYPE CONSOLE} uses SysUtils; Var Nome : String; Numero : Integer; numeroMAX : Integer; nivel : Integer; palpite : integer; _chances : integer; querDesistir : boolean; resposta : string; querContinuar : boolean; begin // precisamos inicializar algumas variaveis antes de começar o programa randomize; querContinuar := true; writeln(' -----------------------------------'); writeln(' - Bem Vindo ao Jogo do Adivinha. -'); writeln(' -----------------------------------'); //writeln(''); pula linhas writeln(''); writeln(''); // tratamento especial. write('Digite o seu nome.'); readln (Nome); repeat // repeat serve para a opção de iniciar novamento o jogo, ao acertar clrscr; querDesistir := false; writeln ('Descricao:'); writeln (Nome,',esse jogo possui 3 niveis diferentes, e voce tem como objetivo acertar'); writeln ('um numero aleatorio num intervalo de numeros do nivel que voce escolher.'); repeat writeln(''); writeln(''); writeln(''); writeln ('------------------------------------------'); writeln ('- Nivel - 1 ......... numero de 0 a 10 -'); writeln ('- Nivel - 2 ......... numero de 0 a 30 -'); writeln ('- Nivel - 3 ......... numero de 0 a 100 -'); writeln ('------------------------------------------'); writeln('---------------------------------------------------'); writeln('- Nivel - 1 Voce tem infitas chances para acertar -'); writeln('- Nivel - 2 Voce tem 15 chances para acertar -'); writeln('- Nivel - 3 Voce tem 15 chances para acertar -'); writeln('---------------------------------------------------'); writeln(''); writeln ('Digite digite o numero do nivel que voce quer entrar'); readln(nivel); // caso usario digitar um numero diferente dos niveis existentes if (palpite >=1) or (palpite <=3)then begin writeln ('Digite do NIVEL que voce quer entrar!'); end; clrscr; // caso o usario digitar um numero fora dos niveis existentes if (nivel<>1)and (nivel<>2)and (nivel<>3) then writeln ('Digite um numero compativel com os niveis existentes!'); until (nivel=1) or (nivel=2) or (nivel=3); // niveis criados e atribuidos seus valores if (nivel=1) then numeroMAX := 10; if (nivel=2)then begin numeroMAX := 30; _chances := 15; end; if (nivel=3) then begin numeroMAX := 100; _chances := 15; end; //faz o numero aleatorio em numeroMAX numero := random(numeroMAX); // colocar como comentario writeln(numero) -> usa para testar writeln(numero,',''lembrar de apagar isso depois'); repeat writeln ('Digite seu palpite'); readln (palpite); _chances := _chances -1; writeln(''); if (palpite < numero+3) and (palpite > numero -3) and (palpite <> numero) then Writeln('Esta fervendo!!!1!!') else if (palpite < numero+6) and (palpite > numero -6)then Writeln('Esta quente!') else if (palpite < numero+10) and (palpite > numero -10)then Writeln('Esta frio.') else writeln('Esta gelado...'); // caso o palpite seja diferente do numero sorteado o usario terá a opção // de desistir do jogo, [boolean]if numero <> palpite then begin writeln(''); writeln('Quer desistir??[S/N]'); readln(resposta); if (resposta = 's') or (resposta = 'S') then querDesistir := true; // caso o usario resolver desistir a seguinte mesanegm irá aparecer if (resposta = 's') or (resposta = 'S') then begin clrscr; writeln('Muito Obrigado por jogar!!'); writeln(''); writeln('==================================================='); writeln('*** Aperte <ENTER> para concluir a finalizacao ***'); writeln('==================================================='); end; end; //esperar cara digitar // se o cara apertou enter // variavel passada no readln := tudo q o cara digitou until (palpite = numero) or (_chances = 0) or (querDesistir = true); // mensagem atribuida através de um variavel boolean igual a opção anterior if (palpite = numero) then writeln ('Parabens voce acertou!'); if (_chances = 0) then writeln('Suas chances acabaram.'); writeln('Deseja iniciar um novo jogo?[S/N]'); readln (resposta); if (resposta = 'n') or (resposta = 'N') then querContinuar := false; if (resposta = 's') or (resposta = 's') then begin clrscr; writeln('O jogo voltara ao menu principal.'); writeln(''); writeln('==================================================='); writeln('========== Aperte <ENTER> para voltar ==========='); writeln('==================================================='); end; readln; until (querContinuar = false); end. Seu exercicio está bom, mas se voce puder usar outros comandos, dá pra enxugar mais o código OBS: esse comando esta no lugar errado ... verifique if (palpite = numero) then writeln ('Parabens voce acertou!'); abraço

por que não ? se fosse uma versão trial ou se ficasse aparecendo alguma mensagem relativo a compra do componente, voce não poderia usar, mas nesse caso, não há restrições. abraço

se fosse pago, voce não estaria usando ... certo ? abraço

No delphi 2009 o componente nativo é o Rave Reports o Quick Report não acompanha essa versão mas se voce sabe usa-lo, basta instalar abraço

Qual linguagem mais simples eu devo começar a estudar para aprender a desenvolver programas básicos sobre python veja http://www.google.com.br/search?q=aprenden...aqi=g7&aql= sobre pascal veja http://www.google.com.br/search?q=aprenden...p;aqi=&aql= abraço

exemplos http://logicasdeprogramacao.blogspot.com.br/ http://www.google.com.br/search?q=Fa%C3%A7...p;aqi=&aql= abraço

vai encontrar um exemplo nesse link http://pt.scribd.com/doc/50978145/Algoritm...cios-resolvidos abraço

veja http://www.google.com.br/search?q=CREATE+T...aqi=g1&aql= abraço

veja como fazer relacionamento entre tabelas http://www.google.com.br/search?q=relacion...aqi=g1&aql= OBS: se voce fizer o relacionamento correto, não terá que deixar uma quantidade de atributos fixa abraço

veja http://dev.mysql.com/doc/refman/4.1/pt/log...aintenance.html http://dev.mysql.com/doc/refman/4.1/pt/log-files.html abraço

veja http://scriptbrasil.com.br/forum/index.php...st&p=506438 abraço

conforme pede no livro o mesmo apresenta erro de sintaxe qual é a versão do seu mysql e qual é a instrução SQL que voce esta usando ?

veja http://www.4shared.com/file/UifXkiUb/Quick..._Delphi_20.html http://www.filestube.com/ba085629541bfcf40...i-2009-EXE.html abraço

o comando Unload Me serve para fechar o formulario ... o erro pode estar ai ( fechando o programa ) abraço

veja http://www.google.com.br/search?q=fotos+ma...p;aqi=&aql= abraço

sobre python veja http://www.google.com.br/search?q=aprenden...aqi=g7&aql= sobre pascal veja http://www.google.com.br/search?q=aprenden...p;aqi=&aql= abraço

veja http://www.google.com.br/search?q=vlookup+...i=g-l2&aql= abraço

veja http://www.google.com.br/search?q=multipag...i=g-l2&aql= abraço

criar uma dll para voce, acho que não vai achar ninguém mas voce pode pesquisar sobre o assunto e tentar cria-la http://www.google.com.br/search?q=criar+dl...aqi=g2&aql= abraço

veja http://msdn.microsoft.com/en-us/library/sy...wser.print.aspx abraço

veja http://www.linhadecodigo.com.br/artigo/470...dereco-mac.aspx abraço

se voce estiver trabalhando com vetores, fica simples ... basta contar a quantidade de caracteres e no vetor de quebra verificar se o conteudo esta vazio ou não ... se não estiver vazio, basta testar os vetores anteriores ate achar um conteudo vazio e a partir dai efetuar a quebra abraço

veja a solução da microsoft para esse erro http://support.microsoft.com/kb/932349/pt-br abraço