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;