Zugriffsverletzung Delphi 7

[Jansteger]

Hi,

wenn ich auf den Button zum ändern der Hintergrundfarbe drücke, dann ändert sich die Farbe, es kommt aber auch eine Fehlermeldung: "Zugriffsverletzung in Adresse...". Das ist neuerdings immer so, war vorher aber nicht.

Delphi-Quellcode:

procedure TForm11.BRotClick(Sender: TObject);
begin
Form1.Color:=clred;
Form2.Color:=clred;
Form3.Color:=clred;
end;
end.

Wie kann ich das beheben?

MfG

[sx2008]

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.

Delphi-Quellcode:

SetFormColor

prüft ob das Objekt existiert und vermeidet so die Zugriffsverletzung.