Hallo!
Soweit ich verstanden habe, möchtest du den Benutzer 3 Zahlen eingeben lassen und dann prüfen, wie viele dieser Zahlen mit den Gewinnzahlen (Deine Zufallszahlen da) übereinstimmen.
Ich würde es so machen:
Delphi-Quellcode:
var gewinn_zahlen, deine_zahlen: array [1..3] of Integer;
var i, j, gewinn: integer;
begin
gewinn_zahlen[1]:= random(6)+1;
gewinn_zahlen[2]:= random(6)+1;
gewinn_zahlen[3]:= random(6)+1;
deine_zahlen[1]:= StrToInt(Edit1.Text);
deine_zahlen[2]:= StrToInt(Edit2.Text);
deine_zahlen[3]:= StrToInt(Edit3.Text);
gewinn:= 0;
for i := 1 to 3 do begin
for j := 1 to 3 do
if deine_zahlen[i] = gewinn_zahlen[j] then gewinn:= gewinn + 1;
end;
// Konto:= Konto + gewinn;
end;
Deine 3 Gewinnzahlen sind im Array "gewinn_zahlen" gespeichert. Die 3 Zahlen des Spielers in "deine_zahlen".
In der for-Schleife überprüfst du dann, ob die Zahlen der Spieler mit den Gewinnzahlen übereinstimmen.
Für jeden Treffer, gibt's 1Euro mehr aufs Konto.
Gruß, False Pretense.
P.S: Ich würde bei den Zufallszahlen drauf achten, dass keine doppelt vorkommt. Sonst bekommt man für einen Treffer 2 Euro.