[Lazarus] Problème pour l'utilisation des fichiers
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:
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.
