Indexnummer von Textelement ermitteln

[Gargamel]

Hi

Wenn man ein Array wie z.B. dieses hier hat...

Delphi-Quellcode:

var liste:array[0..9] of string;

liste[0]:='A';
liste[1]:='B';
liste[2]:='C';
liste[3]:='D';
liste[4]:='E';
liste[5]:='F';
liste[6]:='G';
liste[7]:='H';
liste[8]:='I';
liste[9]:='J';

..., ist es ja einfach, mit den Indexnummern auf den dazugehörigen Text zuzugreifen. Nun möchte ich aber genau den umgekehrten Weg gehen.
Ich will also von jedem der 10 Strings die Indexnummer ermitteln.
Der einfachste, aber für den PC aufwändigste Weg, wäre, die Liste 10x stur abzufragen. In diesem Beispiel kam ich gleich mal auf 45 Abfragen.

Wenn die Liste aber 500 (und mehr) Einträge enthält, mache ich mir doch schon Sorgen, daß die gesamte Prozedur, zeitlich gesehen, zu umfangreich ausfällt.

Hat jemand eine Idee? Hilfreich ist evtl. zu wissen, daß keiner der Strings doppelt vorkommt.