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.