Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Como guardar archivos (https://www.clubdelphi.com/foros/showthread.php?t=20664)

herodes 21-04-2005 17:24:18

Como guardar archivos
 
Hola a todos quisiera saber como es que se guardan los datos de una CRDBGrid (luego de ejecutada una consulta) mediante la accion de un click en mi disco C con un nombre determinado.

gracias.

vtdeleon 21-04-2005 21:56:56

Saludos.

No entiendo!!! confused

Que componentes usas para conectarte a la base de datos? table, querry, ADO, DB Express, IB???????

jachguate 21-04-2005 22:09:31

Cita:

Empezado por herodes
mediante la accion de un click en mi disco C

Cuidado, si le das muy fuerte el clic al disco, este puede quedar inservible.. :D

Lepe 22-04-2005 17:07:16

Hola herodes.

La idea es crear un string que sea todos los datos de 1 registro separados por coma (para ello uso la variable UnRegistro), despues de construir toda la linea, la añado al archivo.

Código Delphi [-]
var
   UnRegistro, Archivo:TStringList
begin
 UnRegistro := Tstringlist.create;
 Archivo := Tstringlist.Create;
tabla.First;
while not tabla.eof do
begin
 UnRegistro.clear;
 Unregistro.Add(campo1.Asstring);
 Unregistro.Add(campo2.Asstring);
....
 Archivo.add (unregistro.CommaText); 
// guardamos un registro entero separado por comas

 tabla.next;
end;
Archivo.Savetofile('c:\datos.txt')
end;
 archivo.free;
 UnRegistro.free;

Para cargar los datos tienes que hacer el proceso contrario.
-Cargar todo el archivo en la variable Archivo
- Asignar UnRegistro.Commatext := Archivo[i];

Si usas un DBgrid, no podrás cargar los datos desde el archivo, quizás sea más rápido hacerlo a un STringGrid

Saludos


La franja horaria es GMT +2. Ahora son las 07:01:47.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi