les comento:
la finalidad de hacer esto que dejar un archivo plano para poder migrarlo a otro sistema.
cargo un archivo de excel en un dbgrid, has ahi sin problemas, el problema radica cuando toda la informacion del dbgrid la quiero exportar a un archivo de texto para lo cual lo hago con el siguiente codigo:
Código Delphi
[-]
procedure TForm1.btn1Click(Sender: TObject);
var
i : integer;
a: Integer;
archivo : TextFile;
ruta_archivo: string;
Data : TDataSet;
begin
ruta_archivo := ExtractFilePath( Application.ExeName ) + 'prueba.txt';
AssignFile( archivo, ruta_archivo );
Data:=DBGRID1.DataSource.DataSet;
Data.First;
while not(Data.eof) do
begin
for i := 0 to dbgrid1.Columns.Count-1 do
begin
if FileExists( ruta_archivo ) then
Append( archivo )
else
Rewrite( archivo );
writeln(archivo,Data.FieldByName(DBGrid1.Columns[i].FieldName).asString+'|');
end;
Next;
end;
end;
bien el problema radica en que solo me guarda el primer registro del dbgrid.
ahora la pregunta es
1.- como hago para recorrer todos los registro del DBGRid y guardarlos en un archivo de texto
2.- hay alguna forma que despues de exportar toda esa informacion, se puedan eliminar de ese archivo caracteres como por ejemplo espacio comas,puntos, asteriscos,acentos, caracter de numero
3.- me podrian ayudar por favor.