Mit einer kleiner Hilfsfunktion:
Delphi-Quellcode:
procedure SetFormColor(form:TCustomForm; color : TColor);
begin
if Assigned(form) then
form.Color := color;
end;
...
SetFormColor(form1, clRed);
SetFormColor(form2, clRed);
SetFormColor(form3, clRed);
Das Problem ist, dass eine der Variablen form1 bis form3 nicht initialisiert ist und den Wert NIL hat.
SetFormColor
prüft ob das Objekt existiert und vermeidet so die Zugriffsverletzung.