FOR-Schleifen Problem

[delphinub23]

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

[Luckie]

Und wo ist jetzt der Fehler? Dass die Schleife rückwärts durchlaufen wird ist eine Optimierung des Compilers.

[delphinub23]

Achso! Das habe ich nicht gewusst
Nur leider kommt totaler Quark raus wenn die Ausgabe erfolgt.
Was habe ich falsch gemacht?

[guinnes]

Zitat von Luckie:

Und wo ist jetzt der Fehler? Dass die Schleife rückwärts durchlaufen wird ist eine Optimierung des Compilers.

Dürfte wohl eine Zugriffsverletzung sein, oder ?
Womit willst du die 1. Zahl vergleichen ?

[delphinub23]

Nein, eine Zugriffverletzung tritt nicht auf. Das liegt sicherlich an dem Startwert 16 oder? Ich möchte die aktuelle Zahl mit der vorherigen vergleichen um auszuschließen, dass keine nochmal auftritt.

[guinnes]

Zitat von delphinub23:

Das liegt sicherlich an dem Startwert 16 oder? Ich möchte die aktuelle Zahl mit der vorherigen vergleichen um auszuschließen, dass keine nochmal auftritt.

Das ist mir schon klar. Meine Frage war: Womit vergleichst du bei I = 0 ?
Richtig, mit rZahl[-1] und das gibt es nicht
Setze ausserhalb der Schleife den Zufallswert von rZahl[0] und lass die Schleife von Low(rzahl) + 1 bis High(rzahl) laufen

edit
Dazu kann es natürlich immer noch vorkommen, dass Zahlen doppelt sind, weil du ja immer nur mit der letzten Zahl vergleichst

[delphinub23]

Ok. Das macht Sinn.

So bekomme ich generierte Zahlen:

Delphi-Quellcode:

procedure TFmMain.btnGenClick(Sender: TObject);
var
  rZahl: array[0..15] of integer;
  LastIndex, temp, i: integer;
begin
  // Generate randoms
  for i := Low(rZahl)+1 to High(rZahl) do
  begin
    temp := Random(16);
    rZahl[i] := temp;
    txtRandoms.Text := txtRandoms.Text + IntToStr(rZahl[i]) + '; ';
  end;
end;

Aber so kommen einige Zahlen mehrfach vor und das will ich unterbinden.
Gibt es noch einen besseren Ansatz, als meinen Quark?

[himitsu]

Zitat von delphinub23:

Nein, eine Zugriffverletzung tritt nicht auf.

Geh mal in die Projektoptionen und aktiviere dort die Überlauf- und die Bereichsprüfung.

Und schon kommt deine Zugriffsverletzung.
Du hast nur Glück, daß an der falschen stelle, wo zu zugreifst zufällig etwas anderes liegt und es somit nicht gleich knallt.

Zitat:

Delphi-Quellcode:

except
  on E: Exception do
  begin
    // Irgendwo ein Fehler passiert? - 0-Array zurückgeben
    ZeroMemory(@Result, SizeOf(Result));
    raise E; // Exception nach oben weiter geben (benötigt??)
  end;
end;

Beim ZeroMemory, muß beachtet werden, da es hier auf dieses statische Array angepaßt ist ... also je nach Typ, muß es anders gelöst werden.

Zitat:

(benötigt??)

is besser so, auch wenn man es kürzen kann.

Delphi-Quellcode:

except
  ZeroMemory(@Result, SizeOf(Result));
  raise;
end;

[rollstuhlfahrer]

Zitat von himitsu:

Beim ZeroMemory, muss beachtet werden, da es hier auf dieses statische Array angepaßt ist ... also je nach Typ, muß es anders gelöst werden.

Für dynamische Arrays würde ich ein SetLength(<Array>, 0); empfehlen.

Bernhard

[rollstuhlfahrer]

Natürlich kommt da Quark raus. Du hast ein unbestimmtes Array und fängst an, dieses zu prüfen. Meckert Delphi nicht, dass da Variablen nicht initialisiert wurden und deshalb unbestimmt sind?

Bernhard