Aplicación para: Buscar y Reemplazar.

[[Lepe]]

Si has ejecutado ese programa, que sepas que el primer archivo que encuentra no busca en su interior:

Código Delphi [-]
function TForm1.lFile(dOrigen: string) : String;
var
  sr: TSearchRec;
begin
  Application.ProcessMessages;
  chDir (dOrigen);
  FindFirst (Edit3.Text, faAnyFile, sr);
  while FindNext(sr)=0 do

Debería ser algo así:

Código Delphi [-]
function TForm1.lFile(dOrigen: string) : String;
var
  sr: TSearchRec;
  Respuesta:integer;
begin
  Application.ProcessMessages;
  chDir (dOrigen);
  Respuesta := FindFirst (Edit3.Text, faAnyFile, sr);
  while Respuesta = 0 do

Lo mismo con la rutina LDir

saludos