FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Ayuda con aplicacion (BD)
Hola, soy nuevo en Delphi y queria saber si es posible crear una base de datos para mi aplicacion.
En esencia la aplicacion tiene como funcion buscar y eliminar ciertos archivos pero al ser numerosos no se si tengo que poner linea por linea o puedo crear una base de datos donde pongo la localizacion de los archivos a eliminar, y de forma automatica lea cada archivo y lo elimine? Se puede hacer eso? Bye. |
#2
|
||||
|
||||
Sería necesario saber de cuantos archivos estamos hablando, pero en síntesis creo que podría hacerse sin base de datos, es decir guardar los nombres y ubicación de los archivos en un archivo de texto, luego abrirlo ir leyendo línea por línea e ir ejecutado el Delete correspondiente.
Un Saludo.
__________________
Guía de Estilo de los Foros Cita:
|
#3
|
|||
|
|||
Si yo lei que se podia hacer tambien con un .txt pero no tengo muy en claro como integrarlo. Me refiero conoces algun manual o tutorial que me ayude a programar esa funcion?
Osea que lea el texto, cambie sus atributos y elimine los archivos. Algun tuto? |
#4
|
||||
|
||||
Aquí te pego unas líneas que utilizo para leer líneas de un fichero que te pueden servir como base de ejemplo, no tengo tiempo para más.
Un Saludo.
__________________
Guía de Estilo de los Foros Cita:
|
#5
|
||||
|
||||
Quizás este otro que es más corto te ayude más.
Un Saludo.
__________________
Guía de Estilo de los Foros Cita:
|
#6
|
|||
|
|||
Muchas gracias voy a ir leyendo haber q tal me sale.
Gracias de nuevo. |
#7
|
||||
|
||||
Hola Joker.
Se me ocurre que podrías utilizar un OpenDialog para agregar los nombres al archivo de texto y eliminarlos desde allí. Algo así : Código:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) btnAgregar: TButton; OpenDlg: TOpenDialog; btnBorrar: TButton; procedure FormCreate(Sender: TObject); procedure btnAgregarClick(Sender: TObject); procedure btnBorrarClick(Sender: TObject); private FArchivos: TextFile; procedure AgregarArchivo; procedure BorrarArchivos; public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin AssignFile(FArchivos,'C:\AELIMINAR.TXT'); try Reset(FArchivos); except Rewrite(FArchivos); end; end; procedure TForm1.AgregarArchivo; var SList: TStringList; begin SList:= TStringList.Create; SList.LoadFromFile('C:\AELIMINAR.TXT'); if OpenDlg.Execute then begin if SList.IndexOf(OpenDlg.FileName)> 0 then ShowMessage('El archivo ya existe en la lista para ser eliminado') else begin Append(FArchivos); Writeln(FArchivos, OpenDlg.FileName); CloseFile(FArchivos); end; end; end; procedure TForm1.BorrarArchivos; var Nombre: string; begin Reset(FArchivos); while not Eof(FArchivos) do begin Readln(FArchivos, Nombre); if not DeleteFile(Nombre) then ShowMessage('No se pudo eliminar: '+Nombre); end; CloseFile(FArchivos); end; procedure TForm1.btnAgregarClick(Sender: TObject); begin AgregarArchivo; end; procedure TForm1.btnBorrarClick(Sender: TObject); begin BorrarArchivos; end; end. Carece de algunas comprobaciones necesarias quizás, pero es para dar una idea. Saludos.
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... Última edición por ecfisa fecha: 18-07-2010 a las 23:33:06. |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
ayuda con una aplicación MDI | ercrizeporta | Varios | 3 | 16-04-2007 15:31:48 |
Aplicacion terminada ayuda!! | Bitbanner | Varios | 3 | 10-02-2005 17:15:15 |
Ayuda para aplicación en red | dape | Varios | 0 | 04-12-2004 17:04:42 |
Ayuda de aplicacion | jmedina | Conexión con bases de datos | 3 | 22-07-2004 16:44:23 |
ayuda con aplicacion en red | squenda | Firebird e Interbase | 1 | 04-04-2004 08:39:58 |
|