Ajouter ligne par ligne dans une listbox

Signaler
Messages postés
25
Date d'inscription
dimanche 6 janvier 2002
Statut
Membre
Dernière intervention
11 août 2002
-
Messages postés
25
Date d'inscription
dimanche 6 janvier 2002
Statut
Membre
Dernière intervention
11 août 2002
-
Bonsoir,
Je voudrais ajouter dans une listbox toutes les lignes d'un fichier TXT mais pas avec LoadFileFromFile, de manière avec une boucle, parce que sinon, ça me vide l listbox de ce qu'elle contenait avant :(
Merci d'avance pour votre aide!
Bonne Soirée!

2 réponses

Messages postés
962
Date d'inscription
mercredi 3 avril 2002
Statut
Membre
Dernière intervention
12 septembre 2006
1
Le plus simple est de passer par une liste temporaire :

procedure TForm1.Button1Click(Sender: TObject);
Var Temp:TStrings;
begin
Temp:=TStringList.Create;
Try
Temp.LoadFromFile('LeNomDeFichierQueNeJeSaisPasQuoiMettre.TXT');
Listbox1.Items.AddStrings(Temp);
Finally
Temp.Free;
End;
end;

--- :sleepy) Nono du Moulin :sleepy) ---
Messages postés
25
Date d'inscription
dimanche 6 janvier 2002
Statut
Membre
Dernière intervention
11 août 2002

Merci