Zolhos

não axei nada =C =C =C

negócio é o seguinte como eu faço pra deixar o cara só digitar números num maskedit? OU como eu faço pra na hora qo cara aperte um botão ele verifique se só tem número lá? eu lembro que no VB a gente usava ISNUMERIC(nomeDoTxt) outra coisa: como definir o número de casas decimais máximo como 2 números depois da vírgula? eu sei que isso parece tosko e fácil mas ainda sou meio novo em delphi.... obrigado pela ajuda estou aprendendo MUITO com esse fórum

nossa como eu amo vocês fiz uma PESQUISA aqui no fórum e li o tópico http://scriptbrasil.com.br/forum/index.php...37463&hl=access daí começei a fuçar baseado no que eu li descobri que era só tirar as aspas duplas e também usando os PARAMS tava dando certo nossa esse forum apavora to aprendendo muito =************ ninguém respondeu meu tópico mas mesmo assim valeu

Alguém aí sabe de uma apostila/tutorial/script onde posso aprender como fazer um flash que mostre o que está acontecendo numa webcam? Estilo video-conferência se souber me explicar também eu agradeço =D eu me lembro que uma vez em uma palestra da macromedia o cara tinha mostrado... e pela explicação dele era algo fácil... mas não faço nem idéia de como começar plz ajudem =D serei eternamente grato =*****

Bem... eu já tinha perguntado isso nesse forum, mas de uma maneira bem POUCO detalhada... Alguém me respondeu e não deu certo, mas eu simplesmente não respondi aquele topic porque deixei pra perguntar pros meus professores nas aulas de assisência... Nenhum dos dois soube responder, mas um deles disse que o problema está na SINTAXE porque já tinha visto algo semelhante... Qual o problema? É o seguinte... Estou trabalhando com: DELPHI 3, ACCESS XP e usando uma consulta sql... sqlRegistros := ' Select * from BateCartao where cartaoFunc1 = "'+cmbFuncionario.text+'"'; qryRegistros.sql.clear; qryRegistros.sql.Add(sqlRegistros); showmessage(sqlRegistros); qryRegistros.open; showmessage('DEU CERTO!!!');[CODE] O negócio é o seguinte... A consulta deve pesquisar na tabela BateCartao do meu banco de dados o campo CARTAOFUNC1, e ele tem que ser igual ao que está escrito no COMBO BOX chamado cmbFuncionario o primeiro SHOWMESSAGE é só pra eu ter um controle de como fica a linha. esse showmessage APARECE o segundo showmessage vai aparecer se alguém conseguir resolver o meu problema =D Ele dá a seguinte mensagem: [CODE] Project veggie_burger.exe raised exception class EDBEngineError with message 'General SQL error. [Microsoft][Driver ODBC para Microsoft Access] Too few parameters. Excepted 1.'. Process stopped. Use Step or Run to continue. Como resolver? Por favor pessoal me ajudem. Um cara aqui do forum tinha postado um reply cheio de aspas simples, mas eu testei e não deu certo. Eu usei esse tipo de sintaxe com o PARADOX e ele DEU certo, portanto eu acho que os SQL funcionam de maneira DIFERENTE com o access... Estou postando essa mensagem nos fórums de SQL, ACCESS e DELPHI se possível, respondam no de delphi... Aqui vai o endereço: http://scriptbrasil.com.br/forum/index.php?showtopic=39410

