Wertebereich von -X bis +X erstellen ?

[mschaefer]

Moin, moin,

so dann werfe ich auch mal meine Randomformel in den Thread !

Delphi-Quellcode:

function MyRandom ( High        : integer;   { Oberer Wert  (+100) }
                    Shift       : integer;   { Verschiebung (- 50) }
                    n           : Integer;   [ Anzahl              } 
                    MyMemoLines : TStrings   ( Vom Memo nebenan)   )                      )
var
  int   : Integer;
  i     : Integer;

// Generiert eine integer random Nummer zwischen 1..High und verschiebt um Shift
  for i := 1 to n do
  begin
    int := 1 + Random(abs(High) );    // Der 100 Wert würde einen Bereich von 0..99 ergeben, deshalb +1
    int :=  int + Shift;
    MyMemoLines.add ('n: ' + inttostr(n) + '  Random: '+IntToStr(int) );
  end;
end;

Grüße // Martin