Spiel programmieren, Hilfe benötigt.

[DeddyH]

Vielleicht sollte man die Grundlagentutorials einmal durcharbeiten.

[Connor Temple]

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
  ListeVonDateinamen:TStringlist;
  DateinameIndex:Integer;
  i:Integer;
begin
  Randomize;

  ListeVonDateinamen:=TStringList.Create;
  try
    ListeVonDateinamen.add('H:\Informatik-Bilder\1.bmp');
    ListeVonDateinamen.add('H:\Informatik-Bilder\2.bmp');
    ListeVonDateinamen.add('H:\Informatik-Bilder\3.bmp');
    ListeVonDateinamen.add('H:\Informatik-Bilder\4.bmp');
    ListeVonDateinamen.add('H:\Informatik-Bilder\-1.bmp');
    ListeVonDateinamen.add('H:\Informatik-Bilder\-2.bmp');
    ListeVonDateinamen.add('H:\Informatik-Bilder\-3.bmp');
    ListeVonDateinamen.add('H:\Informatik-Bilder\-4.bmp');
    for i:=0 to Form1.ComponentCount-1 do
      if Components[i] is TImage then
      begin
        DateinameIndex:=Random(ListeVonDateinamen.count);
        TImage(Components[i]).Picture.LoadFromFile(ListeVonDateinamen[DateinameIndex]);
        ListeVonDateinamen.Delete(DateinameIndex);
      end;
      finally
    Free(ListeVonDateinamen);
  end;
  end;

end.

Jetzt hab ich zu viele Parameter bei dem Free.
Mit .Free hat es nicht geklappt.

[DeddyH]

TObject.Free

[Connor Temple]

Delphi-Quellcode:

finally
    TObject.Free(ListeVonDateinamen);
  end;

So?
Dann sagt er mir, dass diese Form, des Methodenaufrufs nur für Klassenmodelle erlaubt sei.

[hoda]

Versuchs mal mit ListeVonDateinamen.Free;

[DeddyH]

:wall: Hast Du Dir mittlerweile die oben verlinkten Tutorials angesehen? Du sollst die Liste freigeben, welche die Free-Methode von TObject erbt.

[Connor Temple]

Die Tutorials muss ich mir mal in Ruhe angucken.
Neues Problem beim starten des Programms:
http://www.bild-upload.net/bild.php/...ehler5WFP4.jpg

[Deep-Sea]

Zitat:

Zitat von Connor Temple (Beitrag 1077145)

Die Tutorials muss ich mir mal in Ruhe angucken.

Dann tu das auch!

Zum Problem: Du hast wahrscheinlich mehr Images als Einträge in der Liste :roll:

[Connor Temple]

Momentan hab ich aber keine Ruhe, da ich nur Freistunden habe.
Wie kann ich dieses Problem dann beheben?

[Deep-Sea]

Einige Images löschen oder mehr Einträge in die Liste hinzufügen?! ..........
(Und trotzdem am besten gleich in den Quellcode eine Prüfung einbauen.)