Bem... eu já tinha perguntado isso nesse forum, mas de uma maneira bem POUCO detalhada... Alguém me respondeu e não deu certo, mas eu simplesmente não respondi aquele topic porque deixei pra perguntar pros meus professores nas aulas de assisência... Nenhum dos dois soube responder, mas um deles disse que o problema está na SINTAXE porque já tinha visto algo semelhante... Qual o problema? É o seguinte... Estou trabalhando com: DELPHI 3, ACCESS XP e usando uma consulta sql... sqlRegistros := ' Select * from BateCartao where cartaoFunc1 = "'+cmbFuncionario.text+'"'; qryRegistros.sql.clear; qryRegistros.sql.Add(sqlRegistros); showmessage(sqlRegistros); qryRegistros.open; showmessage('DEU CERTO!!!'); O negócio é o seguinte... A consulta deve pesquisar na tabela BateCartao do meu banco de dados o campo CARTAOFUNC1, e ele tem que ser igual ao que está escrito no COMBO BOX chamado cmbFuncionario o primeiro SHOWMESSAGE é só pra eu ter um controle de como fica a linha. esse showmessage APARECE o segundo showmessage vai aparecer se alguém conseguir resolver o meu problema =D Ele dá a seguinte mensagem: Project veggie_burger.exe raised exception class EDBEngineError with message 'General SQL error. [Microsoft][Driver ODBC para Microsoft Access] Too few parameters. Excepted 1.'. Process stopped. Use Step or Run to continue. Como resolver? Por favor pessoal me ajudem. Um cara aqui do forum tinha postado um reply cheio de aspas simples, mas eu testei e não deu certo. Eu usei esse tipo de sintaxe com o PARADOX e ele DEU certo, portanto eu acho que os SQL funcionam de maneira DIFERENTE com o access... Estou postando essa mensagem nos fórums de SQL, ACCESS e DELPHI (o primeiro q to postando é esse, o de delphi) Grato Paulo Ricardo Serei eternamente grato a quem me ajudar =****

hmmm valeu MUITo mais facil depois de 9283479 horas batendo a cabeça na parede eu tinha feito mas de um jeito diferente era tipo: grdProdIngredientes.options := [todas as opções juntas aki]; mas do teu jeto é BEM melhor valeu te devo um beijo =* (aheiuahe uque gay)

meu pensamento é o seguinte: meu grid tem 2 colunas apenas (a '0' e a '1') quando a coluna 1 for selecionada o grid fica editável quando não for a coluna 1, não fica editável daí eu fiz assim: evento ON CLICK: begin if grdProdIngredientes.Col = 1 then begin grdProdIngredientes.options.goEditing := true; end else begin grdProdIngredientes.options.goEditing := false; end; end; só que deu erro na quarta linha q eu escrevi aí. a minha sintaxe tá errada e eu não descobri como fazer... tentei grdProdIngredientes.goEditing := true; e não deu tentei também grdProdIngredientes.options := goEditing; e também não deu como faço? eu uso delphi 3 muito obrigado pela ajuda um abraço Paulo

vai lá no OPTIONS do teu project e coloca o certo =P

akabei de fazer isso na verdade é RecordCount hehehe e deu erro do mesmo jeito nem chegou a aparecer o messageDlg então vou postar o meu codigo aqui pra vocês tentarem descobrir onde tá errado beleza? sqlRegistros := 'SELECT * FROM BateCartao WHERE cartaoFunc = "'+ cmbFuncionario.text +'" AND cartaoMes = "'+ intToStr(mesNumeroEscrito) +'" AND cartaoAno = "'+ cmbAno.text +'" ORDER BY cartaoDia '; qryRegistros.sql.clear; qryRegistros.sql.Add(sqlRegistros); qryRegistros.open; ele dá o erro nessa linha OPEN a mensagem é a seguinte: Project veggie_burger.exe raised exception class EDBEngineError with message 'General SQL error. [Microsoft][Driver ODBC para Access] Too few parameters. Expected 3.'. Process stopped. Use Step or Run to continue.

negógio é o seguinte eu tou fazendo uma consulta em sql aqui no projeto (via query) só que pode acontecer de simplesmente não achar nada na consulta daí quando não axa nada simplesmente dá uma mensagem de erro como é q eu faço pra mostrar um MESSAGEDLG se não tiver resultado nenhum na consulta?

SELEC T* FROM Funcionarios WHERE funcNome LIKE cmbFuncionario.text ORDER BY funcNome eu quero selecionar todos os campos da tabela FUNCIONARIOS só que os únicos resultados da minha pesquisa têm que ser o que tiver escrito em cmbFuncionario.text é assim que se faz? ou tem que ser diferente? tem como por vários wheres? tipo: pesquisar na tabela só que o resultado tem que ser somente: o funcNome tem que ser igual o que tá escrito em cmbFuncionario.text o funcAno tem que ser o igual o que tá escrito em cmbAno.text o funcMes tem que ser igual o que tá escrito em cmbMes.text alguém ajuda?

e a propriedade q eu citei? você sabe alguma coisa dela?

