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
