Kleine Performanceoptimierung:
Delphi-Quellcode:
for I := 1 to high(oberflächen) do begin
if Assigned(oberflächen[I]) and (oberflächen[I] is TPanel) then
TPanel(Oberflächen[I]).Visible := False; // <<-- AS ist überflüssig, weil vorher mit IS geprüft wurde.
end;
Der 'as' Operator prüft nochmals, ob das Objekt passt, das wurde aber vorher schon über 'is' geprüft.