Lecture d'un fichier
intello2001
Messages postés
102
Date d'inscription
mercredi 11 octobre 2000
Statut
Membre
Dernière intervention
9 septembre 2003
-
5 oct. 2002 à 13:05
cs_Nono40 Messages postés 962 Date d'inscription mercredi 3 avril 2002 Statut Membre Dernière intervention 12 septembre 2006 - 5 oct. 2002 à 15:55
cs_Nono40 Messages postés 962 Date d'inscription mercredi 3 avril 2002 Statut Membre Dernière intervention 12 septembre 2006 - 5 oct. 2002 à 15:55
1 réponse
cs_Nono40
Messages postés
962
Date d'inscription
mercredi 3 avril 2002
Statut
Membre
Dernière intervention
12 septembre 2006
2
5 oct. 2002 à 15:55
5 oct. 2002 à 15:55
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().
--- :sleepy) Nono du Moulin :sleepy) ---
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().
--- :sleepy) Nono du Moulin :sleepy) ---