Bonsoir a tous,

Bon voila, je suis un grand debutant sur delphi, juste quelques bases... et donc, je plante a la compilation. Ce morceau de code vaut mieux qu'un long discourt :



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
procedure TFichePrincipale.sauvagerderlesdonnes1Click(Sender: TObject);
var
  NomFichier : textfile;                  // nom du fichier
  Ligne : string;                         // variable de sauvegarde
  ConfigSpot : array [0..20] of string;   // tableau des données
  CptLigne, CptBoucle : byte    ;         // compteur
begin
  OpenDialog1.Filter := 'Text files (*.txt)|*.TXT';
 
  if opendialog1.execute then
        assignfile(NomFichier,opendialog1.filename);
 
  reset(NomFichier);
 
  while not eof(NomFichier) do begin
        readln(NomFichier,Ligne);
        CptLigne := CptLigne+1 ;
        ConfigSpot[CptLigne] := ligne ;
        memo1.lines.add(ligne);
        end;
  closefile(NomFichier);//cette procédure ferme notre fichier F
end;
Si quelqu'un peu me dire pourquoi ca plante, ca serait vraiment sympa.

bonne soirée a tous, je continue a chercher.

Elecpic