bonjour à toutes et à tous

Est-il possible de faire une TStringList de Record ?

voilà ce que je fais :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
type
  TJournal = record
      Code   : String[8];
      Libelle    : String[30];
  end;

Journal : Tjournal of Stringlist ???
Le but est de remplir le stringlist au départ par une boucle sur une table access
Donc j'aimerais pouvoir faire :
..
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
While not eof do
  Journal.Add(FieldByName('Code').AsString).Code;
  Journal.Add(FieldByName('Libelle').AsString).Libelle;
next;
end;
Et ensuite le but final et la recherche

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
function retournelibelle(CodeJournal: String): String;
begin
  return := Journal.Indexof(CodeJournal).Code
end;
Est-ce possible de faire tout cela ?