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?