Gavoha

Deu certo! Só adaptei a realidade.. mas, perfeito! sSelect := 'SELECT * FROM t_escaladetalhe where IDCLiente_EscalaDetalhe = 66 '+ 'and idFUncao_EscalaDetalhe in ('+ sCodFuncao +') '+ 'and DtEvento_EscalaDetalhe between "'+ FormatDateTime('yyyy-mm-dd', dtInicio.Date ) +'" and " ' + FormatDateTime('yyyy-mm-dd', dtFim.Date )+'"'+ 'and HrEntrada_EscalaDetalhe between "'+ TimeToStr( edHrDe.Time )+ '" and "' +TimeToStr( edHrAte.Time )+'" '+ 'order by DtEvento_EscalaDetalhe,HrEntrada_EscalaDetalhe,IDCooperado_EscalaDetalhe'; Muito obrigado @Jhonas

Senhores, boa tarde.. esse é meu primeiro post Tenho o seguinte Select que me retornam 266 registros no Workbench Código 35 = 35 registros Código 8 = 231 registros SELECT * FROM t_escaladetalhe where IDCLiente_EscalaDetalhe = 66 and idFUncao_EscalaDetalhe in (8,35) and DtEvento_EscalaDetalhe between '2017-04-01' and '2017-04-30' and HrEntrada_EscalaDetalhe between '00:00:00' and '12:00:00' order by DtEvento_EscalaDetalhe,HrEntrada_EscalaDetalhe,IDCooperado_EscalaDetalhe Até aqui, perfeito! Quando faço o mesmo dentro do Delphi 7 só tenho retorno da função 35 e não da 8 , ou seja, não o retorno só acontece quando faço a busca individualmente. O que fiz de errado? (Segue código) DM.qryEscalaDetalhe.close; DM.qryEscalaDetalhe.sql.clear; DM.qryEscalaDetalhe.sql.Add('select * from t_escaladetalhe'); DM.qryEscalaDetalhe.sql.Add('where IDCLiente_EscalaDetalhe = :pID'); DM.qryEscalaDetalhe.sql.Add('and IDFuncao_EscalaDetalhe in (:pFuncao)'); DM.qryEscalaDetalhe.sql.Add('and (DtEvento_EscalaDetalhe between :pDI and :pDF)'); DM.qryEscalaDetalhe.sql.Add('and (HrEntrada_EscalaDetalhe between :pHrI and :pHrF)'); DM.qryEscalaDetalhe.sql.Add('order by DtEvento_EscalaDetalhe,HrEntrada_EscalaDetalhe,IDCooperado_EscalaDetalhe '); DM.qryEscalaDetalhe.ParamByName('pID').Value := edClienteDe.Text; DM.qryEscalaDetalhe.ParamByName('pFuncao').Value := sCodFuncao; DM.qryEscalaDetalhe.ParamByName('pDI').Value := FormatDateTime('yyyy-mm-dd', dtInicio.Date ); DM.qryEscalaDetalhe.ParamByName('pDF').Value := FormatDateTime('yyyy-mm-dd', dtFim.Date ); DM.qryEscalaDetalhe.ParamByName('pHrI').Value := TimeToStr( edHrDe.Time ) ; DM.qryEscalaDetalhe.ParamByName('pHrF').Value := TimeToStr( edHrAte.Time ) ; DM.qryEscalaDetalhe.open; O meu sCodFuncao é uma variável String que é alimentada através de um Loop de um ChekListBox (conferi e está com os 2 valores 8 e 35)

Jhonas, muito obrigado pela paciência. Aprendi mais um pouco! Abraço! [CONCLUÍDO]

Jhonas, tive alguns problemas com essa forma que você postou: Com o Texto: {"altitude":760.0,"bairro":"Ipiranga","cep":"04209000","latitude":"-23.2971699728","longitude":"-46.3623848631","logradouro":"Rua do Manifesto, até 1089/1090","cidade":"São Paulo","ddd":11,"ibge":"3550308","estado":"SP"} sAltitude ficou 760.0,"bairro":"I sBairro ficou "Ipiranga","cep":"0 sCEP ficou "04209000","lati sLatitude ficou "-23.2971699728","longitude sLongitude ficou "-46.3623848631","logradouro

