Expresion regular

[ecfisa]

Hola.

Para que el hilo no le resulte estéril a los posibles usuarios interesados, una forma puede ser:

Código Delphi [-]
function ExtraerPalabra(Frase, Palabra: string): string;
begin
  Delete(Frase,Pos(Palabra,Frase),Length(Palabra));
  Result:= Frase;
end;

Llamada:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  Caption:= ExtraerPalabra('hola test mundo', 'test');
end;

Saludos.