Anzahl verschiedener Werte im Array ermitteln

[Tim-94]

Hey Leute,
Ich habe eine Frage bezüglich folgender Problemstellung...

Gesucht ist im Prinzip nur die Anzahl der unterschiedlichen Werte der einzelnen "Arrayplätze", dazu folgender Beispielcode:

Delphi-Quellcode:

const
  LOW = 1;
  HIGH = 5;
type
  TIndex = LOW..HIGH;
  TEingabe  = array [TIndex] of String;
var
  Eingabe : TEingabe;
  I, J : TIndex;
  Count : Byte;

begin
Count := 0;

  for I:=LOW to HIGH do
    for J:=I to HIGH do
      if (Eingabe[I] <> Eingabe[J]) then
        {Eigentlich müsste jetzt die Count Variable um 1 erhöht werden, da ein "neuer" String vorhanden ist, allerdings nur dann, wenn dieser Wert nicht schon zuvor "gezählt" wurde...}

ShowMessage('Die Anzahl der versch. Eingaben ist: '+IntToStr(Count));
end;

Bei einer Belegung von...
Eingabe[1]:='A';
Eingabe[2]:='B';
Eingabe[3]:='B';
Eingabe[4]:='C';
Eingabe[5]:='A';
...soll die Count Variable am Ende den Wert 3 haben (eben den Wert der untersch. Eingaben im Array).

Sitze nun schon seit ein paar Tagen daran und komme einfach nicht weiter...habe einfach ein Brett vorm Kopf

Ich hoffe, dass mir jemand helfen kann. Schon einmal Danke im Voraus