-------------------------------
Réponse au message :
-------------------------------
On peut utiliser un flux facilement :
il suffit d'écrire :
while fs.position<fs.size do
---
Nono du Moulin
---
-------------------------------
Réponse au message :
-------------------------------
Sympa !! J'apprécie !
J'aurais du essayer le code avant de répondre... Bah, démmerde toi pour trouver quelque chose, alors !
Bon... OK, je me suis fait avoir... Mais es-tu obligé d'utiliser ton TFileStream ?? De toutes façon, je crois qu'il y a une source qui traite de ça...
Voilà :
www.delphifr.com/article.aspx?Val=77Bye !
Bestiol.
-------------------------------
Réponse au message :
-------------------------------
Ravi de te revoir mais j'avais fait cela expres pour que personne n'écrive Eof(Fs) ce qui est une belle connerie etant donné que Fs n'est pas un pointeur de fichier mais un objet de la classe TfileStream
...
-------------------------------
Réponse au message :
-------------------------------
Tu trouves pas ça bizarre, une fonction pour laquelle tu ouvres et tu refermes des paranthèses, sans rien à l'intérieur ??
Essaye en mettant "While Not Eof(Fs) Do". Ce qui paraît pourtant logique, eof voulant dire "end of file", il faut spécifier de quel fichier on parle !
Bye !
Bestiol.
-------------------------------
Réponse au message :
-------------------------------
EEEppppssss!
voici mon code :
var
Fs: TFileStream;
b:Byte;
begin
Fs := TFileStream.Create(ExtractFilePath(Application.ExeName)+'fichier.dat',fmOpenRead);
Fs.Seek(0,soFromBeginning) ;
while not Eof() do
begin
Fs.Read(b,1);
ShowMessage('octet : ' + IntToStr(b) + #13 + 'caractere : '+ Char(b));
end;
Fs.Free;
end;
Voila le Eof ne peut pas marcher et je veux lire octet par octet !!! comment boucler ??