(problème compilation) delphi6

Version imprimable

salut à tous
je suis débutant en la matière
j'ai écris un programme concernant, la geston d'une entreprise .
celle avec laquelle j'ai le problème de compilation est :la creation de fichier sequentiel des employés .
le problème est le suivant :je compile l'écriture de cette étape et là le compilateur selectionne toute la ligne de FICHIER EMPLOYER_(ORGANISATION SEQUENTIELLE) avec le curseur qui apparait entre EMPLOYER ET ORGANISATION SEQENTIELLE . j'ai verifié la ligne precedente ,ligne suivante , les orthographes et syntaxe ,je ne retrouve pas l'erreur.
alors cordialement je demande votre aide , j'espert que j'ai été clair et précis
merci
Code:

1 2 3 4 5 6 7 8 9 10 11 type TForm1 = class(TForm) programme_creation_fichier fichier_employer(organisation séquentielle); enregistrement enr-employe ; e_nom : caractères ; e_prenom :caractères ; e_datnaiss :integer ; e_fonction :caractère ; end_enregistrement

22/11/2006, 22h01
birdyz

Si c'est bien ton code que tu a copié dans ton message, ca ne peux pas fonctionner. Les caractères accentués sont interdit dans le nom de méthodes, de variables, ...

Birdyz

Magdani

Pourquoi ne fait tu pas un fichier typé au lieu
d'un séquentiel ?
Exemple :

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
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
 
// déclaration du fichier employé
type Employé = record
  Nom : string[30];
  Prenom : string[20];
  Adresse : string[30];
  CodePostal : string[5];
  Ville : string[30];
 end;
// pour mémoriser les données dans le fichier
Var
  ListeEmploye : File of Employe;
  Emp : Employe;
  Fname : string;
  Recsize : integer;
 
// Tableau, tri et indexation
type Ind = record
  Nom: string[30]; // pour tableau et tri
  Num : integer;  // pour accès fichier par la suite
   end;
 
var index : array[1..20000] of ind; // si 20000 employés
   tampon : ind;
   var posEmploye : integer;
 
procedure TForm1.OuvertureDuFichier;
begin
  fname:='Fichier.dat';
  assignfile(ListeEmploye, fname);
  recsize:= sizeof(emp);
  if fileexists(fname) then
  begin
    reset(ListeEmploye);
    if not eof(ListeEmploye) then
    begin
      read(ListeEmploye, emp);
      LectureDuFichier; // procédure
    end;
  end
  else
  begin
    rewrite(ListeEmploye);
  end;
end;
 
Procedure TFom1.LectureDuFichier;
var i,n,j : integer;
begin
  listbox1.Clear;
  i:=1;
  posEmploye:=1;
  {$I-}  // directive de compilation
  fname:= ('Fichier.dat');
  assignfile(listeEmploye, fname);
  reset(listeEmploye);
  if IOresult=0 then begin
  repeat
    read(listeEmploye,emp);
    index[i].Nom:= emp.Nom;  // tableau
    index[i].Num:=posEmploye;
    posEmploye:=posEmploye+1;
    i:=i+1;
  until eof(listeEmploye);
  {$I+}
  end;
 
  // tri croissant par nom
  for n:=1 to posEmploye-1 do
  for j:=n+1 to posEmploye-1 do
  if index[n].Nom >index[j].Nom then
  begin
    tampon := index[n];
    index[n]:= index[j];
    index[j]:= tampon;
  end;
  // affichage dans la listbox1
  for n:=1 to posEmploye-1 do  begin
    seek(listeEmploye,index[n].Num-1); //  accès dans fichier
    read(ListeEmploye, emp);
    Listbox1.Items.Add(index[n].Nom+'  '  + emp.Prenom);
  end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  emp.Nom:= Edit1. text;
  etc .....
  write(ListeEmploye, emp);
end;

N'oublie pas de fermer le fichier(closefile)

Magdani

j'ai oublié :
Déclare au préalable dans déclarations privées ou publiques les procédures :

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
 
 unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;
 
type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  Procedure ouverturedufichier;
  Procedure  lecturedufichier;
  end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  procedure OuvertureduFichier; // si tu veux l'ouvrir au        démarrage de la fiche
end;
 
procedure TForm1.FormDeactivate(Sender: TObject);
begin
  closefile(ListeEmploye); //si tu veux fermer le fichier quand tu as terminé...
end;

Il faut relire le fichier (procédure lecturedufichier) pour
rajouter des enregistrements (read).

24/11/2006, 11h53
Daniel Magron

Magdani

La procédure procedure TForm1.Button1Click(Sender: TObject) sert à enregistrer tes données.

Il faut déclarer ton fichier après :

implementation

{$R *.dfm}

// déclaration du fichier employés
25/11/2006, 21h50
lessin

(edition code sous delphi6)

merci à tous pour m'avoir repondu ,vous m'avez tous compris.
comme je les dit tantop, je suis debutant en la matière et en delphi.
alors si je comprend bien , le problème se situai , tout d'abord au niveau de la syntaxe de delphi, a respecté . le (STING )en remplacement de (CARACTERE) et (RECORD) en remplacement de (SEQUENTIEL) .
a propos de (RECORD) est ce que sa repond a mon objectif qui est d'enregistrer les employers en ordre , au fur et a mesure ?
25/11/2006, 22h58
skywaukers

Bonjour,
je pense que l'utilisation d'une base de données serait plus adapté à ton problème. Va voir du côté des tutoriaux il y a plein de choses qui pourront t'aider.

Cordialement,
Dany