Re: [delphi-br] dividir string

2007-04-04 Por tôpico Diogo Viegas 
Ola Erivando

Acredito que existem várias maneiras, mas segue uma abaixo:

   sua_string := '846400218710034011074750220626492799';
   SetLength(parte, 11); //array of string
  for i:=1 to 4 do
begin
  parte[i]:= copy(sua_string,1,11);
  delete(sua_string,1,11);
   end;

Depois é só mostrar o que tem dentro de cada array.
Espere um pouco que daqui a pouco alguém manda outra melhor!!! :)
[]s



Em 03/04/07, [EMAIL PROTECTED] [EMAIL PROTECTED] escreveu:

   oi, pessoal

 eu estou com esta string:

 846400218710034011074750220626492799

 eu eu preciso dividir ela em 4 partes de 11 caracteres assim:

 8464002 18710034010 00010747502 20626492799

 ou seja,

 parte 1 = 8464002
 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]

 



[As partes desta mensagem que não continham texto foram removidas]

[delphi-br] dividir string

2007-04-03 Por tôpico erivando 
oi, pessoal


eu estou com esta string:

846400218710034011074750220626492799

eu eu preciso dividir ela em 4 partes de 11 caracteres assim:

8464002 18710034010 00010747502 20626492799

ou seja,

parte 1 = 8464002
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]

Re: [delphi-br] dividir string

2007-04-03 Por tôpico Mauro Paes Corrêa - gnX Ltda . 
Função copy lhe ajudará. copy(string,posicaoinicial,quantidade)

string := 012345678971546546546545
Ex: parte1 := copy(string,1,11);

Sds.

Mauro Paes Correa
www.gnx.com.br




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

  846400218710034011074750220626492799

  eu eu preciso dividir ela em 4 partes de 11 caracteres assim:

  8464002 18710034010 00010747502 20626492799

  ou seja,

  parte 1 = 8464002
  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]

Re: [delphi-br] dividir string

2007-04-03 Por tôpico willer 
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:

  846400218710034011074750220626492799

  eu eu preciso dividir ela em 4 partes de 11 caracteres assim:

  8464002 18710034010 00010747502 20626492799

  ou seja,

  parte 1 = 8464002
  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]

Re: [delphi-br] dividir string

2007-04-03 Por tôpico erivando 
valeu Mauro

deu certo,Deus te guarde!
  - Original Message - 
  From: Mauro Paes Corrêa - gnX Ltda. 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Tuesday, April 03, 2007 2:53 PM
  Subject: Re: [delphi-br] dividir string


  Função copy lhe ajudará. copy(string,posicaoinicial,quantidade)

  string := 012345678971546546546545
  Ex: parte1 := copy(string,1,11);

  Sds.

  Mauro Paes Correa
  www.gnx.com.br

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

  846400218710034011074750220626492799

  eu eu preciso dividir ela em 4 partes de 11 caracteres assim:

  8464002 18710034010 00010747502 20626492799

  ou seja,

  parte 1 = 8464002
  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]



   

[As partes desta mensagem que não continham texto foram removidas]

RE: [delphi-br] dividir string

2007-04-03 Por tôpico Jiuney Pachevitch 
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:

846400218710034011074750220626492799

eu eu preciso dividir ela em 4 partes de 11 caracteres assim:

8464002 18710034010 00010747502 20626492799

ou seja,

parte 1 = 8464002
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

Re: [delphi-br] dividir string

2007-04-03 Por tôpico SEOB 
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:

  846400218710034011074750220626492799

  eu eu preciso dividir ela em 4 partes de 11 caracteres assim:

  8464002 18710034010 00010747502 20626492799

  ou seja,

  parte 1 = 8464002
  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]

Re: [delphi-br] dividir string

2007-04-03 Por tôpico erivando 
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:

  846400218710034011074750220626492799

  eu eu preciso dividir ela em 4 partes de 11 caracteres assim:

  8464002 18710034010 00010747502 20626492799

  ou seja,

  parte 1 = 8464002
  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]

Re: [delphi-br] dividir string

2007-04-03 Por tôpico erivando 
Obrigado, ok!

  - Original Message - 
  From: Jiuney Pachevitch 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Tuesday, April 03, 2007 2:59 PM
  Subject: RE: [delphi-br] dividir string


  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:
  
  846400218710034011074750220626492799
  
  eu eu preciso dividir ela em 4 partes de 11 caracteres assim:
  
  8464002 18710034010 00010747502 20626492799
  
  ou seja,
  
  parte 1 = 8464002
  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



   

