Arrais Júnior

boa noite, tenho uma aplicação onde faço uso de um adoquery simples e o banco de dados simples salvo no computador. queria saber se existe uma forma deu setar o adoquery para "ler" o banco de dados access que esteja salvo em um link na internet. obg.

sei, eu tentei fazer com checkbox, no entanto, apesar de ter conseguido por em linhas, utilizando a propriedade WORDWRAP do CheckBox para setada em TRUE e com o cód. CheckBox1.Caption:='123' + #13 + '456'; só que é um problema para mim, já que eu vou ter que tirar as alternativas de um banco de dados... Eu estava pensando e acabei por botar 5 RadioButtons, sem caption e ao lado os DBMemo (onde será exibido a alternativa direto do banco de dados, porém, ainda não consegui pensar em uma maneira de associar o RadioButton1,2,3,4 e 5, ao Campo RESPOSTACORRETA que fica no banco de dados. Lembre-se que quando utilizei o RadioGroup você me ensinou a fazer a associação através desse cód. // RESPOSTA CORRETA if RadioGroup1.ItemIndex = strtoint(DBText1.Caption) then RadioGroup1.Color := $0080FF80 else RadioGroup1.Color := $0070A5FC; end; ... Você consegue visualizar uma possibilidade para esta minha dúvida??? Algum método para quando clicar em um botão ele ler o número que consta no campo RESPOSTACORRETA (DBText1) e então associar aos RadiosButtons, identificando o RadioButton1 como sendo o valor 1 do DBText1, o RadioButton2 como sendo o valor 2 do DBText1, e assim sucessivamente... obg e desculpa pela dor de cabeça! :) pensei em uma possibilidade meio que bizarra, mas que poderá funcionar...me ajuda a implementar... no onclick do RadioButton1 eu vou por algo que faça isso "se DBText1.caption contiver o valor 1 muda-se a cor do DBMemo1.text pára verde, caso contrário muda-se a cor do DBMemo1.text para vermelho" no onclick do RadioButton2 eu vou por algo que faça isso "se DBText1.caption contiver o valor 2 muda-se a cor do DBMemo2.text pára verde, caso contrário muda-se a cor do DBMemo2.text para vermelho" daria certo? só não sei implementar isso obg mais uma vez. pensei em uma possibilidade meio que bizarra, mas que poderá funcionar...me ajuda a implementar... no onclick do RadioButton1 eu vou por algo que faça isso "se DBText1.caption contiver o valor 1 muda-se a cor do DBMemo1.text pára verde, caso contrário muda-se a cor do DBMemo1.text para vermelho" no onclick do RadioButton2 eu vou por algo que faça isso "se DBText1.caption contiver o valor 2 muda-se a cor do DBMemo2.text pára verde, caso contrário muda-se a cor do DBMemo2.text para vermelho" daria certo? só não sei implementar isso obg mais uma vez. /////////////////////////////////////////////////////// vlws....eu fiz assim e deu certo // RESPOSTA CORRETA if DBText1.caption = ('1') then DBMemo2.Color := $0080FF80 else DBMemo2.Color := $0070A5FC; .... obg

desculpe, apareceu um imprevisto aqui.... quando eu boto um ITEM muito grande, ele não justifica para caber dentro do radiogroup, como eu faço para que fique o texto dentro dele?

obg jhonas, todas as dúvidas foram sanadas! abração.

vlw jhonas, deu certíssimo aqui...não sei se você leu a ultima parte do post acima, porque eu tava editando quando você me respondeu... outra dúvida é... como eu faço para "resetar" o RadioGrup, pois quando eu boto para pegar mais valores de outras alternatavas, ele vai somando, 4,8,12,16, ... ..eu poderia botar para ele resetar em um botão para ficar pronto para receber mais alternativas. obg

então...eu fiz aqui dessa maneira.. um botão para gerar perguntas e alternativas RadioGroup1.Items.Append('( A ) ' + DBMemo2.Text); RadioGroup1.Items.Append('( B ) ' + DBMemo3.Text); RadioGroup1.Items.Append('( C ) ' + DBMemo4.Text); RadioGroup1.Items.Append('( D ) ' + DBMemo5.Text); tou com dificuldades para fazer a resposta, exemplo, eu queria algo assim... onde no DBText1 seria o item da resposta correta, no entanto, não consigo fazer...dá erro. // RESPOSTA CORRETA if RadioGroup1.ItemIndex = (DBText1.Caption) then RadioGroup1.Color := $0080FF80 else RadioGroup1.Color := $0070A5FC; end; outra dúvida é... como eu faço para "resetar" o RadioGrup, pois quando eu boto para pegar mais valores de outras alternatavas, ele vai somando, 4,8,12,16, ... ..eu poderia botar para ele resetar em um botão para ficar pronto para receber mais alternativas. obg