Com base na minha pouca experiência eu fiz algo que resolveu: mResultado.Text := StringReplace(mResultado.Text , '"','',[rfReplaceAll, rfIgnoreCase]); mResultado.Text := StringReplace(mResultado.Text , '{','',[rfReplaceAll, rfIgnoreCase]); mResultado.Text := StringReplace(mResultado.Text , '}','',[rfReplaceAll, rfIgnoreCase]); mResultado.Text := StringReplace(mResultado.Text , ':',',',[rfReplaceAll, rfIgnoreCase]); listCordenadas.Items.Clear; listCordenadas.Items.Delimiter := ','; listCordenadas.items.DelimitedText := mResultado.Text; edAltitude.Text := listCordenadas.items[1]; edBairro.Text := listCordenadas.Items[3]; edCEP.Text := listCordenadas.Items[5]; edLatitude.Text := listCordenadas.Items[7]; edLongitude.Text := listCordenadas.Items[9]; 1-Removi os Caracteres Aspas, Chave Aberta, Chave Fechada e Dois pontos 2- Coloquei a Virgula como Delimitador 3- Preenchi os Edits com as Linhas do ListBox Havia maneira mais simples ou mais segura?

Confesso está acima do meu conhecimento... mas é assim que agente aprende. vou tentar fazer

Senhores, tenho a seguinte string que recebo dentro de um TMemo {"altitude":533.2,"bairro":null,"cep":"17290000","latitude":"-22.504198","longitude":"-48.71221","logradouro":"Macatuba","cidade":"Macatuba","ddd":14,"ibge":"3528007","estado":"SP"} Preciso separar essa string em variáveissAltitude sBairro, sCEP, sLatitude, sLongitude, sLogradouro, sCidade, sDDD, sIBGE, sEstado

POST CONCLUÍDO !!!!

Muito obrigado pelas mensagens! Com suas mensagens eu consegui usar o celular como emulador também. O mesmo Fonte que roda no PC deu tela ´preta no android.. vou descobrir o que há!

