procedure
TForm1.Button1Click(Sender: TObject);
Var F:TextFile;
Stg:String;
begin
AssignFile(F,'c:\trier.txt'); //Associe
la variable F au fichier texte
Reset(F); //Ouvre le fichier sans
le modifier
repeat //Repeter...
Readln(F,Stg); //Lit une ligne du
fichier texte jusqu'au prochain saut de ligne
ListBox1.Items.Add(Stg); //Affiche
dans ListBox1 le contenu de la variable Stg
until EOF(F); //...jusqu'à
ce que la position en cours du pointeur se trouve en fin
de fichier
CloseFile(F); //Ferme l'association
entre la variable F et le fichier texte
end;
|