10 respuestas en este tema

[enecumene]

Pues eso, estoy haciendo un procedimiento que me cargue todos los archivos contenidos en una carpeta en un stringgrid, estoy usando el procedimiento GetNameFilesFromFolder de cadetill, al querer mostrar los archivos de una carpeta sólo me muestra uno (cuando tengo 3 pues), aquí el code:

delphi

procedure TFABCGen.MostrarDatos(Visor: TStringGrid);
var
  F: TextFile;
  Lista,Lineas: TStringList;
  Linea: String;
  s: Integer;
begin
  Lista := TStringList.Create;
  Lineas := TStringList.Create;
 
  GetNameFilesFromFolder( ExtractFilePath( Application.ExeName ),Lista,'*.D1',False,True,False);
 
  for s := 1 to Lista.Count -1 do
    begin
      With Visor do begin
        AssignFile( F, Lista.Strings[s] );
        Reset( F );
 
        Cells[0,s]  := ExtractFileName( Lista.Strings[s]); //Mostramos el nombre del Archivo
        Cells[1,s]  := IntToStr(FileSize( F )); //Mostramos el Tamaño del Archivo
 
        with Lineas do begin
          while not Eof( F ) do
            begin
              ReadLn( F, Linea );
              Add( Linea );
            end;
           CloseFile( F );
        end;
 
        Cells[2,s]  := IntToStr( Lineas.Count ); //MOstramos la cantidad de lineas del File
        Cells[3,s]  := 'NUEVO'; //Mostramos el Estado del Archivo
      end; // With Visor
    end; //for
end;

En qué estoy fallando?

Saludos.

Archivos adjuntos

•  1832_f55e1bdaa69f3149dabac64ccb41a48879ba15e1.png   13,44KB   13 descargas

[Fenareth]

Lista.Count, te está dando como valor un 3 ?...

Saludox !

[Caral]

Hola
Este ejemplo te ayudara, hace algo parecido.
Saludos

Archivos adjuntos

•  1834_e19ce54619783d1309b01a4a36cab32482134c00.zip   6,5KB   1 descargas

[enecumene]

Garcias a mi estimado Egostar (Vía MSN) me hizo ver algunos detallitos y ya funciona el asunto :

delphi

procedure TFABCGen.MostrarDatos(Visor: TStringGrid);
var
  F: TextFile;
  Lista,Lineas: TStringList;
  Linea: String;
  s: Integer;
begin
  Lista := TStringList.Create;
  Lineas := TStringList.Create;
 
  GetNameFilesFromFolder( ExtractFilePath( Application.ExeName ),Lista,'*.D1',False,True,False);
  Visor.RowCount  := Lista.Count + 1;
 
  for s := 1 to Lista.Count do
    begin
      With Visor do begin
        AssignFile( F, Lista.Strings[s - 1] );
        Reset( F );
 
        Cells[0,s]  := ExtractFileName( Lista.Strings[s - 1]); //Mostramos el nombre del Archivo
        Cells[1,s]  := IntToStr(FileSize( F )); //Mostramos el Tamaño del Archivo
 
        with Lineas do begin
          while not Eof( F ) do
            begin
              ReadLn( F, Linea );
              Add( Linea );
            end;
           CloseFile( F );
        end;
 
        Cells[2,s]  := IntToStr( Lineas.Count ); //MOstramos la cantidad de lineas del File
        Cells[3,s]  := 'NUEVO'; //Mostramos el Estado del Archivo
 
        Lineas.Clear;
      end; // With Visor
    end; //for
end;

Saludos.

[cadetill]

Buenas,

Lista.Count, te está dando como valor un 3 ?...

Exacto, lo primero que tendrías que comprobar es que la lista contenga lo que tiene que contener, a ver que no sea un bug de la función.

Por lo que respecta a tu función, el contador de líneas yo no lo haría con un TStringList, sino con un simple integer contador (a no ser que necesites el contenido para algo posteriormente).

Nos leemos

[cadetill]

Buenas,

Vaya, te me adelantaste a la respuesta

Me alegro que lo tengas arreglado

Nos leemos

[Caral]

Hola
A GetNameFilesFromFolder hay que ponerle algun USES ????.
Me da error, dice que no lo identifica.
Saludos

[egostar]

Garcias a mi estimado Egostar (Vía MSN) me hizo ver algunos detallitos y ya funciona el asunto :

Saludos.

Hey que sólo te dije que estabas bien we...........

En realidad el problema estaba principalmente en que sólo había asignado 2 renglones en el Visor (el cual es un StringGrid), lo que le dije es que debía crear los renglones necesarios dependiendo de los archivos que se cargaran a la Lista y que se resolvió con esto

delphi

Visor.RowCount  := Lista.Count + 1;

Salud OS

[cadetill]

Buenas,

Hola
A GetNameFilesFromFolder hay que ponerle algun USES ????.
Me da error, dice que no lo identifica.
Saludos

http://www.delphiacc...hp?topic=3424.0



Nos leemos

[Caral]

Hola
Gracias ya me funciono.
Despues de romperme la cabeza pensando que era Visor...
Es que no poneis notas en vuestros codigos.
Saludos

[enecumene]

Hola
Gracias ya me funciono.
Despues de romperme la cabeza pensando que era Visor...
Es que no poneis notas en vuestros codigos.
Saludos

Vaya amigo, es que como en el mismo code lo dice claro:

procedure MostrarDatos(Visor: TStringGrid);



Saludos.