Freigeben -> AV; Bearbeiten -> Nichts weiter

[jaenicke]

Naja, wenn man sich das alles richtig überlegt, dann kann man das so auch machen, man muss aber dann genau schauen welchen Speichern man reserviert und freigibt usw., da müsste man sich dann selbst drum kümmern.
Wenn man nicht ein Array in der Länge verändert, sondern direkt den Speicher manipuliert, dann berührt dies den Referenzzähler nicht. Denn die alten Referenzen werden nicht entfernt sondern nur direkt inkl. Referenzzähler an die neue Stelle kopiert. Bei den alten wird der Speicher wieder freigegeben ohne, dass die Referenzzähler dekrementiert werden.

Auf diese Weise sollte das klappen, ist aber noch mehr Handarbeit und man muss noch mehr aufpassen was man eigentlich tut.

[Blup]

Das könnte so aussehen:

Delphi-Quellcode:

procedure MoveElements(var Source, Dest; ASize: DWord);
var
  BufferSize: DWord;
  Buffer, P1, P2: Pointer;
begin
  P1 := @Dest;
  P2 := @Source;
  if DWord(@Source) < DWord(@Dest) then
  begin
    BufferSize := DWord(@Dest) - DWord(@Source);
    if BufferSize > ASize then
      BufferSize := ASize
    else
      Inc(DWord(P1), ASize - BufferSize);
  end
  else if DWord(@Source) > DWord(@Dest) then
  begin
    BufferSize := DWord(@Source) - DWord(@Dest);
    if BufferSize > ASize then
      BufferSize := ASize
    else
      Inc(DWord(P2), ASize - BufferSize);
  end
  else
    Exit;

  GetMem(Buffer, BufferSize);
  Move(P1^, Buffer^, BufferSize);
  Move(Source, Dest, ASize);
  Move(Buffer^, P2^, BufferSize);
  FreeMem(Buffer);
end;

procedure TMainList.MoveContent(const AFrom, ATo, ASize: Integer); 
begin 
  MoveElements(FValues[AFrom], FValues[ATo], ASize); 
end;

Die Grenzen des Arrays dürfen durch ASize natürlich nicht überschritten werden.
Deshalb würde ich MoveContent so ändern, dass ACount übergeben wird.

Delphi-Quellcode:

procedure TMainList.MoveContent(const AFrom, ATo, ACount: DWord); 
begin 
{$ifdef DEBUG}
  if (AFrom + ACount > Length(FValues)) or
     (ATo   + ACount > Length(FValues)) then
    raise Exception.Create('MoveContent -> Index überschreitet das Maximum');
{$endif}
  MoveElements(FValues[AFrom], FValues[ATo], ACount * SizeOf(FValues[0])); 
end;

[xZise]

Hi Blup,

Entschuldige das ich erst jetzt antworte, aber kann es sein, das du ASize als "Length" interpretiert hast?

MfG
xZise

[Blup]

ASize wird in MoveElements als (Anzahl der zu verschiebenden Elemente) * SizeOf(Element) angenommen.

Ich habe aber vorgeschlagen MoveContent so zu verändern, dass nur die Anzahl der Elemente übergeben wird.
Das ist für die Verwendung einfacher und an einer zentralen Stelle kann so leicht die Überprüfung auf fehlerhafte Parametern erfolgen.