Cita:
Empezado por pgranados
Aqui te paso el codigo para generar el txt
Código Delphi [-]
procedure GuardarTextoEnArchivo(const texto: string; const nombreArchivo: string);
var
archivo: TextFile;
begin
AssignFile(archivo, nombreArchivo);
Rewrite(archivo);
Write(archivo, texto);
CloseFile(archivo);
end;
texto le pasas el valor del field y en nombre archivo la ruta de donde se guardara con el nombre y la extensión
y ya después de cargar la info te recomiendo eliminar el archivo
DeleteFile(miarchivo);
|
Estimado amigo, lo resolvi de esta manera:
...
TBlobField(q_DetBusca1.FieldByName('documento')).SaveToStream(Contenido);
Contenido.Position := 0;
docView.Lines.LoadFromStream(Contenido);
...
Gracias y gracias