Legal, Rubem...e ainda dá pra aplicar em diversas situações! Obrigado!
Rubem Nascimento da Rocha escreveu: > > > Com a função AnsiIndexStr() vc pode fazer essa checagem de forma mais > elegante. > > Exemplo: > > if AnsiIndexStr(DBEdit52.Text, ['0', '1', '2', '3', '4', '5']) > -1 then > begin > DBEdit10.Text := 'Conceito bom.'; > DBEdit10.SetFocus; > end; > > Melhor (e mais coerente) ainda: > > if AnsiIndexStr(DBEdit52.Field.AsString, ['0', '1', '2', '3', '4', > '5']) > -1 then > begin > DBEdit10.Field.AsString := 'Conceito bom.'; > DBEdit10.SetFocus; > end; > Sds. > > To: [EMAIL PROTECTED] > <mailto:delphi-br%40yahoogrupos.com.brFrom>: > [EMAIL PROTECTED] <mailto:gyncowboy%40yahoo.com.brDate>: Mon, > 1 Oct 2007 05:59:12 -0700Subject: Res: [delphi-br] Incompatible types > 'string' and 'set' > > Tenta assim:If DBEdit52.Text[1] in ['0'..'5'] Then BeginDBEdit10.Text > := 'Conceito bom.';DBEdit11.SetFocus;End; GYNCOWBOY André Luis da > Silveira----- Mensagem original ----De: fernando5000br > <[EMAIL PROTECTED] <mailto:aranhento%40gmail.com>>Para: > [EMAIL PROTECTED] > <mailto:delphi-br%40yahoogrupos.com.brEnviadas>: Segunda-feira, 1 de > Outubro de 2007 9:40:44Assunto: [delphi-br] Incompatible types > 'string' and 'set'Bom dia, pessoal, e boa semana a todos!Sei que deve > ser coisa besta, mas me encalacrei com isso:If DBEdit52.Text = > ['0'..'5']Then BeginDBEdit10.Text := 'Conceito > bom.';DBEdit11.SetFocus;End;Dá o erro Incompatible types 'string' and > 'set'É claro que eu posso fazer um por um...mas não me parece > certo...aondeestaria meu > erro?Obrigado!Fernando.<!--#ygrp-mkp{border:1px solid > #d8d8d8;font-family:Arial;margin:14px 0px;padding:0px 14px;}#ygrp-mkp > hr{border:1px solid #d8d8d8;}#ygrp-mkp > #hd{color:#628c2a;font-size:85%;font-weight:bold;line-height:122%;margin:10px > 0px;}#ygrp-mkp #ads{margin-bottom:10px;}#ygrp-mkp .ad{padding:0 > 0;}#ygrp-mkp .ad > a{color:#0000ff;text-decoration:none;}--><!--#ygrp-sponsor > #ygrp-lc{font-family:Arial;}#ygrp-sponsor #ygrp-lc #hd{margin:10px > 0px;font-weight:bold;font-size:78%;line-height:122%;}#ygrp-sponsor > #ygrp-lc .ad{margin-bottom:10px;padding:0 0;}--><!--#ygrp-mlmsg > {font-size:13px;font-family:arial, helvetica, clean, > sans-serif;}#ygrp-mlmsg table > {font-size:inherit;font:100%;}#ygrp-mlmsg select, input, textarea > {font:99% arial, helvetica, clean, sans-serif;}#ygrp-mlmsg pre, code > {font:115% monospace;}#ygrp-mlmsg * > {line-height:1.22em;}#ygrp-text{font-family:Georgia;}#ygrp-text > p{margin:0 0 1em > 0;}#ygrp-tpmsgs{font-family:Arial;clear:both;}#ygrp-vitnav{padding-top:10px;font-family:Verdana;font-size:77%;margin:0;}#ygrp-vitnav > > a{padding:0 1px;}#ygrp-actbar{clear:both;margin:25px > 0;white-space:nowrap;color:#666;text-align:right;}#ygrp-actbar > .left{float:left;white-space:nowrap;}.bld{font-weight:bold;}#ygrp-grft{font-family:Verdana;font-size:77%;padding:15px > > 0;}#ygrp-ft{font-family:verdana;font-size:77%;border-top:1px solid > #666;padding:5px 0;}#ygrp-mlmsg > #logo{padding-bottom:10px;}#ygrp-vital{background-color:#e0ecee;margin-bottom:20px;padding:2px > > 0 8px 8px;}#ygrp-vital > #vithd{font-size:77%;font-family:Verdana;font-weight:bold;color:#333;text-transform:uppercase;}#ygrp-vital > > ul{padding:0;margin:2px 0;}#ygrp-vital ul > li{list-style-type:none;clear:both;border:1px solid > #e0ecee;}#ygrp-vital ul li > .ct{font-weight:bold;color:#ff7900;float:right;width:2em;text-align:right;padding-right:.5em;}#ygrp-vital > > ul li .cat{font-weight:bold;}#ygrp-vital > a{text-decoration:none;}#ygrp-vital > a:hover{text-decoration:underline;}#ygrp-sponsor > #hd{color:#999;font-size:77%;}#ygrp-sponsor #ov{padding:6px > 13px;background-color:#e0ecee;margin-bottom:20px;}#ygrp-sponsor #ov > ul{padding:0 0 0 8px;margin:0;}#ygrp-sponsor #ov > li{list-style-type:square;padding:6px 0;font-size:77%;}#ygrp-sponsor > #ov li a{text-decoration:none;font-size:130%;}#ygrp-sponsor > #nc{background-color:#eee;margin-bottom:20px;padding:0 > 8px;}#ygrp-sponsor .ad{padding:8px 0;}#ygrp-sponsor .ad > #hd1{font-family:Arial;font-weight:bold;color:#628c2a;font-size:100%;line-height:122%;}#ygrp-sponsor > > .ad a{text-decoration:none;}#ygrp-sponsor .ad > a:hover{text-decoration:underline;}#ygrp-sponsor .ad > p{margin:0;}o{font-size:0;}.MsoNormal{margin:0 0 0 0;}#ygrp-text > tt{font-size:120%;}blockquote{margin:0 0 0 > 4px;}.replbq{margin:4;}-->Abra sua conta no Yahoo! Mail, o único sem > limite de espaço para armazenamento!http://br.mail.yahoo.com/ > <http://br.mail.yahoo.com/>[As partes desta mensagem que não continham > texto foram removidas] > > __________________________________________________________ > Receba as últimas notícias do Brasil e do mundo direto no seu > Messenger com Alertas MSN! É GRÁTIS! > http://alertas.br.msn.com/ <http://alertas.br.msn.com/> > > [As partes desta mensagem que não continham texto foram removidas] > >