Você pode converter esta string para um inteiro. ex.: if(StrToInt(mCampo.Value) = 1) then Espero ter ajudado. Fraterno abraço. Carlos
--- Em delphi-br@yahoogrupos.com.br, "Logos" <[EMAIL PROTECTED]> escreveu > > pegue pelo campo copy(campo.asstring,1,1) > ----- Original Message ----- > From: Carlos Magno > To: delphi-br@yahoogrupos.com.br > Sent: Monday, July 02, 2007 11:28 AM > Subject: Re: [delphi-br] Novato... > > > Coloquei este codigo, na complilação nao deu erro, mas na execução da o > seguinte erro: > "Proj .exe raised exception Class EConverterError with message ''I' is not > valid integer value." > grato pela atenção, > Magno > > Em 02/07/07, Alcistemas Informática <[EMAIL PROTECTED]> escreveu: > > > > VAR > > POS1:Char; > > POS2:Char; > > POS3:Char; > > etc.. > > BEGIN > > POS1:=copy(Campo.text,1,1); > > POS2:=copy(Campo.text,2,1); > > POS3:=copy(Campo.text,3,1); > > etc... > > > > ----- Original Message ----- > > From: crsmagno > > To: delphi-br@yahoogrupos.com.br <delphi-br%40yahoogrupos.com.br> > > Sent: Monday, July 02, 2007 8:30 AM > > Subject: [delphi-br] Novato... > > > > Olá pessoal, > > Estou começando a trabalhar com delphi 7, e esbarrei em varios > > problemas, entre eles o que me fez parar. > > Tenho um campo do tipo alfanumerico em BD, de tamanho 6(000001). > > Preciso testar cada posição. > > se é 1 > > se é 2 > > se é 3... > > para isso eu preciso extrair a posição para uma variavel do tipo > > string. > > Alguém pode me ajudar? > > Um abraço, > > Magno > > > > ---------------------------------------------------------- > > > > No virus found in this incoming message. > > Checked by AVG Free Edition. > > Version: 7.5.476 / Virus Database: 269.9.14/883 - Release Date: 1/7/2007 > > 12:19 > > > > [As partes desta mensagem que não continham texto foram removidas] > > > > > > > > -- > um abraço, > > Carlos Magno > > [As partes desta mensagem que não continham texto foram removidas] > > > > > > > ------------------------------------------------------------------------------ > > > No virus found in this incoming message. > Checked by AVG Free Edition. > Version: 7.5.476 / Virus Database: 269.9.14/883 - Release Date: 1/7/2007 12:19 > > > [As partes desta mensagem que não continham texto foram removidas] >
