sorry, aber in welcher Kategorie finde ich die Komponente "TList"? Ich find nur ListBox.

Hi,

TList ist keine sichtbare Formularkomponente der VCL. Das ist ein Klassentyp, den du in deinem Code verwenden kannst. Für weitere Details kann ich dir da nur die Online-Hilfe oder Google nahe legen.

Grüße, D.

ich habe mich nochmal an das thema herangewagt und es auf anderem wege probiert. um dem Compiler die rangfolge klar zu machen (21 zählt mehr als 66), habe ich die array-positionen einzeln zugewiesen:

Code :

1 2 3 4 5 6

numbers[0] := 31; numbers[1] := 32; numbers[2] := 41; numbers[3] := 42; numbers[4] := 43; numbers[5] := 51; numbers[6] := 52; numbers[7] := 53; numbers[8] := 54; numbers[9] := 61; numbers[10] := 62; numbers[11] := 63; numbers[12] := 64; numbers[13] := 65; numbers[14] := 11; numbers[15] := 22; numbers[16] := 33; numbers[17] := 44; numbers[18] := 55; numbers[19] := 66; numbers[20] := 21;

Nun stehe ich vor dem Problem, dass wenn der Benutzer z.B. 63 eingibt, der Compiler die Position der 63 im array "numbers" erfahren muss. Dann kann der Computer-Gegner die Position seiner gewürfelten Zahl mit der Position meiner angegeben Zahl vergleichen und somit selber eine geeignete Zahl ausgeben:

Beispiel, so wie es aussehen soll: Ich drücke "Wuerfeln" und bekomme eine 43. Der Compiler erfährt über den Button "Einlesen", dass meine eingegebene Zahl 43 die Position 4 hat. Der Computer-Gegner würfelt selbst und hat die Zahl 31, deren Position 0 ist. Durch eine if-Abfrage gibt er eine Zahl aus, deren Position höher ist als 4 (der meiner Zahl).

Das mit der if-Abfrage und den Buttons krieg ich hin, brauche nur Hilfe bei der Übergabe der Positonsdaten.

Spontan würde ich es mal damit probieren:

Code :

1 2 3 4 5 6 7 8 9 10 11 12

function Get Position(const p_nValue: Byte): Byte; var   i: Integer; begin   Result := -1;   for i := 0 to 20 do     if p_nValue = numbers[i] then     begin       Result := i;       break;     end; end;

Die Funktion sollte dir bei Übergabe des entsprechenden Wertes den Index (die Position) des Wertes im Array zurückgeben. Der Code ist allerdings von mir nicht getestet.

Ein Aufruf sollte klappen mit:

Code :

1 2 3 4 5 6 7 8 9

procedure OnEinlesenClick(Sender. TObject); var   nGamerValue: Byte; begin   nGamerValue := GetPosition(43); // oder was auch sonst für ein Wert für den Spieler gewürfelt wurde   if nGamerValue <> -1 then   // ab hier kann dann der Vergleich mit dem Würfelwert des Computers stattfinden   ... end;

ich habe deinen vorschlag meinem programm angepasst und es funktioniert. Vielen Dank!