ermac,
Cita:
|
Empezado por ermac
...estoy tratando de hacerlo pero con una función recursiva que reciba una frase y sustituto...lo quiero hacer en consola...que el usuario ingrese una Frase y la pueda cambiar por un Sustituto...
|
Pregunto : ¿Por que quieres hacerlo de forma recursiva?
Revisa este código:
Código Delphi
[-]
program Project1;
{$APPTYPE CONSOLE}
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
var
S, OldPattern, NewPattern : String;
begin
S := InputBox('Cambio de Frase', 'Ingrese una frase:', '');
OldPattern := InputBox('Cambio de Frase', 'Ingrese OldPattern:', '');
NewPattern := InputBox('Cambio de Frase', 'Ingrese NewPattern:', '');
MessageDlg(S,mtInformation,[mbOK],0);
S := StringReplace(S, OldPattern, NewPattern,[rfReplaceAll, rfIgnoreCase]);
MessageDlg(S,mtInformation,[mbOK],0);
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 a nivel de consola.
Espero sea útil
Nelson.