Aber mal ganz ehrlich, Spectrumdata und specdata sind nicht gleich definiert.
Code:
specdata = array[0..irgendwas] of MirUnbekannt
[color=#0000ff]und [/color]
Spectrumdata = array[[color=#ff0000]0..1[/color], 0..575] of byte;
fällt dir was auf?
da ist ein Wert zuviel.
Code:
h+=specdata[i*8+j+c*576];
h/=(1.0f*255.0f);
steht das direkt hintereinander?
weil dann müßte es doch so auch gehn?
Code:
h := (h + This_Mod^.Spectrumdata[i * 8 + j + c * 576]) / (1.0 * 255);
[color=#ff0000] ^ die dereverenzierung ist dieses[/color]
[color=#0000ff]// ohne wäre es dann so:[/color]
h := (h + This_Mod.Spectrumdata[i * 8 + j + c * 576]) / (1.0 * 255);
also dann sozusagen so?
Delphi-Quellcode:
h := (h + This_Mod^.Spectrumdata[i * 8 + j + c * 576]) / (1.0 * 255.0);
h := (h + This_Mod^.Spectrumdata[i * 8 + j + c * 576]) / (0.9 * 255.0);
...