Faça ssim
var
p1 ,p2 ,p3 ,p4 : String ;
begin
p1 := copy (84640000002187100340100001074750220626492799 , 1 , 11 );
p2 := copy (84640000002187100340100001074750220626492799 , 12 , 11 );
p3 := copy (84640000002187100340100001074750220626492799 , 23 , 11 );
p4 := copy (84640000002187100340100001074750220626492799 , 34 , 11
);
end;
Wesley
----- Original Message -----
From: [EMAIL PROTECTED]
To: [email protected]
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]
------------------------------------------------------------------------------
No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.5.446 / Virus Database: 268.18.25/744 - Release Date: 3/4/2007
05:32
[As partes desta mensagem que não continham texto foram removidas]
