Einzelnen Beitrag anzeigen

daredd

Registriert seit: 2. Apr 2006
433 Beiträge
 
#1

Zufalls zahlen mit real...

  Alt 26. Jun 2006, 11:08
Ich hatte einen Zufallsgenerator der mir Zahlen ausgespuckt hat als Integer, nun möchte ich abe das es als Real (zahlen mit Komma) ausgeworfen werden.
Das man das machen kann in dem man jede einzelne Zahl vor den Komma und nach dem Komma aus integer-Zahlen berechnet und dann nur ein komma zwischen das ergebnis setzt weiss ich auch.
Ich brauch aber echte zufalls-Dezimalzahlen!!!

Hier mein code:
Delphi-Quellcode:
 procedure TForm1.Zufall(Sender: TObject);
  var
  nZ181, sZ181, nZ261, sZ261, nZ341, sZ341, nZ421, sZ421, nZ491, sZ491,
  nZ581, sZ581, nZ661, sZ661, nZ741, sZ741, sZ821 : real;
begin
Randomize;
NSpin18.Text:=IntToStr(Random(nz181));
SSpin18.Text:=IntToStr(Random(sz181));
NSpin26.Text:=IntToStr(Random(nz261));
Danke euch!!!
  Mit Zitat antworten Zitat