ayuda con exportacion de DBgrid

[subzero]

Hola, se que estas armando un archivo de texto recorriendo un dbgrid, quizas haz revisado la posibilidad de recorrer la consulta almacenar esta info en un memo con las consideraciones que debe tener cada campo y luego guardarlo. La idea es en tiempo de ejecución conocer el comportamiento de tu procedimiento quizas sea otra opción, saludos

[microbiano]

podrias poner un ejemplo,
la verdad ya intente meter todos los caracter que quiero reemplazar en una base pero no puedo solucionarlo

hice lo siguiente;

Código Delphi [-]
procedure TForm1.btn2Click(Sender: TObject);
var
i : integer;
  a: Integer;
  archivo : TStringList;
  Data : TDataSet;
  cadena:String;
  letra: String;
  reemplaza: string;
begin
  Archivo:=TStringList.Create;
  Data:=DBGRID1.DataSource.DataSet;
  Data.First;
  letra:='';
  while not(Data.eof) do
     begin
        cadena:='';
       for i := 0 to dbgrid1.Columns.Count-1 do
       //for a:=0 to Data.RecordCount- 1 do
        begin
         cadena:=cadena +(Data.FieldByName(DBGrid1.Columns[i].FieldName).asString+'|');
        end;
        archivo.Add(cadena);
        data.Next;
      end;
  Q_carac.Open;
//cuando hago el open hace la siguiente consulta: select * from caracter
  while Q_carac.Eof do
  begin
    letra:=(Q_carac.fieldByname('caracter').AsString);//aqui es donde recorro todos los caracter que quiero reemplazar
    cadena:=StringReplace(cadena,letra,'',[rfReplaceAll]);//y aqui hago en reemplazo en la cadena pero no funciona :-(
  end;

     if FileExists('Test.txt') then DeleteFile('Test.txt');
     archivo.SaveToFile('Test.txt') ;
end;

alguna idea

[microbiano]

alguna mejor idea para reemplazar cierto caracter de una cadena.

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