Einzelnen Beitrag anzeigen

mkinzler
(Moderator)

Registriert seit: 9. Dez 2005
Ort: Heilbronn
39.851 Beiträge
 
Delphi 11 Alexandria
 
#3

AW: "External: SIGSEGV" bei Aufruf einer Array of TImage

  Alt 13. Jun 2012, 09:58
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;
Markus Kinzler
  Mit Zitat antworten Zitat