Discussion :

[azzam132]

Bonjour !

Consultant en réseaux retraité, je me replonge dans Delphi après de très nombreuses années où j'ai gagné ma vie avec Paradox. Ex-utilisateur de la version Delphi 2, j'utilise depuis peu la version actuelle d'Embarcadero. Je me considère comme un nouveau débutant, donc !

Un proverbe Néerlandais dit : "Il cherche sans succès son cheval alors qu'il est assis dessus !"

Quelqu’un peut-il me dire comment me débarrasser d'une erreur 2010 (non concordance de typage, clause "read") dans le programme hyper simple suivant (lecture de la première ligne d'un fichier texte) :

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
Const
  fn='F:\Data Root\A_DnLd\pixes.txt';
 
var
  Form1:  TForm1;
  fx:   file;
  st:  string;
 
implementation
 
begin
  begin
    assignfile(fx,fn);
    reset(fx);
    read(fx,st);
  end;
end.

Les arguments passés à "read" sont du type attendu (tels que décrits dans le manuel de référence en ligne)

J'ai creusé du côté des "paramètres non typés" mais je ne trouve rien ! Merci de me décoincer (et sans rire SVP !)

Pierre

[ShaiLeTroll]

System.Read a remplacer surement par un System.Readln pour faciliter la lecture ligne par ligne et j'utiliserais Text au lieu de file

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
 
procedure TForm1.Button2Click(Sender: TObject);
var
   FLNC: TextFile;
   Line: string;
begin
      AssignFile(FLNC, FileName);
      Reset(FLNC);
      try
         if not Eof(FLNC) then
         begin
            Readln(FLNC, Line);
            ShowMessage(Line);             
         end;
      finally
         CloseFile(FLNC);
      end;
end;

Code validé sur Delphi 10 (je n'ai pas Delphi 2010 qui est bcp plus ancien)

[azzam132]

Cher Monsieur,

Merci pour votre si aimable et rapide réponse. L'erreur a disparu effectivement. C'est "textfile" au lieu de "file" qui fait la différence. Je m'interroge cependant sur la logique du diagnostic qui semble impliquer que le résultat d'un "read" ou "readln" ne peut pas être renvoyé dans une variable string, ce qui est contraire au pattern indiqué dans l'aide ? Dans quoi alors ? Dans un bloc mémoire référencé par un pointeur ? Je ne suis pas encore assez versé dans le langage pour en décider !

Mille cordialités, Pierre

[ShaiLeTroll]

Effectivement, un file non typé, est un binaire pur, j'utilisais BlockRead dans un Buffer ou vers un Record selon le cas mais depuis je privilégie le TFileStream
Je n'ai aucun souvenir sur l'utilisation de Read sur un fichier binaire, je crois que l'on peu lui faire lire des types simples comme un Integer ou des ShortString mais je n'ai jamais pratiqué, j'utilisais du "file of" et donc Read lisait directement un record entier qui ensuite était casté en différent type car chaque ligne si toujours de même taille (128), le contenu devait être interprété selon l'entête.

En 2010, une chaine string c'est plus complexe que l'on croit, c'est une UnicodeString donc chaque caractère est sur 2 octets, et que signifie lire une String depuis un fichier, est-ce juste lire une suite de caractère ou aussi les méta-data de la chaine (StrRec, soit Taille, Encodage, ...)
Le fichier lui même pouvant être ANSI, UTF8, UTF16, la lecture de texte de nos jours est plus complexe qu'à l'époque de D2 et Win95 où l'on ne gérait souvent que le Windows-1252 et rien d'autres (Delphi utilisait que les versions ANSI des API Windows)

Du coup, en refléchissant à tout ça que veut dire read(fx,st); ?
On indique pas de taille limite, pas de caractère de fin (en dehors des normes comme le caractère OEF)


EDIT : au fait pourquoi on est dans le forum "Contribuez" et non dans "Débuter" ?

et aussi

[azzam132]

Merci encore !

Pierre

[pprem]

Historiquement ça a peut-être pu passer tel quel car les string étaient des tableaux de 256 caractères dont le premier contenait la taille du texte, mais maintenant ce n'est plus le cas.

Si c'est sur une version récente de Delphi, je recommande de passer par System.IOUtils et les méthodes de la classe TFile qui simplifient grandement la lecture et l'enregistrement de fichiers textes. Avec le USES ajouté, ça pourrait faire ce code :

Code :

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

1
2
3
4
5
6
 
procedure TForm1.Button2Click(Sender: TObject);
begin
  if TFile.Exists(FileName) then
    ShowMessage(TFile.ReadAllText(FileName));
end;

[azzam132]

Merci à vous aussi !