Ungültige Zeigeroperation. Wo ist der Fehler?!

[p80286]

Mir kommt hier das eine oder andere seltsam vor:

Delphi-Quellcode:

procedure TForm1.Iteration(const normiert:array of double;const ProdRate:double;var Puffer_ganzzahl:array of integer;var Puffer_exakt:array of double);
var
....
XS,XF:tfeld;
...
begin
  setlength(XS,k_abs,w_abs);
  setlength(XF,k_abs,w_abs);

Was auch immer TFeld sein mag, Setlength kenne ich nur mit 2 Parametern

Auch das hier sollte proteste des Compiler hervorrufen:

Delphi-Quellcode:

for i:=0 to k_abs do
    Puffer_exakt[i]:=Puffer_ganzzahl[i];

Double und Integer sind nun einmal nicht zuweisungskompatibel.

Du wirst Deine Gründe haben:

Delphi-Quellcode:

    for i:=1 to k_abs-3 do
      begin
        Puffer_exakt[i]:=Puffer_exakt[i]+normiert[i]*(k_abs-2);
        Puffer_ganzzahl[i]:=floor(Puffer_exakt[i]);
      end;

aber ein Dyn array fängt bei 0 an und Du solltest möglichst mit length, high und low arbeiten.

Nebenbei bemerkt, k_abs und w_abs als Parameter übergeben erleichtert das Debugging ungemein.

Gruß
K-H

[DeddyH]

Zitat von p80286:

Was auch immer TFeld sein mag, Setlength kenne ich nur mit 2 Parametern

Mehrdimensionale Arrays kannst Du auch mit SetLength in einem Rutsch dimensionieren.

Zitat von p80286:

Double und Integer sind nun einmal nicht zuweisungskompatibel.

Integer zu Double geht, nur andersherum nicht.

[p80286]

*schäm*
Da schaut man mal in die Hilfe, und dann das.

K-H