zeiger-array mit einem nicht zeiger-array multiplizieren

[kaddy]

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 :coder:

[Jens Schumann]

Hallo,
versuche es mal mit x[i]^

[kaddy]

Danke, geht aber leider nicht.

[Jens Schumann]

Hallo,
ach ja, bislang hast du x: ptrTcold; nur im var Abschnitt deklariert.
D.h. innerhalb Deiner procedure zeigt x noch auf gar nix.
Entweder Du weist x irgendetwas zu, oder Du holst Dir über
GetMem(X,SizeOf(TArray)); // speicher holen
Hier etwas mit x machen
Freemem(X); // speicher wieder freigeben

Speicher. Dann musst Du aber noch den Inhalt von x initialisieren, sonst steht in x gerade das was in den Speicherzellen stand, bevor Du den Speicher reserviert hast.

[kaddy]

moin,
danke Dir hat damit jetzt geklappt.
Gruß
Kaddy :bounce2: :bounce1: :bouncing4: