Hallo Netz,
ich möchte ein Zeiger-Array mit einem Nichtzeiger-Array multipizieren. Das sind die Codeausschnitte dazu.
Delphi-Quellcode:
const
t=6;
k=4;
max=1000;
type
Tcold= array[0..47] of double;
ptrTcold=^Tcold;
var
i,l:integer;
ergebnis: ptrTcold;
x: ptrTcold;
lagerkosten: array [0..max] of double;
begin
i:=0;
l:=0;
while i<k*t do begin
while l<k do begin
ergebnis[i]:=x[i]*lagerkosten[l];
i:=i+1;
l:=l+1;
end;
l:=0;
end;
end;
Was mache ich falsch? Danke!
Gruß
Kaddy
