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);
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