Leer todos los ficheros de una carpeta

[[Caral]]

Hola denuevo:
Este codigo me lo enseño a hacer Bicho:
Con algunas Variantes tal vez te sirva, te lo pongo completo, en realidad lo que hace es ver el fichero en un memo y guardarlo, en el edit le puedes colocar otra ruta para que este en otra carpeta como leido o algo asi:

Código Delphi [-]
unit UNotas;

interface

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

type
  TFNotas = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    Button3: TButton;
    Button2: TButton;
    Edit1: TEdit;
    procedure Button3Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FNotas: TFNotas;
  Ruta: String;
implementation

{$R *.dfm}

procedure TFNotas.Button3Click(Sender: TObject);
begin
  Close;
end;

procedure TFNotas.Button1Click(Sender: TObject);
begin
// con esto se pone la ruta directo por codigo
//  Ruta:= 'C:\FIBRESTER\Fibrester\Notas.bat';

// con esto otro pone la ruta el usuario en el edit
  Ruta:= Edit1.Text;
  Memo1.Lines.SaveToFile(Ruta);
  Memo1.Lines.Clear;
end;

procedure TFNotas.FormCreate(Sender: TObject);
begin
   Ruta:= Edit1.Text;
   Memo1.Lines.LoadFromFile(Ruta);
end;

procedure TFNotas.Button2Click(Sender: TObject);
begin
  Ruta:= Edit1.Text;
  Memo1.Lines.LoadFromFile(Ruta);
end;

end.

Tal vez te sirva
Saludos

[[Bicho]]

Hombre últimamente Caral piensa mucho en mí Voy a empezar a cobrarte por las ayudas eh?

De todas maneras el código que ha puesto Caral no está mal (claro si se lo dí yo no va a estar mal no?) Pero creo que para el caso que pide VRO no sirve. Por el simple hecho de esto:

Empezado por VRO

La carpeta puede estar grabada en el ordenador ó en cualquier otro soporte (disquete, CD-ROM, Pen-Drive ...).

Y es que si la carpeta está un CD-ROM no podremos escribir esa marca en los ficheros y en un Pen-drive y/o disquete si están protegidos tampoco podremos.

Yo propongo otra alternativa:
Recorrer el directorio y guardar los ficheros en un memo o un listbox (lo que tu veas más sencillo de manejar: con un listbox el usuario podría escoger el fichero que quiere procesar, pero si el proceso es automático tanto te da). Eso lo puedes hacer con el truco que te ha brindado Spynosa. Y una vez hecho esto recorres el memo o el listbox, fichero a fichero, procesas el fichero como sea y cuando hayas terminado con él, copias esa linea en un listbox o memo (en otro distinto).
Cada vez que vayas a procesar un fichero del primer memo, recorres el segundo en busca del mismo texto, si está allí significará que ya lo has procesado y te lo puedes saltar, en caso contrario lo procesas y copias esa linea en el segundo memo.

Como diria Seoane, un poco de código nunca viene mal: (el codigo está hecho todo de cabeza, no tengo Delphi instalado en éste equipo desde el que escribo, así que seguro que hay algun error)

Código Delphi [-]
type 
  Form1 : TForm;
     LbFicherosAProcesar : TListBox;
     LbFicherosProcesados : TListBox;
  private 
     procedure CargaFicherosEnLista;
     procedure RecorreListaAProcesar;
     function EsFicheroProcesado(pFichero : String) : Boolean;
  end;

implementation

procedure Form1.CargaFicherosEnLista;
begin
  //Aquí iria la funcion del truco de Spynosa
end;

procedure TForm1.RecorreListaAProcesar;
var x : Integer;
begin
   for x := 0 to LbFicherosAProcesar.Items.Count - 1 do begin
      if not EsFicheroProcesado(LbFicherosAProcesar.Items.Strings[x]) then begin
        //aqui haces lo que quieras con el fichero
        LbFicherosProcesados.Items.Add(LbFicherosAProcesar.Items.Strings[x]); 
//guardamos el nombre del fichero ya procesado en la lista para no procesar más
      end;
   end;
end;

procedure Tform1.EsFicheroProcesado(pFichero : String) : Boolean;
var i : Integer;
begin
  Result := False;
  for i := 0 to LbFicherosProcesados.Items.Count - 1 do begin
     if LbFicherosProcesados.Items.Strings[i] = pFichero then begin
        Result := True; //fichero encontrado, devolvemos true para que no se procese
        Break;
     end;
  end; 
end;

Bueno solo pedir disculpas por el rollo escrito, pero espero sirva de ayuda a alguien

Saludos

[[Caral]]

Me hizo mucha gracia esto:

Hombre últimamente Caral piensa mucho en mí Voy a empezar a cobrarte por las ayudas eh?

La verdad Bicho, no me quedo lo que no me corresponde, si me han dado un codigo o ayudado en el, primero pongo, esta persona lo hizo, por supuesto dando la importancia del caso, luego lo pongo.
Con respecto a to respuesta que puedo decir en otro foro la pondre
Sigo aprendiendo.
Saludos

[VRO]

Hola a todos y muchas gracias por vuestras aportaciones. Prometo echarlas un ojo. La noticia de las 8 de la mañana (cuando entro a trabajar) es que el cliente al final no quiere ampliar la aplicación , será ¡¡ Claro hay que pagarla !!!, ahora que la tenía practicamente acabada, a falta de hacer lo que os he comentado. Pues nada, de todas formas lo probaré siempre está bien seguir conociendo trucos y aprendiendo.

Gracias por todo, hasta pronto

[[Bicho]]

Empezado por Caral

Con respecto a to respuesta que puedo decir en otro foro la pondre

Seras??!!...

Empezado por VRO

La noticia de las 8 de la mañana (cuando entro a trabajar) es que el cliente al final no quiere ampliar la aplicación , será ¡¡ Claro hay que pagarla !!!, ahora que la tenía practicamente acabada

Y por supuesto Caral y yo tambien queremos cobrar por nuestra colaboración

Bueno, que se la va hacer, ésto que ya has aprendido para otra ocasión.

Saludos