Guardar registro en archivo Txt
 

Hola forer@s, quiero guardar lo que hay en el registro seleccionado en mi RxDbgrid en un archivo Txt, para ello he usado el siguiente código:

Código Delphi [-]
procedure TFPrincipal.SpIGuardarClick(Sender: TObject);
var
   j:Integer;
   DatosEquipo,Datos,Ruta:String;
   //RegistrosMaster:String;
begin
   
  for j := 1 to DataSguardar.DataSet.FieldCount-1 do
    begin
      if (j>0) then
       Begin
         DatosEquipo:=DatosEquipo + DataSguardar.DataSet.Fields[j].FieldName+
         ': ';
       end;
       DatosEquipo:=DatosEquipo + DataSguardar.DataSet.Fields[j].AsString+#13;
      end;
Datos:=#9+#9+'********** DATOS CORRESPONDIENTES AL EQUIPO '+Dbedit1.Field.Text +
  '********** '+#13+#13+DatosEquipo+#13+#13+#13+#9
  +#9+'Datos suministrados por '+ 'el programa Equipos Informáticos ';  
  MemoGuardar.Lines.Clear;
   MemoGuardar.Lines.text:=Datos;
   SaveDialog1.Title:='Guardar configuración del equipo: '+Dbedit1.Field.Text;
   SaveDialog1.FileName:=Dbedit1.Field.Text;
   If savedialog1.Execute then
    begin
     Ruta:=Savedialog1.Filename;
     //Caption:=ExtractFileName(Ruta);
     MemoGuardar.Lines.SaveToFile(Ruta+'.txt');
     ShowMessage('Los registros se han guardado con éxito');
    end;
end;

Con este código consigo guardar el primer registro de la tabla en un archivo de texto.

Yo lo que quiero es que me guarde el registro que el usuario a seleccionado en el dbgrid.

Programo en delphi7 y MySql 3.23, con componentes nativos Zeos.

Un saludo y gracias.

Utiliza el mismo DataSet que estés utilizando en el RxDBGrid.
Sustituye DataSguardar por el del Grid.

Joer, que fallo más tonto, tengo la cabeza hecha cal de pensar en otras historias y no me habia dado ni cuenta.

Y como siempre recurro a los mejores maestros de Delphi de todo internet;) .

Bueno muchas gracias Neftali.Un saludo.