A/V bei löschen von Element in Array

**WorstNightmare**

Hallo,

ich habe eine eigene StringListen Klasse für Plugin-DLLs geschrieben, damit ich Classes nicht einbinden muss (und sie somit nicht so aufgebläht werden). Die Liste bietet außerdem einige Extra-Funktionen, z.B. einen Filter darauf anzuwenden, d.h. alle Elemente die Filter nicht enthalten werden gelöscht.

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TCSList.ApplyFilter(F: string);

var

  i: Integer;

begin

  for i := 0 to Count - 1 do

    if Pos(F, FArray[i]) = 0 then

      if i = Count - 1 then

        SetLength(FArray, Count - 1)

      else

      begin

        Move(FArray[i + 1], FArray[i], (Count - 1 - i) * 4);   // String = 4 Byte Pointer

        SetLength(FArray, Count - 1);

        ApplyFilter(F);    // Count geändert, Schleife neustarten

        Exit;

      end;

end;

Das ganze basiert auf einem array of string (FArray), Count gibt einfach nur Length(FArray) aus. Das Problem ist, dass nach einem Durchlauf der Speicher irgendwie korrumpiert wird, denn plötzlich tauchen im Array noch andere Strings die irgendwo in der DLL vorkommen auf und irgendwann ist es dann so kaputt, dass eine A/V geworfen wird.

Vielleicht mögen die String-Pointer es nicht rumgeschoben zu werden? Ich konnte den Fehler nicht finden

A/V bei löschen von Element in Array

A/V bei löschen von Element in Array

Forumregeln