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..
