archivo de texto

[delphi.com.ar]

Puedes utilizar el programa asociado para imprimir este texto, con el siguiente código:

Código Delphi [-]
uses
  ShellApi;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShellExecute(Handle, 'print', 'c:\texto.txt', nil, nil, SW_SHOW);
end;

O puedes ir a algo mas antiguo:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  WinExec('c:\texto.txt > LPT1', SW_SHOW);
end;

O bien puedes abrir el archivo, y cargarlo en un reporte.

Saludos!

[jovehe]

oye muchas gracias por la respuesta tan rapida pero no he podido mprimir fijate que el texto que quiero sacar es desde una b.d. y no se como lo voy a ligar para que el archivo de texto jale esos datos aparte el archivo tiene que existir forsozamente ?
espero me puedas ayudar muchas gracias
att
jovehe
saludos¡¡

[delphi.com.ar]

Si quieres imprimirlo no necesariamete tienes que exportar este "archivo"... puedes hacer un reporte con QuickReports, poner un query e imprimir los datos de los campos.. Te recomiendo ver los ejemplos que trae Delphi al respecto.
Ahora si quieres exportarlo... ¿Un campo solo o varios registros+campos?

Saludos!

[jovehe]

es que quiero exportarlo a un texto y son varios registros+campos por poner un ejemplo haz de cuenta que tengo la tabla con 4 campos y tienen varios registros pues quiero poner esos registros en un texto haz de cuenta que el primer registro con todos sus campos en una linea y despues el siguiente registro con todos sus campos en la siguiente linea y asi sucesivamente.

oye muchas gracias por las respuestas tan prontas te lo agradezco en verdad

[delphi.com.ar]

Ok.. puedes hacerlo mediante las funciones / clases de manejos de archivos (FileOpen, AssignFile, CreateFile o TFileStream), o puedes bajarte de mi página los componentes llamados ExportSuite, precisamente uno llamado TDataToAscii tiene esta funcionalidad, o puedes buscar algunos open source en Torry.Net

Saludos!

[jovehe]

que crees ya instale los componentes pero ahora no me deja compilar la aplicacion ya le agregue a mi proyecto los .dcu y ahora me pide un archivo .pas y no se que onda no sabes donde puedo encontrar informacion acerca de como utilizar estos componentes o me puedes una vez mas orientar y ayudarme espero no te moleste mucho.
gracias

[delphi.com.ar]

Los DCU son PAS compilados, con tener los DCU en el Search Path del proyecto, compilará. El Search Path lo puedes editar desde el menú Project \ Options \ Directories / Conditionals

Saludos!

[jachguate]

Hola... pero realmente te interesa generar un texto de pormedio?? o lo único que queres conseguir es el reporte...

Si es asi, podes valerte del Quick Report, o cualquier otro generador de informes....

Hasta luego.

[jachguate]

Empezado por delphi.com.ar

o puedes bajarte de mi página los componentes llamados ExportSuite, precisamente uno llamado TDataToAscii tiene esta funcionalidad

No habia visto este mensaje de delphi.com.ar... que mas queres????

[jovehe]

hola que tal
la verdad no se si lo este pero genere el texto con el report builder solo que tengo un pequeño problemilla al momento que mando el texto me manda un separador ',' para cada campo pero el texto que requiero no debe llevar separador por lo que se lo quito pero entonces no me manda un registro por renglon sino que me manda todos los registros en un solo renglon no sabes como le puedo hacer? tambien intente con el metodo del memo el problema es que me copia solo el primer registro como que tego que recorrer toda la tabla pero no se como espero me puedas ayudar y que no te quite mucho el tiempo nos vemos hasta luego.
y gracias por la respuesta tan rapida

[EduardoGT]

Federico

Ya descargue el componente para exportar a txt. Pero.... como se usa? Soy muy novato en esto.

De antemano gracias por tu ayuda.

[jovehe]

que tal
mira estos componentes son mu faciles de utilizar
basta con que le cuelges en la propiedad dataset un datasource que este ligado a la tabla que quieres exportar a txt.
y podrias madarlo a un archivo con este codigo espero te sirva.
solo necesitas poner tambien un savedialog de la paleta dialogs y declarar una variable en la seccion private asi mas o menos

private
Archivo:String;
{ Private declarations }

procedure TForm1.BtnExporttxt(Sender: TObject);
begin
Tabla1.Open;
if SaveDialog1.Execute then
begin
Archivo:=SaveDialog1.FileName;
DataToAscii1.SaveToFile(Archivo);
end;
end;
Saludos¡