listbox

hvordan kan jeg tælle det antal der er i en listbox. hvis i forstår hvad jeg mener.

jeg loader en ini fil ind i en listbox, og jeg vil gerne vide hvordan jeg kan tælle hvor mange linier der er i listboxen.

jeg har også nogle problemer med min listbox

Kode 

procedure TForm1.FormCreate(Sender: TObject);
Var
  MyINI: TINIFile; // TINIFile objektet
  PathToINIFile: String;
Begin

  PathToINIFile := IncludeTrailingBackslash(ExtractFilePath(ParamStr(0)))+'data.ini';

  {Skab objektet}
  MyINI := TINIFile.Create(PathToINIFile);

 MyINI.ReadSectionValues('Movies', listbox1.Items);


  MyINI.Free;
end;

den loader hele "movie" sektion, men under "movies" er der en nøgle der hedder "title" som jeg gerne vil have loadet.

men MyINI.ReadSectionValues('Movies', 'title', listbox1.Items);
virker ikke.

jeg kan ikke finde ud af det. kan du ikke poste koden??

Kode 

Var
  MyINI: TINIFile; // TINIFile objektet
  PathToINIFile: String;
Begin

  PathToINIFile := IncludeTrailingBackslash(ExtractFilePath(ParamStr(0)))+'data.ini';

  {Skab objektet}
  MyINI := TINIFile.Create(PathToINIFile);

Listbox1.items.add((MyINI.ReadString('Movies', 'Title', 'Ikke fundet')); 

StatusBar1.panels[0].text := ListBox1.Items.count; 

  MyINI.Free;
end;

hvordan kan jeg tælle det antal der er i en listbox. hvis i forstår hvad jeg mener.

jeg loader en ini fil ind i en listbox, og jeg vil gerne vide hvordan jeg kan tælle hvor mange linier der er i listboxen.

jeg har også nogle problemer med min listbox

Kode 

procedure TForm1.FormCreate(Sender: TObject);
Var
  MyINI: TINIFile; // TINIFile objektet
  PathToINIFile: String;
Begin

  PathToINIFile := IncludeTrailingBackslash(ExtractFilePath(ParamStr(0)))+'data.ini';

  {Skab objektet}
  MyINI := TINIFile.Create(PathToINIFile);

 MyINI.ReadSectionValues('Movies', listbox1.Items);


  MyINI.Free;
end;

den loader hele "movie" sektion, men under "movies" er der en nøgle der hedder "title" som jeg gerne vil have loadet.

men MyINI.ReadSectionValues('Movies', 'title', listbox1.Items);
virker ikke.


Det er let nok at tælle linierne i en listbox... du bruger bare ListBox1.Items.Count (Nu går jeg jo udfra at din listbox hedder ListBox1 )

Det sidste problem er jeg ikke sikker på, men øverst skriver du "movies" med lille og i ReadSectionValues skriver du "Movies" med stort... Orøv evt. at ændre det til lille.

Håber at det kan hjælpe dig

/Mads

jeg kan ikke få count til at virke.

procedure TForm1.FormCreate(Sender: TObject);
var
nr: string;
begin
nr := ListBox1.Items.count;
StatusBar1.panels[0].text := nr;
end;


MyINI.ReadSectionValues(’title’, Listbox1.Items);
virker ikke, eller jeg kan ikke få den til at virke

og jeg kan heler ikke få
MyINI.ReadString('Movies', 'Title', 'Ikke fundet');
til at virke

[Redigeret d. 04/01-04 18:42:02 af john]

[Redigeret d. 04/01-04 18:44:07 af john]

jeg kan ikke få count til at virke.

procedure TForm1.FormCreate(Sender: TObject);
var
nr: string;
begin
nr := ListBox1.Items.count;
StatusBar1.panels[0].text := nr;
end;


MyINI.ReadSectionValues(’title’, Listbox1.Items);
virker ikke, eller jeg kan ikke få den til at virke

og jeg kan heler ikke få
MyINI.ReadString('Movies', 'Title', 'Ikke fundet');
til at virke

[Redigeret d. 04/01-04 18:42:02 af john]

[Redigeret d. 04/01-04 18:44:07 af john]

returnere count ikke en integer da?

-------------------------------
Hilsen Jimmi Westeberg
http://www.westsworld.dk

Kode 

procedure TForm1.FormCreate(Sender: TObject); 
var 
nr: Integner; 
begin 
nr := ListBox1.Items.count; 
StatusBar1.panels[0].text := nr; 
end; 

kan du ikke poste din kode mads??

det er denne jeg bruger

Kode 

procedure TForm1.FormCreate(Sender: TObject); 
var 
nr: Integner; 
begin 
nr := ListBox1.Items.count; 
StatusBar1.panels[0].text := nr; 
end;