valeu! Obg! www.inforamos.com ----- Original Message ----- From: SEOB To: delphi-br@yahoogrupos.com.br Sent: Tuesday, April 03, 2007 3:13 PM Subject: Re: [delphi-br] dividir string
espero q sirva =) procedure TForm1.bbRodaClick(Sender: TObject); var texto:string; begin texto:=edTeste.text; Label1.Caption:=copy(texto,1,11); Label2.Caption:=copy(texto,12,11); Label3.Caption:=copy(texto,23,11); Label4.Caption:=copy(texto,34,11); end; abração []'s SEOB Anderson de S. Dominoni Gomes [EMAIL PROTECTED] www.allline.com.br MSN: [EMAIL PROTECTED] GTalk: [EMAIL PROTECTED] ICQ 57094184 SKYPE seob_br --------------------------------------------- Só depois que o último rio estiver seco, a última árvore for derrubada, e o último peixe contaminado, VOCÊS ENTENDERÃO QUE DINHEIRO NÃO SE COME. Pensamento de um chefe indígena americano ----- Original Message ----- From: willer To: delphi-br@yahoogrupos.com.br Sent: Tuesday, April 03, 2007 2:54 PM Subject: Re: [delphi-br] dividir string Usa a função Copy COPY(STRING,X1,X2); Retorna os caracteres da string começando de x1 até x2. willer. ----- Original Message ----- From: [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Tuesday, April 03, 2007 2:45 PM Subject: [delphi-br] dividir string oi, pessoal eu estou com esta string: 84640000002187100340100001074750220626492799 eu eu preciso dividir ela em 4 partes de 11 caracteres assim: 84640000002 18710034010 00010747502 20626492799 ou seja, parte 1 = 84640000002 parte 2 = 18710034010 parte 3 = 00010747502 parte 4 = 20626492799 alguem poderia mim dar uma juda? Grato! Erivando [As partes desta mensagem que não continham texto foram removidas] __________ Informação do NOD32 IMON 2166 (20070403) __________ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]