Random

[Lammbock0]

wie funktionert eine Generierung von Zufallszahlen in Delphi/Pascal?
Und wie schreibe ich diese in eine datei und wie öffne ich diese datei wieder?

[CalganX]

Hi,
Wie der Titel schon lautet: random(range: integer); Wenn du also eine Zufallszahl zwischen 0 und 100 haben willst schreibst du:
i := random(100); Wobei i eine Zahl vom Typ integer ist. Für weiteres schaust du am besten in die Hilfe!

Schau dir mal in der Hilfe die Themen "TextFile", "AssignFile" an. Folge auch den "Siehe auch"-Links! Und sieh dir die Beispiel an! Wenn du nicht weiterkommst, dann kannst du ja nochmal posten!

Chris

[sakura]

Schon viel besser

Zufallszahlen erhälst Du ganz einfach mit Random (Siehe auch Randomize)

Speichern und Laden könntest Du diese zum Beispiel mit Hilfe eine TStringList. Ist wohl die einfachste Methode. Die Delphi Hilfe ist da sehr aussagekräftig.

[sakura]

Mir fällt da noch ein, Du wolltest ja Fließkomme-Zahlen im Bereich von 0 bis 100.
Random(100) gibt Integer zurück
Random * 100 ergibt eine Fließkommazahl im gewünschten Bereich.
......

[Lammbock0]

wenn ich Random * 100 schreibe kommt aber die Fehlermeldung "incompatible Types" . Und jetzt?
Oder habe ich das falsch verstanden?

[sakura]

Erstell mal schnell ein neues Projekt, packe einen Button auf das Formular und schreibe folgenden Code in das OnClick Ereignis des Buttons

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  dblZufallszahl: Double;
begin
  dblZufallszahl := Random * 100;
  ShowMessage(FloatToStr(dblZufallszahl));
end;

......

[Luckie]

Und wo bleibt: Randomize?

[phlux]

Randomize hat Sakura natürlich ins OnCreate Event der Form geschriebn

[sakura]

Zitat von phlux:

Randomize hat Sakura natürlich ins OnCreate Event der Form geschriebn

Und zwar genau ein Mal.

[Privateer3000]

da möchte ich doch gleich mal einhaken...
und zwar wie kann man verhindern das (legen wir eine Range bis 100 fest)
jede Zahl nur 1mal gezeigt wird?!Und zwar so lange bis alle aufgebraucht sind.Wäre interessant für eine Auslosungsgeschichte.