Hallo Emil,
ich bin spät dran und du hast das bestimmt lösen können, aber trotzdemhier mein Versuch:
Delphi-Quellcode:
uses
Types;
procedure GetFreqData(var audioData: TByteDynArray);
var
i: Integer;
n, range: Word;
b: Byte;
begin
n := Length(audioData) shr 1;
range := SizeOf(b) shl 8;
for i := 0 to Pred(n) do
begin
b := Random(range);
audioData[i] := b;
audioData[i + n] := b;
end;
end;
Randomize() darfst du aber nur einmal beim Start der Anwendung aufrufen, z.B. im OnCreate() der MainForm oder im Projektquelltext vor dem Eintritt in die Nachrichtenschleife. Nicht dass dir sonst der Himmel auf den Kopf fallen würde, aber der mehrmalige Aufruf von Randomize() kann unschöne Auswirkungen auf die Pseudo-Zufälligkeit der generierten Zahlen haben.
Nebenbei: War audioData nicht ein array of ShortInt?
Freundliche Grüße