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..:p |
|
Creo que deberías hacerlo de esta forma:
SaveDialog1.FileName es el nombre que has elegido con el SaveDialog. |
Lo del ini, extraido más o menos igual del help de Delphi TIniFiles:
Quedaría algo asi : y
|
La franja horaria es GMT +2. Ahora son las 07:42:51. |
Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi