Reservierten Speicher dynamisch vergrößern?

[Neutral General]

Hi,

Beispiel:

Delphi-Quellcode:

var p: Pointer;
begin 
  GetMem(P,20);

kann man diesen reservierten Speicher nachträglich vergrößern? Also wenn nach diesem aufruf P = $AAAAAAAA dann soll nach der Speichervergrößerung P immernoch = $AAAAAAAA sein, es soll hintendran eben nur mehr Platz sein :mrgreen:

Gruß
Neutral General

[Apollonius]

Verwende ReallocMem.

[Neutral General]

Hi,

Habe gerade das hier ausprobiert:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var p: Pointer;
begin
   GetMem(P,20);
   Caption := IntToHex(Integer(p),8);
   ReallocMem(p,24);
   Caption := Caption + '   ' + IntToHex(Integer(p),8);
   FreeMem(p);
end;

Aber $0105E1B8 <> $010734E0 :?

Oder sieht es nur so aus als wärs was anderes?^^ Bzw richtiger: Werden die alten Daten mitkopiert? Wahrscheinlich oder?

EDIT: Ja genau wie ich vermutet hatte. Danke :)

[grenzgaenger]

Nö, gibts nicht. wie denn auch, wenn kein speicher hinten dran frei ist, kann er doch nicht alle anderen speicherblöcke verschieben... also, muss er sich selbst verschieben, und so, ist deine adresse im anschluss eine andere.

[Neutral General]

Zitat:

Zitat von grenzgaenger

Nö, gibts nicht. wie denn auch, wenn kein speicher hinten dran frei ist, kann er doch nicht alle anderen speicherblöcke verschieben... also, muss er sich selbst verschieben, und so, ist deine adresse im anschluss eine andere.

Ist auch nicht so schlimm, solange die alten Daten mitverschoben werden :)

[Apollonius]

ReallocMem prüft eben, ob hintendran frei ist, und vergrößert entweder den Block oder verschiebt an eine andere Stelle. Wie man sich denken kann, wird ReallocMem auch bei SetLength und TList verwendet.