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