Aus Dynamischen Array Hersusschneiden.

[Hawkeye219]

Verlasse dich nicht allzu sehr auf die Anzeige im Taskmanager. Der MemoryManager von Delphi könnte die Speicherblöcke durchaus noch reserviert haben, um sie bei nachfolgenden Anforderungen wieder zur Verfügung zu stellen. In diesem Fall wird sich der angezeigte Wert im Taskmanager kaum ändern.

Einen Hinweis auf tatsächliche MemLeaks erhältst du, wenn du die Projektdatei folgendermaßen erweiterst:

Delphi-Quellcode:

begin
  {$WARN SYMBOL_PLATFORM OFF}                       // <<-- diese Zeile hinzufügen
  ReportMemoryLeaksOnShutdown := (DebugHook <> 0);  // <<-- diese Zeile hinzufügen
  Application.Initialize;
  ...
end.

Wenn du jetzt dein Programm in der Delphi-IDE laufen läßt, erscheint beim Beenden eine Dialogbox mit Hinweisen auf MemLeaks, sofern welche vorhanden sind. Besonders informativ ist die Anzeige leider nicht. Sie zeigt nur an, daß nicht alle angeforderten Speicherblöcke zurückgegeben wurden, aber nicht, wo dies passiert. Um diese Stellen zu finden, wirst du andere Werkzeuge einsetzen müssen. In der DP gibt es einige Threads zu diesem Thema.

Gruß Hawkeye

[shifter]

Danke für Dein Tip,

ich habe exack so wie du es beschrieben gemacht,
leider bekomme ich nichts raus, also kein DialogBox oder ne meldung.

seba

[Flare]

Zitat:

Zitat von Hawkeye219

..., sofern welche vorhanden sind.

Dann sind höchstwahrscheinlich keine MemLeaks vorhanden :zwinker:

Flare

[Neutral General]

Also ich weiß nicht obs schon gesagt wurde aber ich mache es einfach so:

Delphi-Quellcode:

procedure DeleteItem(var AArray: TArrayofKa; Index: Integer);
var tmp: TArrayofKa;
    i,j: Integer;
begin
  j:= 0;
  SetLength(tmp,Length(AArray)-1);
  for i:= 0 to High(AArray) do
   if i <> Index then
   begin
    tmp[j] := AArray[i];
    inc(j);
   end;
   AArray := tmp;
end;

So in etwa :stupid:

Gruß
Neutral General

[Khabarakh]

Da finde ich Move aber ein wenig eleganter :zwinker: .

[MStoll]

Hallo

Warum so kompliziert?

Delphi-Quellcode:

procedure delete_arr_item(var arr : tbyte_arr; idx : integer); overload;
var x : integer;
begin
     for x := idx + 1 to high(arr) do
         arr[x-1] := arr[x];
     SetLength(arr, length(arr) - 1)
end;

Ist vll nicht die schnellste, aber sicher eine der kürzesten Varianten.

[Edit]Allerdings lässt sie alle Elemente "in Ruhe", die eh nicht verändert werden (d.h. die mit einem Index < als idx)[/Edit]

Gruß
Michael