procesar varias lineas de un dbgrid

[ecfisa]

Hola ASUNCION.

Recordá encerrar tu código entre las etiquetas: [delphi] y [/delphi] , para que el texto sea más interpretable.

Si no usas dichas etiquetas por que te desorganiza el código, podés solucionarlo desde:
User CP -> Otras opciones -> Interfaz del editor de usuario, Seleccioná: "Editor Estándar - Controles de Formato Extra"

Saludos.

[ecfisa]

Hola de nuevo.

Con respecto al problema se me ocurre que podrías almacenar la posición actual, procesar los registros seleccionados y volver a reposicionar.

Un ejemplo sencillo con un TMemo:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
  BM: TBookMarkStr;
begin
  Memo1.Clear;
  try
   DataSet.DisableControls; // desactivar mostrar datos 
   BM:= DBGrid1.DataSource.DataSet.Bookmark; // guardar posición actual
   for i:= 0 to DBGRid1.SelectedRows.Count-1  do
   begin
     DataSet.Bookmark:= DBGrid1.SelectedRows.Items[i]; // posiciona en c/u de registros seleccionados

     (* 
         Aquí iría el código que guarda en el archivo de texto  
         ...
      *)

     Memo1.Lines.Add(DBGrid1.SelectedField.AsString); // linea ejemplo, para darle funcionalidad al código
   end;
   DBGrid1.DataSource.DataSet.Bookmark:= BM;// restaurar posición
  finally
   DataSet.EnableControls; // activar mostrar datos
  end;
end;

Saludos.

[ecfisa]

Para agregar otra idea, si usaras TStrings, podrías aprovechar el procedimiento SaveToFile simplificando el guardado de los registros.

Algo como:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
  BM: TBookMarkStr;
  ts: TStrings;
begin
  try
   DataSet.DisableControls;
   ts:= TStringList.Create;
   BM:= DBGrid1.DataSource.DataSet.Bookmark;
   for i:= 0 to DBGRid1.SelectedRows.Count-1  do
   begin
     DataSet.Bookmark:= DBGrid1.SelectedRows.Items[i];
     (* Aca el código que cargue el string en TStrings *)
     ts.Add(DBGrid1.SelectedField.AsString); // ejemplo
   end;
   ts.SaveToFile('C:\PRUEBA.TXT');  // guardar en archivo
   DBGrid1.DataSource.DataSet.Bookmark:= BM;
  finally
   DataSet.EnableControls;
   ts.Free;
  end;
end;

Saludos.