[Delphi] konwersja Wav do Tablicy

[Integer]

 y:= 0;
 Repeat
   yp:= y div dy;

   data256 := .z bibloteki bass...........;         // pobieram WIERSZ z tablicy 0..256 do przetworzenia
                                                              // typu  = array [0..256] of Single;
   for x:= 0 to cDataMax do begin
     xp:= x div dx;

     PPrevLD^.tb[yp, xp]:=                             // sumuje wartosci w obrebie kroku dt
       PPrevLD^.tb[yp, xp]
       + (data256.fData[x] / (dy * dx));
       // x - kolejna liczba z wiersza od razu uśrednia - dziele wartosci przez np 4
       //  (x div dx) - kompresowanie wiersza
   end;

)łuzg!q)jJ0ifŻvZnXMÓ}0Ę(v3ĘXęl&72rx%zŚ7&ŚgĄ'7Ęćh<\"fŻ3'k\"J0{:ksÓMtjfŚźrś)Ź\"jxę-:+shł)z
6>&Ź9zy5+Zzlś4M-ĘY('ŁjK\"Ł6'2Z:śępnęph&Źś'pĘFł7uŚ)AA1xŃmt9ŃĄAA1xŃmt(
h,)(v0ĄŁ{6Śx\"Ś  ,3o+^ZŚ)(MAA1xŃmt((ŃMąQMŃĄMMą
MŃ((IąąŃQMŃĄM(ź1ŃĄIąŃĄMŃ1ŃĄI
ą(M9ŃĄM(MąŃĄIą(
MŃĄIąŃąąM((

 

Pozdrawiam

[Force]

nie badaj Sing=cNan, ale isNan(Sing).

Z modułu Math oraz nie wiem czy cNan u Ciebie to tak naprawdę NAN

[Integer]

gdzieś w necie znalazłem że

 

 
const NaN =  0.0 / 0.0;

więc zakładam, że tak inna sprawa ze wywaliłem kod i zrobiłem od nowa, okazuje się że ten mój Nan to efekt niedopracowania algorytmu/ omijania niektórych wartości, bo po poprawce NaN zniknął.

 

Nie mniej jednak dzięki za podpowiedź bo i tak każda tabela po stworzeniu przechodzi korektę, aby w przypadku błędów nie kontynuować działania.