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 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]