no meu projeto, estou colocando um maskedit onde só posso aceitar valores numéricos e vírgula, e procurando pelo help do delphi, eu vi uma propriedade "validChar', mas eu não entendi direito como fazer, ainda mais porque não tinha exemplo disso no help alguém pode me ajudar a definir os validchars de um maskedit para somente valores "float" ?

Eu na escola aprendo Delphi (3) & VB (6) e escolhi fazer meu projeto de conclusão de curso em Delphi (simplesmente porque era mais difícil e Delphi me parece mais legal =P) Mas ainda não consegui saber CLARAMENTE quais são as GRANDES diferenças entre Delphi e Vb Então decidi postar isso nos 2 fórums pra ver o que o pessoal de cada fórum comenta =D Por favor todos comentem no tópico que está no fórum de DELPHI, pra que a discussão não tome 2 rumos =D. Vamos lá pessoal Defendam-se MODERADOR DO FÓRUM DE VB TRANQUE ESSE TÓPICO POR FAVOR Quem quiser responder, entre AQUI: http://scriptbrasil.com.br/forum/index.php...ST&f=21&t=38273

Eu na escola aprendo Delphi (3) & VB (6) e escolhi fazer meu projeto de conclusão de curso em Delphi (simplesmente porque era mais difícil e Delphi me parece mais legal =P) Mas ainda não consegui saber CLARAMENTE quais são as GRANDES diferenças entre Delphi e Vb Então decidi postar isso nos 2 fórums pra ver o que o pessoal de cada fórum comenta =D Por favor todos comentem no tópico que está no fórum de DELPHI, pra que a discussão não tome 2 rumos =D. Vamos lá pessoal Defendam-se

eu conheço delphi e vb e lá estava eu programando meu projeto em delphi, fazendo a parte do banco de dados eu fiz uma "consulta" mais ou menos assim: ele procura registros no BDD de um certo tipo, até uma hora q ele não vai mais achar, mas nessa hora o query não vai estar no EOF, então eu lembrei das minhas aulas de VB e lembrei que nós usávamos o "blablabl.NOMATCH" só que eu não SEI se vai dar certo com o nomatch no delphi e na hora de testar, descobri que nem existe o NOMATCH qual seria o comando equivalente para o NOMATCH do vb no delphi? se alguém entendeu o que eu quis dizer na mensagem, como eu poderia fazer pra dar certo? grato pela ajuda Zólhos.

faça a variavel receber o valor dela e algo mais exemplo: x := y + 2 - 5^2 + 4 - contasAReceber + tfrmform.showmodal + variavel - 8; dai você divide em: x := y + 2 - 5^2 + 4 - contasAReceber; x := x + tfrmform.showmodal + variavel - 8; foi assim q eu aprendi na aula de ASP, mas com certeza funciona com delphi

nossa valeu isso facilita MUYTO as coisas! tkz! e as variáveis tipo WORD como funcionam e pra q servem? eu usei (porque copiei do HELP do delphi) mas não intendi pra q servem =/

