Como pegar uma letra em uma determinada posição????????
Ola pessoal estou com um serio problema.
Preciso ver que letra esta numa determinada posição de uma estring.
Por exemplo presiso saber qual a quarta letra de uma string.
Se essa letra for 0 (Zero) eu irei substituila por 1 caso contrario não.
Ja tentei um monte de coisa mas até agora não consegui se alguem puder me ajudar eu agradeço.
Preciso ver que letra esta numa determinada posição de uma estring.
Por exemplo presiso saber qual a quarta letra de uma string.
Se essa letra for 0 (Zero) eu irei substituila por 1 caso contrario não.
Ja tentei um monte de coisa mas até agora não consegui se alguem puder me ajudar eu agradeço.
Hdionizio
Curtidas 0
Respostas
Nildo
28/04/2004
if Variavel[ 4] = ´0´ then
Variavel[ 4 ] := ´1´
Variavel[ 4 ] := ´1´
GOSTEI 0
Bacalhau
28/04/2004
Dada uma string ´S´, com ´n´ posições, seria isto:
if copy(S,4,1) = ´0´
then S := Copy(S,1,3) + ´1´ + Copy(S,5,Length(S) - 4);
Explicando: se a quarta posição for ´0´ zero, ele reconstroi a string, concatenando três coisas:
- O que está nas 3 primeiras posições
- O ´1´, que substibui o ´0´
- da 5ª posição para a frente. Como não sabemos qual é o comprimento de uma string num determinado momento, utilizamos a função Length(S) que calcula esse comprimento e subtraímos as 4 posições entretanto escritas.
Abraço
cbacalhau
if copy(S,4,1) = ´0´
then S := Copy(S,1,3) + ´1´ + Copy(S,5,Length(S) - 4);
Explicando: se a quarta posição for ´0´ zero, ele reconstroi a string, concatenando três coisas:
- O que está nas 3 primeiras posições
- O ´1´, que substibui o ´0´
- da 5ª posição para a frente. Como não sabemos qual é o comprimento de uma string num determinado momento, utilizamos a função Length(S) que calcula esse comprimento e subtraímos as 4 posições entretanto escritas.
Abraço
cbacalhau
GOSTEI 0