FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
Buenas,
si, en principio esto sería perfecto, lo único, es que no sé como se busca en un tipo de dato tStringList. Gracias, Virginia
__________________
Sonrie al mundo, y el mundo te sonreirá :) |
#2
|
||||
|
||||
Déjame ver si entiendo.
Por un lado tienes carpetas nombradas así: Código:
0004896 . PEREZ 0023548 . GARZA 0000563 . ALVAREZ etc. Código:
+---------+----------------+ | 0004896 | PEREZ MEJIA | +---------+----------------+ | 0023548 | GARZA ESTRADA | +---------+----------------+ | 0000563 | ALVAREZ SIERRA | +---------+----------------+ Si formas el nombre de la carpeta con todo el campo de los apellidos te quedaría así: Código:
0023548 . GARZA ESTRADA Código:
0023548 . GARZA
El Format de arriba te forma el nombre a probar: '0023548 . GARZA ESTRADA' y Folder sería el nombre del folder contra el que pruebas. En resumen, podrías proceder asi: Caundo requieres abrir el folder de un usuario dado, primero formas el nombre de la carpeta con ambos apellidos: Mask := Format('%0.7d . %s', [NoUsuario, Apellidos]); Recorres los folders de la carpeta inicial y en cada paso comparas el nombre del folder con el de Mask usando Pos. Si para alguno se cumple la condición, sales del ciclo y devuelves el nombre del folder encontrado. // Saludos |
#3
|
||||
|
||||
Jamás había oido/leido nada sobre el punto catalán, es la primera vez que veo esa expresión . Algunos editores de textos usan ese punto para indicar que hay un espacio, pero es lo único que he visto sobre eso.
¿Para qué y cómo se usa en la "vida real"?, ¿tiene algún significado especial? |
#4
|
||||
|
||||
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 |
#6
|
|||
|
|||
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á :) |
#7
|
||||
|
||||
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 |
#8
|
||||
|
||||
Cita:
Muchas gracias. |
#9
|
|||
|
|||
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: Código:
[Error] Fxmain.pas(3404): Incompatible types: 'Cardinal' and 'TSearchRec' En el código: 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; Código:
FindClose(SR); Muchas gracias por la ayuda. virginia Romero
__________________
Sonrie al mundo, y el mundo te sonreirá :) |
|
|
|