FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
Hola a todos,
El código que tengo ahora mismo al respecto es el siguiente:
Si pongo "FindClose(SR);" como comentado, me encuentro que el error me salta en:
y me dice que: Código:
[Error] Fxmain.pas(467): Unsatisfied forward or external declaration: 'TFrmFxMain.ListFileDir' Código:
[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
__________________
Sonrie al mundo, y el mundo te sonreirá :) |
#2
|
||||
|
||||
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:
2) La segunda opción es declarar el procedure dentro de donde lo llamas.:
Luego te digo algo de lo otro Edu |
#3
|
||||
|
||||
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
por Y solucionado! Edu |
#4
|
|||
|
|||
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: Cita:
Un saludo, GRacias de nuevo, virginia
__________________
Sonrie al mundo, y el mundo te sonreirá :) |
#5
|
|||
|
|||
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
__________________
Sonrie al mundo, y el mundo te sonreirá :) Última edición por Giniromero fecha: 20-10-2005 a las 14:09:56. |
#6
|
||||
|
||||
Cita:
Lo que no me queda muy claro es para qué necesitas el ListBox. Si sólo va a haber una carpeta que satisfaga la búsqueda creo que está de más. // Saludos |
|
|
|