| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
NoiadoX
Aprendiz
Registrado: Terça-Feira, 8 de Julho de 2003
Mensagens: 256
|
 Enviada: Qua Jul 06, 2011 8:26 pm Assunto: Retirar caracteres a esquerda em uma string(Não é retirar z) |
 |
|
Alguem tem alguma função ai para retirar caracteres a esquerda de uma determinada string.
Exemplo:
digamos que eu tenha uma string com conteudo: 12345.1230002
Queror retirar todos os caracteres a esquerda do ponto.
Como faço isso?
_________________
http://endshop.mercadoshops.com.br/ |
|
| Voltar ao Topo |
|
 |
imex
Moderador
Registrado: Sexta-Feira, 7 de Janeiro de 2011
Mensagens: 11666
|
| Enviada: Qua Jul 06, 2011 9:26 pm Assunto: |
|
|
Experimente desta forma:
| Código: | procedure TForm1.Button1Click(Sender: TObject);
var
p: integer;
s: string;
begin
s := '12345.1230002';
i := Pos('.', s);
if i > 0 then
begin
Delete(s, 1, i - 1);
ShowMessage(s);
end;
end; |
Espero que seja útil.
Editado pela última vez por imex em Qua Out 04, 2023 10:58 am, num total de 1 vez |
|
| Voltar ao Topo |
|
|
claudiohmb
Aprendiz
Registrado: Terça-Feira, 15 de Julho de 2008
Mensagens: 122
Localização: São Paulo
|
| Enviada: Qua Jul 06, 2011 9:32 pm Assunto: |
|
|
Ou tente desta forma...
| Código: | | Copy('12345.1230002', Pos('.', '12345.1230002') + 1, Length('12345.1230002') - Pos('.', '12345.1230002'))); |
Abraços
_________________
Sempre coloque [Resolvido] nos seus post.
http://claudiohmb.blogspot.com |
|
| Voltar ao Topo |
|
|
marcosalles
Moderador
Registrado: Quarta-Feira, 26 de Março de 2008
Mensagens: 1695
Localização: Muriaé Mg
|
| Enviada: Qua Jul 06, 2011 11:40 pm Assunto: |
|
|
Ou se utiliza DelphiXe utilizar a propriedade Split da classe TRegEx que quebra um texto de acordo com uma regra de Validação da Expressão
| Código: | var
s:TRegEx;
begin
s:=TRegEx.Create('(\.)');
showmessage(s.Split('12345999.1230jkjk002')[0]); |
_________________
http://marcosalles.wordpress.com
Desenvolvo FreeLancer e presto Consultoria
Orientação Online DataSnap DbX ClientDataSet
POO , Padrões de Projeto e dúvidas de Delphi em
Geral |
|
| Voltar ao Topo |
|
|
johnny-walker
Moderador
Registrado: Sábado, 4 de Outubro de 2003
Mensagens: 10653
Localização: Contagem/MG - BRAZIL
|
| Enviada: Qui Jul 07, 2011 8:51 am Assunto: |
|
|
Se forem apenas números flutuantes, há a possibilidade de se transformar neste tipo e pegar a parte fracionaria com a utilização de Frac() ou a parte inteira com Int().
bye
_________________
P.O.W.E.R B.Y D.E.L.P.H.I |
|
| Voltar ao Topo |
|
|
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
