ayuda con exportacion de DBgrid

[Gatsoft]

LB_NOMBRES.Caption:=SearchAndReplace(LB_NOMBRES.Caption,'É','E')

Código Delphi [-]
FUNCTION SearchAndReplace(sSrc, sLookFor, sReplaceWith : string) : string;
VAR
   nPos, nLenLookFor : integer;
BEGIN
   nPos := Pos(sLookFor, sSrc) ;
   nLenLookFor := Length(sLookFor) ;
   while (nPos > 0) do begin
     Delete(sSrc, nPos, nLenLookFor) ;
     Insert(sReplaceWith, sSrc, nPos) ;
     nPos := Pos(sLookFor, sSrc) ;
   end;
   Result := sSrc;
END;

[[rretamar]]

Recorriendo un dataset:

Código Delphi [-]
DataSet.DisableControls; // Deshabilitamos la actualización de componentes visuales, para que no se vea por ejemplo en las grillas cómo se va "moviendo" el puntero al registro actual
DataSet.First;
While Not DataSet.Eof Do 
  Begin
    { Aqui se coloca el código para leer los datos de cada registro y hacer algo con ellos }
  DataSet.Next; // Avanzamos al siguiente registro
End;
DataSet.EnableControls;

Luego de este recorrido de un dataset, el puntero estará en el último registro. Si queremos conservar la posición para restaurarla al final, podemos usar un objeto TBookmark.

[ecfisa]

Hola microbiano.

¿ Y no te convendría recorrer los campos directamente del TDataSet ?

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  i : Integer;
  s : string;
begin
  with TStringList.Create do
  try
    DataSet.First;
    DataSet.DisableControls;
    while not DataSet.Eof do
    begin
      for i:= 0 to DataSet.FieldCount-1 do
        s:= s + DataSet.Fields[i].AsString + '|';
      DataSet.Next;
    end;
    Q_carac.Open;
    while not Q_carac.Eof do
    begin
      s := StringReplace(s, Q_Carac.FieldByName('caracter').AsString, '', [rfReplaceAll]);
      Q_carac.Next;
    end;
    Q_carac.Close;
    SetLength(s, Length(s)-1);
    Text:= s;
    SaveToFile(ExtractFilePath(Application.ExeName) + 'prueba.txt');
  finally
    Free;
    DataSet.EnableControls;
  end;
end;

Saludos.

Edito: No había visto el mensaje de rretamar, que te sugiere lo mismo.