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:
Cita:
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
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
LbFicherosProcesados.Items.Add(LbFicherosAProcesar.Items.Strings[x]);
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; Break;
end;
end;
end;
Bueno solo pedir disculpas por el rollo escrito, pero espero sirva de ayuda a alguien
Saludos