Meu amigo Aparentemente sucesso! Como teria que reinstalar o Delphi optei em uma versão mais recente e instalei o Berlin 10.1 Nos teste no PC funcionou perfeitamente, mas não consigo usar meu celular como Emulador como vinha usando nas outras versões. Também não consegui usar o Emulador instalado. [Exec Error] The command "PATH C:\Program Files\Java\jdk1.7.0_25\bin;C:\Program Files (x86)\Embarcadero\Studio\18.0\bin;C:\Users\Public\Documents\Embarcadero\Studio\18.0\Bpl;C:\Program Files (x86)\Embarcadero\Studio\18.0\bin64;C:\Users\Public\Documents\Embarcadero\Studio\18.0\Bpl\Win64;C:\Program Files (x86)\Embarcadero\Studio\16.0\bin;C:\Users\Public\Documents\Embarcadero\Studio\16.0\Bpl;C:\Program Files (x86)\Embarcadero\Studio\16.0\bin64;C:\Users\Public\Documents\Embarcadero\Studio\16.0\Bpl\Win64;C:\ProgramData\Oracle\Java\javapath;C:\Program Files (x86)\Embarcadero\Studio\15.0\bin;C:\Users\Public\Documents\Embarcadero\Studio\15.0\Bpl;C:\Program Files (x86)\Embarcadero\Studio\15.0\bin64;C:\Users\Public\Documents\Embarcadero\Studio\15.0\Bpl\Win64;C:\Program Files (x86)\Embarcadero\Studio\14.0\bin;C:\Users\Public\Documents\Embarcadero\Studio\14.0\Bpl;C:\Program Files (x86)\Embarcadero\Studio\14.0\bin64;C:\Users\Public\Documents\Embarcadero\Studio\14.0\Bpl\Win64;C:\Program Files (x86)\Embarcadero\RAD Studio\9.0\bin;C:\Users\Public\Documents\RAD Studio\9.0\Bpl;C:\Program Files (x86)\Embarcadero\RAD Studio\9.0\bin64;C:\Users\Public\Documents\RAD Studio\9.0\Bpl\Win64;C:\Program Files\Common Files\Microsoft Shared\Windows Live;C:\Program Files (x86)\Common Files\Microsoft Shared\Windows Live;C:\Program Files (x86)\Borland\Delphi7\Bin;C:\Program Files (x86)\Borland\Delphi7\Projects\Bpl\;C:\WINDOWS\system32;C:\WINDOWS;C:\WINDOWS\System32\Wbem;C:\WINDOWS\System32\WindowsPowerShell\v1.0\;C:\Program Files (x86)\Windows Live\Shared;C:\Program Files (x86)\RemObjects Software\Oxygene\bin;C:\Program Files (x86)\K-Lite Codec Pack\QuickTime\QTSystem\;C:\Program Files (x86)\Java\jdk1.8.0_60\bin;C:\Program Files (x86)\Skype\Phone\;C:\Program Files\TortoiseSVN\bin;C:\Program Files (x86)\Windows Kits\10\Windows Performance Toolkit\;C:\Users\Michel\AppData\Local\Microsoft\WindowsApps;C:\Program Files\Java\jdk1.7.0_25\bin & "C:\Users\Public\Documents\Embarcadero\Studio\18.0\PlatformSDKs\android-sdk-windows\build-tools\22.0.1\dx.bat" --dex --output="C:\Gavoha\Clientes\03-DigiCartApp\DigiCartApp8\Android\Debug\classes.dex" "c:\program files (x86)\embarcadero\studio\18.0\lib\Android\Debug\android-support-v4.dex.jar" "c:\program files (x86)\embarcadero\studio\18.0\lib\Android\Debug\cloud-messaging.dex.jar" "c:\program files (x86)\embarcadero\studio\18.0\lib\Android\Debug\fmx.dex.jar" "c:\program files (x86)\embarcadero\studio\18.0\lib\Android\Debug\google-analytics-v2.dex.jar" "c:\program files (x86)\embarcadero\studio\18.0\lib\Android\Debug\google-play-billing.dex.jar" "c:\program files (x86)\embarcadero\studio\18.0\lib\Android\Debug\google-play-licensing.dex.jar" "c:\program files (x86)\embarcadero\studio\18.0\lib\Android\Debug\google-play-services.dex.jar" " exited with code 3.

OK Vou refazer a instalação e posto o resultado

Vou fazer isso sim Jhonas... mas estou tentando esgotar as possibilidades primeiro pois tenho muitos componentes e a reinstalação seria um grande transtorno devido a falta de tempo. Pensei em uma solução mas que não sei ao certo como fazer: Como a perda do foco não é no componente mas sim na linha do TMemo, pensei em colocar no OnChange algo que mantenha o foco naquela linha enquanto o usuário digitar. (se fosse foco no componente seria memo1.setfocus ... mas seria na posição atual do cursor.

Após sua mensagem fui fazer o "Update 1" disponível (Longo e demorado por sinal) mas o problema continua. Quanto a pergunta se o programa executado no Micro também apresenta o problema "SIM" **Tentei fazer pelo RichEditor e me foi apresentado o mesmo problema. Não faço ideia de como resolver ou contornar esse problema.

Após sua mensagem fui fazer o "Update 1" disponível (Longo e demorado por sinal) mas o problema continua. Quanto a pergunta se o programa executado no Micro também apresenta o problema "SIM" Não faço ideia de como resolver ou contornar esse problema.

Sim... e como estou complicando também para Windows, acontece também no Windows.