Guten Tag Community,
ich bin neu in der Welt der Programmierung und versuche mir gerade Grundwissen anzueignen.
Nun zu meinem Problem:
Ich möchte ein paar Zahlen zufällig generieren lassen. Danach soll eine Ausgabe der generierten Zahlen ausgegeben werden. Zusätzlich soll vermieden werden, dass gleiche Zahlen generiert werden.
Um die Random() Funktion nutzen zu können, muss ich einmal Randomize rufen (?)
Delphi-Quellcode:
procedure TFmMain.FormCreate(Sender: TObject);
begin
// Nur einmal rufen
Randomize;
end;
Und hier meine Schleife
Delphi-Quellcode:
procedure TFmMain.btnGenClick(Sender: TObject);
var
// Hier sollen die Zahlen zwischengespeichert werden
rZahl: array[0..15] of integer;
temp, i: integer;
begin
// Fehler: Schleife wird mit dem Startwert 16 abwärts durchlaufen
for i := Low(rZahl) to High(rZahl) do
begin
temp := Random(16);
// aktuelle Zahl mit dem Vorgänger vergleichen
while (rZahl[i] = rZahl[i-1]) do
begin
// Neu generieren
temp := Random(16);
rZahl[i] := temp;
end;
// Ausgabe
txtRandoms.Text := txtRandoms.Text + IntToStr(rZahl[i]) + '; ';
end;
end;
ich hoffe ihr könnt mir helfen
Beste Grüße,
dnub