Ich verwalte paar Infos über ein Record-Array. Das einzig besondere dabei ist die Bitmap. Da ich vorher nicht weiß wie viele Einträge ich benötige, wird die Array dynamisch verwaltet, d. h. kommt ein neuer Eintrag dazu, wird er hinzugefügt, wird ein Eintrag nicht mehr benötigt, bekommt er zuerst einen Delete Vermerkt. Erst auf Anweisung wird das Array dann bereinigt. Dazu habe ich die untere Funktion.
Unabhängig davon ob die Funktion effektiv ist, bringt sie gelegentlich, nicht immer, einiges durcheinander. Nur erkenne ich kein Muster. Irgendwann sind einige Infos durcheinander, aber nie alles. Wo liegt der Fehler?
Delphi-Quellcode:
type
TInfo = record
Textinfo: Integer;
Bmp: TBitmap;
Delete: Boolean;
end;
var
Info: array of TInfo;
procedure ClearArray;
var
i, k: Integer;
begin
for i := High(Info) downto 0 do
begin
if Info[i].Delete then
begin
if i = High(Info) then //Ausnahme für High(Info)
begin
Info[High(Info)].Bmp.Free;
SetLength(Info, Length(Info) - 1);
Continue;
end;
for k := i to High(Info) - 1 do //Rest
begin
Info[k].Textinfo := Info[k+1].Textinfo;
Info[k].Bmp.Assign(Info[k+1].bmp);
Info[k].Delete := Info[k+1].Delete;
end;
Info[High(Info)].Bmp.Free;
SetLength(Info, Length(Info) - 1);
end;
end;
end;