[[nlsgarcia]]

ermac,

Empezado por ermac

...hacer este proceso recursivo...frase: Si los puedes entender se puede programar...tendria que quedar esto: Si los puedes imaginar se puede programar...

Bienvenido al Club Delphi!

Revisa este código:

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 TForm1.Button1Click(Sender: TObject);
var
   S, OldPattern, NewPattern  : String;

begin

   S := 'Si los puedes entender se puede programar';
   OldPattern := 'entender';
   NewPattern := 'imaginar';

   MessageDlg(S,mtInformation,[mbOK],0);
   S := StringReplace(S, OldPattern, NewPattern,[rfReplaceAll, rfIgnoreCase]);
   MessageDlg(S,mtInformation,[mbOK],0);

end;

end.

El código anterior en Delphi 7 sobre Windows 7 Professional x32, Utiliza la función StringReplace y visualiza el resultado antes y después de la misma.

Nota: Este proceso no requiere del uso de funciones recursivas.

Revisa esta información:

1- Understanding Recursive Functions

2- Recursion (computer science)

Espero sea útil

Nelson.