Problem mit Randomize

[Nalincah]

Bei mir klappt das irgendwie nicht
Random gibt keinen Wert zurück!!!

Delphi-Quellcode:

procedure GeschwTest;
var
  i : Integer;
  Anz_VKopf,Anz_VZeil:Integer;
begin
  Anz_VKopf := StrToInt(FrmMain.EditAnzKopf.text);
  Randomize;
  Anz_VZeil := Random(StrToInt(FrmMain.EditAnzZeil.Text));
  if (FrmMain.TabVKopf.Active = True) and
     (FrmMain.TabVZeil.Active = True) then
  begin
    for i := 0 to Anz_VKopf do
    begin
    end;
  end;
end;

[Luckie]

Kann es sein, dass die der Compiler die Variable weg-optimiert, weil du sie nicht benutzt? Desweiteren lies mal, was in der Hilfe zu Randomize steht.

[Nalincah]

Mit z.B.

Delphi-Quellcode:

RandSeed := 16;

gehts auch nicht.

[Luckie]

Erstens:

Zitat:

Zitat von Delphi-Hilfe

Do not combine the call to Randomize in a loop with calls to the Random function. Typically, Randomize is called only once, before all calls to Random.

Also ruf Randomize nur einmal in Form.Create uaf oder so.

Zweitens:

Zitat:

Zitat von Luckie

Kann es sein, dass die der Compiler die Variable weg-optimiert, weil du sie nicht benutzt?

Mein Delphi sagt mir da zum Beispiel das:

Zitat:

Zitat von Delphi-Compiler

[Hinweis] Unit1.pas(32): Auf 'Anz_VZeil' zugewiesener Wert wird niemals benutzt

Und wird sie wegoptimiert haben.

[hacker]

Wie Luckie schon gesagt hat, kommt randomize ins onCreate der Form.

Gruss Häcki :hi: