Fórum Como pegar uma letra em uma determinada posição???????? #228574

28/04/2004

0

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.


Hdionizio

Hdionizio

Responder

Posts

28/04/2004

Nildo

if Variavel[ 4] = ´0´ then
Variavel[ 4 ] := ´1´


Responder

Gostei + 0

30/04/2004

Bacalhau

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


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar