Wertebereich von -X bis +X erstellen ?

[angos]

Zitat von turboPASCAL:

Achso, so:

Delphi-Quellcode:

procedure some...;
const
  WBMax = 150;
  WBMin = 50;

  // Berechnet einen Zufallswert zwischen minRange und MaxRange
  // Dieser Wert wird zufällig positiv oder negativ zurückgegeben werden
  function MyRandom(minRange, maxRange: Integer): Integer;
  const
    iSigns: array[0..1] of Integer = (1, -1);
  begin
    // Result := (Random(maxRange + 1)) * iSigns[Random(2)];
    Result := minRange + (Random(maxRange + 1)) * iSigns[Random(2)];
  end;

begin
  for i := 0 to high(p3d) do
  begin
    p3d[i].X := MyRandom(WBMin, WBMax);
    p3d[i].Y := MyRandom(WBMin, WBMax);
    p3d[i].Z := MyRandom(WBMin, WBMax);
  end;
end;

Hast du hier nicht einfach nur das minRange vergessen?

Gruß
Ansgar

PS: Bei deinen Downloads meckert mein Kaspersky: Das angeforderte Objekt ist mit folgenden Viren INFIZIERT: Multi.Packed