ecriture fichier sur mobile
bonjour
sur windows sa marche
mais sur android 64 bits jai la fenetre mais des que j'appui
sur le button erreur entré sortie
desole je commence seulement a faire sur android
mais ce n'est pas facile avec toutes les permisions
je ne sais pas lequel cocher dans onglet projet permissions
merci encore de votre aide
un exemple de mon code
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
|
unit Unit1;
interface
uses
System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.Layouts,
FMX.ListBox, FMX.Controls.Presentation, FMX.StdCtrls ,System.Permissions,System.IOUtils;
type
TForm1 = class(TForm)
Button1: TButton;
ListBox1: TListBox;
procedure Button1Click(Sender: TObject);
private
{ Déclarations privées }
public
{ Déclarations publiques }
end;
var
Form1: TForm1;
implementation
{$R *.fmx}
procedure ecris_fichier(const FileName: string; Content:String);
var
f: textfile;
begin
AssignFile(f, FileName);
rewrite(f);
writeln(content);
CloseFile(f);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
montexte:String;
begin
montexte:='abcdefaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa';
ecris_fichier(System.IOUtils.TPath.GetSharedDownloadsPath + '/passe.dat',montexte);
end;
end. |
