Crear archivo *.LOG

[ciscu]

Hola, gracias por responderme!!

Pues veras, yo utilizo TTables y TQuerys que están ligadas con un TDatabase en un formulario de tipo module (y las bases de datos son de tipo PARADOX).

Puedes seguir ayudándome (o alguien que esté por aquí)?

Gracias anticipadas de nuevo

[__cadetill]

Puedes hacer una función genérica y llamarla desde el evento AfterPost de los TTables o TQuerys aprovechando que reciben como parámetro un Dataset

Lo pongo de cabeza y sin comprobar el funcionamiento, para que pilles la idea

procedure TForm1.CrearLog(DataSet: TDataSet);
var
  i : integer;
  F: TextFile;
begin
  // gestión de abertura de fichero
  .......
  // gestión del Dataset
  for i := 0 to DataSet.Fields.Count - 1 do
    Writeln(F, DataSet.Fields[i].FieldName + ': ' +
               DataSet.FieldByName(DataSet.Fields[i].FieldName).AsString);

  // gestión de cierre fichero
  .....
end;

procedure TForm1.Tabla1AfterPost(DataSet: TDataSet);
begin
   CrearLog(Dataset)
end;