Discussion :

[tintin62]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[tintin62]

bonjour
quand je fait sa pas erreur pourquoi ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
 Memo1.Lines.SaveToFile(GetHomePath + '/test.txt');
   Memo2.Lines.LoadFromFile(GetHomePath + '/test.txt');

[Gouyon]

Je pense que tu n'as pas d'erreur car tu écris dans un répertoire où tu es autorisé à le faire.