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]