rand und Random Delphi

[EWeiss]

Nochmal ein kleines mit FFT

EDIT:

Übersetzt bis auf rand

Delphi-Quellcode:

function GetFreqData(audioData: array of byte): boolean;
Var
  fft       : array of single;
  stepValue : single;
  val       : single;

begin
  SetLength(fft, 1024);
  stepValue := 1.0 / 1024;

  Randomize;

  for i := 0 to Length(fft) do
  begin
    val := (float)rand.Next(0, (1024 / 2)) * stepValue;
    fft[i] := val;
  end;

  for i := 1  to 1024 do
  begin
    try
       val := fft[i] * 255;
       if (val < 0) then
         val := 0;

       if (val > 255) then
         val := 255;

         audioData[i] := byte(val);
         audioData[i + 1024] := byte(val);
     except
       Result := false;
     end;
     Result := true;
  end;

end;

dann kann ich testen..
Sorry mit einigen sachen komme ich noch nicht zurecht.


gruss Emil