Voici un tout petit exemple d'ouverture de fichier et de lecture séquetielle, jusqu'à la fin de fichier :
procedure TForm1.Button2Click(Sender: TObject);
Const TailleBuf=512;
Var F:File;
Buf:Array[0..TailleBuf-1]Of Byte;
Lus:Integer;
begin
AssignFile(F,'C:\TEMP\ESSAI.DAT');
Reset(F,1);
Repeat
BlockRead(f,Buf,TailleBuf,Lus);
Until Lus<TailleBuf;
CloseFile(f);
end;
Cet exemple ouvre un fichier et le lit complètement. Il est possible de n'en lire que les parties voulues en utilisant la fonction Seek().
---
Nono du Moulin
---
-------------------------------
Réponse au message :
-------------------------------
je cherche a lire un fichier sequentielemenent (block de caractere par block de caractere) tout se que je sais c quil faut utiliser seek pour definir lendroi ou on se positionne. HELP ME PLEASE !
ps : en me donnant un petit exemple svp ;)