Expresion regular

[Casimiro Noteví]

Vaya, finalmente vas a resultar un desagradecido

[JuanOrtega]

¿ desagradecido ? , si no he hecho nada

[Casimiro Noteví]

Tu actitud y comentarios no son nada "acertados" ni "lógicos", y no digamos nada entonces sobre el mensaje privado.

[JuanOrtega]

pero solo estoy aclarando que me gusta la programacion como hobby , porque mis matematicas son malisimas y no pude entrar a la facultad , por eso tuve que elegir otra profesion , no estoy diciendo nada fuera de contexto ,y sobre el mensaje privado te pedi por favor que borraras este post porque tenia muchos problemas y este post me hacia sentir mal en la forma en la que quede.

[Casimiro Noteví]

Venga, vale, no insistiré en el tema.

[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.

[[nlsgarcia]]

Club Delphi,

Para contribuir a la idea de ecfisa:

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure Split(const Delimiter: Char; Input: string; const Strings: TStrings);
begin
   Strings.Clear;
   Strings.Delimiter := Delimiter;
   Strings.DelimitedText := Input;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
   StrList: TStringList;
   i : Integer;
   s : String;
begin
   StrList := TStringList.Create;
   try
      Split(' ', 'Hola Test Mundo', StrList) ;
      for i := 0 to StrList.Count - 1 do
         ShowMessage(StrList[i]);
      for i:= 0 to StrList.Count - 1 do
         if StrList[i] <> 'Test' then
           s := s + ' ' + StrList[i];
      ShowMessage(s);
   finally
      StrList.Free;
   end;
end;

end.

Espero sea útil

Nelson.

[mamcx]

Empezado por Lepuke

pero solo estoy aclarando que me gusta la programacion como hobby , porque mis matematicas son malisimas y no pude entrar a la facultad , por eso tuve que elegir otra profesion , no estoy diciendo nada fuera de contexto ,y sobre el mensaje privado te pedi por favor que borraras este post porque tenia muchos problemas y este post me hacia sentir mal en la forma en la que quede.

Ok lepuke. Es bueno que entiendas que no es nuestra intención hacerte sentir mal. Por otro lado, los medios informáticos de comunicacion son impersonales -y por lo tanto, se perciben como MUY RUDOS en general-, así que no se puede saber ni interpretar tonos de voz, inflexiones, expresiones de rostro, etc, que constituyen un 80% de la información que los humanos usamos para entendernos (masomenos).

Es por eso, que al usar un medio como este hay que saber como hacerlo. En ausencia de esos medios, existe un protocolo o "buenas maneras".

El primer punto es leer la guia de estilo, que esta arriba de este foro.

Te recomiendo que leas:

En el mundo de los hackers|programadores, el tipo de respuestas que obtengas a tus preguntas técnicas depende tanto de la manera en que formules tus preguntas como de la dificultad de desarrollar la respuesta. En esta guía se enseñará cómo preguntar de manera que puedas obtener una respuesta satisfactoria.

Cómo hacer preguntas de manera inteligente, de Eric S. Raymond

http://www.sindominio.net/ayuda/preg...eligentes.html

Y por ultimo, ten paciencia. Si quieres algo YA y RAPIDO y sin tener que esforzarte, entonces debes contratar el trabajo. De lo contrario, haz preguntas inteligentes (no es que dude de tu inteligencia, es que no te veo la cara, no te conozco, no se tu historia, ni nada de nada. Solo tenemos unas frases escritas y COMO esten escritas es la unica manera de interactuar!)