Ola.. Vc poderá usar o comando Copy para desmenbrar sua string
Ex:
  var
  A: String;
begin
  A := copy(A, 1, 11) + ' ';
  A := A + copy(A, 12, 11) + ' ';
  A := A + copy(A, 23, 11) + ' ';
  A := A + copy(A, 34, 11);
end;


>From: <[EMAIL PROTECTED]>
>Reply-To: delphi-br@yahoogrupos.com.br
>To: <delphi-br@yahoogrupos.com.br>
>Subject: [delphi-br] dividir string
>Date: Tue, 3 Apr 2007 14:45:23 -0300
>
>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]
>

_________________________________________________________________
Seja um dos primeiros a testar o novo Windows Live Mail Beta- grátis. Acesse 
http://www.ideas.live.com/programpage.aspx?versionId=5d21c51a-b161-4314-9b0e-4911fb2b2e6d

Responder a