ListBox et affichage partiel de string

Bonjour,

Je réalise actuellement un lecteur de fichiers audio. Pour cela une fenetre principale permet d afficher la liste des musiques pouvant etre jouées.

Les musiques affichées sont en fait les chemins absolus d acces aux musiques.

D'une part cela n'est pas terrible puisque les chemins etant long, ils imposent l'utilisatio d une "horizontal scrollbar" si l'on veut voir lire le chemin complet.

Une meilleure solution serait de pouvoir afficher uniquement une partie des lignes.

Par exemple :
actuellement : C:\Dossier\Musique\ma_musique.mp3
possibilté : ma_musique.mp3

Ou même mieux, afficher les tags correspondant!

Mais comment faire ?

tu peux utiliser l'objet TList qui te permet de faire une liste de pointeurs vers un type que tu aura choisi. exemple avec une fiche sur laquelle tu poses une ListBox, deux boutons (Button1 pour créer la liste, Button2 pour remplir la ListBox) et un Label :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
 
type
  // un type pour stoquer les infos de chaque musique
  TMusique = Record
    titre : String;
    FName : String;
  end;
 
  // un pointeur pour ajouter dans le TList
  PMusique = ^TMusique;
 
var
  Liste : TList; // stoque toutes les musiques
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  // Initialisation ; il faudrai aussi libérer la liste quand on quitte le programme
  Liste := TList.Create;
end;
 
procedure AfficheListe(aList : TStrings);
var
  i : Integer;
begin
  // affiche tous les titres dans aList
  aList.Clear;
  for i := 0 to Liste.Count - 1 do
    aList.Add(PMusique(Liste[i])^.titre );
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  aPMusique : PMusique;
begin
  // ajoute deux musiques à la liste
  New(aPMusique);
  aPMusique^.titre := 'toto';
  aPMusique^.FName := 'toto.mp3';
  Liste.Add(aPMusique);
 
  New(aPMusique);
  aPMusique^.titre := 'tata';
  aPMusique^.FName := 'tata.mp3';
  Liste.Add(aPMusique);
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var
  aItem : TMusique;
begin
  // affiche la liste des titres dans ListBox1
  AfficheListe(ListBox1.Items);
end;
 
procedure TForm1.ListBox1Click(Sender: TObject);
begin
  // affiche le nom de fichier de la musique cliquée dans ListBox1
  Label1.Caption := PMusique(Liste[ListBox1.ItemIndex])^.FName;
end;

Merci !

Je m'y attarderai après une bonne nuit de sommeil !