Discussion :

[Lulu_n10]

Bonjour, je viens d'apprendre à me servir des fichiers en mode custom program et quand j'essaie en mode application sa ne marche pas. Est ce que c'est que l'on peut pas utiliser les fichiers en mode application? Ou est ce que ce n'est pas la même primitive?
voila mon programme tout simple, c'est pour tester:

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
 
unit Unit2; 
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, Buttons,
  StdCtrls;
 
type
 
  { TForm2 }
 
  TForm2 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end; 
 
var
  Form2: TForm2;
  f:text;
 
implementation
 
{ TForm2 }
 
procedure TForm2.Button1Click(Sender: TObject);
begin
     assign(f , 'nom.txt');
     rewrite(f);
     writeln(f, edit1.text);
     writeln(f, edit2.text);
     Form2.showHint:=false;
end;
 
initialization
  {$I unit2.lrs}
 
end.

et le message d'erreur est : unit2.pas(38,26)Error: wrong number of parameters specified

Merci d'avance.

[Bernard B]

Bonjour

il faut utiliser assignfile(f , 'nom.txt');
et tout va fonctionner.

@+

[droggo]

Ho,

+1 de Bernard B

Et remarques importantes sur le code.

1- Il faut fermer un fichier ouvert avant de quitter le programme

Code :

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

1
2
3
4
5
6
7
8
9
10
11
procedure TForm2.Button1Click(Sender: TObject);
begin
  assign(f , 'nom.txt');
  rewrite(f);
  writeln(f, edit1.text);
  writeln(f, edit2.text);
 
  { ICI manque la fermeture du fichier }
 
  Form2.showHint:=false;
end;

2- Penser à indenter le code, ça rend la lecture plus facile, et c'est une habitude à prendre le plus vite possible.

[Lulu_n10]

Ok merci à tous les deux sa marche, sinon y a t-il un autre moyen pour passer une variable de unit1 à Unit2.
(J'avais oublié le close pardon , sa fait quoi si je le met pas?)

[Ultima]

Bonsoir,
Tous ce que tu écris dans un fichier est d’abord stocké dans un buffer,
close permet de vider le buffer dans ton fichier.
Sans close ton fichier ne contiendra rien, malgré que tu ais eu l’impression de l’avoir édité.
+ (buffer = mémoire tampon)

[droggo]

Hi,

Ok merci à tous les deux sa marche, sinon y a t-il un autre moyen pour passer une variable de unit1 à Unit2.
(J'avais oublié le close pardon , sa fait quoi si je le met pas?)

Il risque d'être illisible ou corrompu.

C'est une des règles à toujours respecter:

- Si on ouvre un fichier, le fermer avant de sortir du programme

- si on réserve de la mémoire, la libérer avant de sortir du programme

etc

Pour passer une variable de unit1 à Unit2, il y a deux solutions principales, une que j'appelle "propre", et donc l'autre devient "sale".

1- la propre

Dans l'unit1, tu as une variable x dont l'unit2 a besoin, pour la lire ou l'écrire

Tu crées ta variable dans unit1, dans la partie implementation, et tu crées 2 procédures/fonctions publiques pour y accéder dans unit2, en admettant que ta variable soit de type integer:

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
 
unit unit1;
 
interface
 
  procedure SetMaVariable(n : integer);
  function   GetMaVariable : integer;
 
implementation
 
var
  MaVariable : integer;
...
 
procedure SetMaVariable(n : integer);
begin
  MaVariable := n;
end;
 
function   GetMaVariable : integer;
begin
  result := MaVariable;
end;
...

et dans unit2, tu manipules ta variable avec les accesseurs ainsi créés.



2- la sale

Dans l'unit1, tu as une variable x dont l'unit2 a besoin, pour la lire ou l'écrire

Tu crées ta variable dans unit1, dans la partie interface, la rendant ainsi publique

Code :

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

1
2
3
4
5
6
7
8
9
10
 
unit unit1;
 
interface
 
var
  MaVariable : integer;
 
implementation
...

et dans unit2, tu manipules ta variable directement.

Je déconseille fortement cette deuxième méthode, mais enfin, elle existe.

[JoseF]

Bonjour,

au risque de répéter ce qui a été dit ..

il m'est déja arrivé d'oublier close pour un fichier en sortie et le programme semblait fontionner.. mais le fichier en sortie n'était pas complet.

si le buffer est assez gros le fichier peut même être vide. (par contre je ne sais pas si on a accède à la taille des buffers .. autre sujet..)

close oblige le buffer à se vider dans le fichier avant sa fermeture.



donc

Code :

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

assign rewrite close

doivent être des réflexes

[M.Dlb]

Flush permet de forcer l'écriture du buffer sans fermer le fichier