Como quebrar uma string assim...
Amigos me ajudem!!! :cry: :cry:
como faço para quebrar uma string contendo algo do tipo:
[b:d3399433ed]05A001USUARIO1 C002USUARIO2 D003USUARIO3 C004USUARIO4 D005USUARIO5 D[/b:d3399433ed]
depois teria que jogar num memo da seguinte forma:
[b:d3399433ed]CODIGO: 001 NOME: USUARIO1 STATUS: C
CODIGO: 002 NOME: USUARIO2 STATUS: D
CODIGO: 003 NOME: USUARIO3 STATUS: C
CODIGO: 004 NOME: USUARIO4 STATUS: D
CODIGO: 005 NOME: USUARIO5 STATUS: D[/b:d3399433ed]
agradeço a ajuda!
Uirá Haun[/b]
como faço para quebrar uma string contendo algo do tipo:
[b:d3399433ed]05A001USUARIO1 C002USUARIO2 D003USUARIO3 C004USUARIO4 D005USUARIO5 D[/b:d3399433ed]
depois teria que jogar num memo da seguinte forma:
[b:d3399433ed]CODIGO: 001 NOME: USUARIO1 STATUS: C
CODIGO: 002 NOME: USUARIO2 STATUS: D
CODIGO: 003 NOME: USUARIO3 STATUS: C
CODIGO: 004 NOME: USUARIO4 STATUS: D
CODIGO: 005 NOME: USUARIO5 STATUS: D[/b:d3399433ed]
agradeço a ajuda!
Uirá Haun[/b]
Darkburn
Curtidas 0
Respostas
Brsistemas
08/11/2003
Use o comando copy:
Ex:
vtexto:=´05A001USUARIO1 D´;
vcodigo:=copy(vtexto,4,3);
Obs: vcodigo vai ser igual a ´001´, agora é só vc criar para os demais campos.
Ex:
vtexto:=´05A001USUARIO1 D´;
vcodigo:=copy(vtexto,4,3);
Obs: vcodigo vai ser igual a ´001´, agora é só vc criar para os demais campos.
GOSTEI 0