Marian_snp

tópico Resolvido ok agraceço novamente

ok esta funcionado muito bem, so gostaria de saber se na linha cont := 0; tem como eu declrarar um edit. tipo cont := edit....... abraço

Eu tentei com o Ttimer mas não consequi se você poder me enviar a forma de fazer eu agradeço

Eu fiz a sequinte funçao procedure TFrmPrincipal.BitBtn3Click(Sender: TObject); var b : Integer; begin b := 0 ; repeat b:=b+1; If StrToInt(Edit19.Text) < 60 Then Edit19.Text := IntToStr(StrToIntDef(Edit19.Text,0)+1); sleep(2000) until b = 62; end; a questao e a seguinte eu preciso fazer um temporizador, pois o processo de contagem acima é muito rapido, quando eu clico no botao já apecere o 60 no edit, então eu coloquei um sleep, mas quando eu execulto clicando no botao o sistema trava,não aceita o sleep.... alguém poderia me ajudar a fazer essa rotina.

RESOLVIDO. Pessoal agraço pela atençao e ajuda de vocês. O script foi resolvido e ficou assim: With DM.AdoQuery1 do begin close; SQL.clear; SQL.Add('select * from cam Where') ; SQL.Add('(:Par1 in (C1, C2, C3, C4, C5, C6 ,C7, C8, C9, C10, C11, C12, C13, C14, C15)) and'); SQL.Add('(:Par2 in (C1, C2, C3, C4, C5, C6 ,C7, C8, C9, C10, C11, C12, C13, C14, C15)) and'); SQL.Add('(:Par3 in (C1, C2, C3, C4, C5, C6 ,C7, C8, C9, C10, C11, C12, C13, C14, C15)) and'); SQL.Add('(:Par4 in (C1, C2, C3, C4, C5, C6 ,C7, C8, C9, C10, C11, C12, C13, C14, C15)) and'); SQL.Add('(:Par5 in (C1, C2, C3, C4, C5, C6 ,C7, C8, C9, C10, C11, C12, C13, C14, C15)) and'); SQL.Add('(:Par6 in (C1, C2, C3, C4, C5, C6 ,C7, C8, C9, C10, C11, C12, C13, C14, C15))'); Parameters.ParamByName('Par1').Value := StrToInt(Edit1.Text); Parameters.ParamByName('Par2').Value := StrToInt(Edit2.Text); Parameters.ParamByName('Par3').Value := StrToInt(Edit3.Text); Parameters.ParamByName('Par4').Value := StrToInt(Edit4.Text); Parameters.ParamByName('Par5').Value := StrToInt(Edit5.Text); Parameters.ParamByName('Par6').Value := StrToInt(Edit6.Text); open; if DM.AdoQuery1.RecordCount = 0 then showmessage('Nenhum Registro foi Encontrado com estas restrições!!'); end;

dessa forma o c1 vai pesquisar no edit, o c2 no edit2 e assim ate o sexto....não da certo. o que eu preciso e que o c1 seja pesquisado em todos os edits do 1 ate o 6, o c2 nos edits 1 ate o seis e assim ate o ultimo. mais completo seria assim são seis edits e para ser pesquisados em 15 campos na tabela e todos os seis edits tem que pesquisar nos 15 campos da tabela.. em resumo seria mais ou mesmo assim. digamos que eu tenha digitados nos edits os numero 1 4 7 9 11 12 na tabela eu tenho os numero 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 ficaria assim então edit1 edit2 edti3 edit4 edit5 edit6 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Ola. se alguém poder me ajudar eu agradeço. preciso fazer uma busca em toda a tabela ultizando dois edit, então eu usei. if not DM.Tab_Numeros.Locate('C1;C2', VarArrayOf([edit1.text, edit2.text]), [loPartialKey])then ShowMessage ('Dados não Localizados'); porem o edit1 so pesquisa no c1 e o edit2 nos pesquisa no c2. eu tenhos os campos c1 c2 c3 c4 c5 e c6 e preciso que os edits pesquise em todos os campos,seria tipo assim os numeros da loteria sorteados para ser pesquisado no banco de dados(Tabela)