ActiveDelphi :: Exibir tópico - Substituir letra pelo numero zero

ActiveDelphi
.: O site do programador Delphi! :.

FAQ

Pesquisar

Membros

Grupos

Registrar

Perfil

Entrar e ver Mensagens Particulares

Entrar

Substituir letra pelo numero zero

ActiveDelphi - Índice do Fórum -> Delphi

Exibir mensagem anterior :: Exibir próxima mensagem

Autor

Mensagem

adriano_servitec
Colaborador

Registrado: Sexta-Feira, 30 de Janeiro de 2004
Mensagens: 17618

Enviada: Seg Ago 12, 2019 11:25 am Assunto: Substituir letra pelo numero zero

Substituir letra pelo numero zero

Como mudar um string

Código:

105P para 1050
A155 para 0155
etc

Não sei qual letra vai vir na string, mais o que tiver de letra tem que ser mudado para zero.

Obrigado.
_________________
Jogo seu smartphone? Acesse o link e confira.
https://play.google.com/store/apps/details?id=br.com.couldsys.rockdrum
https://play.google.com/store/apps/details?id=br.com.couldsys.drumsetfree

Voltar ao Topo

imex
Moderador

Registrado: Sexta-Feira, 7 de Janeiro de 2011
Mensagens: 11666

Enviada: Seg Ago 12, 2019 12:09 pm Assunto:

Bom dia,

Segue uma sugestão para testes:

Código:

procedure TForm1.Button1Click(Sender: TObject);
var
s: string;
i: integer;
begin
s := '105P';
for i := 1 to Length(s) do
if not (CharInSet(s[i], ['0'..'9'])) then
s[i] := '0';
ShowMessage(s);
end;

Espero que ajude

_________________
Assinatura: https://www.imoveisemexposicao.com.br

Editado pela última vez por imex em Qui Fev 23, 2023 10:34 am, num total de 1 vez

Voltar ao Topo

adriano_servitec
Colaborador

Registrado: Sexta-Feira, 30 de Janeiro de 2004
Mensagens: 17618

Enviada: Seg Ago 12, 2019 1:19 pm Assunto:

imex escreveu:

Bom dia,

Segue uma sugestão para testes:

Código:

procedure TForm1.Button1Click(Sender: TObject);
var
s: string;
i: integer;
begin
s := '105P';
for i := 1 to Length(s) do
if not (CharInSet(s[i], ['0'..'9'])) then
s[i] := '0';
ShowMessage(s);
end;

Espero que ajude

Deu certo sim Imex, muito obrigado.
_________________
Jogo seu smartphone? Acesse o link e confira.
https://play.google.com/store/apps/details?id=br.com.couldsys.rockdrum
https://play.google.com/store/apps/details?id=br.com.couldsys.drumsetfree

Voltar ao Topo

Mostrar os tópicos anteriores:

	ActiveDelphi - Índice do Fórum -> Delphi	Todos os horários são GMT - 3 Horas
Página 1 de 1

Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.