<br>
Hallo,<br>
<br>
ich habe folgendes Problem:<br>
<br>
const<br>
cnstAnzahl=10;<br>
var<br>
intZahl, i: integer;<br>
intZeiger: ^integer;<br>
<br>
GetMem(intZeiger, cnstAnzahl*sizeof(integer));<br>
i:=0;<br>
while i<cnstAnzahl do begin<br>
intZahl:=random(100000)+1;<br>
writeln((i+1):3, '.Zahl= ', intZahl:6);<br>
intZeiger^:=intZahl;<br>
inc(intZeiger);<br>
inc(i);<br>
end;<br>
<br>
.<br>
.<br>
.<br>
i:=0;<br>
dec(intZeiger, cnstAnzahl);<br>
while i<cnstAnzahl do begin<br>
Writeln((i+1):3, '.Zahl= ', intZeiger^:6, ' ',integer(@intZeiger), ' ',integer(@intZeiger^));<br>
inc(i);<br>
if i<cnstAnzahl then begin<br>
inc(intZeiger);<br>
end else begin<br>
writeln('nur zum Test');<br>
end;<br>
end;<br>
.<br>
.<br>
FreeMem(intZeiger);<br>//hier kommt die Fehlermeldung
.<br>
.<br>
.<br>
end;<br>
wenn ich versuche auf intZeiger zuzugreifen, bekomme ich den Fehler: Ungültige Zeigeroperation. Was mache ich falsch?<br>
Oder gibt es noch eine bessere Lösung mit MemorySteam?<br>
Ich hoffe es kann mir jemand helfen!
Tschüß Jürgen
Hallo,<br>
<br>
ich habe folgendes Problem:<br>
<br>
const<br>
cnstAnzahl=10;<br>
var<br>
intZahl, i: integer;<br>
intZeiger: ^integer;<br>
<br>
GetMem(intZeiger, cnstAnzahl*sizeof(integer));<br>
i:=0;<br>
while i<cnstAnzahl do begin<br>
intZahl:=random(100000)+1;<br>
writeln((i+1):3, '.Zahl= ', intZahl:6);<br>
intZeiger^:=intZahl;<br>
inc(intZeiger);<br>
inc(i);<br>
end;<br>
<br>
.<br>
.<br>
.<br>
i:=0;<br>
dec(intZeiger, cnstAnzahl);<br>
while i<cnstAnzahl do begin<br>
Writeln((i+1):3, '.Zahl= ', intZeiger^:6, ' ',integer(@intZeiger), ' ',integer(@intZeiger^));<br>
inc(i);<br>
if i<cnstAnzahl then begin<br>
inc(intZeiger);<br>
end else begin<br>
writeln('nur zum Test');<br>
end;<br>
end;<br>
.<br>
.<br>
FreeMem(intZeiger);<br>//hier kommt die Fehlermeldung
.<br>
.<br>
.<br>
end;<br>
wenn ich versuche auf intZeiger zuzugreifen, bekomme ich den Fehler: Ungültige Zeigeroperation. Was mache ich falsch?<br>
Oder gibt es noch eine bessere Lösung mit MemorySteam?<br>
Ich hoffe es kann mir jemand helfen!
Tschüß Jürgen
Comment