usei a imaginação e.... fiz um banco de dados onde consta os seguintes campos BDText1 (pergunta ) BDText2 (Item A ) BDText3 (Item B ) BDText4 (Item C ) BDText5 (Item D ) BDText6 (Item E ) BDText7 (Resposta Correta, indicada pelos numeros de 1 a 5) OBS: o DBText7 ficará INVISIVEL (contendo um número de 1 a 5, como já dito). Coloquei 5 RadioButtons RadioButton1 = Correspondente ao Item A RadioButton2 = Correspondente ao Item B RadioButton3 = Correspondente ao Item C RadioButton4 = Correspondente ao Item D RadioButton5 = Correspondente ao Item E ... agora vem o problema... eu queria que QUANDO marcasse qualquer RadioButton fizesse uma leitura do NÚMERO que consta no DBText7 e mudasse a cor do RadioButton correspondente para verde e os demais ficariam da cor vermelha. acho que essa maneira supre minhas necessidades =D vlws jhonas

jhonas, me d uma luz aqui... hihihih tipo, eu tava usando o radiobutton, ai botava no onclick dele para mudar a cor do item certo para verde e as demais para vermelho... ok...assim dá certo ... mas...o problema disso é que eu teria que configurar todas as perguntas, respostas e tals, eu queria fazer um estilo que desse para por as perguntas e resposta em um banco de dados access e que tivesse alguma forma de ESPECIFICAR a resposta correta, para que quando a pessoa apertasse na correta ele corrigir... não sei como fazer isso.... não sei se existe um componente tipo o radiobutton para banco de dados... obg.

boa madrugada, antes de tudo, sou iniciante em Delphi e estive pensando em criar uma aplicação para estudo. nesse aplicação seria feito um banco de dados em access e iria aparecer uma pergunta com algumas opções de resposta, gostaria de colocar aquele componente que só se pode marcar um (não lembro se e o checklist) e quando a pessoa marcasse, apareceria a confirmação da resposta certa ou errada. obg.

vlws mais uma vez jhonas...estou usando Memo1.Lines.Text := Trim(Memo1.Lines.Text); vlws!

olá, eu tou com um cod pra "justificar" um texto, porém, ele tá dando erro nessa linha ParaFormat :TParaFormat;...alguém poderia me dizer o que pode ser... procedure JustifyRichEdit(RichEdit :TRichEdit; AllText :Boolean); const TO_ADVANCEDTYPOGRAPHY = $1; EM_SETTYPOGRAPHYOPTIONS = (WM_USER + 202); EM_GETTYPOGRAPHYOPTIONS = (WM_USER + 203); var ParaFormat :TParaFormat; SelStart, SelLength :Integer; begin ParaFormat.cbSize := SizeOf(ParaFormat); if SendMessage(RichEdit.handle, EM_SETTYPOGRAPHYOPTIONS, TO_ADVANCEDTYPOGRAPHY, TO_ADVANCEDTYPOGRAPHY) = 1 then begin SelStart := RichEdit.SelStart; SelLength := RichEdit.SelLength; if AllText then RichEdit.SelectAll; ParaFormat.dwMask := PFM_ALIGNMENT; ParaFormat.wAlignment := PFA_JUSTIFY; SendMessage(RichEdit.handle, EM_SETPARAFORMAT, 0, LongInt(@ParaFormat)); // Restaura seleção caso tenhamos mudado para All RichEdit.SelStart := SelStart; RichEdit.SelLength := SelLength; end; end; e uso para aplicar o "justificar" JustifyRichEdiT(RichEdit1, False); alguém sabe se tah faltado algo???

