Probleme mit Array of TImage

[flomei]

Hallo!
Hier im Forum habe ich ein bisschen Code gefunden der neue Images zur Laufzeit erzeugt...
Das sieht bei mir jetzt so aus:

Delphi-Quellcode:

procedure TMainForm.CreateNewEnemyTimer(Sender: TObject);
  var i:integer;
    Gegner : Array of Timage;
  begin
    setlength(Gegner,5);   
  for i := 0 to high(Gegner) do
    begin
      with Gegner[i] do
        begin
          Timage.Create(self);                      
          Picture.LoadFromFile(ExtractFilePath(paramstr(0))+'enemies\blue.ico');
          left := trunc(random * 300);
          height := 32;
          width:= 32;
          Visible := true;
          Show;
        end;
    end;
  end;

Das funktioniert nur leider nicht. Ich erhalte jedesmal die Meldung über eine Zugriffsverletzung. Wo muss ich was ändern damit es nicht mehr auftritt? Ich denke es liegt vielleicht an dem Bild das mir einige Sorgen bereitet. Ich habe oben in einer ComboBox den Gegner ausgewählt aber wie soll man dann den Pfad ändern???

Bin dankbar für jede Hilfe!

MfG Florian

[sakura]

Ändere mal wie folgend.

Code:

procedure TMainForm.CreateNewEnemyTimer(Sender: TObject);
  var i:integer;
    Gegner : Array of Timage;
  begin
    setlength(Gegner,5);   
  for i := 0 to high(Gegner) do
    begin
      [color=#ff0012]Gegner[i] := Timage.Create(self);[/color]
      with Gegner[i] do
        begin
          [s][color=#ff0012]Timage.Create(self);[/color][/s]
          Picture.LoadFromFile(ExtractFilePath(paramstr(0))+'enemies\blue.ico');
          left := trunc(random * 300);
          height := 32;
          width:= 32;
          Visible := true;
          Show;
        end;
    end;
  end;

......

[Christian Seehase]

Moin Florian,

mach's mal lieber so:

Delphi-Quellcode:

//...
Gegner[i] := TImage.Create(self);
with Gegner[i] do
//...

[EDIT]
Schon wieder zu spät...
Ist nicht mein Tag heute
[/EDIT]

[flomei]

Juhu! Spitze! Danke!
Jetzt muss ich mal noch nach den "Left" Werten gucken und dann bin ich wieder ein Stück weiter... *freu*


MfG Florian