Extraer última palabra de una frase
 

Hola a todos.

Quisiera saber como puedo extraer y guardar en una variable, la ultima palabra de cualquier frase introducida en un Edit.Text..
Sin que importe la longitud de la frase.

Gracias de antemano a todos.

Saludos
Manuel

Aunque habrá otras formas de momento he preparado este ejemplo:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
s:String;
l:Integer;
P:String;
begin
S:=Trim(Edit1.Text);
l:=Length(s);
While (l > 0) and (s[l] <> ' ')do
begin
l:=l-1;
end;
p:=copy(S,l,Length(s));
ShowMessage(p);
end;

Un Saludo.

Gracias amigo MarcosZorrilla.

Me has sido de gran ayuda.

Saludos.

Hola, tambien puedes usar strRscan

Código Delphi [-]
result := strRscan(PChar(s),' ') + 1;

EDITO : si no se encuentra ' ', entonces strRscan da nil por lo que result := nil + 1 y excepcion correspondiente. lo correcto seria hacer : if Pos(' ',s) then result := strRscan(PChar(s),' ') + 1 o bien comprobar de otra manera que strRscan no es nil. Saludos.

Muy buena idea, pero es necesario utilizar Trim por si tuviera espacios al final de la frase.

Código Delphi [-]
var
s:String;
begin
s:=edit1.text;
ShowMessage(strRscan(PChar(Trim(s)),' ') + 1);
end;

Un Saludo.