Hallo Hank,
verinfachen lässt sich dein Code schon noch etwas:
Delphi-Quellcode:
function RandomInterval: Integer;
begin
case Succ(Random(100)) of
4.. 14: Result := 1; // 11
15.. 23: Result := 2; // 9
24.. 32: Result := 3; // 9
33.. 43: Result := 4; // 11
44.. 52: Result := 5; // 9
53.. 60: Result := 6; // 8
61.. 69: Result := 7; // 9
70.. 78: Result := 8; // 9
79.. 84: Result := 9; // 6
85.. 90: Result := 10; // 6
91.. 96: Result := 11; // 6
97..100: Result := 12; // 4
else {1..3} Result := 0; // 3
end;
end;
procedure TonSuchen(const IVArt: Integer; var Ton1, Ton2: integer);
var
intervall: integer;
begin
intervall := RandomInterval;
Ton1 := Random(30) + 54;
case IVArt of
1: Ton2:= Ton1 + Intervall;
2: Ton2:= Ton1 - Intervall;
3: if Odd(Random(2))
then Ton2 := Ton1 - Intervall
else Ton2 := Ton1 + Intervall;
end;
end;
Seltsame Verteilungsfunktion...
Freundliche Grüße vom marabu