PROBLEMAS DE NOVO (diabos!) tem como ver quantos caracteres uma string tem? (por exemplo: a string 1234-56/78/9012 tem 15 caracteres) EDIT: ae deu certo!!!! mas mesmo assim me respondam a pergunta anterior por favor =D e eu também gostaria de saber uma coisa que eu coloquei nesse arquivo mas não sei pra que serve =p como funcionam as variáveis WORD? q tipod e variável é isso? aqui vai o código fonte pra vocês verem =P depois vou implementar isso no meu sistema e vai ser tudo beleza =D ps: tem como diminuir o código MAIS ainda? unit uniAplicacaoNoProjeto; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Mask; type TForm2 = class(TForm) btnCalcular: TButton; MaskEdit1: TMaskEdit; MaskEdit2: TMaskEdit; btnPreencher: TButton; MaskEdit3: TMaskEdit; MaskEdit4: TMaskEdit; Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; MaskEdit5: TMaskEdit; Label5: TLabel; MaskEdit6: TMaskEdit; Label6: TLabel; procedure btnCalcularClick(Sender: TObject); procedure btnPreencherClick(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form2: TForm2; implementation {$R *.DFM} procedure TForm2.btnCalcularClick(Sender: TObject); var i, j : integer;{contadores} letra, palavra, codigo : string; data : tDateTime; ano, mes, dia : word; begin i := 1; while not (letra = '-') do begin codigo := codigo + letra; letra := (maskedit1.text[i]); i := i + 1; end; {chegamos no traço} letra := (maskedit1.text[i]); i := i + 1; {1 caractere após o traço} j := 1; while not (j > 10) do begin palavra := palavra + letra; letra := (maskedit1.text[i]); i := i + 1; j := j + 1; end; data := strToDate(palavra); maskedit2.text := dateToStr(data); maskedit3.text := codigo; decodeDate(data, ano, mes, dia); maskedit4.text := intToStr(dia); maskedit5.text := intToStr(mes); maskedit6.text := intToStr(ano); end; procedure TForm2.btnPreencherClick(Sender: TObject); begin maskedit1.text := '1234-27/12/2004'; end; end.

aprenda a falar em inglês que você vai pode utilizar QUALQUER programa do mundo! ainda mais porque os comandos são sempre parecidos... porque se você aprender delphi em portugues, você só vai saber programar delphi em portugues e não vai fazer idéia do resto... sem contar q se você misturar as linguagens (delphi com sql etc etc etc) não vai dar muito certo, né? sem contar nas outras 3984759834 milhões de aplicações do inglês na sua vida =D

AHNnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnn agora eu entendi a funcao copy! mas vai ser variável o número de letras antes do traço =C e realmente agora eu fui testar e sem a variável "editUm" tá dando certo, mas ontem eu tentei e não deu =p axo q fiz algo errado hehehe valeu pessoau! o meu estilo de texto q tem será: 1234-12/08/2004 to agora tentando trabalhar pegando só os outros elementos tava pensando agora em transformá-los em uma data e usar aquele comando decodedate =D mas isso eu ainda vou testar caso eu tenho dúvidas eu posto aqui.... a propósito hehe leiam o meu outro post (q vou escrever agora)

não sou matemático eu ainda to no terceiro ano do ensino médio o_O

VALEU PESSOAU! capablanca não deu pra abrir o seu arquivo (muito provavelmente por causa q eu uso delphi3) mas eu vi o q você digitou e testei e deu certo =D só q depois, na hora de fazer o q eu queria eu não conseguir usar o jeito q você fez =/ eu também tinha pedido o código pra mostrar todas as letras de uma palavra até o traço, aqui vai o código que eu consegui fazer.... se alguém puder deixá-lo MENOR eu agradeceria muito! ps: na hora de implementar isso MUITO CUIDADO porque se você não digitar um traço no edit1.text você vai criar um LOOPING INFINITO procedure TForm1.btn_p1Click(Sender: TObject); var i : integer; editUm, letra, palavra : string; begin i := 1; editUm := edit1.text; while not (letra = '-') do begin palavra := palavra + letra; letra := (editUm[i]); i := i + 1; end; edit2.text := palavra; end; q ceis axam? tem com inxuar isso?

isso eu aprendi na aula de matemática no segundo ano você tem q imaginar como se isso fosse um gráfico isso tinha até fórmula... (formula q eu não lembro, então vou usar outro raciocínio): imagine os 2 pontos no "gráfico" agora trace uma linha reta vertical e uma horizontal de cada um dos pontos até as bases e laterais do gráfico você vai ficar com um triângulo (vermelho na figura) você tem q usar pitágoras para axar a hipotenusa do triângulo o menor cateto (y no desenho) vai ser igual a altura do ponto A menos a altura do ponto B o maior cateto (x no desenho) vai ser igual a medida xA (no delphi) A menos a medida xB daí você usa pitágoras (hipotenusa)^2 = (menor cateto)^2 + (maior cateto)^2 note que se os 2 tiverem a mesma coordenada X ou a mesma coordenada Y a fórmula não funciona, mas é ridiculamente fácil calcular a distância... (isso fica no ELSE! heheh) traduzinho seu exemplo: cateto1: 47.569 - 46.9 cateto2: 21.8 - 21.789 (hipotenusa)^2 = (47.569 - 46.9)^2 + (21.8 - 21.789)^2 CONCLUSÃO: distancia := sqr( (xA - xB)^2 + (yA - yB)^2 ) sqr é a função pra raiz quadrada, certo? editei o q tá sublinhado negrito e itálico