Contar a posição e pegar a string

Delphi

13/09/2005

Boa tarde pessoal!

tenho um Edit1 com o seguinte: SRE2314TR9810223

Ele tem 14 dígitos.

Eu preciso contar de 4 em 4 e ir colocando em uma variavel. Ficando assim:

var1 = SRE2
var2 = 314T
var3 = R981
var4 = 0223

como eu faço isso?


Redoctober

Redoctober

Curtidas 0

Respostas

Rjun

Rjun

13/09/2005

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);



GOSTEI 0
Nandolh

Nandolh

13/09/2005

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;


GOSTEI 0
Michael

Michael

13/09/2005

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:

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;


Eu usaria uma array para armazenar estes valores, por ser mais flexível do que variáveis estáticas.

[]´s


GOSTEI 0
Michael

Michael

13/09/2005

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


GOSTEI 0
Vinicius2k

Vinicius2k

13/09/2005

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

hehe... Não ´esquenta´ que isto às vezes acontece ! ;)
Um exemplo interessante da situação (observe o intervalo de tempo entre as respostas): http://forum.clubedelphi.net/viewtopic.php?t=61691

T+


GOSTEI 0
Michael

Michael

13/09/2005

Olá Vinícius! Quanto tempo hein!

Interessante o post que vc indicou mesmo. hehehe. Coisas da Internet.

[]´s


GOSTEI 0
POSTAR