Zitat:
Unbedingt korrigieren:
Werde ich sofort tun.. Danke.
EDIT:
Hat aber ein sehr seltsames verhalten.
Hast du das mal selbst versucht?
Verstehe jetzt nicht wie du das meinst
einfach
Delphi-Quellcode:
for i := 0 to FFFTSize -1 do
begin
Dat[i].r := cos(i/FFFTSize*2*pi);
Dat[i].i := 0;
end;
einfügen und dann normal durchlaufen lassen?
Oder dahinter ein Exit um aus der Funktion zu springen.
gruss