mais uma vez, obrigado jhonas....sempre de pronto para atender os noobs do delphi... =D obrigadao.. ficou assim o meu: richedit1.Lines.SavetoFile('salvos\' + LABEL20.Caption + ' - ' + Edit8.Text + ' - ' + StringReplace(DateToStr(Date), '/', '.', [rfReplaceAll]) + '.doc'); mais um coisinha que não estava prevista.... tipo..eu tenho um texto padrão em um richedit que é montado atraves de substituições...exemplo [[RICHEDIT]] CABEÇALHO* TEXTO* ASSINATURAS* sendo que o nome CABEÇALHO* é subistituido pelo o que for digitado em um memo1 a palavra TEXTO é substituida pelo o que for digitado em um memo2 a palavra assinatura é substituida pelo o que foi digitado em um richedit2 ...ao problema...o método de substituião tah legal..ta tudo beleza, só que eu queria DELETAR todas as linhas em branco que ficam no final do texto do memo1, memo2 e richedit2...porque se não fica uma distancia muito grande entre o CABEÇALHO*, TEXTO* e ASSINATURAS* não sei se ficou dificil de entender o que eu tou querendo dizer....caso tenha ficado complicado...eu explico mais detalhadamente e posto fotos... simplificando...eu queria um cod que deletasse toda linha vazia no final do texto...

jhonas....muito obrigado mesmo...eu procurei saber como fazia mais não tava conseguindo...vlws uma dúvida...tou usando isso para salvar SaveDialog1.InitialDir := 'salvos'; if SaveDialog1.Execute then richedit1.Lines.SavetoFile(Edit2.Text + ' - ' + Edit8.Text); só que abre a caixa de diálogo perguntando o nome e tals...ai eu tenho que por um nome....acaba que saindo do padrão... não tem como eu apenas apertar no botão e salvar sem perguntar nada...sem perguntar a pasta...sem perguntar mais nomes....etc...???

a respeito de salvar os dados do edit no txt... deu certo ...tudo beleza... porém, preciso implementar isso em um memo também....ok..tudo certo...o problema é que ele só salva e faz a leitura da primeira linha... var Line : string; num : integer; Arquivo : TextFile; begin // LER O CONTEUDO DO ARQUIVO DADOS.TXT num := 0; AssignFile(Arquivo, 'DADOS\CABECALHO.txt'); Reset(Arquivo); while not EOF(Arquivo) do begin num := num + 1; Readln(Arquivo, Line); if num = 1 then Memo1.Text := Line; end; CloseFile(Arquivo); end; sabe como fazer para que ele salve e leia toda as linhas?

flavio...vlws ai...mais eu teria que ter esse formato SEIS (06)...necessariamente o formato NUMERO POR EXTENSO (NUMERO).. mais vlws a dica ai.. =D

vlws jhonas... aproveitando o tópico... alguém pode me dar uma luz de como eu posso fazer tipo um maskedit neste formato: primeiro (01), dois (02), três (03).........e trinta e um (31)...sendo que eles vão corresponder ao dia do mês... exemplo...eu abro o programa e nesse Edit ou MaskEdit apareça automaticamente o dia do mês nesse formato ai que falei... uma luz jhonas =D vlws..

é....pode ser, mais como fazer isso é que eu não sei... me falaram também que poderia ser atribuindo uma variavel e colocando em um botao m cod pra salvar e alterar o text do edit, porém, também não sei como fazer. se alguém souber alguma forma e puder dar um exemplo.... obg.

é uma duvida simples só que eu não consigo achar como fazer, geralmente eu criava um banco de dados simples só para fazer isto (ignorancia... =D) , porém, descobri que tem como salvar a ultima informação do Edit... alguém me mostra um exemplo? tks!

opa, consegui....vlws ai jhonas... tou usando para localizar procedure TForm1.Button1Click(Sender: TObject); var FoundPos, StartSearch, EndSearch :LongInt; Options :TSearchTypes; begin StartSearch := 0; EndSearch := Length(RichEdit1.Text); FoundPos := RichEdit1.FindText(Edit1.Text, StartSearch, EndSearch, Options); if FoundPos <> -1 then begin RichEdit1.SelStart := FoundPos; RichEdit1.SelLength := Length(Edit1.Text); RichEdit1.SetFocus; end; end; e para substituir uso procedure TForm1.Button2Click(Sender: TObject); begin RichEdit1.SelText := Edit2.Text; end;

vlws jhonas, o problema é que eu quero substituir sem chamar a caixinha...apenas substituir quando apertar no botão...... o cod que o Douglas deu é perfeito para a situação, porém, não substitui palavras que esteja no meio de uma frase e tals.... não existe um outro modo de usar o mesmo esquema que o douglas mostrou sendo que usando o texto todo e não somente a primeira palavra da frase. obg...

vlws jhonas, infelizmente não consegui encontrar a solução para a minha dúvida nestes posts ai....e até já havia visto eles antes de postar esse novo tópico....enfim... ainda preciso saber como faço para esse cod. procurar e substituir palavras no meio do texto e não apenas no começo das frases. obg.

muito bom o exemplo Douglas era exatamente o que eu estava procurando....porém....notei que ele não substitui palavras que estão no meio de uma frase tipo... Hoje *D*A*T*A*, por volta das *H*O*R*A*..... ele só ta substituindo se a palavra estiver no começo da frase.... alguma maneira de fazer ele tipo pesquisar em todo o texto e substituir? vlws..

olá, tou com um RichEdit com um texto "padrão", nesse texto padrão tenho algumas palavras que gostaria de alterar como *H*O*R*A*, *N*O*M*E*, etc.... eu gostaria de saber se não existe uma maneira de por exemplo: colocar um Edit1 + um Botão para que quando apertasse no Botão mudasse automativamente o texto *H*O*R*A* para o que estivesse no Edit1.....fazendo tipo um Localizar e Substituir.... alguma idéia de como eu faria isso? OBS: já procurei aqui no forum sobre como usar o FindDialogs só que não consegui ver uma aplicação para o que eu tou querendo...sorry...

tenho um cod em um button o qual eu se quero que seja executado a cada 5 dias... tipo...é um "atualizador", bem simples... so queria que ao abrir o programa, ele fizesse uma checagem, se já passasse de 5 dias da ultima execuçao do button, ele executaria o button... alguma forma de fazer isso?

como seria criar uma nova instancia?? bem...o firefox deixa os downloads em andamento...mesmo que você feche...isso seria uma nova instancia? obrigado