Discussion :

[paulfr]

Bonjour,
L'aide de BDS 2006 n’est pas très riche et parfois erronée.

Pour BlockRead BDS2006 propose :

Syntaxe

[Delphi] function BlockRead(var F: file; var Buf: Type; Count: Integer): Integer; overload;

[Delphi] function BlockRead(var F: file; var Buf: Type; Count: Integer; var Result: Integer): Integer; overload;

Description
F est une variable fichier non typée, Buf est une variable quelconque, Count est une expression de type Integer et AmtTransferred est une variable facultative également de type Integer.

BlockRead lit au moins Count enregistrements à partir du fichier F et les transfère en mémoire en partant de l'octet occupé par Buf. Le nombre réel d'enregistrements entiers lus (inférieur ou égal à Count) est renvoyé dans AmtTransferred.

Le bloc entier transféré occupe au plus Count * RecSize octets. RecSize est la taille de l'enregistrement qui a été indiquée lors de l'ouverture du fichier (ou 128 si elle a été omise).

Si le bloc entier a été transféré, AmtTransferred est égal à Count.

Si AmtTransferred est inférieur à Count, ReadBlock a atteint la fin du fichier avant la fin du transfert. Si la taille de l'enregistrement du fichier est supérieure à 1, AmtTransferred renvoie le nombre d'enregistrements entiers lus.

Si AmtTransferred est omis, une erreur d'E/S se produit si le nombre d'enregistrements lus n'est pas égal à Count. Si la directive du compilateur $I+ est effective, les erreurs déclenchent une exception EInOutError

Par analogie avec l'aide de Delphi 4 je présume que "AmtTransferred" correspond à "Result" de la 2° version de la syntaxe.
Mais alors que BlockRead était une procédure elle est maintenant une fonction qui renvoie un entier, que contient cet entier ?

Merci pour vos réponses.
P Lautier

[ero-sennin]

Salut Paulfr,

En effet, cela est sans doute une belle erreur dans l'aide.
Sous D2009, j'ai la bonne déclaration :

Code :

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

1
2
procedure BlockRead(var F: File; var Buf; Count: Integer); overload;
procedure BlockRead(var F: File; var Buf; Count: Integer; var AmtTransferred: Integer); overload;

Juste une petite question. Bien que dans l'aide ce soit une fonction, es-tu sur que ce soit réellement le cas au niveau l'IDE ?

[paulfr]

Bonjour,

Effectivement j'ai essayé d'obtenir la valeur de l'entier et IDE a refusé de compiler.
Il s'agit bien d'une erreur dans l'aide.
Merci pour les renseignements.
PL