fichier.txt --- ListBoxRésolu

Question

Cette procedure me fait ressortir 26 ligne d'un fichier bloc note dans un listbox. Je voudrais que le chiffre 25 soit remplacer par "infini" , car sinon je suis obligé de le faire augmenté au fur et à mesure que j'écrit des ligne dans le fichier vloc note.
Comment fait on?

procedure TForm1.FormCreate(Sender: TObject);
var
  i : integer;
begin
  Liste := TStringList.create;
  if Win32Platform = VER_PLATFORM_WIN32_NT then
  begin
    Liste.LoadFromFile('fichier.txt');
    for i := 0 to 25 do  ListBox1.Items.Add(Liste[i]);
    ListBox1.ItemIndex := 0;
end;
end;
Dejoul

japee · Accepted Answer

JulioDelphi > C'est Liste.Count (j'ai Delphi sous les yeux, trop facile ;)

Dejoul > Si tu veux toujours passer par une TStringList :

ListBox1.Items.Assign(Liste);


Bonne prog'   :-p

JulioDelphi · Answer

re toi, re moi :)

Liste étant une TStringList, tu peux compter le nombre de string kelle contient :
Liste.count;
ou Liste.strings.count;
(ouè dsl j'ai toujours pas delphi sous la main au taf)
tu peux donc faire :


procedure TForm1.FormCreate(Sender: TObject);
var
 i : integer;
begin
 Liste := TStringList.create;
 if Win32Platform = VER_PLATFORM_WIN32_NT then
 begin
  Liste.LoadFromFile('fichier.txt');
  for i := 0 to Liste.strings.count do ListBox1.Items.Add(Liste[i]);
  ListBox1.ItemIndex := 0;
 end;
end;


mais euh pourquoi passer par une TStringList ?
ListBox1.Items.LoadFromFile('fichier.txt') fonctionne aussi :)
voila ++

>>>>>>>>> N'oubliez pas de cliquer sur Réponse acceptée lorsque la réponse vous convient !   ;)

japee · Answer

Au fait, ne pas oublier de libérer Liste, hein ?

[code]Liste.Free;
[\code]

JulioDelphi · Answer

ouè j'ai verif ce matin :)

bien vu pour le "ListBox1.Items.Assign(Liste);"

moins bien vu la \ au lieu de / 
niak niak niak

a+ jappe :)

N'oubliez pas de cliquer sur Réponse acceptée lorsque la réponse vous convient !   ;)

japee · Answer

Bah, bof... euh... niak niak niak toi-même, JulioDelphi, quand on fait tout à la main, voilà ce qui arrive...   %-6 

Bonne prog' du week-end   :-p

Dejoul · Answer

It's perfect, merci. :-)
Dejoul

Fichier.txt ---> ListBox

6 réponses

Votre réponse

Discussions similaires