ActiveDelphi :: Exibir tópico - Repetir ultima letra de uma string

ActiveDelphi
.: O site do programador Delphi! :.

FAQ

Pesquisar

Membros

Grupos

Registrar

Perfil

Entrar e ver Mensagens Particulares

Entrar

Repetir ultima letra de uma string

ActiveDelphi - Índice do Fórum -> Delphi

Exibir mensagem anterior :: Exibir próxima mensagem

Autor

Mensagem

Netrunner
Aprendiz

Registrado: Domingo, 7 de Julho de 2013
Mensagens: 236

Enviada: Qui Set 26, 2013 5:38 pm Assunto: Repetir ultima letra de uma string

como faço pra repetir a ultima letra de uma string?

Código:

nomezinho := Copy(mensagem,0,length(mensagem)+1);

tava testando assim, porem não deu certo ;x

Voltar ao Topo

CesarRocha
Mestre
Mestre

Registrado: Segunda-Feira, 30 de Mai de 2011
Mensagens: 794
Localização: São Paulo - SP

Enviada: Qui Set 26, 2013 5:43 pm Assunto:

Eis ai,

Código:

function RepetirUltimaLetra(const S: string): string;
begin
Result := s + s[Length(s)];
end;

Ps.: Strings no Delphi são "one-based", isto é, o primeiro índice é 1 e não 0. Se quiser trabalhar com "zero-based" leia aqui: http://docwiki.embarcadero.com/RADStudio/XE4/en/Zero-based_strings_(Delphi)

~bye

Voltar ao Topo

imex
Moderador

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

Enviada: Qui Set 26, 2013 5:44 pm Assunto:

Boa tarde,

Experimente dessa forma:

Código:

nomezinho := Copy(mensagem, length(mensagem), 1);

ou (nesse caso é necessário adicionar a unit StrUtils a uses)

Código:

nomezinho := RightStr(mensagem, 1);

Espero que ajude.

_________________
Assinatura: http://www.imoveisemexposicao.com.br/imoveis-venda-guarulhos-residencial-apartamento

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.