[As partes desta mensagem que não continham texto foram removidas]

Re: [delphi-br] dividir string

2007-04-03 Por tôpico SEOB 
meritos pro mauro, so montei a partir do exemplo dele e aproveitei para 
exercitar =)
sou novato =)

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: [EMAIL PROTECTED] 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Tuesday, April 03, 2007 4:40 PM
  Subject: Re: [delphi-br] dividir string


  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:

  846400218710034011074750220626492799

  eu eu preciso dividir ela em 4 partes de 11 caracteres assim:

  8464002 18710034010 00010747502 20626492799

  ou seja,

  parte 1 = 8464002
  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]



   

[As partes desta mensagem que não continham texto foram removidas]

Re: [delphi-br] dividir string

2007-04-03 Por tôpico erivando 
obg!

  - Original Message - 
  From: BandaLemuel 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Tuesday, April 03, 2007 4:59 PM
  Subject: Re: [delphi-br] dividir string


  Faça ssim

  var
  p1 ,p2 ,p3 ,p4 : String ;
  begin
  p1 := copy (846400218710034011074750220626492799 , 1 , 11 );
  p2 := copy (846400218710034011074750220626492799 , 12 , 11 );
  p3 := copy (846400218710034011074750220626492799 , 23 , 11 );
  p4 := copy (846400218710034011074750220626492799 , 34 , 11 ); 
  end;

  Wesley

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

  846400218710034011074750220626492799

  eu eu preciso dividir ela em 4 partes de 11 caracteres assim:

  8464002 18710034010 00010747502 20626492799

  ou seja,

  parte 1 = 8464002
  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]



   

[As partes desta mensagem que não continham texto foram removidas]

RE: [delphi-br] dividir string

2007-04-03 Por tôpico Rubem Nascimento da Rocha 

Copy() é função, e não comando!
Sds.

From: Jiuney Pachevitch [EMAIL PROTECTED]
Reply-To: delphi-br@yahoogrupos.com.br
To: delphi-br@yahoogrupos.com.br
Subject: RE: [delphi-br] dividir string
Date: Tue, 03 Apr 2007 14:59:23 -0300

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:
 
 846400218710034011074750220626492799
 
 eu eu preciso dividir ela em 4 partes de 11 caracteres assim:
 
 8464002 18710034010 00010747502 20626492799
 
 ou seja,
 
 parte 1 = 8464002
 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


_
MSN Busca: fácil, rápido, direto ao ponto.  http://search.msn.com.br

Re: [delphi-br] dividir string

2007-04-03 Por tôpico Rubem Nascimento da Rocha 

Melhor ainda:

{ Retorna um vetor contendo 'n' strings de tamanho 'LenSubStr',
  divididas da string 's'. Precisa da unit Types }
function SplitString(const s: String; LenSubStr: Integer): TStringDynArray;
var
  lTmpStr: String;
begin
  SetLength(Result, 0);
  lTmpStr := s;
  while Length(lTmpStr)  0 do
  begin
SetLength(Result, Length(Result) + 1);
Result[Length(Result) - 1] := Copy(lTmpStr, 1, LenSubStr);
System.Delete(lTmpStr, 1, LenSubStr);
  end;
end;

Sds.

From: [EMAIL PROTECTED]
Reply-To: delphi-br@yahoogrupos.com.br
To: delphi-br@yahoogrupos.com.br
Subject: Re: [delphi-br] dividir string
Date: Tue, 3 Apr 2007 16:40:09 -0300

Obrigado, ok!

   - Original Message -
   From: Jiuney Pachevitch
   To: delphi-br@yahoogrupos.com.br
   Sent: Tuesday, April 03, 2007 2:59 PM
   Subject: RE: [delphi-br] dividir string


   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:
   
   846400218710034011074750220626492799
   
   eu eu preciso dividir ela em 4 partes de 11 caracteres assim:
   
   8464002 18710034010 00010747502 20626492799
   
   ou seja,
   
   parte 1 = 8464002
   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





[As partes desta mensagem que não continham texto foram removidas]


_
MSN Messenger: converse com os seus amigos online. 
http://messenger.msn.com.br