FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
||||
|
||||
problemas al exportar archivo...solo detalles
Hola amigos...
tengo una aplicación que exporta unos datos desde un StringGrid a un Archivo de Texto... todo me funciona bien, para lo cual utilizo el sgte codigo: Código Delphi [-] nFile := Concat(Copy(Proceso.Text,1,1),'-',FormatDateTime('mm',Fecha.Date),FormatDateTime('yyyy', Fecha.Date),'.cdh'); nDir := Concat('D:\Sistemas\','BCI\'); Str := ''; For i := 0 to Grilla.RowCount-1 do Begin If (i <> 0) Then Str := Str + #13#10; For j := 0 to (Grilla.Rows[i].Count - 1) do Begin If (j <> 0) Then Str := Str + '';//#9; Str := Str + Grilla.Rows[i].Strings[j]; end; TS := TStringList.CReate(); TS.Text := Str; TS.SAveToFile(Concat(nDir,nfile)); TS.Free; End; A esto quiero decirle que lo almacene en una ruta específica, pro lo cual con nDir defino la ruta, y con nFile defino en nombre del archivo... hasta aquí todo bien... pero mi consulta es como le digo que esto me lo almacene usando un dialogo tipo SaveDialog.... puse ese codigo antes de almacenar el archivo,,, pero entra en un bucle.. asiq ue no me funciona... Código Delphi [-] SaveDialog1.InitialDir := nDir; // Asigno ruta_donde_almacenar SaveDialog1.FileName := nFile; // asigno nombre_de_Archivo with SaveDialog1 do if Execute then TS.SAveToFile(Concat(nDir,nfile)) Else ShowMessage('Error al guardar archivo'); TS.Free; Si bien la funcion funciona para almacenar el archivo, la idea es que el usuario seleccione solo la ruta... mi otra consulta.. este proceso se hace 1 vez al mes... como puedo hacer para que el sistema me almacene la última ruta seleccionada... (debere guardar la info en un .ini ).... y como evito que el usuario modifique el nombre del archivo... bueno.. eso seria todo...gracias por cualquier ayudita..
__________________
BlueSteel |
#2
|
||||
|
||||
Última edición por duilioisola fecha: 02-10-2007 a las 19:05:42. |
#3
|
||||
|
||||
Creo que deberías hacerlo de esta forma:
SaveDialog1.FileName es el nombre que has elegido con el SaveDialog. |
#4
|
||||
|
||||
Lo del ini, extraido más o menos igual del help de Delphi TIniFiles:
Quedaría algo asi : y
|
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Exportar una Tabla de SQL a un archivo TXT | sanfer1ec | SQL | 5 | 11-04-2007 18:05:35 |
Exportar un DBGRID a un archivo txt | egarc | Varios | 8 | 08-02-2007 16:02:33 |
exportar varios reports en un solo rtf usando rave | Eusebio | Impresión | 0 | 05-02-2006 22:39:20 |
Exportar en un archivo txt | alfredosg19 | Varios | 10 | 11-04-2005 18:00:37 |
Exportar un StringGrid a un Archivo.TxT | kokoyweb | Varios | 1 | 24-08-2004 22:04:26 |
|