Permiso Para Grabar

[pablocarlos]

Buenas tardes. Ese componente no funciona para moviles. No conozco alguno como para ayudarte, perdon.

[pruz]

Buenas tardes, aun no logro solucionar el problema. pero ahora me da el siguiente error; "I/O ERROR 30".
al ejecutarlo en Windows no da ERROR, pero en ANDROID si da el ERROR
La aplicacion no se donde queda instala, ya que se autoinstala.


este es el codigo, al intentar grabar un TXT.

Código Delphi [-]
var
F: TextFile;
sarchivo, slinea : String;

Begin


  AssignFile( F, sarchivo );
  Rewrite( F );

   for I := 0 to GrillaPaso.RowCount -1 do begin

     if (GrillaPaso.Cells[1, i] <> '') and
        (GrillaPaso.Cells[3, i] <> '') then begin

         slinea := GrillaPaso.Cells[0, i] + ';' + GrillaPaso.Cells[1, i] + ';' + GrillaPaso.Cells[2, i] ;
         slinea := slinea + ';' + GrillaPaso.Cells[3, i] + ';' + GrillaPaso.Cells[4, i] + ';' + GrillaPaso.Cells[5, i] ;
         slinea := slinea + ';' + GrillaPaso.Cells[6, i] + ';' + GrillaPaso.Cells[7, i] + ';' + GrillaPaso.Cells[8, i] ;
         WriteLn( F, slinea );


     end;

   end;
  CloseFile( F );

End;

[Neftali [Germán.Estévez]]

Puedes utilizar el SaveToFile de TStrings/TStringList.
El error puede ser tema de permisos.

[pruz]

Hola amigos:

Disculpen la demora en el feedback.
Bueno ya supere el error I/O 30, efectivamente era de permiso. en el archivo "AndroidManifest" donde se deben agregar.

Utilice lo recomendado por Neftali, pero a pesar que no da error no graba el archivo TXT.

Memo1.Lines.SaveToFile(TPath.Combine(TPath.GetDocumentsPath, 'archivo.txt'));

He seguido investigando pero aun no encuentro al solucion..
alguein me puede enviar un codigo o ejemplo.

Saludos,