Delphipage - la reference en Delphi
Accueil - Astuces - Composants - Programmes - Tutoriaux - Livres - Liens
 Sources
- Astuces
- Composants
- Programmes
- Tutoriaux
 Rechercher
- Delphipage
- Ngscan
 Ressources
- Lexique Delphi
- Livres
- News
- Patchs Delphi
 Liens
- Borland France
- CodeGear
- Les meilleurs sites

Astuces - Composants - Insérer un fichier texte dans un listbox en Delphi

Ajouter un TButton et un TListBox.

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;


Tous droits réservés - Contacts
Haut de la page