TImage-Array lässt sich nicht ansprechen

[Adrian]

Servus!

Unter XP mit Lazarus Version 0.9.29 arbeitend habe ich folgenden Effekt

Code: Alles auswählen

var
  Serie1Image, Serie2Image, Serie3Image, Serie4Image : TImage;
  SerienImage : Array [0..4] of TImage;
 
...
 
  SerienNummer := 1;
  with SerienImage[SerienNummer] do
  begin
    if not Visible then  //-> hier erfolgt die Fehlermeldung SIGSEGV!
    begin
      Picture.Bitmap.Assign(HauptUnit.Form1.ScheibenImage.Picture.Bitmap);
      Visible := True;
    end;
 
... 
 
  with Serie2Image do
  begin
    if not Visible then
    begin
      Picture.Bitmap.Assign(HauptUnit.Form1.ScheibenImage.Picture.Bitmap);
      Visible := True;
    end;

Wenn ich also TImages ansprechen will, die in einem Array erzeugt sind, erhalte ich eine Fehlermeldung, bei einzeln erzeugen nicht.

Warum ist das so?
Was muß ich tun, um dennoch mit den Arrays arbeiten zu können?

Gruß,

Adrian

[theo]

Hast du die TImages auch created?
Sonst: Ich meide "with" Konstrukte wie der Teufel das Weihwasser. Das ist einfach zu abenteuerlich und sehr schwierig zu interpretieren.
Dasselbe würde ich dir auch raten.

[Adrian]

Servus Theo!

Ach ja, das wars - vielen Dank!

Gruß,

Adrian