Zufallszahl ermiteln

[Christian18]

hallo,

ich möchte gerne mir Delphi eine Zufallszahl ermitteln. Die zahl soll zwischen 0 und 100 liegen. Wie mache ich das.

Mit freundlichen Grüßen

Christian18

[sakura]

Die Lösung heißt Random und Randomize

......

[Christian18]

hallo,

ok es funktioniert jetzt erst einmal, aber wenn ich das programm starte, dann kommen werte z.b. 1, 73, 254, 84.

und wenn ich das programm das nächte mal starte, dann kommen genau die gleichen werte. dann ist das doch kein zufallswert oder??? wie kann ich das beheben???

[mirage228]

Du musst

Randomize vor Random() aufrufen.

Dann sollten die Werte zufällig sein.

mfG
mirage228

[sakura]

Ich zitiere nochmals

Zitat von sakura:

Randomize

Letzteres ist zu diesem Problem die Lösung

......

[sakura]

Zitat von mirage228:

Randomize vor Random() aufrufen.

Ein wichtiger Teil fehlt Randomize nur einmal pro Programmstart aufrufen

......

[gekmihesg]

hast du die funktion randomize verwendet?
wahrscheinlich nicht, weil die dazu gedacht is genau das zu verhindern!
schreib am besten in des onCreate ereigniss deines forms einfach randomize; dann sollts gehn

[mirage228]

Zitat von sakura:

Zitat von mirage228:

Randomize vor Random() aufrufen.

Ein wichtiger Teil fehlt Randomize nur einmal pro Programmstart aufrufen

......

Das stimmt allerdings... habe ich vergessen zu schreiben

mfG
mirage228

[Ultimator]

Zitat von sakura:

Ein wichtiger Teil fehlt RANDOMIZE nur einmal pro Programmstart aufrufen

Es ist zwar besser wenn man es nur einmal aufruft, aber es ist nicht soo Hammer-schlimm, wenn man es öfters macht.

[sakura]

Zitat von Ultimator:

Es ist zwar besser wenn man es nur einmal aufruft, aber es ist nicht soo Hammer-schlimm, wenn man es öfters macht.

Sicher Es geht a) auf die Performance und b) mindert es die Qualität der Zufallszahlen.

In älteren Delphi Versionen, auf Linux und auf älteren Windows Versionen kannst Du mit folgendem Konstrukt schnell mal 1000 gleiche Zahlen erreichen.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer;
begin
  Memo1.Lines.BeginUpdate;
  try
    for I := 0 to 999 do
    begin
      Randomize;
      Memo1.Lines.Add(IntToStr(Random(MaxInt)));
    end;
  finally
    Memo1.Lines.EndUpdate;
  end;
end;

Deswegen, Randomize nur einmal aufrufen.

......