ubicar archivo, con datos sacados de base de datos

[epuigdef]

El punto catalán se utiliza en una construcción catalana que se llama "l germinada". Palabras como col·legi (colegio) la llevan. Suena com una l más larga, pero sin sonar a ll.


Un saludo

Edu

[epuigdef]

Buenas!


Para recorrer los elementos de un TStringList puedes utilizarel siguiente código:

Código Delphi [-]
var datos : TStringList;
     i : Integer;
     elemento : String;
begin
   for i := 0 to datos.count-1 do
   begin
      elemento := datos[i];
       ......
   end;

Edu

[Giniromero]

Hola a todos,

El código que tengo ahora mismo al respecto es el siguiente:

Código Delphi [-]
procedure TFrmFxMain.SpeedButton20Click(Sender: TObject);
var xpath: tStringList;
    subcarpetas : TStringList;
    cFile : String;
    str : string;
    i: integer;

begin

  TRY

    xpath := TStringList.create;
    cFile := 'c:\_Fx\FileLocation.ini';


    If Fileexists( cFile ) Then Begin

      xpath.LoadFromFile(cFile);

      TrY

         IF (xpath[1] <> '') THEN BEGIN

           try

             subcarpetas:= TStringList.Create;
             ListFileDir(xpath[1], subcarpetas);

             iF Pos(FrmDModule.TbAlumnosNUMALU.AsString, subcarpetas[i])<>0 tHEN bEGIN

                shellexecute(self.Handle, PChar('open'), PChar('explorer.exe'), PChar(subcarpetas[i]), nil, SW_SHOWNORMAL);

             eND
             eLSE bEGIN

                 Showmessage('No hay carpeta para este alumno');

             eND;

           finally
             subcarpetas.Free;
           end;

        END;

      ExcepT
        on E: Exception do begin
         str := 'Error al leer Archivo "FileLocation.ini" para caja. Faltan datos o vacio. Mensaje de error : ' + E.Message;
         Application.MessageBox(PChar(str), 'Atención', MB_OK);
         Application.Terminate;
        end;
      EnD;

    End
    Else Begin

      showmessage ('No se encuentra el archivo "FileLocation.ini" en la ruta especificada');

    End;


  FINALLY

    xpath.Free;

  END;


end;

procedure ListFileDir(Path: string; FileList: TStrings);
var SR: TSearchRec;
begin

    if (FindFirst(Path + '*.*', faAnyFile, SR) = 0) then begin
      repeat
       if (SR.Attr = faDirectory) then begin
           FileList.Add(SR.Name);
       end;
     until (FindNext(SR) <> 0);
      FindClose(SR);
   end;

end;

Si pongo "FindClose(SR);" como comentado, me encuentro que el error me salta en:

Código Delphi [-]
 procedure ListFileDir(Path: string; FileList: TStrings);

y me dice que:

[Error] Fxmain.pas(467): Unsatisfied forward or external declaration: 'TFrmFxMain.ListFileDir'

si no pongo el comentario, el error salta directamente en la línea en la que está el findClose, y me dice al compilar que:

[Error] Fxmain.pas(3414): Incompatible types: 'Cardinal' and 'TSearchRec'

Alguien puede echarle un vistazo al código, por que yo no veo donde puede estar el problema.

Gracias,

Virginia

[epuigdef]

Buenas!


Por lo del primer problema (con la línea comentada) lo que pasa es que tienes el procedimiento en la misma unit del form, pero fuera del form.

Tienes 2 opciones:
1) En la definición del form, en la parte private, declaras el procedure, y en la implementación del procedure le pones por delante el nombre del form. Alfo así como:

[delphi]
type
TFrmPrincipal = class(TForm)
.....
private

procedure ListFileDir(Path: string; FileList: TStrings);
[delphi]

y en la implementación:

Código Delphi [-]
procedure TFrmPrincipal.ListFileDir(Path: string; FileList: TStrings);

2) La segunda opción es declarar el procedure dentro de donde lo llamas.:

Código Delphi [-]
procedure TFrmFxMain.SpeedButton20Click(Sender: TObject);

var xpath: tStringList;

subcarpetas : TStringList;

cFile : String;

str : string;

i: integer;
 
procedure ListFileDir(Path: string; FileList: TStrings);

var SR: TSearchRec;

begin

if (FindFirst(Path + '*.*', faAnyFile, SR) = 0) then begin

repeat

if (SR.Attr = faDirectory) then begin

FileList.Add(SR.Name);

end;

until (FindNext(SR) <> 0);

FindClose(SR);

end;

end;

begin

TRY

xpath := TStringList.create;

cFile := 'c:\_Fx\FileLocation.ini';

Luego te digo algo de lo otro

Edu

[epuigdef]

Respecto al problema con el findclose, he visto que éste procedimiento está declarado en las unidades Windows y sysutils.


Tu problema es que estás llamando al findclose de la unidad windows, que recibe un cardinal como parámetro. Si te fijas en la lista de uses seguro que tienes las dos unidades.

En este caso, simplemente cambia

Código Delphi [-]
   findClose(SR);

por

Código Delphi [-]
   sysutils.findClose(SR);

Y solucionado!

Edu

[Giniromero]

Hola,


Definitivamente necesito que me graduen la vista, no me había dado cuenta que me faltaba TFrmPrincipal en el procedure. Gracias.

En cuanto a lo de:

Empezado por epuigdef

Tu problema es que estás llamando al findclose de la unidad windows, que recibe un cardinal como parámetro. Si te fijas en la lista de uses seguro que tienes las dos unidades.

Efectivamente tengo las dos unidades.Ahora si me compila, a ver si tambien me funciona.

Un saludo,

GRacias de nuevo,

virginia

[Giniromero]

Buenas,

'Eto yata'.
He reforzado el código usando el POS que me dijisteis, dentro del procedure ListFileDir, de modo que en la lista SÓLO se escriben los nombres de las subcarpetas que cumplen mi búsqueda, con lo que NO tengo que hacer un FOR con las mismas pasadas que subcarpetas haya, sólo se hace una vez si encuentra la carpeta, sino nada.

Tuve problemillas con el punto que había en el format... por que en el ejemplo no es el punto catalan, sino el normal, y aunque me guardaba OK en la lista las carpetas, luego al compararla con los datos que tenía yo, como una era con pto normal y la otra con el catalan, me decia que no encontraba esa carpeta en la lista.

Bueno, POS lo dicho, Muchas gracias por la ayuda.

Virginia Romero

[Casimiro Noteví]

Empezado por epuigdef

El punto catalán se utiliza en una construcción catalana que se llama "l germinada". Palabras como col·legi (colegio) la llevan. Suena com una l más larga, pero sin sonar a ll.
Un saludo
Edu

Todos los días se aprende algo.

Muchas gracias.

[Giniromero]

Hola a todos,

con todo lo que me habeis mandado estoy montando lo que necesito, muchas gracias lo primero pues me está siendo de mucha ayuda, el problema es que tengo problemas al compilar el programa, pues me dice que:

[Error] Fxmain.pas(3404): Incompatible types: 'Cardinal' and 'TSearchRec'

En el código:

procedure ListFileDir(Path: string; FileList: TStrings);
var
SR: TSearchRec;
begin
   if FindFirst(Path + '*.*', faAnyFile, SR) = 0 then begin
      repeat
       if (SR.Attr = faDirectory) then begin
           FileList.Add(SR.Name);
       end;
      until FindNext(SR) <> 0;
      FindClose(SR);
   end;
end;

y se para marcando:

FindClose(SR);

Sin embargo en el "Topic Search" de delphi, hay un ejemplo que tambien pone aquí este tipo de dato, y no un cardinal.
Muchas gracias por la ayuda.

virginia Romero