[GELÖST] "External: SIGSEGV" bei Aufruf einer Array of TImage

[Basetyp]

Hi, ich bin noch ein blutiger Anfänger in Sachen Delphi und Programmieren allgemein habe ich erst seit 2 Halbjahren in der Schule, deshalb entschuldige ich mich jetzt schon mal für meine "einfache Programmstruktur".

Mein Ziel ist, in dem Programm beliebig viele Bilder in der Form anzeigen zu lassen. Dazu habe ich ersteinmal folgenen Code:

Delphi-Quellcode:

var i: Integer;
begin
  Randomize;
  Doublebuffered:= True;
  Setlength(Cat_Picture,3);
  For i := 0 to High(Cat_Picture) do
  begin
    Cat_Picture[i].Create(self);
    Cat_Picture[i].Picture.LoadfromFile('NYAN.bmp');
    Cat_Picture[i].Height:= VPic_Height;
    Cat_Picture[i].Width:= VPic_Width;
    Cat_Picture[i].Left:= - Random(10) - Cat_Picture[i].Width;
    Cat_Picture[i].Top:= 0;
    Cat_Picture[i].Visible:= True;
    Cat_Picture[i].Show;
  end;

Mein Problem ist, dass ich einen "External: SIGSEGV" Error bekomme wenn das Programm kompiliert wurde und dann gestartet wird. Es verweißt dann auf folgene Zeile:
Cat_Picture[i].Create(self); Führe ich dann das Programm trotzdem weiter aus, so erhalte ich einen "RunError(7)".

Nun weiß ich nicht wo überhaupt der Fehler ist, da ich diesen Fehler nur daher kenne, dass ich einen Arrayindex ansteuere, der nicht existiert. Dies trifft aber hier nicht zu, da ich es auch schon ohne die Array of TImage probiert habe und trotzdem einen Fehler erhalte.

Als Lösungen gibt es im Internet nur, dass ich ein inherit dazu schreiben soll, von dem ich leider keine Ahnung habe was das ist.
Oder dass es sein kann, dass die Form bereits ein Image enthält und man das falsche Image anspricht mit Cat_Picture[i].Create(self); , was aber auch nicht der Fall ist hier, da meine Form kein Image enthält.

Kann mir hier jemand eine Lösung anbieten oder mir kurz erklären was dieser Bezeichner inherit bedeutet?

[DeddyH]

Zitat:

Cat_Picture[i].Create(self);

Ändere das mal in
Cat_Picture[i] := TPicture.Create(self);

[mkinzler]

Delphi-Quellcode:

var i: Integer;
begin
  Randomize;
  Doublebuffered:= True;
  Setlength(Cat_Picture,3);
  For i := Low(Cat_Picture) to High(Cat_Picture) do
  begin
    Cat_Picture[i] := TImage.Create(self);
    Cat_Picture[i].Picture.LoadfromFile('NYAN.bmp');
    Cat_Picture[i].Height:= VPic_Height;
    Cat_Picture[i].Width:= VPic_Width;
    Cat_Picture[i].Left:= - Random(10) - Cat_Picture[i].Width;
    Cat_Picture[i].Top:= 0;
    Cat_Picture[i].Visible:= True;
    Cat_Picture[i].Show;
  end;

[Basetyp]

Zitat von DeddyH:

Zitat:

Cat_Picture[i].Create(self);

Ändere das mal in
Cat_Picture[i] := TPicture.Create(self);

Gut. Danke, das funktioniert. Ich hab es allerdings so gemacht wie mkinzler es gesagt hat, also mit TImage anstatt TPicture. Komischerweise scheint er da aber keine Bitmaps zu unterstützen
Aber .png tuts auch für meine Zwecke.

Jetzt hab ich allerdings noch ein Problem.
Er zeigt das Bild nicht an. Ich hab den Quelltext mal so aufgebaut, dass eigentlich nirgends der Fehler liegen kann, außer dass irgendein Befehl fehlt um das Bild auch anzuzeigen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var i: Integer;
begin
  Setlength(Cat_Picture,3);
  For i := Low(Cat_Picture) to High(Cat_Picture) do
  begin
    Cat_Picture[i] := TImage.Create(self);
    Cat_Picture[i].Picture.LoadfromFile('Ball.png');
    Cat_Picture[i].Height:= 300;
    Cat_Picture[i].Width:= 300;
    Cat_Picture[i].Left:=0;
    Cat_Picture[i].Top:= 0;
    Cat_Picture[i].Visible:= True;
    Cat_Picture[i].Show;
    Cat_Picture[i].Stretch:= True;
  end;
  Application.ProcessMessages;
end;

Was übersehe ich hier?

[Basetyp]

Okay, ich hab mich Schlau gemacht, es fehlte Cat_Picture[i].Parent := Form1; .
Damit wird das Bild auch einem Formular zugeteilt, was ich völlig übersehen hatte.

Dankeschön an euch die mir geholfen haben!