FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Grabar archivos de texto
Hola a todos mi problema es que necesito guardar un archivo de texto que yo creo en tiempo de ejecucion pero me gustaria que el usuario pudiera indicar en donde se va a guardar ese archivo aqui esta el codigo del procedimiento que estoy utilizando
procedure TT_MovTraspasoSalida.Generardocumento; var fecha, hora, nombrearchtxt: string; begin fecha := StringReplace (DateToStr (Now), '/', '_', [rfReplaceAll]); nombrearchtxt := ExtractFilePath (Application.ExeName) + 'Traspasos\' + 'TS' + fecha + '.txt'; Memo1.Clear; IBOQueryConDoc.Open; IBOQueryConDoc.First; while not (IBOQueryConDoc.EOF) do begin Memo1.Lines.Add (IBOQueryConDocACO_CODIGO.AsString + ',' + IBOQueryConDocSAD_CANTIDAD.AsString); IBOQueryConDoc.Next; end; Memo1.Lines.SaveToFile (nombrearchtxt); ShowMessage ('Se a generado un documento para este traspaso en: ' + nombrearchtxt); end; el archivo que necesito guardar es nombrearchtxt, por lo pronto estoy extrayendo el nombre del directorio donde se encuentra el ejecutable de mi aplicacion y lo guardo en un subdirectorio 'Traspasos' pero lo que necesito es mediante un dialogo que el usuario pueda decirle a mi aplicacion donde desea guardar este archivo Gracias anticipadas por su ayuda |
#2
|
||||
|
||||
busca TSaveDialog en la ayuda de Delphi, verás que trae un ejemplo muy bueno para lo que quieras hacer.
__________________
AKA "El animalito" ||Cordobés a mucha honra|| |
#3
|
|||
|
|||
Gracias por tu respuesta
la ayuda de mi delphi no esta funcionando en este momento pero he probado el componente que me dijiste y ha funcionado muy bien nada mas que ahora tengo otra pregunta ¿Se puede hacer que el usuario no pueda darle el nombre al archivo? porque se lo debo de generar yo mismo y orita lo que estoy haciendo es mostrar el nombre que genere en el dialogo pero quisiera que no pudieran modificarlo no se si alguna de las propiedades de este componente me permitan hacer esto aqui esta el nuevo codigo y gracias nuevamente por tu respuesta procedure TT_MovTraspasoSalida.Generardocumento; var fecha, hora, nombrearchtxt: string; begin fecha := StringReplace (DateToStr (Now), '/', '_', [rfReplaceAll]); hora := StringReplace (TimeToStr (Now), ':', '', [rfReplaceAll]); hora := StringReplace (hora, '.', '', [rfReplaceAll]); Memo1.Clear; SaveDialog1.FileName := 'TS' + fecha + StrSinEspa (hora) + '.txt'; if not SaveDialog1.Execute then exit; begin nombrearchtxt := SaveDialog1.FileName; end; IBOQueryConDoc.Open; IBOQueryConDoc.First; while not (IBOQueryConDoc.EOF) do begin Memo1.Lines.Add (IBOQueryConDocACO_CODIGO.AsString + ',' + IBOQueryConDocSAD_CANTIDAD.AsString); IBOQueryConDoc.Next; end; Memo1.Lines.SaveToFile (nombrearchtxt); ShowMessage ('Se a generado un documento para este traspaso en: ' + nombrearchtxt); end; |
#4
|
||||
|
||||
Hola jarr-o, puedes utilizar la función SelectDirectory que te muestra un cuadro de dialogo para poder seleccionar el directorio. Para que te funcione debes añadir en uses la unidad FileCtrl.
Saluditos
__________________
Disfruten cada minuto de su vida a lado de sus seres queridos como si fuese el ultimo, uno nunca sabe lo que puede pasar. |
#5
|
||||
|
||||
Con el componente SaveDialog el usuario si podra darle el nombre de archivo, lo que puedes hacer es extraer la ruta sin el nombre de archivo del FileName, pero talvez sería mejor que lo hagas de la forma que te indico arriba.
Saluditos
__________________
Disfruten cada minuto de su vida a lado de sus seres queridos como si fuese el ultimo, uno nunca sabe lo que puede pasar. |
#6
|
|||
|
|||
Gracias por sus respuestas en esta ocasion al final he utilizado selectdirectory
Nos vemos la proxima |
Herramientas | Buscar en Tema |
Desplegado | |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Grabar Fichero Texto en Unicode | DarkDudae | Varios | 3 | 31-03-2008 17:23:42 |
Leer varios archivos de texto y extraer solo 2 lineas de ese texto | mp3968 | Internet | 1 | 17-05-2007 20:24:09 |
Como puedo grabar texto en un Archivo de Texto sin Sobreescribir???? | AGAG4 | Varios | 12 | 08-11-2005 22:53:00 |
Como grabar archivos WAV | JDNA | Varios | 1 | 16-04-2004 03:50:29 |
Grabar como texto enriquecido!! | Salomon | Varios | 0 | 04-09-2003 11:55:07 |
|