Ir para conteúdo
Fórum Script Brasil

Zolhos

Membros
  • Total de itens

    79
  • Registro em

  • Última visita

Tudo que Zolhos postou

  1. Agora já foi, e não me arrependo de nada =P Processador p4 2.4 HT Placa mae p4sd 800d Ram 512 ddr 400 HD 80gb 7200 rpm maxtor (já expliquei o porque de ser maxtor...) Placa de vídeo Radeon 9200 SE 128mb (não sei qtos bits... deve ser 64) SE (ou eu comprava essa ou eu comprava uma mais barata, porque meu pai sabe q placa de vídeo assim é só pra jogo e não tava afim de pagar mais... e as mais baratas eram só de 64 de ram...) leitor de CD normal LG 52x mouse sem marca 2 botoes netscroll teclado abnt2 com um botão escrito TURBO (???) 1 placa de rede encore 10/100 (+ a onboard) 1 hub encore 8 portas 10/100 caxinha de som gabinete 4 baias (com usb e fone de ouvido na FRENTE, muito bom) disquete... estabilizador 15 metros de cabo de rede e o melhor dessa loja: dei o CPU de um pentium 200mhz com 64 ram e HD 4gb + 100 reais pra conseguir um monitor sync master 550v com 5 meses de uso R$2100
  2. Zolhos

    Como Fazer Uma Rede

    Negócio é o seguinte: estou com 2 computadores um deles tem 2 placas de rede, conexão ADSL 300kbps (é o "pc1") o outro é normal com 1 placa de rede (é o "pc2" conectei a adsl no pc1 e a outra placa de rede no HUB conectei o hub no pc2 usei aqueles "assistentes pra configuração de rede" do winxp e fiz a rede consigo acessar os arquivos de um pc e de outro na boa só tem um problema: f**** tudo a velocidade da internet... nos DOIS pcs... e o mais estranho: no pc2 eu praticamente (não é sempre) só consigo acessar aqueles sites que já tinham sido carregados no outro pc (exemplo: scriptbrasil) sites q não estão nos temporary internet files do pc1 não carregam (em 99% dos casos)... ontem no PC2 eu fiz um download a 2k/s de um servidor que antes com certeza faria downloads a 30k/s eu fiz algo de errado? vocês fazem idéia do q fazer pra corrigir? ouvi falar de um tal de WINPROXY... vou precisar usar? valeu pessoal
  3. ouvi falar que tem uns sites que medem o "desempenho" da sua placa de vídeo gostaria de saber qual é e testar a minha =P thx
  4. gah depois de muito conversar com muitas pessoas cheguei à seguinte conclusão: marca de computador é que nem carro: um diz q a GM é melhor, o otro diz q a VOLKS é melhor, e os dois juram (e até provam) que estou certo... cheguei pro técnico hoje: -qual marca de HD você me recomenda comprar? -maxtor -por que? -é a que dá menos problemas! -mas me disseram justamente o contrário -posso te vender as outras, e elas custam o MESMO PREÇO, e recomendo a maxtor detalhe: o técnico não estava "tentando me passar pra trás" porque ele é amigo meu (e professor também)... e segundo ele, a maxtor comprou a quantum e os hds são de tecnologia quantum (que já me disseram que é muito boa o_O ) já mandei fabricar o PC =P dpois eu posto as configurações (to sem a folha aqui) mas até q foi bom hoje... paguei o preço que tinhamos combinado sexta-feira, mas consegui melhorar a placa de vídeo de 32mb pra 128 (apesar de ainda ser 64 bits...) valeu pela ajud a=P
  5. praticamente todo mundo na internet me falou pra comprar o athlon xp mas pelo q eu andei vendo nas lojas, vai ser difícil de comprar... excluindo o AXP, considerando só a linha pentium/celerom/semprom (incluindo preço & desempenho) qual desses vocês comprariam? e porque? e qual seria a "segunda opção"? EDIT: vejam o q um cara me falou sobre placas de vídeo (cara de fórum) geforce 5200 não é boa porque tem desempenho baixissimo, e um suporte PESSIMO ao directx9, ou seja, é uma placa já bastante ultrapassada mas como eu disse, vai se vc... se você pretende jogar gunbound e outras merdas desse tipo, ok, é uma otima placa, mas se quer jogos mais pesados como half life 2, ai não rola não, não que ela não rode, mas roda mal e tal, ou seja, voce vai comprar uma placa zerada q tem q rodar os jogos no ultra-low... frustrante hein? o que disse acima também se aplica as 9200... sem suporte a directx9 e desempenho fraco entre pegar uma Geforce4 TI e uma Geforce FX 5200, fique com a GF4TI a unica vantagem da gffx5200 sobre a 4TI é o suporte ao dx9, mas como eu disse, é um suporte totalmente porco dai é melhor ficar com a 4TI mesmo... pelo menos voce tem um desempenho maior
  6. bom... acho que com essa conversa já deu pra ter uma idéia maior... eu já tinha marcado de ir no técnico segunda de manhã... vou ver com ele melhor os preços dos athlon xp e discutir com o meu pai (que é o cara que vai pagar!) mas... quanto a placas de vídeo de 250 reais... é impossível... ele não vai comprar =P e fontes f***nas também não acho muito provavel... o que vamos comprar é um estabilizador (que já ajuda bastante quando dá raio e queda de luz) mas valeu MUITO pela ajuda =D por mim eu comprava o melhor computador do mundo com o que tem de melhor q vocês comentaram pensando bem... acho que não... pra ficar no meu quarto... gasta mta energia e faz muito barulho! vlw MUITO obrigado quem sabe eu posto aqui a configuração final do q eu comprar =P
  7. exatamente pelo fato de eu não confiar 100% nos técnicos que eu postei isso aqui =P bem... eu só estou falando sobre o processador aqui porque sobre o resto eu já estou praticamente certo do que quero... e processador ainda estou na dúvida... andei lendo os topics q você pôs... descobri que tenho que verificar a marca do HD e que acho que vou comprar uma placa de vídeo "boa"... pelo jeito devo pegar uma de 128 bits/ram, e se for radeon 9200 não pode ser SE, né? e quanto ao athlon xp... o cara me disse que não são mais fabricados... (e se der pau não há como trocar) e pelo que tou lendo... o semprom (que é a nova versão do athlon) é PIOR do que o athlon xp? o athlon xp 2500+ roda a qtos ghz? (eu NÃO pretendo fazer overclock heheh... quero que dure vários anos esse pc... ainda mais porque nunca fiz, e posso cagar tudo...) outra coisa é... a memória da ram influencia muito? e eu vou pegar uma de 400... se for pro athlon é melhor de 333? é foda fazer o "downclock"? a fonte vem com o gabinete =/ bem... eu andei lendo nesses topics aí... teve um cara que dissse que gf fx 5200 era ruim... to dividido... e a placa-mae, se for pra celerom/pentium, será uma asus d-alguma-coisa que suporta processadores de até 800... voltando aos processadores: o que vocês me dizem desse pentium q eu citei... vale a pena o gasto de 617 reais nele? nossa valeu pessoal =D scriptbrasil me ajuda muito _^_^_^_^_^_^_^ =*****
  8. usarei pra tudo desde postar no scriptbrasil até criar server pirata de ragnarok online =P processadores de 64bits são muyyy caros para mim! conversei com os alguns técnicos hoje a tarde, dentre eles um MUITO confiável e eles disseram todos mais ou menos isso: "entre os processadores que são "2.x" o melhor com certeza é o pentium, depois vem o celerom d, depois vem o semprom" eles dizem que esse celerom d é melhor porque tem mais cache e etc... e que o semprom é pior (considerando 32bits, é claro) quanto eu tenho pra gastar? (excluindo monitor) vou explicar com o q consegui: um pc com um pentium 4 2.4 / 800 de 512k com tecnologia HT eu vi por 1900 reais o mesmo, mas com um celerom D tá por + - 1600 isso contando todas as peças + um hub to começando a pensar seriamente nesse pentium aí... não sei...
  9. recruta: agora não to entendendo... a mulher me disse que "semprom é o novo nome do athlon xp". ela mentiu? o que você quer dizer com "amd64" ? eu infelizmente não entendo muito de processadores =C então não sei o que influencia em cada um alem dos ghz... e o que esse "celerom d" tem de especial? eu andei pesquisando nesse forum aqui e não achei nada =C valeu pessoal
  10. eu já postei isso em outro forum de outra comunidade, e vou copiar o post: - é o seguinte, pessoal to pensando em comprar um computador "bom" eu vi uns preços... o cara da loja fez um "orçamento" ele montou 2 computadores diferentes um seria com um athlon xp de 2.5ghz OEM o outro seria com um processador "CELERON D" 2.4ghz a placa de vídeo é uma de 8ram porque eu já tenho uma geforce 4 mx 440 em outro computador, e vou colocar essa "ruim" no nesse outro computador e ficar com a GF... mas pagar 80 conto em uma placa ruim é foda... vejam aí plz e digam o que vocês acham barato/caro, ok? grato pela ajuda! http://www.oolho.blogger.com.br/precos-imagem.JPG --> precos que me passaram - o pessoal daquele forum me falou "não compre celerom porque é uma b***", mas a mulher da loja me disse que esse é o "CELEROM D" e que é "melhor" que os AMD vejam o que ela disse: Quanto ao Semprom, estive convesando com o Frans e ele me passou o seguinte: que o Celeron D além de ter uma melhor performace ainda fica com o preço mais em conta, outro fator que nos leva a indicar o Celeron D é que futuramente você pode trocar o Processador para um Pentium IV sem comprometer o restante da máquina. O mesmo não é possivel com o Semprom. A frequencia que o Celeron D esta trabalhando esta muito acima da frequencia dos Processadores AMD, mais um fator decisivo na hora de optar pelo processador da Intel é quanto a Garantia: Intel - 3anos / AMD - 1ano. além disso tem outra: os preços estão bons? obrigado pela ajuda caso queiram ver o post original, o que não é necessário, cliquem aqui
  11. Zolhos

    Vírus =/

    esse fórum foi abandonado?
  12. bom aqui vai minha dúvida... primeiro eu gostaria de esclarecer que NÃO li as 8 páginas de post =P instalei o IIS esses dias no meu pc (via cd do WINXP) coloquei arquivos na pasta do wwwroot os arquivos.htm são abertos na boa ao abrir arquivos.asp dá erro Server Application Error The server has encountered an error while loading an application during the processing of your request. Please refer to the event log for more detail information. Please contact the server administrator for assistance. eu não mexi em nenhuma configuração, exceto a das mensagens de erro (pra aparecer isso aí ao invés de "a página não pode ser exibida" (quem mandou fazer isso foi um meio-ex-professor meu q eu encontrei esses dias =P) onde será q é o problema? o q fazer?
  13. Eu uso WINXP professional. faz um tempinho já, o avg estava apontando um vírus meu nessa pasta passando o scan ele não detectava nada então eu li num fórum "pra entrar na pasta do system volume information você deve: 1 - mandar o windows mostrar os arquivos do windows 2 - COMPARTILHAR na rede a pasta SYSTEM VOLUME INFORMATION" fiz isso, passei o antivírus, consegui remover o vírus, descompartilhei a pasta e agora vivo feliz mas... tinha 2gb naquela pasta... o que tem de tão grande lá? por acaso é algo relacionado a backups do windows? gostaria de ter mais detalhes gostaria também de saber como faço pra reduzir o espaço dela ou deletar ou sei lá... Obrigado Paulo Ricardo Z.
  14. Zolhos

    Fps No Cs..

    provavelmente você se encaixará em uma das 3 opcões: 1) tira da resolução de 23452345235 piexels por 3498573485 piexels 2) ou se não tire seus 8 antivírus, desligue o kazaa, a mp3, feche essa janela e também desligue os processos dos trojans em seu computador 3) não adianta nada ter uma geforce 8 fmxswx x x x 5.200.000 se seu processador é um pentium 100mhz espero ter, mesmo brincando, ajudado =D Paulo Ricardo.
  15. Zolhos

    Vírus =/

    Pra variar, meu pai pegou um vírus... Aquele que é um e-mail do serasa que diz que seu nome está lá, e você tem que executar o arquivo extrato.src pra verificar porque seu nome está no serasa... então... Meu pai fez isso... Passei o AVG atualizado e também aquele antivirus da housecall.trendmicro.com e não acharam nada... Então eu dei ctrl+alt+del e descobri um processo chamado EXTRATO[1].SCR Passei o AD-AWARE e descobri a localização desse processo (uma pasta lá no meio de um monte de outras). Fui tentar deletar o aquivo e não deu... Desliguei o processo EXTRATO[1].scr e então consegui deletar o arquivo... Reiniciei o pc e ele NÃO abriu esse extrato[1].scr novamente =D Mas daí eu pensei "deve ter mais um monte de traços desse vírus espalhados pelo meu pc" fui no REGEDIT e digitei extrato[1].scr axou uma vez em um lugar estranho, e dei pra continuar procurando e ele achou isso: No local: Meu Computador\HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\RUN estava o tal do extrato[1].scr (apontando para uma pasta do temporary internet files) também estavam lá 2 outros registros referindo ao mesmo virus só que em locais diferentes (os quais eu também já tinha deletado e BEM antes), locais esses q meu pai pôs o arquivo também "para me mostrar" e cag*u mais ainda os outros locais tinham pastas estranhas com algo relacionado a CACHE no nome, então talvez sejam temporários apenas, também tinha uma pasta chamada SRC e outras coisas... então... Devo retirar esses registros aí? Todos? Ou só aquele que eu dei o endereço? Que outros restos mortais do vírus podem estar no meu computador? Como tirá-los? Alguém tem uma PROTECAO contra esse virus? Obrigado pela ajuda. Paulo.
  16. Zolhos

    Combobox

    eu tinha pensado nisso mas axei q houvesse alguma maneira menos chata =/ vou ter que mudar BASTANTE coisa... porque são umas 4 comboboxes em cada form =/ Obrigado.
  17. Eu estava lendo um código que postaram aqui. E descobri que não sei pra que servem essas keys. Alguém me diz? Onde posso vê-las? Eu fui naquele tópico fixo de "postem dicas" mas: 1 - não entendi como funcionavam 2 - não tinha nem o #7 nem o #8 na lista que postaram. Obrigado. Paulo Ricardo.
  18. Zolhos

    Combobox

    Com comboBoxes do tipo dropDown eu consigo trabalhar tranquilamente usando os seguintes comandos: comboBox1.items.add('01'); combobox1.text := '01'; MAS quando eu uso uma comboBox do tipo DropDownList eu não consigo fazer ela receber o valor que eu quero: Tipo assim: Vamos supor que os itens dela sejam: 01 15 18 23 (esses números NÃO são sempre iguais. o que os define é a consulta no banco de dados) Como eu faço pra comboBox (estilo DropDownList) receber o valor 01 (que está na lista) mas SEM SABER o index do item? e sabendo, como fica? Só isso. Obrigado. Paulo Ricardo.
  19. hmmm valeu =D eu sempre usei a primeira forma mas com a experiencia q to pegando com o meu projeto final, to vendo q se eu usar a segunda forma (ou a sua) posso diminuir MUITAS linhas na programacao, o q facilitará a "navegação" entre os procedures também poderia usar assim: if scriptbrasil = legal then begin showmessage('é legal'); end else begin showmessage('mentira!'); end; tudo na mesma linha hiehaiuheiahuhaeiuheiua valeu =P se quiser pode fechar o tópico
  20. meus professores sempre falavam: "quanto mais linhas tiver mais lento vai ficar" isso eu até concordo mas... aqui vem a pergunta: vou mostrar 2 códigos por acaso o segundo é mais rpapido ou não há diferença? simplesmente uma coisa q tá num alinha deveria tar na outra... if scriptbrasil = legal then begin showmessage('é legal'); end else begin showmessage('mentira!'); end; if scriptbrasil = legal then begin showmessage('é legal'); end else begin showmessage('mentira!'); end; eu sei que se houvesse diferença seria de 0,00000000000000000001 MILIssegundo, mas realmente há ou não?
  21. voltei a programar meu projeto =D (fomos classificados pra segunda fase =D) descobri o bug é q cada vez q você apertava a tecla de vírgula a variável "vírgula" recebia o valor zero novamente, então ela sempre zerava pra resolver o problema teriamos que declarar a variavel virgula no projeto (não no objeto) e teriamos que faze-la receber o valor "0" em outro lugar (form load por exemplo) axo q vo tentar outra maneira de fazer isso =P EDIT finalmente consegui! fiz assim: procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char); var virgulas, tamanho, i : integer; letra : string; begin if ( Key in ['.',','] ) then begin i := 1; virgulas := 0; tamanho := length(edit2.text); if tamanho = 0 then begin key := #0; exit; end; while i <= tamanho do begin letra := (edit2.text[i]); if (letra = ',') or (letra = '.') then begin virgulas := virgulas + 1; end; i := i + 1; end; if virgulas > 0 then begin key := #0; end else begin key := #44; end end else begin if not ( Key in ['0','1','2','3','4','5','6','7','8','9',',',#8,#7] ) then begin Key := #0; end; end; end; mas... poxa... será q em TODO bendito maskedit q tiver no meu projeto vai ter que ter issoaí? vocês programadores, que sempre programaram a vida inteira, não sabem de nenhuma maneira mais fácil de deixar o usuário poder entrar apenas números que o delphi aceite como float? não acredito q vocês nunca fizeram isso =/
  22. Mas não tinha aquela história que na verdade a idéia original do windows não é do Bill Gates, e que ele tirou ela de alguém e tal? Mas SEM contar essa hipótese, o Bill, indiferente de ser amigo ou inimigo, é um cara MUITO esperto. Quem aí conhece a história dos protocolos de redes (novell, tcp/ip, ipx/spx etc etc) deve saber que o Bill já foi EXTREMAMENTE experto (e com uma pu*a visão de futuro). Mas qual o grande problema do windows? O preço. Mas... quem aqui está usando um WINDOWS ORIGINAL agora? Somente uns poucos que trabalham em empresas "grandes". Infelizmente não tenho outro pc pra por linux e ver como é (não posso fazer nada com esse HD aqui porque meu pai tam'bem usa, e se eu ferrar levarei palmadas =P ) então não posso dizer exatamente se ele é "melhor" Mas acho que copiando o Windows o Linux não vai chegar a lugar algum. Quando alguém vier com uma idéia tão criativa quanto a do Bill esse alguém poderá superar o Windows. Conclusão: herói? no começo, mas agora não mais... alguém sabe se ele já patenteou o duplo clique? (ouvi falar q ele ia fazer isso) inimigo? se você não quiser é só não comprar =D
  23. você me corrigiu sobre a sintaxe mas na verdade c tava errado porque eu to usando alguns campos numéricos eu cliquei com o botao direito e dei EXPLORE no meu sql e descobri q dá certo assim: insert into Ingredientes (ingrCodigoProduto, ingrTipoIngrediente, ingrQuantidade) VALUES (1, 'Abacate', 3); detalhe:::::: é VALUES EDIT: fiz algo de errado no banco de dados... o update tem algo errado quando ele faz o update ele apaga um monte de registro e adiciona várias vezes o mesmo acho que seria porque o qry tá na posicao errada da tabela ou algo assim? vou postar o código mas eu sei q vai ser complicado vocês ajudarem =/ linhas := 1; while linhas < grdProdIngredientes.rowCount do begin sqlProdGrid := 'SELECT * FROM Ingredientes WHERE ingrCodigoProduto = '+mskProdCodigo.text+' and ingrTipoIngrediente = ''' +grdProdIngredientes.cells[0,linhas]+ ''' '; qryProdGrid.sql.clear; qryProdGrid.sql.add(sqlProdGrid); qryProdGrid.open; showmessage(qryProdGrid.sql.text); showmessage(intToStr(qryProdGrid.recordCount)); if qryProdGrid.recordCount = 1 then begin showmessage('editando'); qryProdGrid2.sql.clear; qryProdGrid2.sql.add('UPDATE Ingredientes SET ingrCodigoProduto = '+mskProdCodigo.text+', ingrTipoIngrediente = '''+grdProdIngredientes.cells[0,linhas]+''', ingrQuantidade = '+grdProdIngredientes.Cells[1,linhas]); showmessage(qryProdGrid2.sql.text); qryProdGrid2.execSql; end else begin showmessage('adicionando novo registro'); qryProdGrid2.sql.clear; qryProdGrid2.sql.add('INSERT INTO Ingredientes (ingrCodigoProduto, ingrTipoIngrediente, ingrQuantidade) VALUES ('+mskProdCodigo.text+', '+''''+grdProdIngredientes.cells[0,linhas]+''''+', '+grdProdIngredientes.Cells[1,linhas]+')'); showmessage(qryProdGrid2.sql.text); qryProdGrid2.execSql; showmessage('adicionou o novo registro'); end; qryProdGrid.close; linhas := linhas + 1; end; pode ser q tenha algum end a mais ou a menos por causa da unit mas não é erro de sintaxe isso eu sei... é erro de lógica mesmo... como q devo fazer?
  24. "Putz esse Zólhos de novo fazendo pergunta!" Não se procupem pessoal. Já estou terminando meu projeto. Falta só alguns detalhes finais =P E um deles é esse... Como fazer insert e update em sql em delphi? Eu tentei fazer de um jeito aqui mas deu altos bugs vou mostrar pra vocês else {if novoProduto = false. isso é uma continuação de um if...} begin linhas := 1; while linhas < grdProdIngredientes.rowCount do begin sqlProdGrid := 'SELECT * FROM Ingredientes WHERE ingrCodigoProduto = '+mskProdCodigo.text+' and ingrTipoIngrediente = ''' +grdProdIngredientes.cells[0,linhas]+ ''' '; qryProdGrid.sql.clear; qryProdGrid.sql.add(sqlProdGrid); qryProdGrid.open; if qryProdGrid.recordCount = 1 then begin showmessage('editando'); qryProdGrid2.sql.clear; qryProdGrid2.sql.add('UPDATE Ingredientes SET ingrCodigoProduto = '+mskProdCodigo.text+', ingrTipoIngrediente = '''+grdProdIngredientes.cells[0,linhas]+''', ingrQuantidade = '+grdProdIngredientes.Cells[1,linhas]); showmessage(qryProdGrid2.sql.text); qryProdGrid2.open; qryProdGrid2.close; end else begin showmessage('adicionando novo registro'); qryProdGrid2.sql.clear; qryProdGrid2.sql.add('INSERT INTO Ingredientes (ingrCodigoProduto, ingrTipoIngrediente, ingrQuantidade) VALUE ('+mskProdCodigo.text+', '''+grdProdIngredientes.cells[0,linhas]+''', '+grdProdIngredientes.Cells[1,linhas]+')'); showmessage(qryProdGrid2.sql.text); qryProdGrid2.open; qryProdGrid2.close; end; qryProdGrid.close; linhas := linhas + 1; end; end; explicação: os showmessages servem apenas pra eu acompanhar o q tá acontecendo enquanto tou testando e tipassim o meu problema é: to fazendo certo? é q eu fiz tudo isso com base apenas em uma apostilinha BEM básica q nem falava de delphi... eu devo colocar alguma coisa entre o qryCoisa.open e o qryCoisa.close? veja a mensagem de erro que estou tendo: {essa vem na hora q to tentando editar} Project veggie_burger.exe raised exception class ENoResultSet with message 'Error creating cursos handle'. Process stopped. Use SEP or RUN to continue {essa vem na hora q to tentando adicionar} project veggie_burger.exe raised exception class EDBEngineError with message 'General SQL error'. [Microsoft][Driver ODBC para microsoft Access] Syntax error in INSERT INTO statement.'. Process Stopped. Use Step or Run to continue. help plz? como posso concertar? Muito obrigado! Paulo Ricardo
  25. nossa valeu! olha como eu adaptei os seus códigos: procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); var cValor : Char; begin if ( Key in ['.',','] ) then begin Key := #44; if Pos(Key,cValor) <> 0 then Begin Beep; Key := #0; End; End; if not ( Key in ['0','1','2','3','4','5','6','7','8','9',',',#8,#7] ) then Begin Beep; Key := #0; End; end; procedure TForm1.Edit1Exit(Sender: TObject); begin valor := strToFloat(edit1.text); Edit1.text := FormatFloat('0.00',valor); end; declarei a variável valor LÁAAAAAAA encima da unit mas fiquei com uma dúvida o que seria CVALOR? não entendi essa parte... if Pos(Key,cValor) <> 0 then Begin Beep; Key := #0; além disso... eu tava pensando como impedir uma pessoa de digitar 2 vírgulas? daí eu fiz esse código mas parece q não deu muito certo... procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); var cValor : Char; virgulas : integer; begin if ( Key in ['.',','] ) then begin if virgulas = 1 then begin key := #0; end else begin Key := #44; virgulas := 1; if Pos(Key,cValor) <> 0 then Begin Beep; Key := #0; End; End; end; if not ( Key in ['0','1','2','3','4','5','6','7','8','9',',',#8,#7] ) then Begin Beep; Key := #0; End; end; como poderia fazer? o que é o cvalor?
×
×
  • Criar Novo...