Como guardar archivos

[jachguate]

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..

[[Lepe]]

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