auf einen kleineren Bereich eingrenzen
Beim 2. Assigned(SolidList[x]), ohne die Logik zu prüfen riecht das nach Copy&Paste Fehler:
Delphi-Quellcode:
unit Easy3DGL;
[...]
procedure FreeGL;
[...]
for x := 0
to SolidList.Count - 1
do
begin
if Assigned(SolidList[x])
then
begin
CItem := SolidList[x];
CItem.Free;
end;
end;
for y := 0
to TransparentList.Count - 1
do
begin
if Assigned(SolidList[x])
then // <<< Hier
begin
CItem := TransparentList[x];
CItem.Free;
end;
end;