function UltimaPalavra(pTexto: String): String;
var
i : Integer;
s : String;
begin
s := '';
for i := Length(Trim(pTexto)) downto 1 do
begin
if pTexto[i] <> ' ' then
s := pTexto[i] + s
else
begin
Result := s;
Break;
end;
end;
Result := s;
end;
Eduardo Castro Alves
Analista de Sistemas
-----Original Message-----
From: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] On Behalf Of pcinfowave
Sent: quarta-feira, 24 de maio de 2006 09:39
To: delphi-br@yahoogrupos.com.br
Subject: [delphi-br] Capturar a última palavra de um string
Ola...
Preciso capturar a última palavra de um string, alguem poderia me dar
uma ajuda para esta operação?
De já agradeço!
[]´s
Paulo
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Links do Yahoo! Grupos
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por: | |
|
Links do Yahoo! Grupos
- Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
- Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
- O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!.