rand und Random Delphi

[marabu]

Hallo Emil,

first try:

Delphi-Quellcode:

const
  N = 1024;
  AMP = 128;
var
  i: Integer;
begin
  Randomize;
  for i := 0 to Pred(N) do
  begin
    audiodata[i] := Random(AMP);
    audiodata[i + N] := Random(AMP) + AMP
  end;
end;

Freundliche Grüße