Sound ausgabe 40 mal in der Sekunde

[Six]

Hier die entscheidende Stelle, für jeden, der es eventuell noch brauchen kann:

Delphi-Quellcode:

      GetMem(Ziel, Size * 2);
        Ziel2 := Ziel;
        Data2 := Data;
        Data4 := Data3;

        for i := (Size div 2) - 1 downto 0 do  
        begin
          ziel2^ := Data2^;
          Inc(Ziel2);
          inc(Data2);
          ziel2^ := Data4^;
          Inc(Ziel2);
          inc(Data4);
        end;

Nochmals vielen Dank an Falter!

Six