Contar a posi��o e pegar a string

Question

Boa tarde pessoal!tenho um Edit1 com o seguinte: SRE2314TR9810223Ele tem 14 d�gitos.Eu preciso contar de 4 em 4 e ir colocando em uma variavel. Ficando assim:var1 = SRE2var2 = 314Tvar3 = R981var4 = 02...

Rjun · Answer

Para voc� pegar uma substring, utilize a fun��o [b:90b4fb9146]COPY[/b:90b4fb9146]. Voc� disse que o edit tem 14 posi��es. No seu exemplo ela tem 16.

//Copy(Variavel, PosInicial, Tamanho);
var1 := Copy(Edit1.Text, 1, 4);
var2 := Copy(Edit1.Text, 5, 4);
var3 := Copy(Edit1.Text, 9, 4);
var4 := Copy(Edit1.Text, 13, 4);

Nandolh · Answer

var  x : integer;begin  x := 1;  while x <= length(Edit1.Text) do  begin    memo1.Lines.Add(copy(Edit1.Text,x,4));    x := x + 4;end;...

Michael · Answer

Ol� colega!Primeiramente, voc� quis dizer 16 caracteres, correto? ;-)Se sempre vai ter esse valor, com o c�digo a seguir seu problema deve ser resolvido:[code:1:38a06819d1]var S, S1, S2, S3, S4 : string;begin  S := �SRE2314TR9810223�;  S1 := Copy(S, 1, 4);  S2 := Copy(S, 5, 4);  S3 := Copy(S, 9, 4);  S4 := Copy(S, 13, 4);end;[/code:1:38a06819d1]Eu usaria uma array para armazenar estes valores, por ser mais flex�vel do que vari�veis est�ticas.[]�s...

Michael · Answer

Ol� pessoal!Quando escrevi meu post, ningu�m tinha respondido ainda. Ent�o esqueci a janela aberta sem postar... Quando enviei a mensagem, j� tinham um monte de respostas iguais...  :oops: []�s...

Vinicius2k · Answer

[quote:316f0151ec=�Michael�]Quando escrevi meu post, ningu�m tinha respondido ainda. Ent�o esqueci a janela aberta sem postar... Quando enviei a mensagem, j� tinham um monte de respostas iguais...[/quote:316f0151ec]hehe... N�o �esquenta� que isto �s vezes acontece ! ;)Um exemplo interessante da situa��o (observe o intervalo de tempo entre as respostas): //forum.clubedelphi.net/viewtopic.php?t=61691T+...

Michael · Answer

Ol� Vin�cius! Quanto tempo hein!Interessante o post que vc indicou mesmo. hehehe. Coisas da Internet.[]�s...

F�rum Contar a posi��o e pegar a string #295337